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

* fixded fixref() regarding the reallocation of already freed registers

Browse Source 
used in references
This commit is contained in:
Jonas Maebe 2003-11-30 11:32:12 +00:00
parent 08a966d88a
commit 4ac4d2cadb
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/powerpc/cgcpu.pas
View File

@ -2128,10 +2128,9 @@ const
{ a register here, we must first reallocate the index register, since }
{ otherwise it may be overwritten (and it's still used afterwards) }
freeindex := false;
if (getsupreg(ref.index) < first_int_imreg) and
if (ref.index >= first_int_imreg) and
(supregset_in(rgint.unusedregs,getsupreg(ref.index))) then
begin
internalerror(200310191);
rgint.getexplicitregister(list,ref.index);
orgindex := ref.index;
freeindex := true;
@ -2448,7 +2447,11 @@ begin
end.
{
$Log$
Revision 1.138 2003-11-30 10:16:05 jonas
Revision 1.139 2003-11-30 11:32:12 jonas
* fixded fixref() regarding the reallocation of already freed registers
used in references
Revision 1.138 2003/11/30 10:16:05 jonas
* fixed fpu regallocator initialisation
Revision 1.137 2003/11/21 16:29:26 florian