Explorar o código

* In MacPas mode, externals have realname with target_info Cprefix

git-svn-id: trunk@16330 -
pierre %!s(int64=15) %!d(string=hai) anos
pai
achega
2003c2af70
Modificáronse 1 ficheiros con 3 adicións e 1 borrados
  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;