Fixed address type

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

source/Unix.XDisplay.Mod

@@ -647,7 +647,7 @@ VAR
 	END InitNames;
 
 	PROCEDURE getDisplayName;
-	VAR adr: LONGINT;  i: INTEGER;  ch: CHAR;
+	VAR adr: ADDRESS;  i: INTEGER;  ch: CHAR;
 	BEGIN
 		Unix.GetArgval( "-display", dispname );
 		IF dispname = "" THEN