diff options
| author | Maxime Dénès | 2017-04-04 13:37:51 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-04-04 13:37:51 +0200 |
| commit | 57c673d0aa411facc2fc8fa222e7653041b282ea (patch) | |
| tree | 6c2dd05f6eac810ffd639e7d47e0b3612c1557c2 | |
| parent | 32bf31fda75918bf2910301dffa7b3137c81b236 (diff) | |
| parent | 70bcfcf5b2ea485ebe253158c37b89dfac63820b (diff) | |
Merge PR#535: Fix #5435: [Eval native_compute in] raises anomaly.
| -rw-r--r-- | kernel/nativecode.ml | 5 | ||||
| -rw-r--r-- | test-suite/bugs/closed/5435.v | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml index eaddace4b7..b17715a8ff 100644 --- a/kernel/nativecode.ml +++ b/kernel/nativecode.ml @@ -1849,9 +1849,10 @@ and apply_fv env sigma univ (fv_named,fv_rel) auxdefs ml = and compile_rel env sigma univ auxdefs n = let open Context.Rel in - let n = length env.env_rel_context - n in let open Declaration in - match lookup n env.env_rel_context with + let decl = lookup n env.env_rel_context in + let n = length env.env_rel_context - n in + match decl with | LocalDef (_,t,_) -> let code = lambda_of_constr env sigma t in let auxdefs,code = compile_with_fv env sigma univ auxdefs None code in diff --git a/test-suite/bugs/closed/5435.v b/test-suite/bugs/closed/5435.v new file mode 100644 index 0000000000..60ace5ce96 --- /dev/null +++ b/test-suite/bugs/closed/5435.v @@ -0,0 +1,2 @@ +Definition foo (x : nat) := Eval native_compute in x. + |