diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-06-22 10:11:18 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-06-22 10:11:18 +0000 |
| commit | 41bd2b61538eedb5d24dcae01b11e533a398dff8 (patch) | |
| tree | a8f60e0397eaebdcba0f2000c7deaff28b0f7371 /bytecomp/codegen.ml | |
| parent | 57c7dfd8fed5efd2d66f0b990941ade7382fa012 (diff) | |
Fermetures representees en un seul bloc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@49 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/codegen.ml')
| -rw-r--r-- | bytecomp/codegen.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bytecomp/codegen.ml b/bytecomp/codegen.ml index 0dadbbe50..0f2a88f1b 100644 --- a/bytecomp/codegen.ml +++ b/bytecomp/codegen.ml @@ -169,7 +169,8 @@ let rec comp_expr env exp sz cont = comp_expr new_env body sz (add_pop ndecl cont) | (id, exp, blocksize) :: rem -> comp_expr new_env exp sz - (Kpush :: Kacc i :: Kupdate :: comp_decl new_env sz (i-1) rem) in + (Kpush :: Kacc i :: Kupdate blocksize :: + comp_decl new_env sz (i-1) rem) in let rec comp_init new_env sz = function [] -> comp_decl new_env sz ndecl decl @@ -225,7 +226,6 @@ let rec comp_expr env exp sz cont = match p with Pgetglobal id -> Kgetglobal id | Psetglobal id -> Ksetglobal id - | Pupdate -> Kupdate | Pintcomp cmp -> Kintcomp cmp | Pmakeblock tag -> Kmakeblock(List.length args, tag) | Pfield n -> Kgetfield n |