paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 21:31:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed importing of cdecl routines for OS'es which have a cprefix

Browse Source
This commit is contained in:
Jonas Maebe 2004-11-22 12:22:25 +00:00
parent e3812e3683
commit a7d7a49615
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecsub.pas
View File

@ -1832,7 +1832,10 @@ const
(target_info.system in [system_i386_win32,system_i386_wdosx, (target_info.system in [system_i386_win32,system_i386_wdosx,
system_i386_emx,system_i386_os2]) system_i386_emx,system_i386_os2])
) then ) then
pd.setmangledname(pd.import_name^); if not(pd.proccalloption in [pocall_cdecl,pocall_cppdecl]) then
pd.setmangledname(pd.import_name^)
else
pd.setmangledname(target_info.Cprefix+pd.import_name^);
end end
else else
begin begin
@ -2346,7 +2349,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.212 2004-11-21 17:54:59 peter Revision 1.213 2004-11-22 12:22:25 jonas
* fixed importing of cdecl routines for OS'es which have a cprefix
Revision 1.212 2004/11/21 17:54:59 peter
* ttempcreatenode.create_reg merged into .create with parameter * ttempcreatenode.create_reg merged into .create with parameter
whether a register is allowed whether a register is allowed
* funcret_paraloc renamed to funcretloc * funcret_paraloc renamed to funcretloc