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

* support LL as int number postfix

Browse Source 
git-svn-id: trunk@13821 -
This commit is contained in:
florian 2009-10-09 12:07:36 +00:00
parent 41c5735b40
commit 48e259876b
2 changed files with 1595 additions and 1571 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/h2pas/scan.l
View File

@ -616,14 +616,14 @@ D [0-9]
end end
else else
skip_until_eol; skip_until_eol;
{D}+[Uu]?[Ll]? if NotInCPlusBlock then {D}+[Uu]?[Ll]?[Ll]? if NotInCPlusBlock then
begin begin
while yytext[length(yytext)] in ['L','U','l','u'] do while yytext[length(yytext)] in ['L','U','l','u'] do
Delete(yytext,length(yytext),1); Delete(yytext,length(yytext),1);
return(NUMBER); return(NUMBER);
end end
else skip_until_eol; else skip_until_eol;
"0x"[0-9A-Fa-f]*[Uu]?[Ll]? "0x"[0-9A-Fa-f]*[Uu]?[Ll]?[Ll]?
if NotInCPlusBlock then if NotInCPlusBlock then
begin begin
(* handle pre- and postfixes *) (* handle pre- and postfixes *)

3160
utils/h2pas/scan.pas
View File

File diff suppressed because it is too large Load Diff