regex-emacs: fix leak on memory allocation failure

* src/regex-emacs.c (ENSURE_FAIL_STACK): If the failure
stack cannot be grown, free locally-allocated storage
before returning.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/regex-emacs.c b/src/regex-emacs.c
index 5d1bb094d53..3d8aaf4bb13 100644
--- a/src/regex-emacs.c
+++ b/src/regex-emacs.c
@@ -969,7 +969,11 @@ typedef struct
 #define ENSURE_FAIL_STACK(space)                                        \
 while (REMAINING_AVAIL_SLOTS <= space) {                                \
   if (!GROW_FAIL_STACK (fail_stack))                                    \
-    return -2;                                                          \
+    {                                                                   \
+      unbind_to (count, Qnil);                                          \
+      SAFE_FREE ();                                                     \
+      return -2;                                                        \
+    }                                                                   \
   DEBUG_PRINT ("\n  Doubled stack; size now: %td\n", fail_stack.size);  \
   DEBUG_PRINT ("         slots available: %td\n", REMAINING_AVAIL_SLOTS);\
 }