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

* add reg_sync when regvars are allocated to fix first use in

Browse Source 
loop
This commit is contained in:
peter 2004-10-14 17:54:06 +00:00
parent 8c85454cf9
commit a4c5a55d1b
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncgutil.pas
View File

@ -1913,6 +1913,9 @@ implementation
else
internalerror(2004101010);
end;
{ Allocate register already, to prevent first allocation to be
inside a loop }
cg.a_reg_sync(list,localloc.register);
end
else
{$endif NOT OLDREGVARS}
@ -2219,7 +2222,11 @@ implementation
end.
{
$Log$
Revision 1.227 2004-10-13 21:12:51 peter
Revision 1.228 2004-10-14 17:54:06 peter
* add reg_sync when regvars are allocated to fix first use in
loop
Revision 1.227 2004/10/13 21:12:51 peter
* -Or fixes for open array
Revision 1.226 2004/10/11 15:48:15 peter