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

Former-commit-id: b0a30438d1

showdef.REMOVED.git-id

@@ -1 +1 @@
-f29f352c8e611105fde30173648f16fe61d936be
+425e4c63d1a68da9f8a4a69d2e103393b6b4e8be

src/lib/v4/OakFiles.Mod

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

voc.REMOVED.git-id

@@ -1 +1 @@
-618780429002771779782b951c5686945ebbb889
+886580f27024cc2cb8bf3dfc36d84aad5dbd2001