From a073b86b57f7777e9a8bc358e0a353db667f0897 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Mon, 15 Aug 2016 14:38:10 +0000
Subject: [PATCH] * move handling of typesym's defs from insert_export() to its
 own function export_typedef()

git-svn-id: trunk@34317 -
---
 compiler/pkgutil.pas | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/compiler/pkgutil.pas b/compiler/pkgutil.pas
index 7305321b51..eadd686d8f 100644
--- a/compiler/pkgutil.pas
+++ b/compiler/pkgutil.pas
@@ -168,6 +168,16 @@ implementation
     end;
 
 
+  procedure export_typedef(def:tdef;symtable:tsymtable);
+    begin
+      case def.typ of
+        recorddef,
+        objectdef:
+          exportabstractrecorddef(tabstractrecorddef(def),symtable);
+      end;
+    end;
+
+
   procedure insert_export(sym : TObject;arg:pointer);
     var
       i : longint;
@@ -190,11 +200,7 @@ implementation
           end;
         typesym:
           begin
-            case ttypesym(sym).typedef.typ of
-              recorddef,
-              objectdef:
-                exportabstractrecorddef(tabstractrecorddef(ttypesym(sym).typedef),tsymtable(arg));
-            end;
+            export_typedef(ttypesym(sym).typedef,tsymtable(arg));
           end;
         procsym:
           begin