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

rtl: clean up, fixed strtoint $FF

Browse Source
This commit is contained in:
mattias 2018-11-01 14:13:49 +00:00
parent 55ac9ab11e
commit 5075b5f4d6
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/rtl/system.pas
View File

@ -471,7 +471,6 @@ var
begin
Code:=0;
x:=Number(S);
writeln('val ',x);
if isNaN(x) then
case copy(s,1,1) of
'$': x:=Number('0x'+copy(S,2));

12
packages/rtl/sysutils.pas
View File

@ -3691,13 +3691,11 @@ Var
begin
N:=S;
F:=Copy(N,1,1);
if (F='$') then
Radix:=16
else if (F='&') then
Radix:=8
else if (F='%') then
Radix:=2;
case Copy(N,1,1) of
'$': Radix:=16;
'&': Radix:=8;
'%': Radix:=2;
end;
If Radix<>10 then
Delete(N,1,1);
J:=parseInt(N,Radix);