Browse Source

* fixed stupid bug in previous commit

Jonas Maebe 25 years ago
parent
commit
a4928640fc
1 changed files with 6 additions and 3 deletions
  1. 6 3
      compiler/i386/daopt386.pas

+ 6 - 3
compiler/i386/daopt386.pas

@@ -984,7 +984,7 @@ Begin
       End;}
   Until Not(Assigned(Current)) Or
         (Current^.typ <> ait_Marker) Or
-        not(Pai_Marker(Current)^.Kind in [NoPropInfoStart{,NoPropInfoEnd}]);
+        not(Pai_Marker(Current)^.Kind in [NoPropInfoStart,NoPropInfoEnd]);
   Next := Current;
   If Assigned(Current) And
      Not((Current^.typ In SkipInstr) or
@@ -1025,7 +1025,7 @@ Begin
       End;}
   Until Not(Assigned(Current)) Or
         (Current^.typ <> ait_Marker) Or
-        not(Pai_Marker(Current)^.Kind in [NoPropInfoStart{,NoPropInfoEnd}]);
+        not(Pai_Marker(Current)^.Kind in [NoPropInfoStart,NoPropInfoEnd]);
   If Not(Assigned(Current)) or
      (Current^.typ In SkipInstr) or
      ((Current^.typ = ait_label) And
@@ -2443,7 +2443,10 @@ End.
 
 {
   $Log$
-  Revision 1.8  2000-11-23 13:26:33  jonas
+  Revision 1.9  2000-11-23 14:20:18  jonas
+    * fixed stupid bug in previous commit
+
+  Revision 1.8  2000/11/23 13:26:33  jonas
     * fix for webbug 1066/1126
 
   Revision 1.7  2000/11/17 15:22:04  jonas