Преглед изворни кода

* fix from Jeff Pohlmeyer <[email protected]> for problem with
variables/parameters called l, L, u or U

Jonas Maebe пре 22 година
родитељ
комит
c38ebece5a
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      utils/h2pas/scan.l

+ 1 - 1
utils/h2pas/scan.l

@@ -443,7 +443,7 @@ D [0-9]
                           return(CSTRING)
                         else
                           return(256);
-{D}*[Uu]?[Ll]?          begin
+{D}+[Uu]?[Ll]?          begin
                            while yytext[length(yytext)] in ['L','U','l','u'] do
                              Delete(yytext,length(yytext),1);
                            return(NUMBER);