Browse Source

* In MacPas mode, externals have realname with target_info Cprefix

git-svn-id: trunk@16330 -
pierre 14 years ago
parent
commit
2003c2af70
1 changed files with 3 additions and 1 deletions
  1. 3 1
      compiler/pdecsub.pas

+ 3 - 1
compiler/pdecsub.pas

@@ -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;