Pārlūkot izejas kodu

* support LL as int number postfix

git-svn-id: trunk@13821 -
florian 16 gadi atpakaļ
vecāks
revīzija
48e259876b
2 mainītis faili ar 533 papildinājumiem un 521 dzēšanām
  1. 2 2
      utils/h2pas/scan.l
  2. 531 519
      utils/h2pas/scan.pas

+ 2 - 2
utils/h2pas/scan.l

@@ -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 *)

Failā izmaiņas netiks attēlotas, jo tās ir par lielu
+ 531 - 519
utils/h2pas/scan.pas


Daži faili netika attēloti, jo izmaiņu fails ir pārāk liels