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

rtl: updated isRecord

Browse Source
This commit is contained in:
mattias 2019-02-11 15:15:11 +00:00
parent f1851f5d83
commit fb5f97355d
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/rtl/js.pas
View File

@ -739,14 +739,14 @@ type
end;
var
// This can be used in procedures/functions to provide access to the 'arguments' array.
// JSArguments can be used in procedures/functions to provide access to the 'arguments' array.
JSArguments: TJSFunctionArguments; external name 'arguments';
// This can be used in all code to access the javascript 'this' object.
// JSThis can be used in all code to access the javascript 'this' object.
JSThis: TJSObject; external name 'this';
// This can be used in catch blocks to access the JS throw value
// JSExceptValue can be used in catch blocks to access the JS throw value
JSExceptValue: JSValue; external name '$e';
Function new(aElements: TJSValueDynArray) : TJSObject; overload;
function new(aElements: TJSValueDynArray) : TJSObject; overload;
function JSDelete(const Obj: JSValue; const PropName: string): boolean; assembler; overload;
function decodeURIComponent(encodedURI : String) : String; external name 'decodeURIComponent';
@ -878,7 +878,11 @@ end;
function isRecord(const v: JSValue): boolean; assembler;
asm
return (typeof(v)=="function") && (typeof(v.$create) == "function");
return (typeof(v)==="object")
&& (typeof(v.$new)==="function")
&& (typeof(v.$clone)==="function")
&& (typeof(v.$eq)==="function")
&& (typeof(v.$assign)==="function");
end;
function isUndefined(const v: JSValue): boolean; assembler;