paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reverted r11039, it's no good

Browse Source 
git-svn-id: trunk@11048 -
This commit is contained in:
Jonas Maebe 2008-05-23 07:55:16 +00:00
parent 0ad7cfe39b
commit 73a3507bac
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;} end;}
until not(assigned(Current)) or until not(assigned(Current)) or
(current.typ <> ait_Marker) or (current.typ <> ait_Marker) or
not(tai_Marker(current).Kind in [mark_NoPropInfoStart,mark_NoPropInfoEnd,mark_InlineStart,mark_InlineEnd,mark_Position]); not(tai_Marker(current).Kind in [mark_NoPropInfoStart,mark_NoPropInfoEnd]);
Next := Current; Next := Current;
if assigned(Current) and if assigned(Current) and
not((current.typ in SkipInstr) or not((current.typ in SkipInstr) or
@ -1058,7 +1058,7 @@ begin
end;} end;}
until not(assigned(Current)) or until not(assigned(Current)) or
(current.typ <> ait_Marker) or (current.typ <> ait_Marker) or
not(tai_Marker(current).Kind in [mark_NoPropInfoStart,mark_NoPropInfoEnd,mark_InlineStart,mark_InlineEnd,mark_Position]); not(tai_Marker(current).Kind in [mark_NoPropInfoStart,mark_NoPropInfoEnd]);
if not(assigned(Current)) or if not(assigned(Current)) or
(current.typ in SkipInstr) or (current.typ in SkipInstr) or
((current.typ = ait_label) and ((current.typ = ait_label) and