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

- dupplicated code removed

Browse Source
This commit is contained in:
mazen 2003-08-11 14:22:06 +00:00
parent 3f76298b6b
commit f8be2992fd
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncgcal.pas
View File

@ -542,13 +542,11 @@ implementation
{$ifdef newra} {$ifdef newra}
{ the FUNCTION_RESULT_REG is already allocated } { the FUNCTION_RESULT_REG is already allocated }
rg.ungetregisterint(exprasmlist,r); rg.ungetregisterint(exprasmlist,r);
{ change register size after the unget because the getregister { change register size after the unget because the
was done for the full register } getregister was done for the full register }
r:=rg.makeregsize(r,cgsize); r:=rg.makeregsize(r,cgsize);
location.register:=rg.getregisterint(exprasmlist,cgsize); location.register:=rg.getregisterint(exprasmlist,cgsize);
{$else newra} {$else newra}
r.enum:=R_INTREGISTER;
r.number:=NR_FUNCTION_RESULT_REG;
r:=rg.makeregsize(r,cgsize); r:=rg.makeregsize(r,cgsize);
cg.a_reg_alloc(exprasmlist,r); cg.a_reg_alloc(exprasmlist,r);
if RS_FUNCTION_RESULT_REG in rg.unusedregsint then if RS_FUNCTION_RESULT_REG in rg.unusedregsint then
@ -1543,7 +1541,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.103 2003-07-23 11:01:14 jonas Revision 1.104 2003-08-11 14:22:06 mazen
- dupplicated code removed
Revision 1.103 2003/07/23 11:01:14 jonas
* several rg.allocexplicitregistersint/rg.deallocexplicitregistersint * several rg.allocexplicitregistersint/rg.deallocexplicitregistersint
pairs round calls to helpers pairs round calls to helpers