blob: 25dcd5ea79f3da1a9493f726cb3c1a4fff1a4c40 (
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
40
|
/***********************************************************************/
/* */
/* Caml Special Light */
/* */
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 1995 Institut National de Recherche en Informatique et */
/* Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
/* $Id$ */
#ifdef SYS_sunos
#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
|
