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

* in_inc_x register allocation corrected

Browse Source
This commit is contained in:
pierre 1999-08-23 23:41:04 +00:00
parent a7bc2dfb17
commit 71bcdce000
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/tcinl.pas
View File

@ -558,7 +558,7 @@ implementation
{ need we an additional register ? }
if not(is_constintnode(p^.left^.right^.left)) and
(p^.left^.right^.left^.location.loc in [LOC_MEM,LOC_REFERENCE]) and
(p^.left^.right^.left^.registers32<1) then
(p^.left^.right^.left^.registers32<=1) then
inc(p^.registers32);
if assigned(p^.left^.right^.right) then
@ -1121,7 +1121,10 @@ implementation
end.
{
$Log$
Revision 1.47 1999-08-06 12:43:13 jonas
Revision 1.48 1999-08-23 23:41:04 pierre
* in_inc_x register allocation corrected
Revision 1.47 1999/08/06 12:43:13 jonas
* fix for regvars with the val code
Revision 1.46 1999/08/05 16:53:23 peter