guile18/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