equal
deleted
inserted
replaced
1034 end |
1034 end |
1035 end; |
1035 end; |
1036 |
1036 |
1037 //////////////////////////////////////////////////////////////////////////////// |
1037 //////////////////////////////////////////////////////////////////////////////// |
1038 procedure doStepHedgehogFree(Gear: PGear); |
1038 procedure doStepHedgehogFree(Gear: PGear); |
1039 var prevState,i: Longword; |
1039 var prevState: Longword; |
1040 begin |
1040 begin |
1041 prevState:= Gear^.State; |
1041 prevState:= Gear^.State; |
1042 |
1042 |
1043 doStepHedgehogMoving(Gear); |
1043 doStepHedgehogMoving(Gear); |
1044 |
1044 |