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

* allocate registers which hold function result

Browse Source
This commit is contained in:
Jonas Maebe 2000-10-24 12:47:45 +00:00
parent a4fde73649
commit 207574e923
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/i386/cgai386.pas
View File

@ -2337,11 +2337,13 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
if (procinfo^.returntype.def^.deftype in [orddef,enumdef]) then
begin
uses_eax:=true;
exprasmlist^.concat(new(pairegalloc,alloc(R_EAX)));
case procinfo^.returntype.def^.size of
8:
begin
emit_ref_reg(A_MOV,S_L,hr,R_EAX);
hr:=new_reference(procinfo^.framepointer,procinfo^.return_offset+4);
exprasmlist^.concat(new(pairegalloc,alloc(R_EDX)));
emit_ref_reg(A_MOV,S_L,hr,R_EDX);
uses_edx:=true;
end;
@ -2360,6 +2362,7 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
if ret_in_acc(procinfo^.returntype.def) then
begin
uses_eax:=true;
exprasmlist^.concat(new(pairegalloc,alloc(R_EAX)));
emit_ref_reg(A_MOV,S_L,hr,R_EAX);
end
else
@ -2462,10 +2465,12 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
getlabel(noreraiselabel);
emitcall('FPC_POPADDRSTACK');
exprasmlist^.concat(new(pairegalloc,alloc(R_EAX)));
exprasmlist^.concat(new(paicpu,
op_reg(A_POP,S_L,R_EAX)));
exprasmlist^.concat(new(paicpu,
op_reg_reg(A_TEST,S_L,R_EAX,R_EAX)));
ungetregister32(R_EAX);
emitjmp(C_E,noreraiselabel);
if (aktprocsym^.definition^.proctypeoption=potype_constructor) then
begin
@ -2557,6 +2562,7 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end;
emitlab(okexitlabel);
exprasmlist^.concat(new(pairegalloc,alloc(R_EAX)));
emit_reg_reg(A_MOV,S_L,R_ESI,R_EAX);
emit_reg_reg(A_TEST,S_L,R_ESI,R_ESI);
uses_eax:=true;
@ -2624,9 +2630,15 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
if uses_esi then
exprasmlist^.concat(new(paicpu,op_reg_ref(A_MOV,S_L,R_ESI,new_reference(R_ESP,16))));
if uses_edx then
exprasmlist^.concat(new(paicpu,op_reg_ref(A_MOV,S_L,R_EDX,new_reference(R_ESP,12))));
begin
exprasmlist^.concat(new(pairegalloc,alloc(R_EAX)));
exprasmlist^.concat(new(paicpu,op_reg_ref(A_MOV,S_L,R_EDX,new_reference(R_ESP,12))));
end;
if uses_eax then
exprasmlist^.concat(new(paicpu,op_reg_ref(A_MOV,S_L,R_EAX,new_reference(R_ESP,0))));
begin
exprasmlist^.concat(new(pairegalloc,alloc(R_EAX)));
exprasmlist^.concat(new(paicpu,op_reg_ref(A_MOV,S_L,R_EAX,new_reference(R_ESP,0))));
end;
generate_interrupt_stackframe_exit;
end
else
@ -2801,7 +2813,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end.
{
$Log$
Revision 1.3 2000-10-24 08:54:25 michael
Revision 1.4 2000-10-24 12:47:45 jonas
* allocate registers which hold function result
Revision 1.3 2000/10/24 08:54:25 michael
+ Extra patch from peter
Revision 1.2 2000/10/24 07:20:03 pierre