101 lines
3.5 KiB
C
101 lines
3.5 KiB
C
/***********************************************************************/
|
|
/* */
|
|
/* 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 GNU Library General Public License, with */
|
|
/* the special exception on linking described in file ../LICENSE. */
|
|
/* */
|
|
/***********************************************************************/
|
|
|
|
/* $Id$ */
|
|
|
|
/* Machine-dependent interface with the asm code */
|
|
|
|
#ifndef _stack_
|
|
#define _stack_
|
|
|
|
/* Macros to access the stack frame */
|
|
#ifdef TARGET_alpha
|
|
#define Saved_return_address(sp) *((long *)((sp) - 8))
|
|
#define Already_scanned(sp, retaddr) ((retaddr) & 1L)
|
|
#define Mark_scanned(sp, retaddr) (*((long *)((sp) - 8)) = (retaddr) | 1L)
|
|
#define Mask_already_scanned(retaddr) ((retaddr) & ~1L)
|
|
#define Callback_link(sp) ((struct caml_context *)((sp) + 16))
|
|
#endif
|
|
|
|
#ifdef TARGET_sparc
|
|
#define Saved_return_address(sp) *((long *)((sp) + 92))
|
|
#define Callback_link(sp) ((struct caml_context *)((sp) + 104))
|
|
#endif
|
|
|
|
#ifdef TARGET_i386
|
|
#define Saved_return_address(sp) *((long *)((sp) - 4))
|
|
#define Callback_link(sp) ((struct caml_context *)((sp) + 8))
|
|
#endif
|
|
|
|
#ifdef TARGET_mips
|
|
#define Saved_return_address(sp) *((long *)((sp) - 4))
|
|
#define Callback_link(sp) ((struct caml_context *)((sp) + 16))
|
|
#endif
|
|
|
|
#ifdef TARGET_hppa
|
|
#define Stack_grows_upwards
|
|
#define Saved_return_address(sp) *((long *)(sp))
|
|
#define Callback_link(sp) ((struct caml_context *)((sp) - 24))
|
|
#endif
|
|
|
|
#ifdef TARGET_power
|
|
#define Saved_return_address(sp) *((long *)((sp) - 4))
|
|
#define Already_scanned(sp, retaddr) ((retaddr) & 1)
|
|
#define Mark_scanned(sp, retaddr) (*((long *)((sp) - 4)) = (retaddr) | 1)
|
|
#define Mask_already_scanned(retaddr) ((retaddr) & ~1)
|
|
#ifdef SYS_aix
|
|
#define Trap_frame_size 24
|
|
#else
|
|
#define Trap_frame_size 8
|
|
#endif
|
|
#define Callback_link(sp) ((struct caml_context *)((sp) + Trap_frame_size))
|
|
#endif
|
|
|
|
#ifdef TARGET_m68k
|
|
#define Saved_return_address(sp) *((long *)((sp) - 4))
|
|
#define Callback_link(sp) ((struct caml_context *)((sp) + 8))
|
|
#endif
|
|
|
|
#ifdef TARGET_arm
|
|
#define Saved_return_address(sp) *((long *)((sp) - 4))
|
|
#define Callback_link(sp) ((struct caml_context *)((sp) + 8))
|
|
#endif
|
|
|
|
#ifdef TARGET_ia64
|
|
#define Saved_return_address(sp) *((long *)((sp) + 8))
|
|
#define Already_scanned(sp, retaddr) ((retaddr) & 1L)
|
|
#define Mark_scanned(sp, retaddr) (*((long *)((sp) + 8)) = (retaddr) | 1L)
|
|
#define Mask_already_scanned(retaddr) ((retaddr) & ~1L)
|
|
#define Callback_link(sp) ((struct caml_context *)((sp) + 32))
|
|
#endif
|
|
|
|
/* Structure of Caml callback contexts */
|
|
|
|
struct caml_context {
|
|
char * bottom_of_stack; /* beginning of Caml stack chunk */
|
|
unsigned long last_retaddr; /* last return address in Caml code */
|
|
value * gc_regs; /* pointer to register block */
|
|
};
|
|
|
|
/* Declaration of variables used in the asm code */
|
|
extern char * caml_bottom_of_stack;
|
|
extern unsigned long caml_last_return_address;
|
|
extern value * caml_gc_regs;
|
|
extern char * caml_exception_pointer;
|
|
extern value caml_globals[];
|
|
extern long caml_globals_inited;
|
|
extern long * caml_frametable[];
|
|
|
|
|
|
#endif /* _stack_ */
|