Browse Source

treated option "newObjectFile" as addition (not replacement)

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8090 8c9fc860-2736-0410-a75d-ab315db34111
felixf 7 năm trước cách đây
mục cha
commit
360adc9c0c
1 tập tin đã thay đổi với 3 bổ sung1 xóa
  1. 3 1
      source/FoxIntermediateBackend.Mod

+ 3 - 1
source/FoxIntermediateBackend.Mod

@@ -14012,7 +14012,9 @@ TYPE
 			noRuntimeChecks := options.GetFlag("noRuntimeChecks");
 			noAsserts := options.GetFlag("noAsserts");
 			cooperative := options.GetFlag("cooperative");
-			newObjectFile := options.GetFlag("newObjectFile");
+			IF options.GetFlag("newObjectFile") THEN
+				newObjectFile := TRUE; (* might have been set previously via SetNewObjectFile *)
+			END;
 			IF options.GetString("objectFile",string) & (string = "Minos") THEN 
 				simpleMetaData := TRUE
 			END;