diff --git a/compiler/scanner.pas b/compiler/scanner.pas index dd7b70e774..6177186a63 100644 --- a/compiler/scanner.pas +++ b/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 }