paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 21:47:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* trunc now dynamically creates Math.trunc on IE

Browse Source
This commit is contained in:
michael 2018-01-29 13:46:05 +00:00
parent e24a9c6b04
commit 0daa2404ea
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/rtl/system.pas
View File

@ -151,7 +151,7 @@ function Sin(const A: Double): Double; external name 'Math.sin';
function Sqr(const A: Integer): Integer; assembler; overload;
function Sqr(const A: Double): Double; assembler; overload;
function sqrt(const A: Double): Double; external name 'Math.sqrt';
function Trunc(const A: Double): NativeInt; external name 'Math.trunc'; // not on IE
function Trunc(const A: Double): NativeInt;
{*****************************************************************************
String functions
@ -243,6 +243,19 @@ asm
return A*A;
end;
function Trunc(const A: Double): NativeInt; assembler;
asm
if (!Math.trunc) {
Math.trunc = function(v) {
v = +v;
if (!isFinite(v)) return v;
return (v - v % 1) || (v < 0 ? -0 : v === 0 ? v : 0);
};
}
$mod.Trunc = Math.trunc;
return Math.trunc(A);
end;
function Copy(const S: string; Index, Size: Integer): String; assembler;
asm
if (Index<1) Index = 1;

4
packages/rtl/web.pas
View File

@ -1693,6 +1693,8 @@ Type
touchend : TJSTouchEventHandler;
touchmove : TJSTouchEventHandler;
touchcancel : TJSTouchEventHandler;
procedure addEventListener(aname : string; aListener : TJSEventHandler);
procedure addEventListener(aname : string; aListener : JSValue);
Procedure alert(Const Msg : String);
Function atob(Const aValue : string) : string;
procedure blur;
@ -1714,6 +1716,8 @@ Type
procedure print;
function prompt(const aMessage : String) : String; overload;
function prompt(const aMessage,aDefault : String) : String; overload;
procedure removeEventListener(aname : string; aListener : TJSEventHandler);
procedure removeEventListener(aname : string; aListener : JSValue);
procedure resizeBy(aWidth,aHeight : NativeInt);
procedure resizeTo(aWidth,aHeight : NativeInt);
procedure scrollBy(x,y : NativeInt);