paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-03 18:33:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* setelementn registers32 corrected

Browse Source
This commit is contained in:
pierre 1999-08-23 23:44:05 +00:00
parent cf18a314d1
commit e7d56c97a8
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/tcadd.pas
View File

@ -669,6 +669,13 @@ implementation
if psetdef(ld)^.settype=smallset then
begin
calcregisters(p,1,0,0);
{ are we adding set elements ? }
if p^.right^.treetype=setelementn then
begin
{ we need at least two registers PM }
if p^.registers32<2 then
p^.registers32:=2;
end;
p^.location.loc:=LOC_REGISTER;
end
else
@ -1115,7 +1122,10 @@ implementation
end.
{
$Log$
Revision 1.42 1999-08-07 11:29:27 peter
Revision 1.43 1999-08-23 23:44:05 pierre
* setelementn registers32 corrected
Revision 1.42 1999/08/07 11:29:27 peter
* better fix for muln register allocation
Revision 1.41 1999/08/05 21:58:57 peter