added ReadByte wrapper for compatibility with latest NW Oberon system

src/lib/system/darwin/clang/Files.Mod

@@ -372,6 +372,11 @@ END ;
     r.res := 0; r.eof := FALSE
   END ReadBytes;
 
+  PROCEDURE ReadByte* (VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE);
+  BEGIN
+     ReadBytes(r, x, 1);
+  END ReadByte;
+
   PROCEDURE Base* (VAR r: Rider): File;
   BEGIN RETURN r.buf.f
   END Base;

src/lib/system/darwin/clang/Files0.Mod

@@ -371,6 +371,11 @@ END ;
     r.res := 0; r.eof := FALSE
   END ReadBytes;
 
+  PROCEDURE ReadByte* (VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE);
+  BEGIN
+     ReadBytes(r, x, 1);
+  END ReadByte;
+
   PROCEDURE Base* (VAR r: Rider): File;
   BEGIN RETURN r.buf.f
   END Base;

src/lib/system/freebsd/clang/Files.Mod

@@ -372,6 +372,11 @@ END ;
     r.res := 0; r.eof := FALSE
   END ReadBytes;
 
+  PROCEDURE ReadByte* (VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE);
+  BEGIN
+     ReadBytes(r, x, 1);
+  END ReadByte;
+
   PROCEDURE Base* (VAR r: Rider): File;
   BEGIN RETURN r.buf.f
   END Base;

src/lib/system/freebsd/clang/Files0.Mod

@@ -371,6 +371,11 @@ END ;
     r.res := 0; r.eof := FALSE
   END ReadBytes;
 
+  PROCEDURE ReadByte* (VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE);
+  BEGIN
+     ReadBytes(r, x, 1);
+  END ReadByte;
+
   PROCEDURE Base* (VAR r: Rider): File;
   BEGIN RETURN r.buf.f
   END Base;

src/lib/system/linux/clang/Files.Mod

@@ -372,6 +372,11 @@ END ;
     r.res := 0; r.eof := FALSE
   END ReadBytes;
 
+  PROCEDURE ReadByte* (VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE);
+  BEGIN
+     ReadBytes(r, x, 1);
+  END ReadByte;
+
   PROCEDURE Base* (VAR r: Rider): File;
   BEGIN RETURN r.buf.f
   END Base;

src/lib/system/linux/clang/Files0.Mod

@@ -371,6 +371,11 @@ END ;
     r.res := 0; r.eof := FALSE
   END ReadBytes;
 
+  PROCEDURE ReadByte* (VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE);
+  BEGIN
+     ReadBytes(r, x, 1);
+  END ReadByte;
+
   PROCEDURE Base* (VAR r: Rider): File;
   BEGIN RETURN r.buf.f
   END Base;

src/lib/system/linux/gcc/Files.Mod

@@ -372,6 +372,11 @@ END ;
     r.res := 0; r.eof := FALSE
   END ReadBytes;
 
+  PROCEDURE ReadByte* (VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE);
+  BEGIN
+     ReadBytes(r, x, 1);
+  END ReadByte;
+
   PROCEDURE Base* (VAR r: Rider): File;
   BEGIN RETURN r.buf.f
   END Base;

src/lib/system/linux/gcc/Files0.Mod

@@ -371,6 +371,11 @@ END ;
     r.res := 0; r.eof := FALSE
   END ReadBytes;
 
+  PROCEDURE ReadByte* (VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE);
+  BEGIN
+     ReadBytes(r, x, 1);
+  END ReadByte;
+
   PROCEDURE Base* (VAR r: Rider): File;
   BEGIN RETURN r.buf.f
   END Base;