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

Override tcallnode.pass_1 for use of got for cdecl'ared functions (assuming it can be PIC code)

Browse Source 
git-svn-id: trunk@21797 -
This commit is contained in:
pierre 2012-07-05 21:18:16 +00:00
parent c53d07f741
commit 56b4977858
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/mips/ncpucall.pas
View File

@ -26,10 +26,11 @@ unit ncpucall;
interface
uses
ncgcal;
node, ncgcal;
type
tMIPSELcallnode = class(tcgcallnode)
function pass_1 : tnode; override;
procedure extra_call_code; override;
procedure extra_post_call_code; override;
end;
@ -38,11 +39,20 @@ type
implementation
uses
cpubase,
globtype,cpubase,procinfo,
aasmtai,aasmcpu,aasmdata,
paramgr,
ncal;
function TMIPSELcallnode.pass_1 : tnode;
begin
pass_1 := inherited pass_1;
if assigned(current_procinfo) and
assigned(procdefinition) and
(procdefinition.proccalloption=pocall_cdecl) then
include(current_procinfo.flags,pi_needs_got);
end;
procedure tMIPSELcallnode.extra_call_code;
begin
{ MIPS functions should never modify the stack pointer