paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-17 12:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 2060 via svnmerge from

Browse Source 
svn+ssh://jonas@svn.freepascal.org/FPC/svn/fpc/trunk

r2060 (jonas)
  * don't change the binding of real external symbols in the patch
    of r2058, fixes the binary writer

git-svn-id: branches/fixes_2_0@2061 -
This commit is contained in:
Jonas Maebe 2005-12-27 09:55:28 +00:00
parent 663d227178
commit d1d38d7078
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/psub.pas
View File

@ -1338,11 +1338,17 @@ implementation
constsymtable:=oldconstsymtable;
{ make sure that references to forward-declared functions are not }
{ treated as references to external symbols, needed for darwin }
if (po_global in pd.procoptions) then
objectlibrary.newasmsymbol(pd.mangledname,AB_GLOBAL,AT_FUNCTION)
else
objectlibrary.newasmsymbol(pd.mangledname,AB_LOCAL,AT_FUNCTION);
{ treated as references to external symbols, needed for darwin. }
{ make sure we don't change the binding of real external symbols }
if not(po_external in pd.procoptions) then
begin
if (po_global in pd.procoptions) or
(cs_profile in aktmoduleswitches) then
objectlibrary.newasmsymbol(pd.mangledname,AB_GLOBAL,AT_FUNCTION)
else
objectlibrary.newasmsymbol(pd.mangledname,AB_LOCAL,AT_FUNCTION);
end;
current_procinfo:=old_current_procinfo;
end;