Please pass proper error streams to options parser

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

source/FoxCompiler.Mod

@@ -306,15 +306,15 @@ TYPE
 		options.Add(0X,"cooperative", Options.Flag);
 
 		position := input.Pos();
-		parsed := options.Parse(input,NIL);
+		parsed := options.Parse(input, error);
 		IF options.GetString("platform", name) OR GetDefaultPlatform(name) THEN
 			defaults := platforms.Get(name);
 			IF defaults = NIL THEN 	
 				error.String("Unknown platform"); error.Ln 
 			ELSE
-				parsed := options.Parse(defaults, NIL) & parsed;
+				parsed := options.Parse(defaults, error) & parsed;
 				input.SetPos(position);
-				parsed := options.Parse(input, NIL) & parsed; (* reparse overwrites *)
+				parsed := options.Parse(input, error) & parsed; (* reparse overwrites *)
 			END;
 		ELSE 
 			defaults := NIL;

source/FoxIntermediateLinker.Mod

@@ -1201,7 +1201,7 @@ TYPE
 		options.Add(0X, "targetFile", Options.String);
 
 		position := input.Pos();
-		parsed := options.Parse(input,NIL);
+		parsed := options.Parse(input, context.error);
 
 		IF options.GetString("b", name) THEN
 			IF name = "" THEN defaultBackend := NIL
@@ -1387,7 +1387,7 @@ TYPE
 		options.Add(0X, "extension", Options.String);
 
 		position := input.Pos();
-		parsed := options.Parse(input,NIL);
+		parsed := options.Parse(input, context.error);
 
 		IF options.GetString("b", name) THEN
 			IF name = "" THEN defaultBackend := NIL

source/StaticLinker.Mod

@@ -992,13 +992,13 @@ BEGIN
 	options.Add(0X,"exports", Options.String);
 
 	position := context.arg.Pos();
-	parsed := options.Parse(context.arg,NIL);
+	parsed := options.Parse(context.arg, context.error);
 	IF options.GetString("platform", name) THEN
 		reader := defaults.Get(name);
 		IF reader = NIL THEN 
 			context.error.String("Unknown platform"); context.error.Ln 
 		ELSE
-			parsed := options.Parse(reader, NIL) & parsed;
+			parsed := options.Parse(reader, context.error) & parsed;
 			context.arg.SetPos(position);
 			context.arg.SetPos(position);
 			parsed := options.Parse(context.arg, context.error) & parsed; (* reparse overwrites *)