paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 22:29:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support 'x1f' and 'X1f' for hex notation in val() (Delphi compatibility,

Browse Source 
mantis 8177)

git-svn-id: trunk@6204 -
This commit is contained in:
Jonas Maebe 2007-01-26 18:34:08 +00:00
parent ca4412e09f
commit 6c578f55df
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/sstrings.inc
View File

@ -670,7 +670,9 @@ begin
if code<=length(s) then
begin
case s[code] of
'$' : begin
'$',
'X',
'x' : begin
base:=16;
inc(code);
end;