changeset 2796 | 7f86e7ad378b |
parent 2769 | 82bfcc006afb |
child 2818 | df7ec369992b |
2795:c9c830897547 | 2796:7f86e7ad378b |
---|---|
370 end; |
370 end; |
371 |
371 |
372 procedure free_uAmmos; |
372 procedure free_uAmmos; |
373 var i: LongWord; |
373 var i: LongWord; |
374 begin |
374 begin |
375 for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]); |
375 if StoreCnt > 0 then |
376 for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]); |
|
376 StoreCnt:= 0 |
377 StoreCnt:= 0 |
377 end; |
378 end; |
378 |
379 |
379 end. |
380 end. |