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

La correction du bug de la compilation de match (x,y) with ... 

supprimait completement l'optimisation...


git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@790 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-05-06 09:07:36 +00:00
parent 8085c1476b
commit 5598ed9c98
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
bytecomp/matching.ml
View File

@ -411,7 +411,8 @@ let for_let loc param pat body =
exception Cannot_flatten
let rec flatten_patterns size = function
({pat_desc = Tpat_tuple args} :: _, action) :: rem ->
[] -> []
| ({pat_desc = Tpat_tuple args} :: _, action) :: rem ->
(args, action) :: flatten_patterns size rem
| ({pat_desc = Tpat_any} :: patl, action) :: rem ->
(replicate_list any_pat size, action) :: flatten_patterns size rem