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

* better fix for muln register allocation

Browse Source
This commit is contained in:
peter 1999-08-07 11:29:26 +00:00
parent 1d5226f856
commit 57cf1e75a7
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg386add.pas
View File

@ -1015,6 +1015,8 @@ implementation
popedx:=false;
{ here you need to free the symbol first }
clear_location(p^.location);
release_loc(p^.right^.location);
release_loc(p^.left^.location);
p^.location.register:=getregister32;
p^.location.loc:=LOC_REGISTER;
{$IfNDef NoShlMul}
@ -2122,7 +2124,10 @@ implementation
end.
{
$Log$
Revision 1.72 1999-08-04 13:45:17 florian
Revision 1.73 1999-08-07 11:29:26 peter
* better fix for muln register allocation
Revision 1.72 1999/08/04 13:45:17 florian
+ floating point register variables !!
* pairegalloc is now generated for register variables

7
compiler/tcadd.pas
View File

@ -505,7 +505,7 @@ implementation
end;
calcregisters(p,1,0,0);
{ for unsigned mul we need an extra register }
p^.registers32:=p^.left^.registers32+p^.right^.registers32;
{ p^.registers32:=p^.left^.registers32+p^.right^.registers32; }
if p^.treetype=muln then
inc(p^.registers32);
convdone:=true;
@ -1115,7 +1115,10 @@ implementation
end.
{
$Log$
Revision 1.41 1999-08-05 21:58:57 peter
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
* fixed register count ord*ord
Revision 1.40 1999/08/04 13:03:13 jonas