Extract the code to export the symbols of a unit to its own function in pkgutil so that less functions need to be exported.

pmodules.pas, proc_package:
  * move code to export the symbols of a unit to new function export_unit
pkgutil.pas:
  + new function export_unit
  - remove exports of procexport, varexport and insert_export

git-svn-id: branches/svenbarth/packages@28840 -

compiler/pkgutil.pas

@@ -26,11 +26,12 @@ unit pkgutil;
 
 interface
 
+  uses
+    fmodule;
+
   procedure createimportlibfromexports;
   Function RewritePPU(const PPUFn,PPLFn:String):Boolean;
-  procedure insert_export(sym : TObject;arg:pointer);
-  procedure procexport(const s : string);
-  procedure varexport(const s : string);
+  procedure export_unit(u:tmodule);
 
 implementation
 
@@ -40,7 +41,7 @@ implementation
     cutils,cclasses,
     verbose,
     symtype,symconst,symsym,symdef,symbase,
-    ppu,entfile,fmodule,
+    ppu,entfile,
     export;
 
   procedure procexport(const s : string);
@@ -113,6 +114,21 @@ implementation
     end;
 
 
+  procedure export_unit(u: tmodule);
+    begin
+      u.globalsymtable.symlist.ForEachCall(@insert_export,u.globalsymtable);
+      { check localsymtable for exports too to get public symbols }
+      u.localsymtable.symlist.ForEachCall(@insert_export,u.localsymtable);
+
+      { create special exports }
+      if (u.flags and uf_init)<>0 then
+        procexport(make_mangledname('INIT$',u.globalsymtable,''));
+      if (u.flags and uf_finalize)<>0 then
+        procexport(make_mangledname('FINALIZE$',u.globalsymtable,''));
+      if (u.flags and uf_threadvars)=uf_threadvars then
+        varexport(make_mangledname('THREADVARLIST',u.globalsymtable,''));
+    end;
+
   Function RewritePPU(const PPUFn,PPLFn:String):Boolean;
     Var
       MakeStatic : Boolean;

compiler/pmodules.pas

@@ -1504,17 +1504,7 @@ type
          uu:=tused_unit(usedunits.first);
          while assigned(uu) do
            begin
-             uu.u.globalsymtable.symlist.ForEachCall(@insert_export,uu.u.globalsymtable);
-             { check localsymtable for exports too to get public symbols }
-             uu.u.localsymtable.symlist.ForEachCall(@insert_export,uu.u.localsymtable);
-
-             { create special exports }
-             if (uu.u.flags and uf_init)<>0 then
-               procexport(make_mangledname('INIT$',uu.u.globalsymtable,''));
-             if (uu.u.flags and uf_finalize)<>0 then
-               procexport(make_mangledname('FINALIZE$',uu.u.globalsymtable,''));
-             if (uu.u.flags and uf_threadvars)=uf_threadvars then
-               varexport(make_mangledname('THREADVARLIST',uu.u.globalsymtable,''));
+             export_unit(uu.u);
 
              uu:=tused_unit(uu.next);
            end;