paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 11:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed calling of external procedures if the first time they are used in a

Browse Source 
compilation unit is in an expression which merely takes their address

git-svn-id: trunk@439 -
This commit is contained in:
Jonas Maebe 2005-06-18 09:06:07 +00:00
parent 392eaa6fb5
commit 7356f83713
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/powerpc/cgcpu.pas
View File

@ -352,12 +352,15 @@ const
l1: tasmsymbol;
begin
{ function declared in the current unit? }
result := objectlibrary.getasmsymbol(s);
{ doesn't work correctly, because this will also return a hit if we }
{ previously took the address of an external procedure. It doesn't }
{ really matter, the linker will remove all unnecessary stubs. }
{ result := objectlibrary.getasmsymbol(s);
if not(assigned(result)) then
begin
begin }
stubname := 'L'+s+'$stub';
result := objectlibrary.getasmsymbol(stubname);
end;
{ end; }
if assigned(result) then
exit;