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

rtl: fixed val(hexnumber,nativeint,code)

Browse Source
This commit is contained in:
mattias 2018-11-01 13:01:17 +00:00
parent 52ade4b10c
commit 55ac9ab11e
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/rtl/system.pas
View File

@ -471,6 +471,16 @@ var
begin begin
Code:=0; Code:=0;
x:=Number(S); x:=Number(S);
writeln('val ',x);
if isNaN(x) then
case copy(s,1,1) of
'$': x:=Number('0x'+copy(S,2));
'&': x:=Number('0o'+copy(S,2));
'%': x:=Number('0b'+copy(S,2));
else
Code:=1;
exit;
end;
if isNaN(x) or (X<>Int(X)) then if isNaN(x) or (X<>Int(X)) then
Code:=1 Code:=1
else else