Fixed address conversion

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7731 8c9fc860-2736-0410-a75d-ab315db34111

source/AMD64.Raster.Mod

@@ -638,7 +638,7 @@ MODULE Raster; (** non-portable *)	(* eos, TF  **)
 		END;
 		img.adr := adr;
 		img.mem := mem;
-		adr := LONGINT(a1);
+		adr := a1;
 	END CreateWithBuffer;
 
 

source/I386.Raster.Mod

@@ -635,7 +635,7 @@ MODULE Raster; (** non-portable *)	(* eos, TF  **)
 		END;
 		img.adr := adr;
 		img.mem := mem;
-		adr := LONGINT(a1);
+		adr := a1;
 	END CreateWithBuffer;
 
 	(**--- Transfer Modes ---**)