testasmcomp/sparc.S

   1 /***********************************************************************/
   2 /*                                                                     */
   3 /*                           Objective Caml                            */
   4 /*                                                                     */
   5 /*            Xavier Leroy, projet Cristal, INRIA Rocquencourt         */
   6 /*                                                                     */
   7 /*  Copyright 1996 Institut National de Recherche en Informatique et   */
   8 /*  en Automatique.  All rights reserved.  This file is distributed    */
   9 /*  under the terms of the Q Public License version 1.0.               */
  10 /*                                                                     */
  11 /***********************************************************************/
  12
  13 /* $Id$ */
  14
  15 #ifndef SYS_solaris
  16 #define Call_gen_code _call_gen_code
  17 #define Caml_c_call _caml_c_call
  18 #else
  19 #define Call_gen_code call_gen_code
  20 #define Caml_c_call caml_c_call
  21 #endif
  22
  23         .global Call_gen_code
  24 Call_gen_code:
  25         save    %sp, -96, %sp
  26         mov     %i0, %l0
  27         mov     %i1, %i0
  28         mov     %i2, %i1
  29         mov     %i3, %i2
  30         mov     %i4, %i3
  31         mov     %i5, %i4
  32         call    %l0
  33         nop
  34         mov     %o0, %i0
  35         ret
  36         restore
  37
  38         .global Caml_c_call
  39 Caml_c_call:
  40         jmp     %g4
  41         nop