diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-03-05 22:06:44 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-03-05 22:06:44 +0000 |
commit | c66d1583918344735e9a6371457c5d7a97f20b33 (patch) | |
tree | 7988fc69fbba6e705b4c785554722787a4922a08 /compiler/aoptbase.pas | |
parent | d4171ece511b99914d373a382777f1ce1b332cb7 (diff) | |
download | fpc-c66d1583918344735e9a6371457c5d7a97f20b33.tar.gz |
* fixed ppc compilation
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@2778 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/aoptbase.pas')
-rw-r--r-- | compiler/aoptbase.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/aoptbase.pas b/compiler/aoptbase.pas index 83ad7b34ed..dfc832fdea 100644 --- a/compiler/aoptbase.pas +++ b/compiler/aoptbase.pas @@ -153,7 +153,7 @@ unit aoptbase; ) or {$endif SPARC} ((Current.typ = ait_label) And - Not(Tai_Label(Current).l.is_used))) Do + Not(Tai_Label(Current).labsym.is_used))) Do Current := tai(Current.Next); If Assigned(Current) And (Current.typ = ait_Marker) And @@ -171,7 +171,7 @@ unit aoptbase; If Assigned(Current) And Not((Current.typ In SkipInstr) or ((Current.typ = ait_label) And - Not(Tai_Label(Current).l.is_used))) + Not(Tai_Label(Current).labsym.is_used))) Then GetNextInstruction := True Else Begin @@ -189,7 +189,7 @@ unit aoptbase; Not(Tai_Marker(Current).Kind in [AsmBlockEnd,NoPropInfoEnd])) or (Current.typ In SkipInstr) or ((Current.typ = ait_label) And - Not(Tai_Label(Current).l.is_used))) Do + Not(Tai_Label(Current).labsym.is_used))) Do Current := Tai(Current.previous); If Assigned(Current) And (Current.typ = ait_Marker) And @@ -206,7 +206,7 @@ unit aoptbase; If Not(Assigned(Current)) or (Current.typ In SkipInstr) or ((Current.typ = ait_label) And - Not(Tai_Label(Current).l.is_used)) or + Not(Tai_Label(Current).labsym.is_used)) or ((Current.typ = ait_Marker) And (Tai_Marker(Current).Kind = AsmBlockEnd)) Then |