paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +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
begin
{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
result:=tprocdef(pd).procsym.realname;
result:=target_info.Cprefix+tprocdef(pd).procsym.realname;
end;
end;
end;