Browse Source

* skip mark_InlineStart, mark_InlineEnd and mark_Position markers
in getnext/lastinstruction

git-svn-id: trunk@11039 -

Jonas Maebe 17 years ago
parent
commit
55d621fea3
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/i386/daopt386.pas

+ 2 - 2
compiler/i386/daopt386.pas

@@ -1016,7 +1016,7 @@ begin
       end;}
   until not(assigned(Current)) or
         (current.typ <> ait_Marker) or
-        not(tai_Marker(current).Kind in [mark_NoPropInfoStart,mark_NoPropInfoEnd]);
+        not(tai_Marker(current).Kind in [mark_NoPropInfoStart,mark_NoPropInfoEnd,mark_InlineStart,mark_InlineEnd,mark_Position]);
   Next := Current;
   if assigned(Current) and
      not((current.typ in SkipInstr) or
@@ -1058,7 +1058,7 @@ begin
       end;}
   until not(assigned(Current)) or
         (current.typ <> ait_Marker) or
-        not(tai_Marker(current).Kind in [mark_NoPropInfoStart,mark_NoPropInfoEnd]);
+        not(tai_Marker(current).Kind in [mark_NoPropInfoStart,mark_NoPropInfoEnd,mark_InlineStart,mark_InlineEnd,mark_Position]);
   if not(assigned(Current)) or
      (current.typ in SkipInstr) or
      ((current.typ = ait_label) and