diff --git a/src/lib/system/darwin/clang/Files.Mod b/src/lib/system/darwin/clang/Files.Mod index 60b81e43..6307407d 100644 --- a/src/lib/system/darwin/clang/Files.Mod +++ b/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; diff --git a/src/lib/system/darwin/clang/Files0.Mod b/src/lib/system/darwin/clang/Files0.Mod index f889db57..4f021ede 100644 --- a/src/lib/system/darwin/clang/Files0.Mod +++ b/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; diff --git a/src/lib/system/freebsd/clang/Files.Mod b/src/lib/system/freebsd/clang/Files.Mod index 60b81e43..6307407d 100644 --- a/src/lib/system/freebsd/clang/Files.Mod +++ b/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; diff --git a/src/lib/system/freebsd/clang/Files0.Mod b/src/lib/system/freebsd/clang/Files0.Mod index f889db57..4f021ede 100644 --- a/src/lib/system/freebsd/clang/Files0.Mod +++ b/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; diff --git a/src/lib/system/linux/clang/Files.Mod b/src/lib/system/linux/clang/Files.Mod index 60b81e43..6307407d 100644 --- a/src/lib/system/linux/clang/Files.Mod +++ b/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; diff --git a/src/lib/system/linux/clang/Files0.Mod b/src/lib/system/linux/clang/Files0.Mod index f889db57..4f021ede 100644 --- a/src/lib/system/linux/clang/Files0.Mod +++ b/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; diff --git a/src/lib/system/linux/gcc/Files.Mod b/src/lib/system/linux/gcc/Files.Mod index 60b81e43..6307407d 100644 --- a/src/lib/system/linux/gcc/Files.Mod +++ b/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; diff --git a/src/lib/system/linux/gcc/Files0.Mod b/src/lib/system/linux/gcc/Files0.Mod index f889db57..4f021ede 100644 --- a/src/lib/system/linux/gcc/Files0.Mod +++ b/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; diff --git a/voc b/voc index 8419554a..52363208 100755 Binary files a/voc and b/voc differ diff --git a/vocstatic.linux.gcc.x86_64 b/vocstatic.linux.gcc.x86_64 index 8419554a..52363208 100755 Binary files a/vocstatic.linux.gcc.x86_64 and b/vocstatic.linux.gcc.x86_64 differ