* Change Field passing type of FreeLocalVerbosity parameter

    to by value to avoid passing an unaligned pointer.
  * Adapt code calling FreeLocalVerbosity  to reset
    currrent_settings.pmessage to nil afterwards.

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@18978 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 0 deletions

diff --git a/compiler/parser.pas b/compiler/parser.pas
index 266878a669..533c99e5f2 100644
--- a/compiler/parser.pas
+++ b/compiler/parser.pas
@@ -522,6 +522,7 @@ implementation
            set_current_module(olddata^.old_current_module);
 
            FreeLocalVerbosity(current_settings.pmessage);
+           current_settings.pmessage:=nil;
 
            dispose(olddata);
          end;