Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Oups. Maintenant c'est parfait (dixit Planar) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1513 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Francois Rouaix 1997-04-24 14:04:55 +00:00
parent 7f7e1c81a9
commit 5df7380b04
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
otherlibs/str/strstubs.c
View File

@ -19,8 +19,8 @@ typedef struct regexp_struct * regexp;
static void free_regexp(expr) static void free_regexp(expr)
value expr; value expr;
{ {
expr->re.translate = NULL; ((regexp)Bp_val(expr))->re.translate = NULL;
regfree(&(((regexp)expr)->re)); regfree(&(((regexp)Bp_val(expr))->re));
} }
static regexp alloc_regexp() static regexp alloc_regexp()