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

less hints

Browse Source
This commit is contained in:
mattias 2024-02-13 16:57:32 +01:00
parent 499e2736e6
commit 038b896f03
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/rtl/src/js.pas
View File

@ -1009,9 +1009,9 @@ type
TJSNumber = class external name 'Number' (TJSFunction)
private
class var FEPSILON: Double; external name 'EPSILON';
class var FMAX_SAFE_INTEGER: Int64; external name 'MAX_SAFE_INTEGER';
class var {%H-}FMAX_SAFE_INTEGER: Int64; external name 'MAX_SAFE_INTEGER';
class var FMAX_VALUE: Double; external name 'MAX_VALUE';
class var FMIN_SAFE_INTEGER: Int64; external name 'MIN_SAFE_INTEGER';
class var {%H-}FMIN_SAFE_INTEGER: Int64; external name 'MIN_SAFE_INTEGER';
class var FMIN_VALUE: Double; external name 'MIN_VALUE';
class var FNaN: Double; external name 'NaN';
class var FNEGATIVE_INFINITY: TJSNumber; external name 'NEGATIVE_INFINITY';
@ -1044,12 +1044,12 @@ type
function toPrecision(const precision: Integer): TJSString; overload;
function toString: TJSString; overload;
function toString(const radix: Integer): TJSString; overload;
function valueOf: Double;
function valueOf: Double; reintroduce;
class property EPSILON: Double read FEPSILON;
class property MAX_SAFE_INTEGER: Int64 read FMAX_SAFE_INTEGER;
class property MAX_SAFE_INTEGER{%H-}: Int64 read FMAX_SAFE_INTEGER;
class property MAX_VALUE: Double read FMAX_VALUE;
class property MIN_SAFE_INTEGER: Int64 read FMIN_SAFE_INTEGER;
class property MIN_SAFE_INTEGER{%H-}: Int64 read FMIN_SAFE_INTEGER;
class property MIN_VALUE: Double read FMIN_VALUE;
class property NaN: Double read FNaN;
class property NEGATIVE_INFINITY: TJSNumber read FNEGATIVE_INFINITY;

2
packages/rtl/src/sysutils.pas
View File

@ -3103,7 +3103,7 @@ var
i: Integer;
begin
Result:=aQuoted;
if TJSString(Result).substr(0,1)<>AQuote then exit;
if TJSString(Result).substring(0,1)<>AQuote then exit;
Result:=TJSString(Result).slice(1);
i:=1;
while i<=length(Result) do