paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 03:19:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

* skip mark_InlineStart, mark_InlineEnd and mark_Position markers

Browse Source 
in getnext/lastinstruction

git-svn-id: trunk@11039 -
This commit is contained in:
Jonas Maebe 2008-05-22 17:29:30 +00:00
parent b01454d2a3
commit 55d621fea3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/i386/daopt386.pas
View File

@ -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