rebuilt releases

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

Linux32/bin/Diagnostics.SymU

@@ -1,25 +1,22 @@
 MODULE Diagnostics;
 	IMPORT Streams;
 CONST 
-	Invalid* =  -1; 
 	TypeInformation* = 0; 
 	TypeWarning* = 1; 
 	TypeError* = 2; 
-	All* = {0 .. 2}; 
-	Tab = 9X; 
+	All* = {TypeInformation, TypeWarning, TypeError}; 
 TYPE 
 	Diagnostics* = OBJECT 
 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
 	END Diagnostics; 
 
 	Entry* = POINTER TO RECORD 
 		type*: WORD; 
 		source*: ARRAY 128 OF CHAR; 
 		position*: Streams.Position; 
-		errorCode*: WORD; 
 		message*: ARRAY 256 OF CHAR; 
 		next*: Entry; 
 	END; 
@@ -36,15 +33,15 @@ TYPE
 		nofInformations-: SIZE; 
 		nofMessages-: SIZE; 
 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
 		PROCEDURE ^ ToStream*(w: Streams.Writer; mask: SET); 
 		PROCEDURE ^  & Reset*; 
 		PROCEDURE ^ ForAll*(proc: EnumProc); 
 		PROCEDURE ^ GetEntries*(): EntryArray; 
-		PROCEDURE ^ InsertSorted(type: WORD; CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR; VAR counter: SIZE); 
-		PROCEDURE ^ NewEntry*(type: WORD; CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR; next: Entry): Entry; 
+		PROCEDURE ^ InsertSorted(type: WORD; CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR; VAR counter: SIZE); 
+		PROCEDURE ^ NewEntry*(type: WORD; CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR; next: Entry): Entry; 
 	END DiagnosticsList; 
 
 	StreamDiagnostics* = OBJECT (Diagnostics)
@@ -52,11 +49,11 @@ TYPE
 		writer: Streams.Writer; 
 
 		PROCEDURE ^  & Init*(w: Streams.Writer); 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
 	END StreamDiagnostics; 
 
-	PROCEDURE ^ Print(w: Streams.Writer; CONST source: ARRAY OF CHAR; position: Streams.Position; errorCode: WORD; type: WORD; CONST message: ARRAY OF CHAR); 
+	PROCEDURE ^ Print(w: Streams.Writer; CONST source: ARRAY OF CHAR; position: Streams.Position; type: WORD; CONST message: ARRAY OF CHAR); 
 BEGIN
 END Diagnostics.

Linux32/bin/FoxA2Interface.SymU

@@ -25,12 +25,12 @@ TYPE
 		writer: Streams.Writer; 
 
 		PROCEDURE ^  & Init*(w: Streams.Writer); 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
 	END StreamDiagnostics; 
 
-	PROCEDURE ^ Print(w: Streams.Writer; CONST source: ARRAY OF CHAR; position, errorCode, type: LONGINT; CONST message: ARRAY OF CHAR); 
+	PROCEDURE ^ Print(w: Streams.Writer; CONST source: ARRAY OF CHAR; position: Streams.Position; type: WORD; CONST message: ARRAY OF CHAR); 
 	PROCEDURE ^ DebugWriterFactory(CONST title: ARRAY OF CHAR): Streams.Writer; 
 	PROCEDURE ^ WriterFactory(w: Streams.Writer): Basic.Writer; 
 	PROCEDURE ^ DiagnosticsFactory(w: Streams.Writer): Diagnostics.Diagnostics; 

Linux32/bin/FoxBasic.SymU

@@ -21,7 +21,7 @@ CONST
 	InitListSize = 4; 
 	InitErrMsgSize = 300; 
 	invalidString* =  -1; 
-	InvalidCode* = Diagnostics.Invalid; 
+	InvalidCode* =  -1; 
 TYPE 
 	String* = StringPool.Index; 
 
@@ -431,9 +431,9 @@ TYPE
 		diagnostics: Diagnostics.Diagnostics; 
 
 		PROCEDURE ^  & InitDiagnostics(diagnostics: Diagnostics.Diagnostics); 
-		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
-		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position, errorCode: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Error*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Warning*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ Information*(CONST source: ARRAY OF CHAR; position: Streams.Position; CONST message: ARRAY OF CHAR); 
 	END TracingDiagnostics; 
 
 	DebugWriterFactory* = PROCEDURE {DELEGATE}(CONST title: ARRAY OF CHAR):Streams.Writer; 

Linux32/bin/FoxIntermediateBackend.SymU

@@ -1,5 +1,5 @@
 MODULE FoxIntermediateBackend;
-	IMPORT Basic := FoxBasic, SyntaxTree := FoxSyntaxTree, SemanticChecker := FoxSemanticChecker, Backend := FoxBackend, Global := FoxGlobal, Scanner := FoxScanner, IntermediateCode := FoxIntermediateCode, Sections := FoxSections, BinaryCode := FoxBinaryCode, Printout := FoxPrintout, SYSTEM, Diagnostics, Strings, Options, Streams, Compiler, Formats := FoxFormats, SymbolFileFormat := FoxTextualSymbolFile, D := Debugging, FingerPrinter := FoxFingerPrinter, StringPool, CRC;
+	IMPORT Basic := FoxBasic, SyntaxTree := FoxSyntaxTree, SemanticChecker := FoxSemanticChecker, Backend := FoxBackend, Global := FoxGlobal, Scanner := FoxScanner, IntermediateCode := FoxIntermediateCode, Sections := FoxSections, BinaryCode := FoxBinaryCode, Printout := FoxPrintout, SYSTEM, Strings, Options, Streams, Compiler, Formats := FoxFormats, SymbolFileFormat := FoxTextualSymbolFile, D := Debugging, FingerPrinter := FoxFingerPrinter, StringPool, CRC;
 CONST 
 	ModeUndefined = 0; 
 	ModeReference = 1; 

Linux32/bin/FoxInterpreterBackend.SymU

@@ -1,5 +1,5 @@
 MODULE FoxInterpreterBackend;
-	IMPORT Basic := FoxBasic, SYSTEM, Diagnostics, Intermediate := FoxIntermediateCode, Sections := FoxSections, SyntaxTree := FoxSyntaxTree, Options, IntermediateBackend := FoxIntermediateBackend, Backend := FoxBackend, Global := FoxGlobal, Formats := FoxFormats, Trace := KernelLog, Streams, SymbolFileFormat := FoxTextualSymbolFile;
+	IMPORT Basic := FoxBasic, SYSTEM, Intermediate := FoxIntermediateCode, Sections := FoxSections, SyntaxTree := FoxSyntaxTree, Options, IntermediateBackend := FoxIntermediateBackend, Backend := FoxBackend, Global := FoxGlobal, Formats := FoxFormats, Trace := KernelLog, Streams, SymbolFileFormat := FoxTextualSymbolFile;
 CONST 
 	StackSize = 1024; 
 	AddressSize = SIZEOF(ADDRESS); 

Linux32/bin/ModuleParser.SymU

@@ -1,5 +1,5 @@
 MODULE ModuleParser;
-	IMPORT Strings, Files, Diagnostics, FoxScanner, KernelLog, Texts, TextUtilities;
+	IMPORT Strings, Files, Streams, Diagnostics, FoxScanner, KernelLog, Texts, TextUtilities;
 CONST 
 	Public* = 1; 
 	PublicRO* = 2; 

Linux32/bin/PCARMRegisters.SymU

@@ -1,5 +1,5 @@
 MODULE PCARMRegisters;
-	IMPORT PCM, PCOARM, KernelLog, Diagnostics;
+	IMPORT PCM, PCOARM, KernelLog;
 CONST 
 	INTERNALERROR = 100; 
 	CheckRegisterSize = TRUE; 

Linux32/bin/PCM.SymU

@@ -58,6 +58,8 @@ CONST
 	InitErrMsgSize = 300; 
 	MaxErrors = 100; 
 	MaxWarnings = 100; 
+	InvalidCode* =  -1; 
+	InvalidPosition* = Streams.Invalid; 
 TYPE 
 	SymReader* = Files.Reader; 
 

Linux32/bin/PCO.SymU

@@ -1,5 +1,5 @@
 MODULE PCO;
-	IMPORT SYSTEM, PCM, PCLIR, Diagnostics;
+	IMPORT SYSTEM, PCM, PCLIR;
 CONST 
 	noScale* = 0; 
 	Scale1* = 0; 

Linux32/bin/PCOARM.SymU

@@ -1,5 +1,5 @@
 MODULE PCOARM;
-	IMPORT SYSTEM, Files, PCLIR, PCM, Diagnostics;
+	IMPORT SYSTEM, Files, PCLIR, PCM;
 CONST 
 	INTERNALERROR* = 100; 
 	UNIMPLEMENTED* = 101; 

Linux32/bin/PCOF.SymU

@@ -1,5 +1,5 @@
 MODULE PCOF;
-	IMPORT SYSTEM, KernelLog, StringPool, PCDebug, PCBT, PCLIR, PCM, PCT, PCOM, Diagnostics;
+	IMPORT SYSTEM, KernelLog, StringPool, PCDebug, PCBT, PCLIR, PCM, PCT, PCOM;
 CONST 
 	AddressSize = SIZEOF(ADDRESS); 
 	TraceUse = FALSE; 

Linux32/bin/PCOFPE.SymU

@@ -1,5 +1,5 @@
 MODULE PCOFPE;
-	IMPORT SYSTEM, KernelLog, StringPool, PCDebug, PCBT, PCLIR, PCM, PCT, PCOM, Dates, Strings, Streams, Files, Clock, Diagnostics;
+	IMPORT SYSTEM, KernelLog, StringPool, PCDebug, PCBT, PCLIR, PCM, PCT, PCOM, Dates, Strings, Streams, Files, Clock;
 CONST 
 	Loader = \"AosRuntime"\; 
 	Heap = \"AosRuntime"\; 

Linux32/bin/PCOM.SymU

@@ -1,5 +1,5 @@
 MODULE PCOM;
-	IMPORT SYSTEM, Modules, StringPool, PCM, PCS, PCT, PCBT, PCLIR, Diagnostics;
+	IMPORT SYSTEM, Modules, StringPool, PCM, PCS, PCT, PCBT, PCLIR;
 CONST 
 	Trace = FALSE; 
 	TraceCalls = FALSE; 

Linux32/bin/PCP.SymU

@@ -1,5 +1,5 @@
 MODULE PCP;
-	IMPORT Machine, Diagnostics, Modules, Objects, Kernel, Strings, StringPool, PCM, PCS, PCT, PCB, PCC, SYSTEM, PCArrays;
+	IMPORT Machine, Modules, Objects, Kernel, Strings, StringPool, PCM, PCS, PCT, PCB, PCC, SYSTEM, PCArrays;
 CONST 
 	null = PCS.null; 
 	times = PCS.times;