equal
deleted
inserted
replaced
148 if (Gear <> GearsList) and (Gear <> nil) and (Gear^.NextGear = nil) and (Gear^.PrevGear = nil) then |
148 if (Gear <> GearsList) and (Gear <> nil) and (Gear^.NextGear = nil) and (Gear^.PrevGear = nil) then |
149 begin |
149 begin |
150 AddFileLog('Attempted to remove Gear #'+inttostr(Gear^.uid)+' from the list twice.'); |
150 AddFileLog('Attempted to remove Gear #'+inttostr(Gear^.uid)+' from the list twice.'); |
151 exit |
151 exit |
152 end; |
152 end; |
153 TryDo((Gear = nil) or (curHandledGear = nil) or (Gear = curHandledGear), 'You''re doing it wrong', true); |
153 |
|
154 checkFails((Gear = nil) or (curHandledGear = nil) or (Gear = curHandledGear), 'You''re doing it wrong', true); |
154 |
155 |
155 if Gear^.NextGear <> nil then |
156 if Gear^.NextGear <> nil then |
156 Gear^.NextGear^.PrevGear:= Gear^.PrevGear; |
157 Gear^.NextGear^.PrevGear:= Gear^.PrevGear; |
157 if Gear^.PrevGear <> nil then |
158 if Gear^.PrevGear <> nil then |
158 Gear^.PrevGear^.NextGear:= Gear^.NextGear |
159 Gear^.PrevGear^.NextGear:= Gear^.NextGear |