diff options
| author | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2008-01-28 05:29:20 +0000 |
|---|---|---|
| committer | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2008-01-28 05:29:20 +0000 |
| commit | 3f4a98da0fbf8a87c674d6737d8c6cec7e8567e5 (patch) | |
| tree | f5aa13505824d708414ece1f00219b811315c44a /bytecomp | |
| parent | 30f3fa2c5bc27f8c59930741aa1b6dd5a34a6b40 (diff) | |
| download | ocaml-gcaml3090.tar.gz | |
3.09.1 updategcaml3090
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/gcaml3090@8792 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp')
| -rw-r--r-- | bytecomp/translcore.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/bytecomp/translcore.ml b/bytecomp/translcore.ml index 3a93371195..fe7dd0bfd7 100644 --- a/bytecomp/translcore.ml +++ b/bytecomp/translcore.ml @@ -878,7 +878,11 @@ and transl_exp0 e = | Texp_generic cases -> (* FIXME *) lambda_unit - + | Texp_regexp (r, regexp, t, code) -> + Lprim(Pmakeblock(0, Immutable), + [ Lconst (Const_base (Const_string r)); + Metacomp.transl_constant [] (Obj.repr t); + transl_exp code ]) and transl_list expr_list = List.map transl_exp expr_list |