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

* export names aren't mangled under OS/2 either (follow-up

Browse Source 
to r10836, see proc_get_importname in pdecsub.pas)

git-svn-id: trunk@10838 -
This commit is contained in:
Jonas Maebe 2008-04-29 19:08:02 +00:00
parent c79fe114a3
commit 2f25c4422b
1 changed files with 9 additions and 10 deletions

19
compiler/pexports.pas
View File

@ -189,18 +189,17 @@ implementation
{ if a name is specified? (JM) }
if ((options and eo_name)=0) then
if target_info.system in system_all_windows then
{ Export names are not mangled on Windows }
{ Export names are not mangled on Windows and OS/2 }
if (target_info.system in (system_all_windows+[system_i386_emx, system_i386_os2])) then
hpname:=orgs
{ Use set mangled name in case of cdecl/cppdecl/mwpascal }
{ and no name specified }
else 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
{ 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;
hpname:=orgs;
exportprocsym(srsym,hpname,index,options);
end