paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-01 20:46:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug in tcginnode.pass_2

Browse Source
This commit is contained in:
Jonas Maebe 2003-07-20 18:03:27 +00:00
parent 66fcf33869
commit db3bd69a18
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgset.pas
View File

@ -572,7 +572,7 @@ implementation
hr2 := rg.getaddressregister(exprasmlist);
cg.a_loadaddr_ref_reg(exprasmlist,href, hr2);
reference_reset_base(href,hr2,0);
right.location.reference.index := hr;
href.index := hr;
end;
reference_release(exprasmlist,href);
cg.a_load_ref_reg(exprasmlist,OS_32,OS_32,href,location.register);
@ -1086,7 +1086,10 @@ begin
end.
{
$Log$
Revision 1.44 2003-07-06 14:28:04 jonas
Revision 1.45 2003-07-20 18:03:27 jonas
* fixed bug in tcginnode.pass_2
Revision 1.44 2003/07/06 14:28:04 jonas
* fixed register leak
* changed a couple of case-statements to location_force_reg()