changeset 3052 | 1d60306f6b34 |
parent 3038 | 4e48c276a468 |
child 3075 | b4ef08187d22 |
3051:e39d8fa0e063 | 3052:1d60306f6b34 |
---|---|
376 |
376 |
377 procedure freeModule; |
377 procedure freeModule; |
378 var i: LongWord; |
378 var i: LongWord; |
379 begin |
379 begin |
380 if StoreCnt > 0 then |
380 if StoreCnt > 0 then |
381 for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]); |
381 for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]) |
382 StoreCnt:= 0 |
|
383 end; |
382 end; |
384 |
383 |
385 end. |
384 end. |