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

OakFiles, added WriteByte to be more compatible with PO 2013 -- noch

Browse source 
Former-commit-id: b0a30438d1
This commit is contained in:
Norayr Chilingarian 2014-01-22 14:35:18 +04:00
parent 35724cd3ef
commit 43ecc8663e
4 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
ocat
View file

Binary file not shown.

2
showdef.REMOVED.git-id
View file

@ -1 +1 @@
f29f352c8e611105fde30173648f16fe61d936be 425e4c63d1a68da9f8a4a69d2e103393b6b4e8be

12
src/lib/v4/OakFiles.Mod
View file

@ -427,6 +427,18 @@ BEGIN
buf.data[offset] := x; r.offset := offset + 1; buf.chg := TRUE buf.data[offset] := x; r.offset := offset + 1; buf.chg := TRUE
END Write; END Write;
PROCEDURE WriteByte* (VAR r: Rider; x: SYSTEM.BYTE); (* added for compatibility with PO 2013, -- noch *)
VAR buf: Buffer; offset: LONGINT;
BEGIN
buf := r.buf; offset := r.offset;
IF (offset >= bufsize) OR (r.org # buf.org) THEN
Set(r, buf.f, r.org + offset); buf := r.buf; offset := r.offset;
END ;
buf.data[offset] := x; r.offset := offset + 1; buf.chg := TRUE
END Write;
PROCEDURE WriteBytes ... PROCEDURE WriteBytes ...
PROCEDURE Read* (VAR r: Rider; VAR x: SYSTEM.BYTE); PROCEDURE Read* (VAR r: Rider; VAR x: SYSTEM.BYTE);

2
voc.REMOVED.git-id
View file

@ -1 +1 @@
618780429002771779782b951c5686945ebbb889 886580f27024cc2cb8bf3dfc36d84aad5dbd2001