paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:49:23 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pexports.pas
View File

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