paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 13:50:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed setting of mangledname when importing

Browse Source
This commit is contained in:
peter 2004-11-19 16:30:24 +00:00
parent c1ee8eed7b
commit 1f6d2f6ece
6 changed files with 24 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/systems/t_beos.pas
View File

@ -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

21
compiler/systems/t_bsd.pas
View File

@ -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

12
compiler/systems/t_macos.pas
View File

@ -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

12
compiler/systems/t_nwl.pas
View File

@ -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

12
compiler/systems/t_nwm.pas
View File

@ -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

12
compiler/systems/t_sunos.pas
View File

@ -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