Deparse.pm: handle optimised-away keys() better

[perl5.git] / win32 / vmem.h

diff --git a/win32/vmem.h b/win32/vmem.h
index 4289cee..c662887 100644 (file)
--- a/win32/vmem.h
+++ b/win32/vmem.h
@@ -197,9 +197,8 @@ void VMem::Free(void* pMem)
         if (ptr->owner != this) {
            if (ptr->owner) {
 #if 1
-               dTHX;
                int *nowhere = NULL;
-               Perl_warn(aTHX_ "Free to wrong pool %p not %p",this,ptr->owner);
+               Perl_warn_nocontext("Free to wrong pool %p not %p",this,ptr->owner);
                *nowhere = 0; /* this segfault is deliberate, 
                                 so you can see the stack trace */
 #else
@@ -285,7 +284,7 @@ long VMem::AddRef(void)
  * is freed, therefore space needs to be reserved for them.  Thus, the minimum
  * block size (not counting the tags) is 8 bytes.
  *
- * Since memory allocation may occur on a single threaded, explict locks are not
+ * Since memory allocation may occur on a single threaded, explicit locks are not
  * provided.
  * 
  */
@@ -1013,7 +1012,7 @@ int VMem::HeapAdd(void* p, size_t size
     , BOOL bBigBlock
 #endif
     )
-{   /* if the block can be succesfully added to the heap, returns 0; otherwise -1. */
+{   /* if the block can be successfully added to the heap, returns 0; otherwise -1. */
     int index;
 
     /* Check size, then round size down to next long word boundary. */