Merged revisions 650 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@693 -

compiler/scanner.pas

@@ -918,7 +918,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;