Revision 27bfa7b1b87d081df9d714144cf1e6aae2b87b19 authored by Damien Doligez on 19 August 2004, 12:52:17 UTC, committed by Damien Doligez on 19 August 2004, 12:52:17 UTC
git-svn-id: http://caml.inria.fr/svn/ocaml/version/3.08@6606 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1 parent 510ea35
sparc.S
/***********************************************************************/
/* */
/* Objective Caml */
/* */
/* 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. */
/* */
/***********************************************************************/
/* $Id$ */
#ifndef SYS_solaris
#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
Computing file changes ...