Rebuilt release

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

WinAos/obg/Compiler.SymW

@@ -15,6 +15,7 @@ CONST
 	ChangeCase* = 12; 
 	Cooperative* = 13; 
 	CellsAreObjects* = 14; 
+	UseLineNumbers* = 15; 
 	DefaultBackend = \"AMD"\; 
 	DefaultFrontend = \"Oberon"\; 
 TYPE 
@@ -31,26 +32,15 @@ TYPE
 		srcPath, destPath: Files.FileName; 
 		replacements: SemanticChecker.Replacement; 
 	END; 
-
-	Platform = POINTER TO RECORD 
-		name: ARRAY 32 OF CHAR; 
-		defaults: ARRAY 256 OF CHAR; 
-	END; 
-
-	Platforms = OBJECT (Basic.List)
-
-		PROCEDURE ^ GetPlatform(i: LONGINT): Platform; 
-	END Platforms; 
 VAR 
-	platforms: Platforms; 
+	platforms: Options.Defaults; 
 
 	PROCEDURE ^ ParseReplacements(CONST filename: ARRAY OF CHAR; VAR replacement: SemanticChecker.Replacement; diagnostics: Diagnostics.Diagnostics): BOOLEAN; 
 	PROCEDURE ^ Modules*(CONST source: ARRAY OF CHAR; reader: Streams.Reader; position: LONGINT; diagnostics: Diagnostics.Diagnostics; log: Streams.Writer; CONST options: CompilerOptions; VAR importCache: SyntaxTree.ModuleScope): BOOLEAN; 
-	PROCEDURE ^ GetDefaults(CONST name: ARRAY OF CHAR): Streams.Reader; 
 	PROCEDURE ^ GetOptions*(input: Streams.Reader; error: Streams.Writer; diagnostics: Diagnostics.Diagnostics; VAR compilerOptions: CompilerOptions): BOOLEAN; 
 	PROCEDURE ^ Compile*(context: Commands.Context); 
 	PROCEDURE ^ CompileReader*(context: Commands.Context; reader: Streams.Reader); 
 	PROCEDURE ^ AddPlatform(CONST name: ARRAY OF CHAR; CONST defaults: ARRAY OF CHAR); 
-	PROCEDURE ^ GetPlatform(CONST name: ARRAY OF CHAR): Platform; 
+	PROCEDURE ^ ShowDefaults*(context: Commands.Context); 
 BEGIN
 END Compiler.