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

* fixed stupid typo!

Browse Source
This commit is contained in:
Jonas Maebe 2000-02-10 16:04:43 +00:00
parent 3385467467
commit 9e85007190
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/csopt386.pas
View File

@ -845,7 +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].typ = top_const) and
(paicpu(PPaiProp(p^.OptInfo)^.Regs[Counter].StartMod)^.oper[0].val = l);
{$ifdef testing}
if (PPaiProp(p^.OptInfo)^.Regs[Counter].Typ = Con_Const) then
@ -1192,7 +1192,10 @@ End.
{
$Log$
Revision 1.46 2000-02-10 15:07:41 jonas
Revision 1.47 2000-02-10 16:04:43 jonas
* fixed stupid typo!
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