Browse Source

* fixed small bug introduced with my previous fix

Jonas Maebe 25 years ago
parent
commit
e558713f0c
1 changed files with 5 additions and 1 deletions
  1. 5 1
      compiler/csopt386.pas

+ 5 - 1
compiler/csopt386.pas

@@ -845,6 +845,7 @@ Begin
      inc(counter);
      inc(counter);
      tmpresult := (PPaiProp(p^.OptInfo)^.Regs[Counter].Typ = Con_Const) and
      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)^.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);
        (paicpu(PPaiProp(p^.OptInfo)^.Regs[Counter].StartMod)^.oper[0].val = l);
 {$ifdef testing}
 {$ifdef testing}
      if (PPaiProp(p^.OptInfo)^.Regs[Counter].Typ = Con_Const) then
      if (PPaiProp(p^.OptInfo)^.Regs[Counter].Typ = Con_Const) then
@@ -1191,7 +1192,10 @@ End.
 
 
 {
 {
  $Log$
  $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
    * fixed bug due to lack of support for top_symbol operands
 
 
  Revision 1.44  2000/02/09 13:22:51  peter
  Revision 1.44  2000/02/09 13:22:51  peter