Changeset 364 for trunk/Include/system/gc.sbp

Timestamp:

Oct 24, 2007, 12:32:20 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

FormatFloatFを実装

File:

• trunk/Include/system/gc.sbp (modified) (4 diffs)

trunk/Include/system/gc.sbp

@@ -83 +83 @@
         If GetEnvironmentVariable( "ActiveBasicGarbageCollection", temporary, 255 ) Then
             ' 既にGCがプロセスに存在するとき
-            sscanf( temporary, "%08x", VarPtr( _System_pGC ) )
+            _stscanf( temporary, "%08x", VarPtr( _System_pGC ) )
             MessageBox(0,temporary,"GetEnvironmentVariable",0)
         Else
@@ -90 +90 @@
 
             ' GCをプロセスに登録する
-            sprintf( temporary, "%08x", _System_pGC )
+            _stprintf( temporary, "%08x", _System_pGC )
             SetEnvironmentVariable( "ActiveBasicGarbageCollection", temporary )
         End If
@@ -209 +209 @@
             ' メモリイメージが壊れている（先頭に存在するインデックスの整合性が取れない）
             Dim temporary[1024] As Char
+#ifdef _WIN64
+            'wsprintfでは、Windows 2000以降でしか%pが使えない。
+            wsprintf( temporary, Ex"indexOfMemoryObjects: %d\r\npMemoryObjects[index].ptr: &H%p\r\nptr: &H%p\r\n",
+                index,
+                pMemoryObjects[index].ptr,
+                ptr )
+#else
             wsprintf( temporary, Ex"indexOfMemoryObjects: %d\r\npMemoryObjects[index].ptr: &H%08x\r\nptr: &H%08x\r\n",
                 index,
                 pMemoryObjects[index].ptr,
                 ptr )
+#endif
             _System_DebugOnly_OutputDebugString( temporary )
             debug
@@ -677 +685 @@
                     Dim temp[100] As Char
                     _System_DebugOnly_OutputDebugString( Ex"heap free missing!\r\n" )
+#ifdef _WIN64
+                    wsprintf(temp,Ex"{%d} normal block at &H%p, %d bytes long.\r\n", i, pMemoryObjects[i].ptr, pMemoryObjects[i].size)
+#else
                     wsprintf(temp,Ex"{%d} normal block at &H%08X, %d bytes long.\r\n", i, pMemoryObjects[i].ptr, pMemoryObjects[i].size)
+#endif
                     _System_DebugOnly_OutputDebugString( temp )
                 End If