Skip to content
Permalink
Browse files

circumvent Delphi 5 compilation issues (mainly Internal Error C1093)

  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Mar 1, 2019
1 parent 9b33e43 commit a59417669c40f3eee0ad05f08abc9047579e6292
Showing with 103 additions and 92 deletions.
  1. +2 −3 SyNode/SyNodeBinding_fs.pas
  2. +99 −87 SynCommons.pas
  3. +1 −1 SynDBDataset.pas
  4. +1 −1 SynopseCommit.inc
@@ -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
Oops, something went wrong.

0 comments on commit a594176

Please sign in to comment.
You can’t perform that action at this time.