Removed unused local variables

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

source/AMD64.FoxArrayBaseOptimized.Mod

@@ -4768,7 +4768,7 @@ VAR
 				 M, N, K, L2BlockM, L2BlockN, L2BlockK: SIZE;
 										  IncA, StrideA, IncB, StrideB, IncC, StrideC: SIZE;
 										  add: BOOLEAN );
-	VAR lenA, lenB, len: SIZE; adrA, adrB, adrC: ADDRESS;  m: SIZE;
+	VAR lenA, lenB: SIZE; adrA, adrB, adrC: ADDRESS;  m: SIZE;
 		M1, M2, i: SIZE;  val: REAL;  inc: SIZE;
 		obj: POINTER TO ARRAY OF MultiplyObjectR;
 		t: HUGEINT;  cache: Cache;

source/FoxGlobal.Mod

@@ -1220,7 +1220,7 @@ TYPE
 	END ModuleFileName;
 	
 	PROCEDURE ModuleSectionIdentifier*(name, context: SyntaxTree.Identifier): SyntaxTree.Identifier;
-	VAR s,n: SyntaxTree.IdentifierString; 
+	VAR n: SyntaxTree.IdentifierString; 
 	BEGIN
 		IF context # SyntaxTree.invalidIdentifier THEN
 			GetModuleSectionName(name, context, n);
@@ -1255,13 +1255,11 @@ TYPE
 	END ContextFromName;
 
 	PROCEDURE GetModuleName*(module: SyntaxTree.Module; VAR name: ARRAY OF CHAR);
-	VAR n: SyntaxTree.IdentifierString;
 	BEGIN
 		GetModuleSectionName(module.name, module.context, name);
 	END GetModuleName;
 
 	PROCEDURE GetModuleSegmentedName*(module: SyntaxTree.Module; VAR name: Basic.SegmentedName);
-	VAR moduleName: SyntaxTree.IdentifierString;
 	BEGIN
 		name[0] := ModuleSectionIdentifier(module.name, module.context);
 		name[1] := -1;
@@ -1290,7 +1288,6 @@ TYPE
 		END GetSymbolScope;
 
 		PROCEDURE FindSymbol(name: SyntaxTree.Identifier): SyntaxTree.Symbol;
-		VAR symbols: SyntaxTree.Symbol;
 		BEGIN
 			IF scope = scope.ownerModule.moduleScope THEN
 				symbol := scope.ownerModule.moduleScope.ImportByModuleName(name, scope.ownerModule.context);
@@ -1366,7 +1363,7 @@ TYPE
 	END GetSymbolName;
 
 	PROCEDURE GetSymbolSegmentedNameInScope*(symbol: SyntaxTree.Symbol; inScope: SyntaxTree.Scope; VAR pooledName: Basic.SegmentedName);
-	VAR n: SyntaxTree.String; td: SyntaxTree.TypeDeclaration; i: LONGINT;
+	VAR td: SyntaxTree.TypeDeclaration; i: LONGINT;
 		PROCEDURE Scope(scope: SyntaxTree.Scope);
 		BEGIN
 			IF scope = NIL THEN (* do nothing, locally declared temporary symbol *)
@@ -1465,7 +1462,6 @@ TYPE
 	END MinFloat;
 
 	PROCEDURE ConvertSet*(this: Basic.Set; bits: LONGINT): Basic.Set;
-	VAR i: LONGINT;
 	BEGIN
 		WHILE bits <= MAX (Basic.Set) DO EXCL (this, bits); INC (bits) END;
 		RETURN this;

source/FoxParser.Mod

@@ -289,7 +289,6 @@ TYPE
 
 		(** Get next symbol from scanner and store it in object-local variable 'symbol' *)
 		PROCEDURE NextSymbol*;
-		VAR comment: SyntaxTree.Comment;
 		BEGIN
 			(*
 				error := ~scanner.GetNextSymbol(symbol) OR error;
@@ -327,14 +326,12 @@ TYPE
 
 		(** Check if current symbol equals sym. If yes then return true, return false otherwise *)
 		PROCEDURE PeekB*(token: Scanner.Token): BOOLEAN;
-		VAR comment: SyntaxTree.Comment;
 		BEGIN
 			RETURN TokenB() = token
 		END PeekB;
 
 		(** Check if current symbol equals sym. If yes then return true, return false otherwise *)
 		PROCEDURE Peek*(token: Scanner.Token): BOOLEAN;
-		VAR comment: SyntaxTree.Comment;
 		BEGIN
 			SkipComments(FALSE);
 			RETURN Token() = token
@@ -1257,8 +1254,7 @@ TYPE
 		(** Code = {  any \ 'end' \ 'with' } ['with' {('in'|'out') StatementSequence}] . **)
 		PROCEDURE Code(outer: SyntaxTree.Statement): SyntaxTree.Code;
 		VAR startPos: Position; endPos, i ,len: LONGINT; codeString: Scanner.StringType; code: SyntaxTree.Code;
-			end: Scanner.Token; in, out: BOOLEAN; left, right: SyntaxTree.Identifier;
-			statements, rules: SyntaxTree.StatementSequence;
+			end: Scanner.Token; in, out: BOOLEAN; statements, rules: SyntaxTree.StatementSequence;
 		BEGIN
 			startPos := symbol.position;
 			end := scanner.SkipToEndOfCode(startPos.start, endPos, symbol);
@@ -1359,7 +1355,6 @@ TYPE
 			qualifiedIdentifier: SyntaxTree.QualifiedIdentifier;
 			baseType: SyntaxTree.Type;
 			identifier: SyntaxTree.Identifier;
-			str: Scanner.StringType;
 			type: SyntaxTree.Type;
 			modifiers: SyntaxTree.Modifier;
 		BEGIN
@@ -2002,7 +1997,7 @@ TYPE
 			procedureType: SyntaxTree.ProcedureType;
 			operator: SyntaxTree.Operator;
 			access: SET;
-			i: LONGINT; ch: CHAR; position: Position;
+			i: LONGINT; position: Position;
 			modifiers: SyntaxTree.Modifier; (* nopov *)
 			isInline, forward: BOOLEAN;
 		BEGIN
@@ -2238,7 +2233,7 @@ TYPE
 
 		PROCEDURE Module*(): SyntaxTree.Module;
 		VAR moduleName, context: SyntaxTree.Identifier;  module: SyntaxTree.Module;  position: Position; isCellNet: BOOLEAN;
-			scannerDiagnostics: Diagnostics.Diagnostics; modifiers: SyntaxTree.Modifier; c: SyntaxTree.Comment;
+			scannerDiagnostics: Diagnostics.Diagnostics; modifiers: SyntaxTree.Modifier; (* c: SyntaxTree.Comment; *)
 		BEGIN
 			IF Trace THEN S( "Module" ) END;
 			position := symbol.position;

source/FoxScanner.Mod

@@ -122,7 +122,6 @@ TYPE
 		END InitTable;
 
 		PROCEDURE IndexByIdentifier*(identifier: IdentifierType): LONGINT;
-		VAR stringPoolIndex: LONGINT;
 		BEGIN
 			IF Has(identifier) THEN
 				RETURN GetInt(identifier)
@@ -528,7 +527,7 @@ TYPE
 		(* multiline indicates that a string may occupy more than one lines, either concatenated or via multi-strings " "  " "
 		*)
 		PROCEDURE GetString(VAR symbol: Symbol; multiLine, multiString, useControl: BOOLEAN);
-		VAR och: CHAR; error: BOOLEAN; done: BOOLEAN;
+		VAR och: CHAR; error: BOOLEAN;
 		CONST control = '\';
 
 			PROCEDURE Append(ch :CHAR);
@@ -1002,7 +1001,7 @@ TYPE
 		(** set the diagnostics mode of the scanner (diagnostics = NIL ==> no report) and reset the error state
 			intended for silent symbol peeeking after the end of a module *)
 		PROCEDURE ResetErrorDiagnostics*(VAR diagnostics: Diagnostics.Diagnostics);
-		VAR b: BOOLEAN; d: Diagnostics.Diagnostics;
+		VAR d: Diagnostics.Diagnostics;
 		BEGIN
 			error := FALSE;
 			d := SELF.diagnostics; SELF.diagnostics := diagnostics; diagnostics := d;

source/FoxSemanticChecker.Mod

@@ -1148,8 +1148,6 @@ TYPE
 			str: Scanner.StringType;
 			atype: SyntaxTree.ArrayType;
 			prev: SyntaxTree.Scope;
-			skip: BOOLEAN;
-			svalue: ARRAY 32 OF CHAR;
 			
 		BEGIN
 			IF TypeNeedsResolution(x) THEN
@@ -6892,7 +6890,6 @@ TYPE
 		PROCEDURE VisitProcedure*(procedure: SyntaxTree.Procedure);
 		VAR super,proc: SyntaxTree.Procedure; record: SyntaxTree.RecordType;
 			procedureType: SyntaxTree.ProcedureType;
-			type: SyntaxTree.Type;
 			selfParameter: SyntaxTree.Parameter; qualifiedIdentifier: SyntaxTree.QualifiedIdentifier;
 			qualifiedType: SyntaxTree.QualifiedType;
 			value: Basic.Integer;

source/GenericLinker.Mod

@@ -513,7 +513,7 @@ BEGIN
 END Header;
 
 PROCEDURE OffersRequires*(reader: Streams.Reader; VAR offers, requires: ObjectFile.NameList);
-VAR section: ObjectFile.Section; binary: BOOLEAN; poolMap: ObjectFile.PoolMap;  version: LONGINT;
+VAR binary: BOOLEAN; poolMap: ObjectFile.PoolMap;  version: LONGINT;
 BEGIN
 	version := Header(reader, NIL, binary, poolMap, offers, requires);
 END OffersRequires;
@@ -532,4 +532,4 @@ END Process;
 END GenericLinker.
 
 
-Compiler.Compile --objectFile=Generic --newObjectFile GenericLinker.Mod   ~~~
+Compiler.Compile --objectFile=Generic --newObjectFile GenericLinker.Mod   ~~~

source/I386.FoxArrayBaseOptimized.Mod

@@ -4770,7 +4770,7 @@ VAR
 				 M, N, K, L2BlockM, L2BlockN, L2BlockK: SIZE;
 										  IncA, StrideA, IncB, StrideB, IncC, StrideC: SIZE;
 										  add: BOOLEAN );
-	VAR lenA, lenB, len: SIZE; adrA, adrB, adrC: ADDRESS;  m: SIZE;
+	VAR lenA, lenB: SIZE; adrA, adrB, adrC: ADDRESS;  m: SIZE;
 		M1, M2, i: SIZE;  val: REAL;  inc: SIZE;
 		obj: POINTER TO ARRAY OF MultiplyObjectR;
 		t: HUGEINT;  cache: Cache;