* import the class con-/destructor symbol into the *current* unit not into the unit the symbol comes from

git-svn-id: trunk@34251 -

compiler/ngenutil.pas

@@ -865,7 +865,7 @@ implementation
               begin
                 unitinits.emit_procdef_const(pd);
                 if u<>current_module then
-                  u.addimportedsym(pd.procsym);
+                  current_module.addimportedsym(pd.procsym);
               end
             else
               unitinits.emit_tai(Tai_const.Create_nil_codeptr,voidcodepointertype);
@@ -874,7 +874,7 @@ implementation
               begin
                 unitinits.emit_procdef_const(pd);
                 if u<>current_module then
-                  u.addimportedsym(pd.procsym);
+                  current_module.addimportedsym(pd.procsym);
               end
             else
               unitinits.emit_tai(Tai_const.Create_nil_codeptr,voidcodepointertype);