Changeset 259 for Include


Ignore:
Timestamp:
May 23, 2007, 2:57:38 AM (17 years ago)
Author:
dai
Message:

リリースコンパイル時にGC及び動的型情報に関するデバッグ出力を行わないようにした。

Location:
Include
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/TypeInfo.ab

    r250 r259  
    266266        selfTypeInfo = _System_TypeBase.Search( "System", "TypeInfo" ) As TypeInfo
    267267
    268         OutputDebugString( Ex"ready dynamic meta datas!\r\n" )
     268        _System_DebugOnly_OutputDebugString( Ex"ready dynamic meta datas!\r\n" )
    269269    End Sub
    270270
  • Include/system/debug.sbp

    r140 r259  
    8484    MessageBox( NULL, "esp is wrong value.", "debug check error", MB_OK or MB_ICONEXCLAMATION )
    8585End Sub
     86
     87Sub _System_DebugOnly_OutputDebugString(buffer As *Char)
     88#ifdef _DEBUG
     89    OutputDebugString(buffer)
     90#endif
     91End Sub
  • Include/system/gc.sbp

    r249 r259  
    126126        '_System_pobj_AllThreads->SuspendAnotherThread()
    127127
    128         OutputDebugString( Ex"garbage colletion sweeping all memory objects!\r\n" )
     128        _System_DebugOnly_OutputDebugString( Ex"garbage colletion sweeping all memory objects!\r\n" )
    129129        DeleteAllGarbageMemories()
    130130
     
    216216                    Else
    217217                        If isFinish = False Then
    218                             OutputDebugString( Ex"heap free missing!\r\n" )
     218                            _System_DebugOnly_OutputDebugString( Ex"heap free missing!\r\n" )
    219219                        End If
    220220                    End If
     
    319319                Context.ContextFlags=CONTEXT_CONTROL
    320320                If _System_pobj_AllThreads->ppobj_Thread[i]->__GetContext(Context)=0 Then
    321                     OutputDebugString(Ex"レジスタ情報の取得に失敗しました。\r\n")
     321                    _System_DebugOnly_OutputDebugString(Ex"レジスタ情報の取得に失敗しました。\r\n")
    322322                End If
    323323
     
    413413        Dim startTime = GetTickCount()
    414414
    415         OutputDebugString( Ex"garbage colletion sweep start!\r\n" )
     415        _System_DebugOnly_OutputDebugString( Ex"garbage colletion sweep start!\r\n" )
    416416
    417417
     
    460460            limitMemoryObjectNum *= 2
    461461
    462             OutputDebugString( Ex"memory size is extended for gc!\r\n" )
     462            _System_DebugOnly_OutputDebugString( Ex"memory size is extended for gc!\r\n" )
    463463        End If
    464464
    465465        Dim temp[100] As Char
    466466        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 )
    468468        wsprintf(temp,Ex"limit size of memory ... %d\r\n",limitMemorySize)
    469         OutputDebugString( temp )
     469        _System_DebugOnly_OutputDebugString( temp )
    470470        wsprintf(temp,Ex"garbage colletion sweep finish! (%d ms)\r\n\r\n", GetTickCount()-startTime)
    471         OutputDebugString( temp )
     471        _System_DebugOnly_OutputDebugString( temp )
    472472
    473473
     
    488488                If (pdwFlags[i] and _System_GC_FLAG_NEEDFREE)<>0 Then
    489489                    If isLeak = False Then
    490                         OutputDebugString( Ex"Detected memory leaks!\r\n" )
     490                        _System_DebugOnly_OutputDebugString( Ex"Detected memory leaks!\r\n" )
    491491                        isLeak = True
    492492                    End If
    493493
    494494                    Dim temp[100] As Char
    495                     OutputDebugString( Ex"heap free missing!\r\n" )
     495                    _System_DebugOnly_OutputDebugString( Ex"heap free missing!\r\n" )
    496496                    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 )
    498498                End If
    499499            End If
     
    501501
    502502        If isLeak Then
    503             OutputDebugString( Ex"Object dump complete.\r\n" )
     503            _System_DebugOnly_OutputDebugString( Ex"Object dump complete.\r\n" )
    504504        End If
    505505
Note: See TracChangeset for help on using the changeset viewer.