4.4BSD/usr/src/usr.bin/pascal/src/pc.h
/*-
* Copyright (c) 1980, 1993
* The Regents of the University of California. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
* @(#)pc.h 8.1 (Berkeley) 6/6/93
*/
#include <setjmp.h>
/*
* random constants for pc
*/
/*
* the name of the display.
*/
#define DISPLAYNAME "__disply"
/*
* the structure below describes the locals used by the run time system.
* at function entry, at least this much space is allocated,
* and the following information is filled in:
* the address of a routine to close the current frame for unwinding,
* a pointer to the display entry for the current static level and
* the previous contents of the display for this static level.
* the curfile location is used to point to the currently active file,
* and is filled in as io is initiated.
* one of these structures is allocated on the (negatively growing) stack.
* at function entry, fp is set to point to the last field of the struct,
* thus the offsets of the fields are as indicated below.
*/
#ifdef vax
struct rtlocals {
jmp_buf gotoenv;
struct iorec *curfile;
struct dispsave dsave;
} rtlocs;
#endif vax
#ifdef tahoe
struct rtlocals {
jmp_buf gotoenv;
struct iorec *curfile;
struct dispsave dsave;
long savedregs[9];
} rtlocs;
#endif tahoe
#ifdef mc68000
struct rtlocals {
jmp_buf gotoenv;
struct iorec *curfile;
struct dispsave dsave;
} rtlocs;
#endif mc68000
#define GOTOENVOFFSET ( -sizeof rtlocs )
#define CURFILEOFFSET ( GOTOENVOFFSET + sizeof rtlocs.gotoenv )
#define DSAVEOFFSET ( CURFILEOFFSET + sizeof rtlocs.curfile )
/*
* this is a cookie used to communicate between the
* routine entry code and the routine exit code.
* mostly it's for labels shared between the two.
*/
#ifdef vax
struct entry_exit_cookie {
struct nl *nlp;
char extname[BUFSIZ];
int toplabel;
int savlabel;
};
#define FRAME_SIZE_LABEL "LF"
#define SAVE_MASK_LABEL "L"
#endif vax
#ifdef tahoe
struct entry_exit_cookie {
struct nl *nlp;
char extname[BUFSIZ];
int toplabel;
int savlabel;
};
#define FRAME_SIZE_LABEL "LF"
#define SAVE_MASK_LABEL "L"
#endif tahoe
#ifdef mc68000
struct entry_exit_cookie {
struct nl *nlp;
char extname[BUFSIZ];
int toplabel;
};
#define FRAME_SIZE_LABEL "LF"
#define PAGE_BREAK_LABEL "LP"
#define SAVE_MASK_LABEL "LS"
#endif mc68000
/*
* formats for various names
* NAMEFORMAT arbitrary length strings.
* EXTFORMAT for externals, a preceding underscore.
* LABELFORMAT for label names, a preceding dollar-sign.
* PREFIXFORMAT used to print made up names with prefixes.
* LABELPREFIX with getlab() makes up label names.
* LLABELPREFIX with getlab() makes up sdb labels.
* FORMALPREFIX prefix for EXTFORMAT for formal entry points.
* a typical use might be to print out a name with a preceeding underscore
* with putprintf( EXTFORMAT , 0 , name );
*/
#define NAMEFORMAT "%s"
#define EXTFORMAT "_%s"
#define LABELFORMAT "$%s"
#define PREFIXFORMAT "%s%d"
#define LABELPREFIX "L"
#define LLABELPREFIX "LL"
#define FORMALPREFIX "__"
/*
* the name of the statement counter
*/
#define STMTCOUNT "__stcnt"
/*
* the name of the pcp counters
*/
#define PCPCOUNT "__pcpcount"
/*
* a vector of pointer to enclosing functions for fully qualified names.
*/
char *enclosing[ DSPLYSZ ];
#ifdef vax
/*
* the runtime framepointer and argumentpointer registers
*/
# define P2FP 13
# define P2FPNAME "fp"
# define P2AP 12
# define P2APNAME "ap"
/*
* the register save mask for saving no registers
*/
# define RSAVEMASK ( 0 )
/*
* runtime check mask for divide check and integer overflow
*/
# define RUNCHECK ( ( 1 << 15 ) | ( 1 << 14 ) )
/*
* and of course ...
*/
# define BITSPERBYTE 8
#endif vax
#ifdef tahoe
/*
* the runtime framepointer and argumentpointer registers
*/
# define P2FP 13
# define P2FPNAME "fp"
# define P2AP 13
# define P2APNAME "fp"
/*
* the register save mask for saving no registers
*/
# define RSAVEMASK ( 0 )
/*
* divide check and integer overflow don't exist in the save mask
*/
# define RUNCHECK ( 0 )
/*
* and of course ...
*/
# define BITSPERBYTE 8
#endif tahoe
#ifdef mc68000
/*
* these magic numbers lifted from pcc/mac2defs
* the offsets are for mapping data and address register numbers
* to linear register numbers. e.g. d2 ==> r2, and a2 ==> r10.
*/
# define DATA_REG_OFFSET 0
# define ADDR_REG_OFFSET 8
# define P2FPNAME "a6"
# define P2FP (ADDR_REG_OFFSET + 6)
# define P2APNAME "a6"
# define P2AP (ADDR_REG_OFFSET + 6)
/*
* and still ...
*/
# define BITSPERBYTE 8
#endif mc68000