From b765d661ce4b203b0a238436c0c46dcd266c8978 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Wed, 27 Sep 2017 20:34:38 +0000
Subject: [PATCH] * when registering a def also register the syms and defs of
 its symtables

git-svn-id: trunk@37340 -
---
 compiler/symdef.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index f7a4ee9fe7..c839133082 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -2215,6 +2215,9 @@ implementation
 
 
    procedure tstoreddef.register_def;
+     var
+       gst : tgetsymtable;
+       st : tsymtable;
      begin
        if registered then
          exit;
@@ -2222,6 +2225,12 @@ implementation
        if assigned(current_module) then
          begin
            exclude(defoptions,df_not_registered_no_free);
+           for gst:=low(tgetsymtable) to high(tgetsymtable) do
+             begin
+               st:=getsymtable(gst);
+               if assigned(st) then
+                 tstoredsymtable(st).register_children;
+             end;
            if defid<defid_not_registered then
              defid:=deflist_index
            else