Selaa lähdekoodia

Fixed stack bottom alignment

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7730 8c9fc860-2736-0410-a75d-ab315db34111
eth.negelef 7 vuotta sitten
vanhempi
commit
a2ab4d8283

+ 1 - 1
source/Generic.Linux.AMD64.Glue.Mod

@@ -165,7 +165,7 @@ VAR
 	END Char;
  
 	PROCEDURE Init;
-	VAR i: LONGINT;
+	VAR i: ADDRESS;
 	BEGIN
 		baseAdr := ADDRESS OF EntryPoint;
 		endAdr := ADDRESS OF last;

+ 1 - 1
source/Generic.Linux.I386.Glue.Mod

@@ -165,7 +165,7 @@ VAR
 	END Char;
  
 	PROCEDURE Init;
-	VAR i: LONGINT;
+	VAR i: ADDRESS;
 	BEGIN
 		baseAdr := ADDRESS OF EntryPoint;
 		endAdr := ADDRESS OF last;

+ 1 - 1
source/Generic.Unix.I386.Glue.Mod

@@ -58,7 +58,7 @@ VAR
 	
 	
 	PROCEDURE {INITIAL, NOPAF} Init0;
-	VAR localvar: LONGINT;
+	VAR localvar: ADDRESS;
 	CONST CR = 0DX; NL = 0AX;
 	BEGIN
 		baseAdr := ADDRESSOF( Header );

+ 1 - 1
source/Unix.Glue.Mod

@@ -37,7 +37,7 @@ VAR
 
 
 	PROCEDURE Initialize*;
-	VAR i: LONGINT;
+	VAR i: ADDRESS;
 	BEGIN
 		S.MOVE( ADDRESSOF( AAgetadr ), ADDRESSOF( dlsym ), AddrSize );