diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-07-25 13:16:41 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-07-25 13:16:41 +0000 |
| commit | c2b120baf3a24e22902a714e79adfac41a0483d1 (patch) | |
| tree | 719e45602e388ac3bc8313420f9c477196606b5b | |
| parent | 7f3dd896c950b81be615d84e27e9656102952bdf (diff) | |
Cas des tableaux dans un let rec de valeur.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@939 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | bytecomp/bytegen.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/bytecomp/bytegen.ml b/bytecomp/bytegen.ml index 6139d401d..b86757d62 100644 --- a/bytecomp/bytegen.ml +++ b/bytecomp/bytegen.ml @@ -112,6 +112,8 @@ let rec size_of_lambda = function 1 + IdentSet.cardinal(free_variables funct) | Lprim(Pmakeblock(tag, mut), args) -> List.length args + | Lprim(Pmakearray kind, args) -> + List.length args | Llet(str, id, arg, body) -> size_of_lambda body | Lletrec(bindings, body) -> |