- Timestamp:
- Feb 18, 2007, 1:56:38 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/system/gc.sbp
r79 r109 1 /* 2 このファイルでは、ABのガベージコレクションの実装を行います。 3 */ 4 1 5 2 6 /* … … 11 15 12 16 13 'メモリの上限値(この値を超えるとGCが発動します)14 '※バイト単位15 Dim _System_SWEEP_LIMIT_MEMORY = 1024*1024*30 As LONG_PTR16 17 17 Const _System_GC_FLAG_ATOMIC = 1 18 18 Const _System_GC_FLAG_NEEDFREE = 2 … … 30 30 31 31 CriticalSection As CRITICAL_SECTION 32 33 'メモリの上限値(この値を超えるとGCが発動します) 34 '※バイト単位 35 limitMemorySize = 1024*1024*30 As LONG_PTR 32 36 33 37 Public … … 201 205 EnterCriticalSection(CriticalSection) 202 206 203 If iAllSize< _System_SWEEP_LIMIT_MEMORYThen207 If iAllSize<limitMemorySize Then 204 208 'メモリ使用量が上限値を超えていないとき 205 209 LeaveCriticalSection(CriticalSection) … … 280 284 If iBackAllSize=iAllSize Then 281 285 '許容量を拡張する 282 _System_SWEEP_LIMIT_MEMORY*=2286 limitMemorySize*=2 283 287 End If 284 288
Note:
See TracChangeset
for help on using the changeset viewer.