소스 검색

* In MacPas mode, externals have realname with target_info Cprefix

git-svn-id: trunk@16330 -
pierre 15 년 전
부모
커밋
2003c2af70
1개의 변경된 파일3개의 추가작업 그리고 1개의 파일을 삭제
  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;