Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/branches/SMLNJ/src/runtime/config/gen-offsets.c
ViewVC logotype

View of /sml/branches/SMLNJ/src/runtime/config/gen-offsets.c

Parent Directory Parent Directory | Revision Log Revision Log

Revision 3 - (download) (as text) (annotate)
Sat Oct 4 23:33:46 1997 UTC (23 years, 4 months ago)
File size: 2923 byte(s)
This commit was manufactured by cvs2svn to create branch 'SMLNJ'.
/* gen-offsets.c
 * COPYRIGHT (c) 1992 by AT&T Bell Laboratories.
 * This C program generates a header file for the *.prim.asm files,
 * which gives the offset values in the VProc and ML state vectors.

#include "ml-base.h"
#include "vproc-state.h"
#include "ml-state.h"
#include "gen.h"

#define MOFFSET(fld)	(((Addr_t)&(M.s.fld)) - (Addr_t)&(M.b[0]))
#define VOFFSET(fld)	(((Addr_t)&(V.s.fld)) - (Addr_t)&(V.b[0]))

#define PVOFFSET(sym, fld)	\
    fprintf(f, "#define %sOffVSP %d\n", (sym), VOFFSET(fld))
#define PMOFFSET(sym, fld)	\
    fprintf(f, "#define %sOffMSP %d\n", (sym), MOFFSET(fld))

#if defined(TARGET_HPPA)
# define PROOT(sym, index)	\
       fprintf(f, "#define %sOffMSP RootsOffMSP+%d\n", (sym), WORD_SZB*index)
# define PROOT(sym, index)	\
       fprintf(f, "#define %sOffMSP (RootsOffMSP+%d)\n", (sym), WORD_SZB*index)

main ()
    union {
	vproc_state_t	s;
	char		b[sizeof(vproc_state_t)];
    }		V;
    union {
	ml_state_t	s;
	char		b[sizeof(ml_state_t)];
    }		M;
    int		i;
    FILE	*f;

  /* check to make sure that the ml_roots array is 8-byte aligned */
    if ((MOFFSET(ml_roots[0]) & 7) != 0) {
	fprintf (stderr, "Error: ml_roots not 8-byte aligned\n");
	exit (1);

    f = OpenFile ("mlstate-offsets.h", "_MLSTATE_OFFSETS_");

    fprintf (f, "/* TARGET_BYTECODE */\n");
    PMOFFSET("VProc", ml_vproc);
    PMOFFSET("AllocPtr", ml_allocPtr);
    PMOFFSET("LimitPtr", ml_limitPtr);
    PMOFFSET("StorePtr", ml_storePtr);
    PMOFFSET("Roots", ml_roots[0]);
    PROOT("StdArg", ARG_INDX);
    PROOT("StdCont", CONT_INDX);
    PROOT("ExnPtr", EXN_INDX);
#ifdef BASE_INDX
    PROOT("BasePtr", BASE_INDX);
    PROOT("VarPtr", VAR_INDX);
    PROOT("LinkReg", LINK_INDX);
#ifdef MISC0_INDX
#   if defined(TARGET_HPPA)
       fprintf(f, "#define MiscRegOffMSP(i) %d+(%d*(i))\n",
	       ((Addr_t)&(M.s.ml_roots[MISC0_INDX])) - (Addr_t)&(M.b[0]),
#   else
       fprintf(f, "#define MiscRegOffMSP(i) (%d+(%d*(i)))\n",
	       ((Addr_t)&(M.s.ml_roots[MISC0_INDX])) - (Addr_t)&(M.b[0]),
#   endif
    for (i = 0;  i < N_PSEUDO_REGS;  i++) {
	char	buf[32];
	sprintf (buf, "PseudoReg%d", i+1);
	PMOFFSET(buf, ml_pseudoRegs[i]);
#ifdef ICOUNT
    PMOFFSET("ICountRef", ml_icountReg);
    PMOFFSET("Mask", ml_liveRegMask);
#ifdef SOFT_POLL
    PMOFFSET("RealLimit", ml_realLimit);
    PMOFFSET("PollPending", ml_pollPending);
    PMOFFSET("InPollHandler", ml_inPollHandler);
    PVOFFSET("InML", vp_inMLFlag);
    PVOFFSET("HandlerPending", vp_handlerPending);
    PVOFFSET("InSigHandler", vp_inSigHandler);
    PVOFFSET("NPendingSys", vp_numPendingSysSigs);
    PVOFFSET("NPending", vp_numPendingSigs);
#endif /* !BYTECODE */

    CloseFile (f, "_MLSTATE_OFFSETS_");

    exit (0);

ViewVC Help
Powered by ViewVC 1.0.0