paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-25 07:49:08 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ support of octal literals

Browse Source
This commit is contained in:
florian 2023-01-21 21:46:01 +01:00 committed by Pierre Muller
parent ac8c32c93d
commit 74303d74b1
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/h2pas/scan.l
View File

@ -619,6 +619,11 @@ D [0-9]
skip_until_eol;
{D}+[Uu]?[Ll]?[Ll]? if NotInCPlusBlock then
begin
if yytext[1]='0' then
begin
delete(yytext,1,1);
yytext:='&'+yytext;
end;
while yytext[length(yytext)] in ['L','U','l','u'] do
Delete(yytext,length(yytext),1);
return(NUMBER);

5
utils/h2pas/scan.pas
View File

@ -634,6 +634,11 @@ begin
7:
if NotInCPlusBlock then
begin
if yytext[1]='0' then
begin
delete(yytext,1,1);
yytext:='&'+yytext;
end;
while yytext[length(yytext)] in ['L','U','l','u'] do
Delete(yytext,length(yytext),1);
return(NUMBER);