paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed compile under pas2js

Browse Source 
git-svn-id: trunk@40555 -
This commit is contained in:
Mattias Gaertner 2018-12-15 11:32:28 +00:00
parent 38a511a2f0
commit 2972be4ddd
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-js/src/jsbase.pp
View File

@ -26,8 +26,8 @@ uses
Classes, SysUtils;
const
MinSafeIntDouble = -$10000000000000; // -4503599627370496
MaxSafeIntDouble = $fffffffffffff; // 4503599627370495
MinSafeIntDouble = -$fffffffffffff-1; // -4503599627370496
MaxSafeIntDouble = $fffffffffffff; // 4503599627370495
Type
TJSType = (jstUNDEFINED,jstNull,jstBoolean,jstNumber,jstString,jstObject,jstReference,jstCompletion);

6
packages/fcl-passrc/src/pasresolveeval.pas
View File

@ -340,8 +340,8 @@ const
MinSafeIntSingle = -16777216;
MaxSafeIntSingle = 16777216;
MaskUIntSingle = $3fffff;
MinSafeIntDouble = -$10000000000000; // -4503599627370496
MaxSafeIntDouble = $fffffffffffff; // 4503599627370495
MinSafeIntDouble = -$fffffffffffff-1; // -4503599627370496
MaxSafeIntDouble = $fffffffffffff; // 4503599627370495
MaskUIntDouble = $fffffffffffff;
type
@ -1249,7 +1249,7 @@ begin
reitLongWord: TResEvalInt(Result).Int:=not longword(TResEvalInt(Result).Int);
reitLongInt: TResEvalInt(Result).Int:=not longint(TResEvalInt(Result).Int);
reitUIntDouble: TResEvalInt(Result).Int:=(not TResEvalInt(Result).Int) and $fffffffffffff;
reitIntDouble: TResEvalInt(Result).Int:=(not TResEvalInt(Result).Int) and $1fffffffffffff;
reitIntDouble: {$ifdef fpc}TResEvalInt(Result).Int:=(not TResEvalInt(Result).Int) and $1fffffffffffff{$endif};
else TResEvalInt(Result).Int:=not TResEvalInt(Result).Int;
end;
end;