circumvent Delphi 5 compilation issues (mainly Internal Error C1093)

synopse · Mar 1, 2019 · a594176 · a594176
1 parent 9b33e43
commit a594176
Show file tree

Hide file tree

Showing 4 changed files with 103 additions and 92 deletions.
diff --git a/SyNode/SyNodeBinding_fs.pas b/SyNode/SyNodeBinding_fs.pas
@@ -590,10 +590,9 @@ function fs_loadFileToBuffer(cx: PJSContext; argc: uintN; var vp: jsargRec): Boo
     else
     begin
       size := FileSize(filePath);
-      if Int64Rec(size).Hi > 0 then
+      if PInt64Rec(@size)^.Hi > 0 then
         raise ESMException.Create('file to large');
-
-      arr := cx.NewArrayBuffer(Int64Rec(size).Lo);
+      arr := cx.NewArrayBuffer(PInt64Rec(@size)^.Lo);
       arr_data := arr.GetArrayBufferData;
       fFileStream := TFileStream.Create(filePath, fmOpenRead or fmShareDenyNone);
       try