non-zero exit codes on errors for compilers and linkers

voc-O7/O7ARMv6MLinker.Mod

@@ -65,7 +65,7 @@ MODULE O7ARMv6MLinker;
 		flash: ARRAY 200000H DIV 2 OF INTEGER; flashW: INTEGER;
 		memW: INTEGER; (* bytes *)
 		nPtrs: INTEGER;
-		res: INTEGER;
+		res*: INTEGER;
 		importing, imported: ModuleName;
 
 		W: Texts.Writer;
@@ -781,7 +781,7 @@ MODULE O7ARMv6MLinker;
 			S: Texts.Scanner;
 			mod: Module;
 			d: INTEGER;
-	BEGIN
+	BEGIN res := 0;
 		Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos); Texts.Scan(S);
 		IF S.class = Texts.Name THEN
 			target := targets;

voc-O7/O7ARMv6MLinkerLink.Mod

@@ -1,8 +1,9 @@
 MODULE O7ARMv6MLinkerLink;
 
-	(* Alexander Shiryaev, 2020.09 *)
+	(* Alexander Shiryaev, 2023.10 *)
 
-	IMPORT O7ARMv6MLinker;
+	IMPORT O7ARMv6MLinker, Platform;
 
-BEGIN O7ARMv6MLinker.Link
+BEGIN O7ARMv6MLinker.Link;
+	IF O7ARMv6MLinker.res # 0 THEN Platform.Exit(1) END
 END O7ARMv6MLinkerLink.

voc-O7/O7ARMv6MPCompile.Mod

@@ -1,8 +1,9 @@
 MODULE O7ARMv6MPCompile;
 
-	(* Alexander Shiryaev, 2020.09 *)
+	(* Alexander Shiryaev, 2023.10 *)
 
-	IMPORT O7ARMv6MP;
+	IMPORT O7ARMv6MP, O7S, Platform;
 
-BEGIN O7ARMv6MP.Compile
+BEGIN O7ARMv6MP.Compile;
+	IF O7S.errcnt # 0 THEN Platform.Exit(1) END
 END O7ARMv6MPCompile.

voc-O7/O7ARMv7MLinker.Mod

@@ -71,7 +71,7 @@ MODULE O7ARMv7MLinker;
 		flash: ARRAY 200000H DIV 2 OF INTEGER; flashW: INTEGER;
 		memW: INTEGER; (* bytes *)
 		nPtrs: INTEGER;
-		res: INTEGER;
+		res*: INTEGER;
 		importing, imported: ModuleName;
 
 		W: Texts.Writer;
@@ -825,7 +825,7 @@ MODULE O7ARMv7MLinker;
 			S: Texts.Scanner;
 			mod: Module;
 			d: INTEGER;
-	BEGIN
+	BEGIN res := 0;
 		Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos); Texts.Scan(S);
 		IF (S.class = Texts.Name) OR (S.class = Texts.String) THEN
 			target := targets;

voc-O7/O7ARMv7MLinkerLink.Mod

@@ -1,8 +1,9 @@
 MODULE O7ARMv7MLinkerLink;
 
-	(* Alexander Shiryaev, 2020.09 *)
+	(* Alexander Shiryaev, 2023.10 *)
 
-	IMPORT O7ARMv7MLinker;
+	IMPORT O7ARMv7MLinker, Platform;
 
-BEGIN O7ARMv7MLinker.Link
+BEGIN O7ARMv7MLinker.Link;
+	IF O7ARMv7MLinker.res # 0 THEN Platform.Exit(1) END
 END O7ARMv7MLinkerLink.

voc-O7/O7ARMv7MPCompile.Mod

@@ -1,8 +1,9 @@
 MODULE O7ARMv7MPCompile;
 
-	(* Alexander Shiryaev, 2020.09 *)
+	(* Alexander Shiryaev, 2023.10 *)
 
-	IMPORT O7ARMv7MP;
+	IMPORT O7ARMv7MP, O7S, Platform;
 
-BEGIN O7ARMv7MP.Compile
+BEGIN O7ARMv7MP.Compile;
+	IF O7S.errcnt # 0 THEN Platform.Exit(1) END
 END O7ARMv7MPCompile.