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
This commit is contained in:
Norayr Chilingarian 2014-01-22 14:35:18 +04:00
parent 1736258d7d
commit b0a30438d1
4 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -427,6 +427,18 @@ BEGIN
buf.data[offset] := x; r.offset := offset + 1; buf.chg := TRUE
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 Read* (VAR r: Rider; VAR x: SYSTEM.BYTE);