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

* fixed small bug introduced with my previous fix

Browse Source
This commit is contained in:
Jonas Maebe 2000-02-10 15:07:41 +00:00
parent 8a40388de3
commit e558713f0c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/csopt386.pas
View File

@ -845,6 +845,7 @@ Begin
inc(counter);
tmpresult := (PPaiProp(p^.OptInfo)^.Regs[Counter].Typ = Con_Const) and
(paicpu(PPaiProp(p^.OptInfo)^.Regs[Counter].StartMod)^.opsize = size) and
(paicpu(PPaiProp(p^.OptInfo)^.Regs[Counter].StartMod)^.oper[0].typ = top_const);
(paicpu(PPaiProp(p^.OptInfo)^.Regs[Counter].StartMod)^.oper[0].val = l);
{$ifdef testing}
if (PPaiProp(p^.OptInfo)^.Regs[Counter].Typ = Con_Const) then
@ -1191,7 +1192,10 @@ End.
{
$Log$
Revision 1.45 2000-02-10 14:57:13 jonas
Revision 1.46 2000-02-10 15:07:41 jonas
* fixed small bug introduced with my previous fix
Revision 1.45 2000/02/10 14:57:13 jonas
* fixed bug due to lack of support for top_symbol operands
Revision 1.44 2000/02/09 13:22:51 peter