Removed unused symbols

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

source/FoxBasic.Mod

@@ -24,7 +24,6 @@ CONST
 	IdentifierTooLong* = 271;
 	StringTooLong* = 272;
 
-	InitListSize = 4;
 	InitErrMsgSize = 300;	(* initial size of array of error messages *)
 
 	invalidString* = -1;
@@ -43,7 +42,6 @@ TYPE
 	Set* = SET64;
 
 	ObjectArray = POINTER TO ARRAY OF ANY;
-	IntegerArray = POINTER TO ARRAY OF LONGINT;
 
 	ErrorMsgs = POINTER TO ARRAY OF StringPool.Index;
 

source/FoxIntermediateBackend.Mod

@@ -14241,7 +14241,7 @@ TYPE
 		END PatchCRC;
 
 		PROCEDURE PointerArray(source: IntermediateCode.Section; scope: SyntaxTree.Scope; VAR numberPointers: LONGINT);
-		VAR variable: SyntaxTree.Variable; pc: LONGINT; symbol: Sections.Section; parameter: SyntaxTree.Parameter; parametersSize: LONGINT;
+		VAR variable: SyntaxTree.Variable; pc: LONGINT; symbol: Sections.Section; parameter: SyntaxTree.Parameter;
 		BEGIN
 			ArrayBlock(source,pc,"",FALSE);
 			Info(source, "pointer offsets array data");

source/FoxPrintout.Mod

@@ -1267,10 +1267,7 @@ TYPE
 		END VisitProcedure;
 
 		PROCEDURE VisitOperator*(x: SyntaxTree.Operator);
-		VAR type: SyntaxTree.ProcedureType;
-			recordType: SyntaxTree.RecordType;
-			i: LONGINT;
-			valid, first: BOOLEAN;
+		VAR type: SyntaxTree.ProcedureType; first: BOOLEAN;
 		BEGIN
 			IF Visible(x) THEN
 				Indent;