PR#4462: forgot bigarrayset in is_pure
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8847 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
1d3f14e995
commit
2bfb816cbf
|
@ -378,7 +378,7 @@ let rec is_pure = function
|
|||
| Lconst cst -> true
|
||||
| Lprim((Psetglobal _ | Psetfield _ | Psetfloatfield _ | Pduprecord _ |
|
||||
Pccall _ | Praise | Poffsetref _ | Pstringsetu | Pstringsets |
|
||||
Parraysetu _ | Parraysets _), _) -> false
|
||||
Parraysetu _ | Parraysets _ | Pbigarrayset _), _) -> false
|
||||
| Lprim(p, args) -> List.for_all is_pure args
|
||||
| Levent(lam, ev) -> is_pure lam
|
||||
| _ -> false
|
||||
|
|
Loading…
Reference in New Issue