Ignore:
Timestamp:
Oct 24, 2007, 12:32:20 AM (17 years ago)
Author:
イグトランス (egtra)
Message:

FormatFloatFを実装

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Include/system/gc.sbp

    r362 r364  
    8383        If GetEnvironmentVariable( "ActiveBasicGarbageCollection", temporary, 255 ) Then
    8484            ' 既にGCがプロセスに存在するとき
    85             sscanf( temporary, "%08x", VarPtr( _System_pGC ) )
     85            _stscanf( temporary, "%08x", VarPtr( _System_pGC ) )
    8686            MessageBox(0,temporary,"GetEnvironmentVariable",0)
    8787        Else
     
    9090
    9191            ' GCをプロセスに登録する
    92             sprintf( temporary, "%08x", _System_pGC )
     92            _stprintf( temporary, "%08x", _System_pGC )
    9393            SetEnvironmentVariable( "ActiveBasicGarbageCollection", temporary )
    9494        End If
     
    209209            ' メモリイメージが壊れている(先頭に存在するインデックスの整合性が取れない)
    210210            Dim temporary[1024] As Char
     211#ifdef _WIN64
     212            'wsprintfでは、Windows 2000以降でしか%pが使えない。
     213            wsprintf( temporary, Ex"indexOfMemoryObjects: %d\r\npMemoryObjects[index].ptr: &H%p\r\nptr: &H%p\r\n",
     214                index,
     215                pMemoryObjects[index].ptr,
     216                ptr )
     217#else
    211218            wsprintf( temporary, Ex"indexOfMemoryObjects: %d\r\npMemoryObjects[index].ptr: &H%08x\r\nptr: &H%08x\r\n",
    212219                index,
    213220                pMemoryObjects[index].ptr,
    214221                ptr )
     222#endif
    215223            _System_DebugOnly_OutputDebugString( temporary )
    216224            debug
     
    677685                    Dim temp[100] As Char
    678686                    _System_DebugOnly_OutputDebugString( Ex"heap free missing!\r\n" )
     687#ifdef _WIN64
     688                    wsprintf(temp,Ex"{%d} normal block at &H%p, %d bytes long.\r\n", i, pMemoryObjects[i].ptr, pMemoryObjects[i].size)
     689#else
    679690                    wsprintf(temp,Ex"{%d} normal block at &H%08X, %d bytes long.\r\n", i, pMemoryObjects[i].ptr, pMemoryObjects[i].size)
     691#endif
    680692                    _System_DebugOnly_OutputDebugString( temp )
    681693                End If
Note: See TracChangeset for help on using the changeset viewer.