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

* fix from Jonas.

Browse Source
This commit is contained in:
marco 2003-08-16 18:56:40 +00:00
parent 2e6d07b89e
commit c461204cdc
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgcal.pas
View File

@ -1043,11 +1043,12 @@ implementation
cg.a_load_reg_reg(exprasmlist,OS_ADDR,OS_ADDR,
right.location.reference.base,helpref.base);
end;
reference_release(exprasmlist,helpref);
end
else
rg.ungetregisterint(exprasmlist,right.location.register);
reference_release(exprasmlist,helpref);
location_freetemp(exprasmlist,right.location);
{$endif newra}
@ -1583,7 +1584,10 @@ begin
end.
{
$Log$
Revision 1.105 2003-08-11 21:18:20 peter
Revision 1.106 2003-08-16 18:56:40 marco
* fix from Jonas.
Revision 1.105 2003/08/11 21:18:20 peter
* start of sparc support for newra
Revision 1.104 2003/08/11 14:22:06 mazen