mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 20:30:28 +02:00
34 lines
513 B
ArmAsm
34 lines
513 B
ArmAsm
.text
|
|
.align 2
|
|
.global qt_abort
|
|
.global qt_block
|
|
.global qt_blocki
|
|
|
|
# r0: helper
|
|
# r1: arg1
|
|
# r2: arg2
|
|
# r3: new_sp
|
|
qt_abort:
|
|
qt_block:
|
|
qt_blocki:
|
|
stmfd sp!, {r4-r11,lr}
|
|
mov ip, r0
|
|
mov r0, sp
|
|
mov sp, r3
|
|
mov lr, pc
|
|
mov pc, ip
|
|
ldmfd sp!, {r4-r11,pc}
|
|
|
|
|
|
.global qt_start
|
|
.global qt_error
|
|
.type qt_start,function
|
|
qt_start:
|
|
ldr r0, [sp]
|
|
ldr r1, [sp, #4]
|
|
ldr r2, [sp, #8]
|
|
ldr lr, qt_error_loc
|
|
ldr pc, [sp, #12]
|
|
|
|
qt_error_loc:
|
|
.word qt_error
|