lang/ocaml/patches/patch-bw

   1 $NetBSD$
   2
   3 --- asmrun/arm.S.orig   2009-05-04 13:46:46.000000000 +0000
   4 +++ asmrun/arm.S
   5 @@ -38,7 +38,7 @@ caml_call_gc:
   6         ldr     r12, .Lcaml_requested_size
   7         ldr     r12, [r12, #0]
   8         sub     alloc_ptr, alloc_ptr, r12
   9 -        bx      lr
  10 +        mov    pc,lr
  11
  12          .globl caml_alloc1
  13  caml_alloc1:
  14 @@ -128,7 +128,7 @@ caml_allocN:
  15          ldr     alloc_limit, [r12, #0]
  16      /* Return to caller */
  17          ldr     r12, [sp], #4
  18 -        bx      r12
  19 +        mov     pc,r12         /* optimize! */
  20
  21  /* Call a C function from Caml */
  22  /* Function to call is in r12 */
  23 @@ -149,13 +149,13 @@ caml_c_call:
  24          str     trap_ptr, [r7, #0]
  25      /* Call the function */
  26          mov     lr, pc
  27 -        bx      r12
  28 +        mov    pc,r12
  29      /* Reload alloc ptr and alloc limit */
  30          ldr     r5, .Lcaml_young_limit
  31          ldr     alloc_ptr, [r6, #0]    /* r6 still points to caml_young_ptr */
  32          ldr     alloc_limit, [r5, #0]
  33      /* Return */
  34 -        bx      r4
  35 +        mov    pc,r4
  36
  37  /* Start the Caml program */
  38
  39 @@ -196,7 +196,7 @@ caml_start_program:
  40          ldr     alloc_limit, [r4, #0]
  41      /* Call the Caml code */
  42          mov     lr, pc
  43 -        bx      r12
  44 +        mov    pc,r12
  45  .Lcaml_retaddr:
  46      /* Pop the trap frame, restoring caml_exception_pointer */
  47          ldr     r4, .Lcaml_exception_pointer
  48 @@ -220,7 +220,7 @@ caml_start_program:
  49          str     alloc_ptr, [r4, #0]
  50      /* Reload callee-save registers and return */
  51          ldmfd   sp!, {r4,r5,r6,r7,r8,r10,r11,lr}
  52 -       bx      lr
  53 +       mov     pc,lr
  54
  55      /* The trap handler */
  56  .Ltrap_handler: