Forgotten commit

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

source/Win32.Machine.Mod

@@ -416,10 +416,10 @@ BEGIN
 END ParseLine;
 
 PROCEDURE TraceChar(c: CHAR);
-VAR len: LONGINT;
+VAR len: LONGINT; b: Kernel32.BOOL;
 BEGIN
 	len := 1;
-	IF Kernel32.WriteFile(hout,c,len,len,NIL) = 0 THEN END;
+	b := Kernel32.WriteFile(hout,c,len,len,NIL);
 END TraceChar;
 
 PROCEDURE SetTraceFile(VAR filename: ARRAY OF CHAR);

source/Win32.WinTrace.Mod

@@ -10,17 +10,19 @@ VAR
 
 (* Sender to be used with Stream.Writer *)
 PROCEDURE Send* (CONST buf: ARRAY OF CHAR; ofs, len: LONGINT; propagate: BOOLEAN; VAR res: LONGINT);
+VAR b: Kernel32.BOOL;
 BEGIN
 	IF mode # none THEN
-		IF Kernel32.WriteFile (hout, buf[ofs], len, len, NIL) = 0 THEN END;
+		b := Kernel32.WriteFile (hout, buf[ofs], len, len, NIL);
 		Kernel32.FlushFileBuffers(hout);
 	END;
 END Send;
 
 (* Receiver to be used with Stream.Reader *)
 PROCEDURE Receive* (VAR buf: ARRAY OF CHAR; ofs, size, min: LONGINT; VAR len, res: LONGINT);
+VAR b: Kernel32.BOOL;
 BEGIN
-	IF Kernel32.ReadFile (hin, buf[ofs], min, len, NIL) = 0 THEN END;
+	b := Kernel32.ReadFile (hin, buf[ofs], min, len, NIL);
 END Receive;
 
 PROCEDURE Init;
@@ -78,10 +80,10 @@ BEGIN
 END Terminate;
 
 PROCEDURE Char(c: CHAR);
-VAR len: LONGINT;
+VAR len: LONGINT; b: Kernel32.BOOL;
 BEGIN
 	len := 1;
-	IF Kernel32.WriteFile(hout,c,len,len,NIL) = 0 THEN END;
+	b := Kernel32.WriteFile(hout,c,len,len,NIL);
 END Char;
 
 BEGIN