Changeset 389 for trunk/Include/system/debug.sbp

Timestamp:

Dec 2, 2007, 1:36:22 PM (17 years ago)

Author:

dai

Message:

_DebugSys_Set_LONG_PTR関数はデバッグ時のアドレス値セットとして必要なものなので、差し戻す。因みに、_DebugSys_Set_LONG_PTR関数は一般のSet_LONG_PTR関数と違ってデバッグ用のコードに最適化されている。

File:

• trunk/Include/system/debug.sbp (modified) (3 diffs)

trunk/Include/system/debug.sbp

@@ -29 +29 @@
 End Function
 
+Sub _DebugSys_Set_LONG_PTR(pPtr As VoidPtr, lpData As LONG_PTR)
+#ifdef _WIN64
+    SetQWord(pPtr,lpData)
+#else
+    SetDWord(pPtr,lpData)
+#endif
+End Sub
+
 Sub _DebugSys_StartProc(lpSpBase As ULONG_PTR, lpObp As ULONG_PTR)
     Dim i As Long
@@ -45 +53 @@
         _DebugSys_lplpSpBase[ThreadNum]=HeapAlloc(GetProcessHeap(),0,SizeOf(ULONG_PTR)*2)
     End If
-    Set_LONG_PTR(_DebugSys_lplpObp[ThreadNum]+_DebugSys_ProcNum[ThreadNum]*SizeOf(ULONG_PTR),lpObp)
-    Set_LONG_PTR(_DebugSys_lplpSpBase[ThreadNum]+_DebugSys_ProcNum[ThreadNum]*SizeOf(ULONG_PTR),lpSpBase)
+    _DebugSys_Set_LONG_PTR(_DebugSys_lplpObp[ThreadNum]+_DebugSys_ProcNum[ThreadNum]*SizeOf(ULONG_PTR),lpObp)
+    _DebugSys_Set_LONG_PTR(_DebugSys_lplpSpBase[ThreadNum]+_DebugSys_ProcNum[ThreadNum]*SizeOf(ULONG_PTR),lpSpBase)
 
     _DebugSys_ProcNum[ThreadNum]=_DebugSys_ProcNum[ThreadNum]+1
@@ -69 +77 @@
         _DebugSys_lplpSpBase[ThreadNum]=HeapAlloc(GetProcessHeap(),0,SizeOf(ULONG_PTR)*2)
     End If
-    Set_LONG_PTR(_DebugSys_lplpObp[ThreadNum]+_DebugSys_ProcNum[ThreadNum]*SizeOf(ULONG_PTR), lpObp)
-    Set_LONG_PTR(_DebugSys_lplpSpBase[ThreadNum]+_DebugSys_ProcNum[ThreadNum]*SizeOf(ULONG_PTR), lpSpBase)
+    _DebugSys_Set_LONG_PTR(_DebugSys_lplpObp[ThreadNum]+_DebugSys_ProcNum[ThreadNum]*SizeOf(ULONG_PTR), lpObp)
+    _DebugSys_Set_LONG_PTR(_DebugSys_lplpSpBase[ThreadNum]+_DebugSys_ProcNum[ThreadNum]*SizeOf(ULONG_PTR), lpSpBase)
 End Sub