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

* fix from Jeff Pohlmeyer <yetanothergeek@yahoo.com> for problem with

Browse Source 
variables/parameters called l, L, u or U
This commit is contained in:
Jonas Maebe 2003-02-26 18:45:31 +00:00
parent 49849a0b86
commit c38ebece5a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/h2pas/scan.l
View File

@ -443,7 +443,7 @@ D [0-9]
return(CSTRING) return(CSTRING)
else else
return(256); return(256);
{D}*[Uu]?[Ll]? begin {D}+[Uu]?[Ll]? 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);