ffmpeg/tests/checkasm/riscv/checkasm.S
Martin Storsjö 65739691b9 checkasm: Generalize crash handling
This replaces the riscv specific handling from
7212466e73 (which essentially is
reverted), with a different implementation of the same (plus a bit
more), based on the corresponding feature in dav1d's checkasm,
supporting both Unix and Windows.

See in particular the dav1d commits
0b6ee30eab2400e4f85b735ad29a68a842c34e21,
0421f787ea592fd2cc74c887f20b8dc31393788b,
8501a4b20135f93a4c3b426468e2240e872949c5 and
d23e87f7aee26ddcf5f7a2e185112031477599a7, authored by Henrik Gramner.

The overall approach compared to the existing implementation for
riscv is the same; set up a signal handler, store the state with
sigsetjmp, jump out of the crashing function with siglongjmp.

The main difference is in what happens when the signal handler
is invoked. In the previous implementation, it would resume from
right before calling the crashing function, and then skip that call
based on the setjmp return value.

In the imported implementation from dav1d, we return to right before
the check_func() call, which will skip testing the current function
(as the pointer is the same as it was before).

Other differences are:
- Support for other signal handling mechanisms (Windows
  AddVectoredExceptionHandler)
- Using RtlCaptureContext/RtlRestoreContext instead of setjmp/longjmp
  on Windows with SEH
- Only catching signals once per function - if more than one
  signal is delivered before signal handling is reenabled, any
  signal is handled as it would without our handler
- Not using an arch specific signal handler written in assembly

Signed-off-by: Martin Storsjö <martin@martin.st>
2024-01-11 14:48:53 +02:00

179 lines
5.0 KiB
ArmAsm

/****************************************************************************
* Copyright © 2022 Rémi Denis-Courmont.
*
* This file is part of FFmpeg.
*
* FFmpeg is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* FFmpeg is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02111, USA.
*****************************************************************************/
#include "libavutil/riscv/asm.S"
#if (__riscv_xlen == 64)
const fail_s_reg
.asciz "callee-saved integer register clobbered"
endconst
const fail_fs_reg
.asciz "callee-saved floating-point register clobbered"
endconst
const fail_rsvd_reg
.asciz "unallocatable register clobbered"
endconst
.section .tbss, "waT"
.align 3
.hidden checked_func
.hidden saved_regs
checked_func:
.quad 0
saved_regs:
/* Space to spill RA, SP, GP, TP, S0-S11 and FS0-FS11 */
.rept 4 + 12 + 12
.quad 0
.endr
func checkasm_set_function
la.tls.ie t0, checked_func
add t0, tp, t0
sd a0, (t0)
ret
endfunc
func checkasm_get_wrapper, v
addi sp, sp, -16
sd fp, (sp)
sd ra, 8(sp)
addi fp, sp, 16
call av_get_cpu_flags
andi t0, a0, 8 /* AV_CPU_FLAG_RVV_I32 */
lla a0, 3f
beqz t0, 1f
lla a0, 2f
1:
ld ra, 8(sp)
ld fp, (sp)
addi sp, sp, 16
ret
2: /* <-- Entry point with the Vector extension --> */
/* Clobber the vectors */
vsetvli t0, zero, e32, m8, ta, ma
li t0, 0xdeadbeef
vmv.v.x v0, t0
vmv.v.x v8, t0
vmv.v.x v16, t0
vmv.v.x v24, t0
/* Clobber the vector configuration */
li t0, 0 /* Vector length: zero */
li t1, -1 << 31 /* Vector type: illegal */
vsetvl zero, t0, t1
csrwi vxrm, 3 /* Rounding mode: round-to-odd */
csrwi vxsat, 1 /* Saturation: encountered */
3: /* <-- Entry point without the Vector extension --> */
/* Save RA, unallocatable and callee-saved registers */
la.tls.ie t0, saved_regs
add t0, tp, t0
sd ra, (t0)
sd sp, 8(t0)
sd gp, 16(t0)
sd tp, 24(t0)
.irp n, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
sd s\n, (32 + (16 * \n))(t0)
fsd fs\n, (40 + (16 * \n))(t0)
.endr
/* Clobber the stack space right below SP */
li t0, 0xdeadbeef1badf00d
.rept 16
addi sp, sp, -16
sd t0, (sp)
sd t0, 8(sp)
.endr
addi sp, sp, 256
/* Clobber the saved and temporary registers */
.irp n, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
.if (\n > 0 && \n < 7)
mv t\n, t0
.endif
fmv.d.x ft\n, t0
mv s\n, t0
fmv.d.x fs\n, t0
.endr
/* Call the tested function */
la.tls.ie t0, checked_func
add t0, tp, t0
ld t1, (t0)
sd zero, (t0)
jalr t1
/* Check special register values */
la.tls.ie t0, saved_regs
add t0, tp, t0
ld t1, 8(t0)
bne t1, sp, 5f
ld t1, 16(t0)
bne t1, gp, 5f
ld t1, 24(t0) // If TP was corrupted, we probably will have...
bne t1, tp, 5f // ...already crashed before we even get here.
/* Check value of saved registers */
li t0, 0xdeadbeef1badf00d
.irp n, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
bne t0, s\n, 6f
#ifdef __riscv_float_abi_double
/* TODO: check float ABI single too */
fmv.x.d t1, fs\n
bne t0, t1, 7f
#endif
.endr
4:
/* Restore RA and saved registers */
la.tls.ie t0, saved_regs
add t0, tp, t0
ld ra, (t0)
.irp n, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
ld s\n, (32 + (16 * \n))(t0)
fld fs\n, (40 + (16 * \n))(t0)
.endr
ret
5:
lla a0, fail_rsvd_reg
call checkasm_fail_func
tail abort /* The test harness would probably crash anyway */
6:
lla a0, fail_s_reg
call checkasm_fail_func
j 4b
7:
lla a0, fail_fs_reg
call checkasm_fail_func
j 4b
endfunc
#endif