From d79e2ee9da43d4f534a4923a850f00c22213548b Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sun, 24 Nov 2019 00:04:23 +0000
Subject: [PATCH] * also store, reset and restore the current module's procinfo

git-svn-id: trunk@43566 -
---
 compiler/pgenutil.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/pgenutil.pas b/compiler/pgenutil.pas
index d3a0562b9b..4c4ec77117 100644
--- a/compiler/pgenutil.pas
+++ b/compiler/pgenutil.pas
@@ -737,6 +737,7 @@ uses
         old_current_specializedef,
         old_current_genericdef : tstoreddef;
         old_current_procinfo : tprocinfo;
+        old_module_procinfo : tobject;
         hmodule : tmodule;
         oldcurrent_filepos : tfileposinfo;
         recordbuf : tdynamicarray;
@@ -945,8 +946,10 @@ uses
                 old_current_genericdef:=nil;
                 old_current_structdef:=nil;
                 old_current_procinfo:=current_procinfo;
+                old_module_procinfo:=current_module.procinfo;
 
                 current_procinfo:=nil;
+                current_module.procinfo:=nil;
 
                 if parse_class_parent then
                   begin
@@ -1128,6 +1131,7 @@ uses
 
                 block_type:=old_block_type;
                 current_procinfo:=old_current_procinfo;
+                current_module.procinfo:=old_module_procinfo;
                 if parse_class_parent then
                   begin
                     current_structdef:=old_current_structdef;