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

fcl-passrc: less hints

Browse Source 
git-svn-id: trunk@40473 -
This commit is contained in:
Mattias Gaertner 2018-12-06 09:30:18 +00:00
parent 44facc15fa
commit c75d0ab3bd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-passrc/src/pasresolveeval.pas
View File

@ -4081,9 +4081,9 @@ begin
begin begin
c:=S[p]; c:=S[p];
case c of case c of
'0'..'9': u:=u*16+ord(c)-ord('0'); '0'..'9': u:=u*16+longword(ord(c)-ord('0'));
'a'..'f': u:=u*16+ord(c)-ord('a')+10; 'a'..'f': u:=u*16+longword(ord(c)-ord('a'))+10;
'A'..'F': u:=u*16+ord(c)-ord('A')+10; 'A'..'F': u:=u*16+longword(ord(c)-ord('A'))+10;
else break; else break;
end; end;
if u>$10FFFF then if u>$10FFFF then
@ -4111,7 +4111,7 @@ begin
begin begin
c:=S[p]; c:=S[p];
case c of case c of
'0'..'9': u:=u*10+ord(c)-ord('0'); '0'..'9': u:=u*10+longword(ord(c)-ord('0'));
else break; else break;
end; end;
if u>$ffff then if u>$ffff then