* fixed setting of mangledname when importing

compiler/systems/t_beos.pas

@@ -79,11 +79,6 @@ procedure timportlibbeos.importprocedure(aprocdef:tprocdef;const module:string;i
 begin
   { insert sharedlibrary }
   current_module.linkothersharedlibs.add(SplitName(module),link_allways);
-  { do nothing with the procedure, only set the mangledname }
-  if name<>'' then
-    aprocdef.setmangledname(name)
-  else
-    message(parser_e_empty_import_name);
 end;
 
 
@@ -501,7 +496,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.15  2004-11-08 22:09:59  peter
+  Revision 1.16  2004-11-19 16:30:24  peter
+    * fixed setting of mangledname when importing
+
+  Revision 1.15  2004/11/08 22:09:59  peter
     * tvarsym splitted
 
   Revision 1.14  2004/10/15 09:24:38  mazen

compiler/systems/t_bsd.pas

@@ -98,14 +98,6 @@ implementation
       begin
         { insert sharedlibrary }
 {        current_module.linkothersharedlibs.add(SplitName(module),link_allways); }
-        { force the mangledname }
-        if assigned(aprocdef) then
-          begin
-            if (aprocdef.proccalloption in [pocall_cdecl,pocall_cppdecl]) then
-              aprocdef.setmangledname(target_info.Cprefix+name)
-            else
-              aprocdef.setmangledname(name);
-          end;
       end;
 
 
@@ -142,14 +134,6 @@ procedure timportlibbsd.importprocedure(aprocdef:tprocdef;const module:string;in
 begin
   { insert sharedlibrary }
   current_module.linkothersharedlibs.add(SplitName(module),link_allways);
-  { do nothing with the procedure, only set the mangledname }
-{  if name<>'' then
-   begin
-     aprocdef.setmangledname(name);
-   end
-  else
-    message(parser_e_empty_import_name);
-}
 end;
 
 
@@ -628,7 +612,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.25  2004-11-19 14:21:44  marco
+  Revision 1.26  2004-11-19 16:30:24  peter
+    * fixed setting of mangledname when importing
+
+  Revision 1.25  2004/11/19 14:21:44  marco
    * cycle fix.
 
   Revision 1.24  2004/11/08 22:09:59  peter

compiler/systems/t_macos.pas

@@ -66,13 +66,6 @@ procedure timportlibmacos.importprocedure(aprocdef:tprocdef;const module:string;
 begin
   { insert sharedlibrary }
   current_module.linkothersharedlibs.add(SplitName(module),link_allways);
-  { do nothing with the procedure, only set the mangledname }
-  if name<>'' then
-   begin
-     aprocdef.setmangledname(name);
-   end
-  else
-    message(parser_e_empty_import_name);
 end;
 
 
@@ -252,7 +245,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.14  2004-11-11 19:31:33  peter
+  Revision 1.15  2004-11-19 16:30:24  peter
+    * fixed setting of mangledname when importing
+
+  Revision 1.14  2004/11/11 19:31:33  peter
     * fixed compile of powerpc,sparc,arm
 
   Revision 1.13  2004/10/25 15:38:41  peter

compiler/systems/t_nwl.pas

@@ -150,13 +150,6 @@ procedure timportlibnetwlibc.importprocedure(aprocdef:tprocdef;const module:stri
 begin
   { insert sharedlibrary }
   current_module.linkothersharedlibs.add(SplitName(module),link_allways);
-  { do nothing with the procedure, only set the mangledname }
-  if name<>'' then
-   begin
-     aprocdef.setmangledname(name);
-   end
-  else
-    message(parser_e_empty_import_name);
 end;
 
 
@@ -653,7 +646,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.9  2004-11-08 22:09:59  peter
+  Revision 1.10  2004-11-19 16:30:24  peter
+    * fixed setting of mangledname when importing
+
+  Revision 1.9  2004/11/08 22:09:59  peter
     * tvarsym splitted
 
   Revision 1.8  2004/10/25 15:38:41  peter

compiler/systems/t_nwm.pas

@@ -142,13 +142,6 @@ procedure timportlibnetware.importprocedure(aprocdef:tprocdef;const module:strin
 begin
   { insert sharedlibrary }
   current_module.linkothersharedlibs.add(SplitName(module),link_allways);
-  { do nothing with the procedure, only set the mangledname }
-  if name<>'' then
-   begin
-     aprocdef.setmangledname(name);
-   end
-  else
-    message(parser_e_empty_import_name);
 end;
 
 
@@ -571,7 +564,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.20  2004-11-08 22:09:59  peter
+  Revision 1.21  2004-11-19 16:30:24  peter
+    * fixed setting of mangledname when importing
+
+  Revision 1.20  2004/11/08 22:09:59  peter
     * tvarsym splitted
 
   Revision 1.19  2004/10/25 15:38:41  peter

compiler/systems/t_sunos.pas

@@ -88,13 +88,6 @@ begin
   WriteLN('Import: f:',func,' m:',module,' n:',name);
 {$EndIf}
   current_module.linkothersharedlibs.add(SplitName(module),link_allways);
-  { do nothing with the procedure, only set the mangledname }
-  if name<>'' then
-   begin
-     aprocdef.setmangledname(name);
-   end
-  else
-    message(parser_e_empty_import_name);
 end;
 
 
@@ -498,7 +491,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.14  2004-11-08 22:09:59  peter
+  Revision 1.15  2004-11-19 16:30:24  peter
+    * fixed setting of mangledname when importing
+
+  Revision 1.14  2004/11/08 22:09:59  peter
     * tvarsym splitted
 
   Revision 1.13  2004/11/03 12:04:03  florian