-
Notifications
You must be signed in to change notification settings - Fork 2
Expand file tree
/
Copy pathm2tm.def
More file actions
27 lines (18 loc) · 774 Bytes
/
m2tm.def
File metadata and controls
27 lines (18 loc) · 774 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
DEFINITION MODULE M2TM; (*NW 28.3.83 / 15.12.85*)
FROM M2DM IMPORT ObjPtr, ObjClass, StrPtr, StrForm, ParPtr, PDPtr;
VAR topScope, Scope: ObjPtr; (*header of scope located by Find*)
PROCEDURE FindInScope(id: CARDINAL; root: ObjPtr): ObjPtr;
PROCEDURE Find(id: CARDINAL): ObjPtr;
PROCEDURE FindImport(id: CARDINAL): ObjPtr;
PROCEDURE NewObj(id: CARDINAL; class: ObjClass): ObjPtr;
PROCEDURE NewStr(form: StrForm): StrPtr;
PROCEDURE NewPar(ident: CARDINAL; isvar: BOOLEAN; last: ParPtr): ParPtr;
PROCEDURE NewImp(scope, obj: ObjPtr);
PROCEDURE NewScope(kind: ObjClass);
PROCEDURE CloseScope;
PROCEDURE CheckUDP(obj, node: ObjPtr);
PROCEDURE MarkHeap;
PROCEDURE ReleaseHeap;
PROCEDURE InitTableHandler;
PROCEDURE InitM2TM;
END M2TM.