Newer
Older
/*
This code was written as part of the CMU Common Lisp project at
Carnegie Mellon University, and has been placed in the public domain.
*/
#ifndef _LISPREGS_H_
#define _LISPREGS_H_
#include "mips-lispregs.h"
#endif
#ifdef sparc
#include "sparc-lispregs.h"
#endif
#ifdef ibmrt
#include "rt-lispregs.h"
#endif
#ifdef i386
#include "x86-lispregs.h"
#endif
#ifdef alpha
#include "alpha-lispregs.h"
#endif
#ifdef ppc
#include "ppc-lispregs.h"
#endif
/* This matches the definition of sc-offset in code/debug-info.lisp */
#define SC_OFFSET(sc,offset) (((offset) << 5) | (sc))
/*
* Macros to compute the SC_OFFSET value. See read-var-integer and
* sc-offset and friends in debug-info.lisp
*/
#define SC_OFFSET_HI(sc, regnum) ((SC_OFFSET(sc,regnum)) >> 8)
#define SC_OFFSET_LO(sc, regnum) ((SC_OFFSET(sc,regnum)) & 0xff)
#ifndef LANGUAGE_ASSEMBLY
extern char *lisp_register_names[];
#endif
#endif /* _LISPREGS_H_ */