diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-19 00:13:21 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-19 00:13:21 +0000 |
| commit | 32b7a0cc9c8302febd7639d22c80554fa4ec8d88 (patch) | |
| tree | c5798518db283d05d83d399802c5d50b093b417f /pretyping/termops.ml | |
| parent | 7a30e5bbcfb2dc3e7b7bf0cf2cd4e27eab31dcfb (diff) | |
Array.create is deprecated
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16104 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/termops.ml')
| -rw-r--r-- | pretyping/termops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index f5be89689..70843c7a9 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -343,8 +343,8 @@ let fold_rec_types g (lna,typarray,_) e = let map_left2 f a g b = let l = Array.length a in if Int.equal l 0 then [||], [||] else begin - let r = Array.create l (f a.(0)) in - let s = Array.create l (g b.(0)) in + let r = Array.make l (f a.(0)) in + let s = Array.make l (g b.(0)) in for i = 1 to l - 1 do r.(i) <- f a.(i); s.(i) <- g b.(i) |