don't call onig_free() if onig_reg_init() is error

diff --git a/src/regcomp.c b/src/regcomp.c
index 2c00e0e14ef7858f3afd74113914874abce2db57..cd379a2739e10d5a23e40061466c970149082c69 100644 (file)
--- a/src/regcomp.c
+++ b/src/regcomp.c
@@ -6785,11 +6785,14 @@ onig_new(regex_t** reg, const UChar* pattern, const UChar* pattern_end,
   if (IS_NULL(*reg)) return ONIGERR_MEMORY;
 
   r = onig_reg_init(*reg, option, ONIGENC_CASE_FOLD_DEFAULT, enc, syntax);
-  if (r != 0) goto err;
+  if (r != 0) {
+    xfree(*reg);
+    *reg = NULL;
+    return r;
+  }
 
   r = onig_compile(*reg, pattern, pattern_end, einfo);
   if (r != 0) {
-  err:
     onig_free(*reg);
     *reg = NULL;
   }