Browse Source

Fixed type of library handles returned by Dlopen

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7690 8c9fc860-2736-0410-a75d-ab315db34111
negelef 7 years ago
parent
commit
907be6c87b

+ 1 - 1
source/Darwin.AMD64.Unix.Mod

@@ -389,7 +389,7 @@ VAR
 	errno-			: PROCEDURE {C} ( ): LONGINT;
 
 
-	libc-: LONGINT;
+	libc-: ADDRESS;
 
 	libraryPaths: ARRAY 7 OF ARRAY 32 OF CHAR;
 	noPaths: LONGINT;

+ 1 - 1
source/Darwin.I386.Unix.Mod

@@ -367,7 +367,7 @@ VAR
 	errno-			: PROCEDURE {C} ( ): LONGINT;
 
 
-	libc-: LONGINT;
+	libc-: ADDRESS;
 
 	libraryPaths: ARRAY 7 OF ARRAY 32 OF CHAR;
 	noPaths: LONGINT;

+ 3 - 3
source/Generic.Darwin.I386.Unix.Mod

@@ -536,9 +536,9 @@ VAR
 	xSetErrorHandler: PROCEDURE {C} (h: ADDRESS): WORD;
 	xSetIOErrorHandler: PROCEDURE {C} (h: ADDRESS): WORD;
 
-	libc-: LONGINT;
-	libp-: LONGINT;
-	libx-: LONGINT;
+	libc-: ADDRESS;
+	libp-: ADDRESS;
+	libx-: ADDRESS;
 
 	libraryPaths: ARRAY 8 OF ARRAY 32 OF CHAR;
 	noPaths: LONGINT;

+ 3 - 3
source/Generic.Linux.AMD64.Unix.Mod

@@ -521,9 +521,9 @@ VAR
 	xSetErrorHandler: PROCEDURE {C} (h: ADDRESS): WORD;
 	xSetIOErrorHandler: PROCEDURE {C} (h: ADDRESS): WORD;
 
-	libc-: LONGINT;
-	libp-: LONGINT;
-	libx-: LONGINT;
+	libc-: ADDRESS;
+	libp-: ADDRESS;
+	libx-: ADDRESS;
 
 	libraryPaths: ARRAY 8 OF ARRAY 32 OF CHAR;
 	noPaths: LONGINT;

+ 3 - 3
source/Generic.Linux.I386.Unix.Mod

@@ -521,9 +521,9 @@ VAR
 	xSetErrorHandler: PROCEDURE {C} (h: ADDRESS): WORD;
 	xSetIOErrorHandler: PROCEDURE {C} (h: ADDRESS): WORD;
 
-	libc-: LONGINT;
-	libp-: LONGINT;
-	libx-: LONGINT;
+	libc-: ADDRESS;
+	libp-: ADDRESS;
+	libx-: ADDRESS;
 
 	libraryPaths: ARRAY 8 OF ARRAY 32 OF CHAR;
 	noPaths: LONGINT;

+ 3 - 3
source/Generic.Solaris.I386.Unix.Mod

@@ -536,9 +536,9 @@ VAR
 	xSetErrorHandler		: PROCEDURE {C} ( h: ADDRESS ): WORD;
 	xSetIOErrorHandler	: PROCEDURE {C} ( h: ADDRESS ): WORD;
 
-	libc-: LONGINT;
-	libp-: LONGINT;
-	libx-: LONGINT;
+	libc-: ADDRESS;
+	libp-: ADDRESS;
+	libx-: ADDRESS;
 
 	libraryPaths: ARRAY 7 OF ARRAY 32 OF CHAR;
 	noPaths: LONGINT;

+ 1 - 1
source/Linux.AMD64.Unix.Mod

@@ -382,7 +382,7 @@ VAR
 	errno-			: PROCEDURE {C} ( ): LONGINT;
 
 
-	libc-: LONGINT;
+	libc-: ADDRESS;
 
 	libraryPaths: ARRAY 8 OF ARRAY 32 OF CHAR;
 	noPaths: LONGINT;

+ 1 - 1
source/Linux.I386.Unix.Mod

@@ -364,7 +364,7 @@ VAR
 	errno-			: PROCEDURE {C} ( ): LONGINT;
 
 
-	libc-: LONGINT;
+	libc-: ADDRESS;
 
 	libraryPaths: ARRAY 8 OF ARRAY 32 OF CHAR;
 	noPaths: LONGINT;

+ 1 - 1
source/Unix.OpenAL.Mod

@@ -395,7 +395,7 @@ CONST
 
 VAR
 
-  oallib: LONGINT;
+  oallib: ADDRESS;
 
 (* Renderer State management *)
 alEnable-: PROCEDURE { C } (capability : ALenum);