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

wrapper function for compatibility with project oberon 13 sources.

Browse source
This commit is contained in:
Norayr Chilingarian 2024-03-14 18:01:26 +04:00
parent e376e59f58
commit 85dff7734d
186 changed files with 332 additions and 226 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/runtime/Files.Mod
View file

@ -413,6 +413,12 @@ MODULE Files; (* J. Templ 1.12. 89/12.4.95 Oberon files mapped onto Unix files
END
END Read;
(* wrapper for compatibility with Project Oberon sources *)
PROCEDURE ReadByte*(VAR r: Rider; VAR x: SYSTEM.BYTE);
BEGIN
Read(r, x)
END ReadByte;
PROCEDURE ReadBytes* (VAR r: Rider; VAR x: ARRAY OF SYSTEM.BYTE; n: LONGINT);
VAR xpos, min, restInBuf, offset: LONGINT; buf: Buffer;
BEGIN
@ -673,7 +679,7 @@ Especially Length would become fairly complex.
PROCEDURE WriteSet* (VAR R: Rider; x: SET);
VAR b: ARRAY 4 OF CHAR; i: LONGINT;
y: SYSTEM.SET64;
BEGIN
BEGIN
IF SIZE(SET) = SIZE(INTEGER) THEN
i := SYSTEM.VAL(INTEGER, x);
ELSE