Report correct error positions inside macros (at least more often).

compiler/scanner.pas

@@ -2564,7 +2564,6 @@ type
         else
           begin
             mac.defined:=true;
-            mac.fileinfo:=current_tokenpos;
             mac.is_compiler_var:=false;
           { delete old definition }
             mac.free_buftext;
@@ -2591,6 +2590,9 @@ type
              if is_keyword(hs) then
                Message(scan_e_keyword_cant_be_a_macro);
 
+             current_scanner.gettokenpos;
+             mac.fileinfo:=current_tokenpos;
+
              macropos:=0;
              { parse macro, brackets are counted so it's possible
                to have a $ifdef etc. in the macro }