rebuilt release

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

WinAos/obg/Compiler.SymW

@@ -1,5 +1,5 @@
 MODULE Compiler;
-	IMPORT Basic := FoxBasic, Scanner := FoxScanner, Parser := FoxParser, SemanticChecker := FoxSemanticChecker, SyntaxTree := FoxSyntaxTree, Formats := FoxFormats, Streams, Commands, Diagnostics, Options, Kernel, Printout := FoxPrintout, Backend := FoxBackend, Strings, Global := FoxGlobal, Frontend := FoxFrontend, Files;
+	IMPORT Basic := FoxBasic, Scanner := FoxScanner, Parser := FoxParser, SemanticChecker := FoxSemanticChecker, SyntaxTree := FoxSyntaxTree, Formats := FoxFormats, Streams, Commands, Diagnostics, Options, Kernel, Printout := FoxPrintout, Backend := FoxBackend, Strings, Global := FoxGlobal, Frontend := FoxFrontend, Files, Machine;
 CONST 
 	Print* = 0; 
 	Silent* = 1; 

WinAos/obg/FoxAssembler.SymW

@@ -46,7 +46,7 @@ TYPE
 	Result* = RECORD 
 		type*: INTEGER; 
 		sizeInBits*: INTEGER; 
-		value*: LONGINT; 
+		value*: HUGEINT; 
 		valueR*: LONGREAL; 
 		fixup*: BinaryCode.Fixup; 
 	END; 
@@ -111,7 +111,7 @@ TYPE
 		PROCEDURE ^ Expression*(VAR x: Result; critical: BOOLEAN): BOOLEAN; 
 		PROCEDURE ^ Data(CONST ident: ARRAY OF CHAR): BOOLEAN; 
 		PROCEDURE ^ Reserve(CONST ident: ARRAY OF CHAR): BOOLEAN; 
-		PROCEDURE ^ PutBitsIfLastPass(data: LONGINT; size: BinaryCode.Bits); 
+		PROCEDURE ^ PutBitsIfLastPass(data: HUGEINT; size: BinaryCode.Bits); 
 		PROCEDURE ^ Instruction*(CONST mnemonic: ARRAY OF CHAR); 
 		PROCEDURE ^ IgnoreNewLines; 
 		PROCEDURE ^ DoAssemble; 

WinAos/obg/FoxBinaryCode.SymW

@@ -89,8 +89,8 @@ TYPE
 		PROCEDURE ^ SetAlignment*(fixed: BOOLEAN; alignat: LONGINT); 
 		PROCEDURE ^ CheckSize(size: LONGINT); 
 		PROCEDURE ^ CopyBits*(src: BitSets.BitSet; srcPos, len: Bits); 
-		PROCEDURE ^ PutBits*(d: LONGINT; size: Bits); 
-		PROCEDURE ^ PutBitsAt*(at: Unit; d: LONGINT; size: Bits); 
+		PROCEDURE ^ PutBits*(d: HUGEINT; size: Bits); 
+		PROCEDURE ^ PutBitsAt*(at: Unit; d: HUGEINT; size: Bits); 
 		PROCEDURE ^ PutByte*(b: LONGINT); 
 		PROCEDURE ^ PutWord*(w: LONGINT); 
 		PROCEDURE ^ PutDWord*(d: LONGINT); 

WinAos/obg/FoxIntermediateBackend.SymW

@@ -212,7 +212,9 @@ TYPE
 		PROCEDURE ^ GetUsage(VAR use: VariableUse); 
 		PROCEDURE ^ SetUsage(CONST use: VariableUse); 
 		PROCEDURE ^ GetVariable(i: LONGINT): SyntaxTree.Variable; 
+		PROCEDURE ^ SetVariable(pos: LONGINT; v: SyntaxTree.Variable); 
 		PROCEDURE ^ Occupy(pos: LONGINT); 
+		PROCEDURE ^ Occupied(pos: LONGINT): BOOLEAN; 
 		PROCEDURE ^ AddVariable(v: SyntaxTree.Variable); 
 		PROCEDURE ^ CompatibleType(t1, t2: SyntaxTree.Type): BOOLEAN; 
 		PROCEDURE ^ GetFreeVariable(type: SyntaxTree.Type; untraced: BOOLEAN; VAR pos: LONGINT): SyntaxTree.Variable; 
@@ -240,6 +242,7 @@ TYPE
 			section: IntermediateCode.Section; 
 			registerUsageCount: RegisterUsageCount; 
 			usedRegisters: RegisterEntry; 
+			temporaries: Variables; 
 		END; 
 	VAR 
 		system: Global.System; 
@@ -267,7 +270,7 @@ TYPE
 		registerUsageCount: RegisterUsageCount; 
 		usedRegisters: RegisterEntry; 
 		nil, one, fp, sp, ap, lr, true, false: IntermediateCode.Operand; 
-		bool, addressType, setType, sizeType, byteType: IntermediateCode.Type; 
+		bool, addressType, setType, sizeType, lenType, byteType: IntermediateCode.Type; 
 		commentPrintout: Printout.Printer; 
 		dump: Streams.Writer; 
 		tagsAvailable: BOOLEAN; 

WinAos/obg/FoxSyntaxTree.SymW

@@ -1474,6 +1474,7 @@ TYPE
 		PROCEDURE ^ FindTypeDeclaration*(identifier: Identifier): TypeDeclaration; 
 		PROCEDURE ^ AddVariable*(v: Variable); 
 		PROCEDURE ^ PushVariable*(v: Variable); 
+		PROCEDURE ^ InsertVariable*(v: Variable; after: Variable); 
 		PROCEDURE ^ FindVariable*(identifier: Identifier): Variable; 
 		PROCEDURE ^ AddProcedure*(p: Procedure); 
 		PROCEDURE ^ AddProcedureDeclaration*(p: Procedure);