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

fcl-js: small optimization

Browse Source 
git-svn-id: trunk@41154 -
This commit is contained in:
Mattias Gaertner 2019-01-31 19:48:29 +00:00
parent c5331d425a
commit 9aec974448
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-js/src/jswriter.pp
View File

@ -681,7 +681,7 @@ Var
p, StartP: Integer;
MinIndent, CurLineIndent, j, Exp, Code: Integer;
i: SizeInt;
D: TJSNumber;
D, AsNumber: TJSNumber;
begin
if V.CustomValue<>'' then
begin
@ -736,15 +736,17 @@ begin
exit;
end;
jstNumber :
if (Frac(V.AsNumber)=0)
and (V.AsNumber>=double(MinSafeIntDouble))
and (V.AsNumber<=double(MaxSafeIntDouble)) then
begin
AsNumber:=V.AsNumber;
if (Frac(AsNumber)=0)
and (AsNumber>=double(MinSafeIntDouble))
and (AsNumber<=double(MaxSafeIntDouble)) then
begin
Str(Round(V.AsNumber),S);
Str(Round(AsNumber),S);
end
else
begin
Str(V.AsNumber,S);
Str(AsNumber,S);
if S[1]=' ' then Delete(S,1,1);
i:=Pos('E',S);
if (i>2) then
@ -758,7 +760,7 @@ begin
if s[j]='.' then inc(j);
S2:=LeftStr(S,j)+copy(S,i,length(S));
val(S2,D,Code);
if (Code=0) and (D=V.AsNumber) then
if (Code=0) and (D=AsNumber) then
S:=S2;
end;
'9':
@ -796,7 +798,7 @@ begin
end;
until false;
val(S2,D,Code);
if (Code=0) and (D=V.AsNumber) then
if (Code=0) and (D=AsNumber) then
S:=S2;
end;
end;
@ -866,6 +868,7 @@ begin
end;
end;
end;
end;
jstObject : ;
jstReference : ;
jstCompletion : ;