SymDefs.mesa_Oct77.pdf part of xerox SymDefs.mesa Oct77 SymDefs.mesa_Oct77.pdf, xerox mesa 3.0_1977 listing SymDefs.mesa

Text preview for : SymDefs.mesa_Oct77.pdf part of xerox SymDefs.mesa Oct77 xerox mesa 3.0_1977 listing SymDefs.mesa_Oct77.pdf

Back to : SymDefs.mesa_Oct77.pdf | Home

symdefs.mesa 24-0CT-77 18:44:36 Page 1

-- file SymDefs.Mesa
-- last modified by Satterthwaite, October 3, 1977 2:04 PM
DIRECTORY
AltoDefs: FROM "altodefs",
BcdDefs: FROM "bcddefs",
Tab1eDefs: FROM "tab1edefs";
SymDefs: DEFINITIONS =
BEGIN
VersionID: CAROINAL = 08287;
-- symbol segment headers
Fi1eOffset: TYPE = CARDINAL;
STHeader: TYPE = RECORD [
versionldent: CARDINAL,
version: BcdDefs.VersionStamp,
creator: BcdDefs.VersionStamp,
definitionsFile: BOOLEAN,
directoryCtx: CTXIndex,
importCtx: CTXIndex,
outerCtx: CTXIndex,
hvOfFset: FileOffset,
hvSize: CARDINAL,
htOffset: FileOffset,
htSize: CARDINAL,
ssOffset: FileOffset,
ssSize: CARDINAL,
seOffset: FileOffset,
seSize: CARDINAL,
ctxOf fset: Fi1 eOffset,
ctxSize: CARDINAL,
mdOffset: FileOffset,
mdSize: CARDINAL,
bodyOffset: FileOffset,
bodySize: CARDINAL,
fgRelPgBase: CARDINAL,
fgPgCount: AltoDefs.PageCount]:

hash table declarations
HVLength: PRIVATE INTEGER = 71;
HVIndex: TYPE = INTEGER [O .. HVLength);

HTRecord: TYPE = RECORD [
anyInternal, anyPublic: BOOLEAN,
link: HTIndex,
ssIndex: CARDINAL]:
HTIndex: TYPE = INTEGER [O .. TableDefs.TableLimit/2):
IITNull: HTIndex = LAST[HTIndex];

-- semantic entry table declarations
TypeClass: TYPE = {
mode,
basic.
enumerated,
record,
pointer,
array,
arraydesc,
transfer,
definition,
union,
subrange
}:

TransferMode: TYPE {pl'ocedure, pol't., signal, error, progl'am, inl ine. none};
symdefs.mesa 24-0CT-77 18:44:36 Page 2

SERecord: TYPE = RECORD [
mark3, mark4: 800LEAN,
sebody: SELECT setag: