hash table
HTIndex: TYPE~MobHashTypes.HTIndex;
HTNull: HTIndex~MobHashTypes.HTNull;
semantic table
STRecord:
TYPE~
RECORD [
filename, assigned: BOOL,
hti: HTIndex,
imported, exported: BOOL,
link: STIndex,
impi: MobDefs.IMPIndex,
impgfi: CARDINAL,
body:
SELECT type: *
FROM
unknown => [],
local => [
map: STMap,
info: Table.Index, -- Tree.Index,
context: CXIndex],
external => [
map: STMap,
pointer:
SELECT ptype: *
FROM
instance => [sti: STIndex],
file => [fti: MobDefs.FTIndex],
ENDCASE]
ENDCASE];
STIndex: TYPE~Base RELATIVE LONG POINTER TO STRecord;
stNull: STIndex~STIndex.LAST;
to share proto- modules
ISEIndex, SEIndex: TYPE~STIndex;
STMap:
TYPE~
RECORD [
SELECT type: *
FROM
unknown => [],
config => [cti: MobDefs.CTIndex],
module => [mti: MobDefs.MTIndex],
interface => [expi: MobDefs.EXPIndex]
ENDCASE];
Context Table
CXRecord: TYPE~RECORD [link: STIndex];
CXIndex: TYPE~Base RELATIVE LONG POINTER TO CXRecord;
cxNull: CXIndex~CXIndex.LAST;
}.