Prechádzať zdrojové kódy

* fix max macro length check

git-svn-id: trunk@650 -
peter 20 rokov pred
rodič
commit
3051c91530
1 zmenil súbory, kde vykonal 2 pridanie a 2 odobranie
  1. 2 2
      compiler/scanner.pas

+ 2 - 2
compiler/scanner.pas

@@ -935,7 +935,7 @@ implementation
                end;
                macrobuffer^[macropos]:=c;
                inc(macropos);
-               if macropos>maxmacrolen then
+               if macropos>=maxmacrolen then
                  Message(scan_f_macro_buffer_overflow);
                current_scanner.readchar;
              until false;
@@ -1725,7 +1725,7 @@ implementation
                  preprocstack.accept:=false;
                  preprocstack.typ:=pp_elseif;
                end
-           else if (not(assigned(preprocstack.next)) or (preprocstack.next.accept)) 
+           else if (not(assigned(preprocstack.next)) or (preprocstack.next.accept))
                    and compile_time_predicate(valuedescr) then
                begin
                  preprocstack.name:=valuedescr;