1 files changed, 1 insertions, 0 deletions
diff --git a/malloc.c b/malloc.c
index ed392ee5ba..0c80a0856f 100644
--- a/malloc.c
+++ b/malloc.c
@@ -1239,6 +1239,7 @@ Perl_malloc(size_t nbytes)
          * malloc so that pointer subtraction in the same structure is always
          * well defined */
         if (nbytes > PTRDIFF_MAX) {
+            dTHX;
             MYMALLOC_WRITE2STDERR("Memory requests are limited to PTRDIFF_MAX"
                                   " bytes to prevent possible undefined"
                                   " behavior");