diff options
| author | Pierre-Marie Pédrot | 2021-03-30 14:07:03 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-03-30 14:07:03 +0200 |
| commit | 6effcc263beded0d530d724fab8edae86815adf8 (patch) | |
| tree | 628fca7e2f9bcbe6c05e9925c5dc9c6519a5ccde /user-contrib | |
| parent | 666a3aa8dd7df6dd29ea7944482510048a8a7ba7 (diff) | |
| parent | cc2267634bb0ebec11dcf240a3099ee3a1adb006 (diff) | |
Merge PR #14012: Fix Ltac2 `Array.init` exponential overhead
Ack-by: ejgallego
Reviewed-by: ppedrot
Diffstat (limited to 'user-contrib')
| -rw-r--r-- | user-contrib/Ltac2/Array.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/user-contrib/Ltac2/Array.v b/user-contrib/Ltac2/Array.v index 5adba829c5..b5e7f37c9f 100644 --- a/user-contrib/Ltac2/Array.v +++ b/user-contrib/Ltac2/Array.v @@ -70,7 +70,7 @@ Ltac2 init (l : int) (f : int->'a) := | true => empty () | false => let arr:=make l (f 0) in - init_aux arr 0 (length arr) f; + init_aux arr 1 (Int.sub l 1) f; arr end. |