Changeset 259
- Timestamp:
- May 23, 2007, 2:57:38 AM (17 years ago)
- Location:
- Include
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/TypeInfo.ab
r250 r259 266 266 selfTypeInfo = _System_TypeBase.Search( "System", "TypeInfo" ) As TypeInfo 267 267 268 OutputDebugString( Ex"ready dynamic meta datas!\r\n" )268 _System_DebugOnly_OutputDebugString( Ex"ready dynamic meta datas!\r\n" ) 269 269 End Sub 270 270 -
Include/system/debug.sbp
r140 r259 84 84 MessageBox( NULL, "esp is wrong value.", "debug check error", MB_OK or MB_ICONEXCLAMATION ) 85 85 End Sub 86 87 Sub _System_DebugOnly_OutputDebugString(buffer As *Char) 88 #ifdef _DEBUG 89 OutputDebugString(buffer) 90 #endif 91 End Sub -
Include/system/gc.sbp
r249 r259 126 126 '_System_pobj_AllThreads->SuspendAnotherThread() 127 127 128 OutputDebugString( Ex"garbage colletion sweeping all memory objects!\r\n" )128 _System_DebugOnly_OutputDebugString( Ex"garbage colletion sweeping all memory objects!\r\n" ) 129 129 DeleteAllGarbageMemories() 130 130 … … 216 216 Else 217 217 If isFinish = False Then 218 OutputDebugString( Ex"heap free missing!\r\n" )218 _System_DebugOnly_OutputDebugString( Ex"heap free missing!\r\n" ) 219 219 End If 220 220 End If … … 319 319 Context.ContextFlags=CONTEXT_CONTROL 320 320 If _System_pobj_AllThreads->ppobj_Thread[i]->__GetContext(Context)=0 Then 321 OutputDebugString(Ex"レジスタ情報の取得に失敗しました。\r\n")321 _System_DebugOnly_OutputDebugString(Ex"レジスタ情報の取得に失敗しました。\r\n") 322 322 End If 323 323 … … 413 413 Dim startTime = GetTickCount() 414 414 415 OutputDebugString( Ex"garbage colletion sweep start!\r\n" )415 _System_DebugOnly_OutputDebugString( Ex"garbage colletion sweep start!\r\n" ) 416 416 417 417 … … 460 460 limitMemoryObjectNum *= 2 461 461 462 OutputDebugString( Ex"memory size is extended for gc!\r\n" )462 _System_DebugOnly_OutputDebugString( Ex"memory size is extended for gc!\r\n" ) 463 463 End If 464 464 465 465 Dim temp[100] As Char 466 466 wsprintf(temp,Ex"object items ... %d -> %d ( %d MB -> %d MB )\r\n",iBeforeN,n, iBackAllSize\1024\1024, iAllSize\1024\1024) 467 OutputDebugString( temp )467 _System_DebugOnly_OutputDebugString( temp ) 468 468 wsprintf(temp,Ex"limit size of memory ... %d\r\n",limitMemorySize) 469 OutputDebugString( temp )469 _System_DebugOnly_OutputDebugString( temp ) 470 470 wsprintf(temp,Ex"garbage colletion sweep finish! (%d ms)\r\n\r\n", GetTickCount()-startTime) 471 OutputDebugString( temp )471 _System_DebugOnly_OutputDebugString( temp ) 472 472 473 473 … … 488 488 If (pdwFlags[i] and _System_GC_FLAG_NEEDFREE)<>0 Then 489 489 If isLeak = False Then 490 OutputDebugString( Ex"Detected memory leaks!\r\n" )490 _System_DebugOnly_OutputDebugString( Ex"Detected memory leaks!\r\n" ) 491 491 isLeak = True 492 492 End If 493 493 494 494 Dim temp[100] As Char 495 OutputDebugString( Ex"heap free missing!\r\n" )495 _System_DebugOnly_OutputDebugString( Ex"heap free missing!\r\n" ) 496 496 wsprintf(temp,Ex"{%d} normal block at &H%08X, %d bytes long.\r\n", i, ppPtr[i], pSize[i]) 497 OutputDebugString( temp )497 _System_DebugOnly_OutputDebugString( temp ) 498 498 End If 499 499 End If … … 501 501 502 502 If isLeak Then 503 OutputDebugString( Ex"Object dump complete.\r\n" )503 _System_DebugOnly_OutputDebugString( Ex"Object dump complete.\r\n" ) 504 504 End If 505 505
Note:
See TracChangeset
for help on using the changeset viewer.