blob: ea029573a0e35281e882e240741d85d545bb20cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
/***********************************************************************/
/* */
/* 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
|
