diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2007-02-09 13:31:15 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2007-02-09 13:31:15 +0000 |
| commit | f700284aac3f9bcafa29b40e4cedeadd6703d782 (patch) | |
| tree | 463f0f8e3165cc294c17cb1677870947741a2ce6 /bytecomp/lambda.ml | |
| parent | e1757faddcd080cc6a1d71a2aebd999399c5ab17 (diff) | |
fusion des changements 3.09.3 -> release309_merge310
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7849 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/lambda.ml')
| -rw-r--r-- | bytecomp/lambda.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bytecomp/lambda.ml b/bytecomp/lambda.ml index 8b47cd4f2..b66378c9e 100644 --- a/bytecomp/lambda.ml +++ b/bytecomp/lambda.ml @@ -28,6 +28,7 @@ type primitive = | Psetfield of int * bool | Pfloatfield of int | Psetfloatfield of int + | Pduprecord of Types.record_representation * int (* External call *) | Pccall of Primitive.description (* Exceptions *) @@ -251,7 +252,7 @@ let rec iter f = function | Lprim(p, args) -> List.iter f args | Lswitch(arg, sw) -> - f arg; + f arg; List.iter (fun (key, case) -> f case) sw.sw_consts; List.iter (fun (key, case) -> f case) sw.sw_blocks; begin match sw.sw_failaction with |