From eace02450d3fba5c44298f51147b938501f81a9d Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Wed, 22 Jan 2014 15:50:08 +0400
Subject: [PATCH] OakFiles modified to be closer to PO 2013 Files -- noch

---
 src/lib/v4/OakFiles.Mod | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/src/lib/v4/OakFiles.Mod b/src/lib/v4/OakFiles.Mod
index d52d5947..77449c30 100644
--- a/src/lib/v4/OakFiles.Mod
+++ b/src/lib/v4/OakFiles.Mod
@@ -392,6 +392,11 @@ END ;
     r.offset := offset + 1; r.res := 0
   END Write;
 
+  PROCEDURE WriteByte* (VAR r : Rider; x : SYSTEM.BYTE); (* added for compatibility with PO 2013, -- noch *)
+  BEGIN
+     Write(r, x);
+  END WriteByte;
+
   PROCEDURE WriteBytes* (VAR r: Rider; VAR x: ARRAY OF SYSTEM.BYTE; n: LONGINT);
     VAR xpos, min, restInBuf, offset: LONGINT; buf: Buffer;
   BEGIN
@@ -427,17 +432,6 @@ 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 ...