FIXED multiple free sur case_fold_table

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1510 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1997-04-18 12:29:07 +00:00 · 1997-04-18 12:29:07 +00:00 · 0c272eb67c
parent 550b45c5ca
commit 0c272eb67c
1 changed files with 1 additions and 0 deletions
--- a/otherlibs/str/strstubs.c
+++ b/otherlibs/str/strstubs.c
@ -19,6 +19,7 @@ typedef struct regexp_struct * regexp;
 static void free_regexp(expr)
     value expr;
 {
+  expr->re.translate = NULL;
  regfree(&(((regexp)expr)->re));
 }