From 8cbaa89f4af8c3444586f5ebc642d0af505c1612 Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Mon, 29 Jun 1987 19:33:01 +0000
Subject: [PATCH] fix: ReadREAL did not work, because ok was'nt initialized

---
 lang/m2/libm2/PascalIO.mod | 1 +
 lang/m2/libm2/catch.c      | 5 ++---
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lang/m2/libm2/PascalIO.mod b/lang/m2/libm2/PascalIO.mod
index ce859a27..b59f7313 100644
--- a/lang/m2/libm2/PascalIO.mod
+++ b/lang/m2/libm2/PascalIO.mod
@@ -324,6 +324,7 @@ IMPLEMENTATION MODULE PascalIo;
 
   BEGIN
 	index := 0;
+	ok := TRUE;
     	WHILE NextCHAR(inputtext) IN spaces DO
 		Get(inputtext);
 	END;
diff --git a/lang/m2/libm2/catch.c b/lang/m2/libm2/catch.c
index 42d061b5..c1e4c70c 100644
--- a/lang/m2/libm2/catch.c
+++ b/lang/m2/libm2/catch.c
@@ -63,9 +63,8 @@ _catch(trapno)
 		do
 			*s++ = i % 10 + '0';
 		while (i /= 10);
-		*s = 0;
-		s = buf;
-		while (*p++ = *s++) /* nothing */;
+		while (s > buf) *p++ = *--s;
+		*p = 0;
 		Traps_Message(q, 0, (int) (p - q), 1);
 	}
 	exit(trapno);