Thanks, for the explanations
I agree and I'm delighted that your function Mem_ReadHex_Words shows the relation to HexPtr(ObjPtr) clearly now.
On the proof for the release of memory I also agree, though it's more complicated as you showed:
Quote:
If Mem_ReadHex_Words(lng_objPtr, 4) = ObjPtr(Sheet1) then
objwks has not been properly released
If Mem_ReadHex_Words(lng_objPtr, 4) ObjPtr(Sheet1) then
objwks has been properly released
|
Actually:
If Mem_ReadHex_Words(lng_
varPtr, 4) doesn't point anymore to
HexPtr(lng_objPtr, 4)
And
Mem_ReadHex_Words(lng_objPtr, 4) <> Mem_ReadHex_Words(ObjPtr(Sheet1))
should proof that memory has been released. (But that's just for the record, I think you meant the same)
Quote:
The Mem_Read for VarPtr is still set to 4 (it should be set to POINTER_LENGTH in fact).
|
Yes, I was setting it to 4 knowing the value (for objects) has to be in the range of Long. I didn't intend to test anything else with the tool.
Therefore, all we have to do: Thinking up a routine where reference count fails