vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 14:32:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

added ReadByte wrapper for compatibility with latest NW Oberon system

Browse source 
Former-commit-id: 0b2f1902ef
This commit is contained in:
Norayr Chilingarian 2014-08-04 14:15:47 +04:00
parent 011aedbab1
commit 7a1dd40a64
10 changed files with 42 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lib/system/freebsd/clang/Files.Mod
View file

@ -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;

5
src/lib/system/freebsd/clang/Files0.Mod
View file

@ -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;