paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 19:09:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* DLL export names are not mangled on Windows (bug #11228).

Browse Source 
git-svn-id: trunk@10836 -
This commit is contained in:
yury 2008-04-28 20:08:19 +00:00
parent 91b87e078a
commit c79fe114a3
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/pexports.pas
View File

@ -189,14 +189,18 @@ implementation
{ if a name is specified? (JM) }
if ((options and eo_name)=0) then
{ Use set mangled name in case of cdecl/cppdecl/mwpascal }
{ if no name specified }
if (tprocdef(tprocsym(srsym).procdeflist[0]).proccalloption in [pocall_cdecl,pocall_mwpascal]) then
hpname:=target_info.cprefix+tprocsym(srsym).realname
else if (tprocdef(tprocsym(srsym).procdeflist[0]).proccalloption in [pocall_cppdecl]) then
hpname:=target_info.cprefix+tprocdef(tprocsym(srsym).procdeflist[0]).cplusplusmangledname
if target_info.system in system_all_windows then
{ Export names are not mangled on Windows }
hpname:=orgs
else
hpname:=orgs;
{ Use set mangled name in case of cdecl/cppdecl/mwpascal }
{ if no name specified }
if (tprocdef(tprocsym(srsym).procdeflist[0]).proccalloption in [pocall_cdecl,pocall_mwpascal]) then
hpname:=target_info.cprefix+tprocsym(srsym).realname
else if (tprocdef(tprocsym(srsym).procdeflist[0]).proccalloption in [pocall_cppdecl]) then
hpname:=target_info.cprefix+tprocdef(tprocsym(srsym).procdeflist[0]).cplusplusmangledname
else
hpname:=orgs;
exportprocsym(srsym,hpname,index,options);
end