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

* only set the mangled name immediately for external procedures in macpas

Browse Source 
mode if the procedure isn't cdecl (so that the c-prefix is taken into
    account, necessary for Mac OS X)
This commit is contained in:
Jonas Maebe 2004-08-13 17:53:37 +00:00
parent 973bf7028d
commit 25c2441fa5
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pdecsub.pas
View File

@ -1260,7 +1260,10 @@ begin
else if (m_mac in aktmodeswitches) and (token=_SEMICOLON) then else if (m_mac in aktmodeswitches) and (token=_SEMICOLON) then
begin begin
{In MacPas a single "external" has the same effect as "external name 'xxx'"} {In MacPas a single "external" has the same effect as "external name 'xxx'"}
tprocdef(pd).setmangledname(tprocdef(pd).procsym.realname); { don't do this if the procedure is also cdecl; in that case the c-prefix }
{ must also be used (handled later) }
if not(pd.proccalloption in [pocall_cdecl,pocall_cppdecl]) then
tprocdef(pd).setmangledname(tprocdef(pd).procsym.realname);
end; end;
end; end;
end; end;
@ -2266,7 +2269,12 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.185 2004-08-08 12:35:09 florian Revision 1.186 2004-08-13 17:53:37 jonas
* only set the mangled name immediately for external procedures in macpas
mode if the procedure isn't cdecl (so that the c-prefix is taken into
account, necessary for Mac OS X)
Revision 1.185 2004/08/08 12:35:09 florian
* proc. var declarations in a class doesn't eat a public anymore * proc. var declarations in a class doesn't eat a public anymore
Revision 1.184 2004/07/17 13:51:57 florian Revision 1.184 2004/07/17 13:51:57 florian