fixed type incompatibility problem; now A2 release can be built successfully

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

source/GenericLoader.Mod

@@ -358,7 +358,7 @@ TYPE
 		msg: ARRAY 128 OF CHAR; module: Modules.Module; adr: LONGINT; m: HashTableInt;
 		s: ObjectFile.SectionName; isModule: BOOLEAN; identifier: ObjectFile.Identifier;
 
-			PROCEDURE CheckName(n: StringPool.Index;  name {UNTRACED}: POINTER {UNSAFE} TO ARRAY OF CHAR): LONGINT;
+			PROCEDURE CheckName(n: StringPool.Index;  name {UNTRACED}: Modules.DynamicName): LONGINT;
 			VAR s: ObjectFile.SectionName; i: LONGINT;
 			BEGIN
 				IF name = NIL THEN RETURN -1 END;