git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7730 8c9fc860-2736-0410-a75d-ab315db34111
@@ -165,7 +165,7 @@ VAR
END Char;
PROCEDURE Init;
- VAR i: LONGINT;
+ VAR i: ADDRESS;
BEGIN
baseAdr := ADDRESS OF EntryPoint;
endAdr := ADDRESS OF last;
@@ -58,7 +58,7 @@ VAR
PROCEDURE {INITIAL, NOPAF} Init0;
- VAR localvar: LONGINT;
+ VAR localvar: ADDRESS;
CONST CR = 0DX; NL = 0AX;
baseAdr := ADDRESSOF( Header );
@@ -37,7 +37,7 @@ VAR
PROCEDURE Initialize*;
S.MOVE( ADDRESSOF( AAgetadr ), ADDRESSOF( dlsym ), AddrSize );