PR#4462: forgot bigarrayset in is_pure

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8847 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2008-03-18 14:25:40 +00:00
parent 1d3f14e995
commit 2bfb816cbf
1 changed files with 1 additions and 1 deletions

View File

@ -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