a32b967f1341

# HG changeset patch
# User nemo
# Date 1544721133 18000
# Node ID a32b967f13412b090e96bfb83ea1af3469fca389
# Parent  e8723f97324c09409c2b9bd35e0e2573b2918abd
This seems to be all that was needed for bug #719

Gbp-Pq: Name a32b967f1341.patch

diff --git a/project_files/hwc/rtl/fileio.c b/project_files/hwc/rtl/fileio.c
index 0965423dc1ea41de7956106a2c0c2c6fb54b6079..fee7a1de7da39553ea78f2b67d73d62992c1b91d 100644 (file)
--- a/project_files/hwc/rtl/fileio.c
+++ b/project_files/hwc/rtl/fileio.c
@@ -186,7 +186,8 @@ void fpcrtl_blockRead__vars(File f, void *buf, Integer count, Integer *result) {
  */
 void fpcrtl_blockWrite__vars(File f, const void *buf, Integer count,
         Integer *result) {
-    assert(0);
+    assert(f->record_len > 0);
+    *result = fwrite(buf, f->record_len, count, f->fp);
 }
 
 bool fpcrtl_directoryExists(string255 dir) {