43 lines
1.7 KiB
ArmAsm
43 lines
1.7 KiB
ArmAsm
/**************************************************************************/
|
|
/* */
|
|
/* OCaml */
|
|
/* */
|
|
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
|
|
/* */
|
|
/* Copyright 1998 Institut National de Recherche en Informatique et */
|
|
/* en Automatique. */
|
|
/* */
|
|
/* All rights reserved. This file is distributed under the terms of */
|
|
/* the GNU Lesser General Public License version 2.1, with the */
|
|
/* special exception on linking described in the file LICENSE. */
|
|
/* */
|
|
/**************************************************************************/
|
|
|
|
.text
|
|
|
|
.global call_gen_code
|
|
.type call_gen_code, %function
|
|
.align 0
|
|
call_gen_code:
|
|
mov ip, sp
|
|
stmfd sp!, {r4, r5, r6, r7, r8, r9, fp, ip, lr, pc}
|
|
sub fp, ip, #4
|
|
@ r0 is function to call
|
|
@ r1, r2, r3 are arguments 1, 2, 3
|
|
mov r4, r0
|
|
mov r0, r1
|
|
mov r1, r2
|
|
mov r2, r3
|
|
blx r4
|
|
ldmea fp, {r4, r5, r6, r7, r8, r9, fp, sp, pc}
|
|
|
|
.global caml_c_call
|
|
.type caml_c_call, %function
|
|
.align 0
|
|
caml_c_call:
|
|
@ function to call is in r10
|
|
bx r10
|
|
|
|
/* Mark stack as non-executable */
|
|
.section .note.GNU-stack,"",%progbits
|