X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fvmem.h;h=31aa07e3a4a172aaa1d0c794238d9c12247a7757;hb=a560f29b68cee2c6b71ff8f85b84ebab612b34b0;hp=a60459dfe195f5dd8e000d50445d5e3a96bd6726;hpb=222c300afb1c8466398010a3403616462c302185;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/vmem.h b/win32/vmem.h
index a60459d..31aa07e 100644
--- a/win32/vmem.h
+++ b/win32/vmem.h
@@ -200,15 +200,17 @@ void VMem::Free(void* pMem)
     if (pMem) {
 	PMEMORY_BLOCK_HEADER ptr = (PMEMORY_BLOCK_HEADER)(((char*)pMem)-sizeof(MEMORY_BLOCK_HEADER));
         if (ptr->owner != this) {
-#if 0
-	    int *nowhere = NULL;
-            *nowhere = 0;
-#else
 	    if (ptr->owner) {
-	        ptr->owner->Free(pMem);	
+#if 1
+		dTHX;
+	    	int *nowhere = NULL;
+	    	Perl_warn(aTHX_ "Free to wrong pool %p not %p",this,ptr->owner);
+            	*nowhere = 0;
+#else
+                ptr->owner->Free(pMem);	
+#endif
 	    }
 	    return;
-#endif
         }
 	GetLock();
 	UnlinkBlock(ptr);
@@ -1032,7 +1034,7 @@ int VMem::HeapAdd(void* p, size_t size
 	    if(ptr == m_heaps[index].base + (int)m_heaps[index].len) {
 		/*
 		 * The new block is contiguous with a previously allocated heap area.  Add its
-		 * length to that of the previous heap.  Merge it with the the dummy end-of-heap
+		 * length to that of the previous heap.  Merge it with the dummy end-of-heap
 		 * area marker of the previous heap.
 		 */
 		m_heaps[index].len += size;