Use $(GCC_CFLAGS) for `-Werror' et al. so that it's not used to compile
[bpt/guile.git] / qt / md / arm.s
1 .text
2 .align 2
3 .global qt_abort
4 .global qt_block
5 .global qt_blocki
6
7 # r0: helper
8 # r1: arg1
9 # r2: arg2
10 # r3: new_sp
11 qt_abort:
12 qt_block:
13 qt_blocki:
14 stmfd sp!, {r4-r11,lr}
15 mov ip, r0
16 mov r0, sp
17 mov sp, r3
18 mov lr, pc
19 mov pc, ip
20 ldmfd sp!, {r4-r11,pc}
21
22
23 .global qt_start
24 .global qt_error
25 .type qt_start,function
26 qt_start:
27 ldr r0, [sp]
28 ldr r1, [sp, #4]
29 ldr r2, [sp, #8]
30 ldr lr, qt_error_loc
31 ldr pc, [sp, #12]
32
33 qt_error_loc:
34 .word qt_error