40 lines
1.4 KiB
ArmAsm
40 lines
1.4 KiB
ArmAsm
/***********************************************************************/
|
|
/* */
|
|
/* OCaml */
|
|
/* */
|
|
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
|
|
/* */
|
|
/* Copyright 1996 Institut National de Recherche en Informatique et */
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
|
/* under the terms of the Q Public License version 1.0. */
|
|
/* */
|
|
/***********************************************************************/
|
|
|
|
#if defined(SYS_solaris) || defined(SYS_elf)
|
|
#define Call_gen_code _call_gen_code
|
|
#define Caml_c_call _caml_c_call
|
|
#else
|
|
#define Call_gen_code call_gen_code
|
|
#define Caml_c_call caml_c_call
|
|
#endif
|
|
|
|
.global Call_gen_code
|
|
Call_gen_code:
|
|
save %sp, -96, %sp
|
|
mov %i0, %l0
|
|
mov %i1, %i0
|
|
mov %i2, %i1
|
|
mov %i3, %i2
|
|
mov %i4, %i3
|
|
mov %i5, %i4
|
|
call %l0
|
|
nop
|
|
mov %o0, %i0
|
|
ret
|
|
restore
|
|
|
|
.global Caml_c_call
|
|
Caml_c_call:
|
|
jmp %g4
|
|
nop
|