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

* In MacPas mode, externals have realname with target_info Cprefix

Browse Source 
git-svn-id: trunk@16330 -
This commit is contained in:
pierre 2010-11-12 22:00:46 +00:00
parent de51c4734c
commit 2003c2af70
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecsub.pas
View File

@ -2473,8 +2473,10 @@ const
else else
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'" }
{ but according to MacPas mode description
Cprefix should still be used PM }
if (m_mac in current_settings.modeswitches) then if (m_mac in current_settings.modeswitches) then
result:=tprocdef(pd).procsym.realname; result:=target_info.Cprefix+tprocdef(pd).procsym.realname;
end; end;
end; end;
end; end;