paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 03:50:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: fixed rtl.js

Browse Source 
git-svn-id: trunk@41788 -
This commit is contained in:
Mattias Gaertner 2019-03-24 11:00:50 +00:00
parent 744c331330
commit c1224f0705
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/pas2js/dist/rtl.js vendored
View File

@ -1103,7 +1103,7 @@ var rtl = {
if (a<0) a += rtl.hiInt; if (a<0) a += rtl.hiInt;
if (b<=0) return a; if (b<=0) return a;
if (b>54) return 0; if (b>54) return 0;
var r = a * Mat.pow(2,b); var r = a * Math.pow(2,b);
if (r <= rtl.hiInt) return r; if (r <= rtl.hiInt) return r;
return r % rtl.hiInt; return r % rtl.hiInt;
}, },