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

* when searching for constants in registers, the returned register

Browse Source 
sometimes didn't have the same size as the requested size
This commit is contained in:
Jonas Maebe 2000-12-05 09:33:42 +00:00
parent 8e1fa5b1de
commit 72bc010795
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/i386/csopt386.pas
View File

@ -1253,7 +1253,8 @@ Begin
end;
{$endif testing}
until tmpresult or (Counter = R_EDI);
res := counter;
if tmpResult then
res := paicpu(PPaiProp(p^.OptInfo)^.Regs[Counter].StartMod)^.oper[1].reg;
FindRegWithConst := tmpResult;
End;
@ -1701,7 +1702,11 @@ End.
{
$Log$
Revision 1.8 2000-11-29 00:30:43 florian
Revision 1.9 2000-12-05 09:33:42 jonas
* when searching for constants in registers, the returned register
sometimes didn't have the same size as the requested size
Revision 1.8 2000/11/29 00:30:43 florian
* unused units removed from uses clause
* some changes for widestrings