Changeset 458 for trunk/Include

Timestamp:

Mar 7, 2008, 5:30:40 AM (17 years ago)

Author:

dai

Message:

サイズが0のメモリオブジェクトのHitTestに失敗してしまう問題を修正。

File:

• trunk/Include/system/gc.sbp (modified) (1 diff)

trunk/Include/system/gc.sbp

@@ -449 +449 @@
         Dim i As Long
         For i=0 To ELM(countOfMemoryObjects)
-            If (pMemoryObjects[i].ptr As LONG_PTR)<=(pSample As LONG_PTR) and (pSample As LONG_PTR)<((pMemoryObjects[i].ptr As LONG_PTR)+pMemoryObjects[i].size) Then
+            If (pMemoryObjects[i].ptr As LONG_PTR)<=(pSample As LONG_PTR) and (pSample As LONG_PTR)<=((pMemoryObjects[i].ptr As LONG_PTR)+pMemoryObjects[i].size) Then
                 Return i
             End If