This seems to be all that was needed for bug #719 0.9.25
authornemo
Thu, 13 Dec 2018 12:12:13 -0500
branch0.9.25
changeset 14428 a32b967f1341
parent 14427 e8723f97324c
child 14429 2c4f71779302
child 14513 666b31c58de8
This seems to be all that was needed for bug #719
project_files/hwc/rtl/fileio.c
--- a/project_files/hwc/rtl/fileio.c	Thu Dec 13 11:03:15 2018 -0500
+++ b/project_files/hwc/rtl/fileio.c	Thu Dec 13 12:12:13 2018 -0500
@@ -186,7 +186,8 @@
  */
 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) {