Oups. Maintenant c'est parfait (dixit Planar)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1513 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
7f7e1c81a9
commit
5df7380b04
|
@ -19,8 +19,8 @@ typedef struct regexp_struct * regexp;
|
|||
static void free_regexp(expr)
|
||||
value expr;
|
||||
{
|
||||
expr->re.translate = NULL;
|
||||
regfree(&(((regexp)expr)->re));
|
||||
((regexp)Bp_val(expr))->re.translate = NULL;
|
||||
regfree(&(((regexp)Bp_val(expr))->re));
|
||||
}
|
||||
|
||||
static regexp alloc_regexp()
|
||||
|
|
Loading…
Reference in New Issue