diff options
| author | Benjamin Gregoire | 2015-03-26 14:24:54 +0100 |
|---|---|---|
| committer | Benjamin Gregoire | 2015-03-26 15:43:41 +0100 |
| commit | 5c6a50d6ec1d04bacd3e41ffbb88453fef92cd5d (patch) | |
| tree | e6ad09fca44ec6c848448c1d6be261897eecbf75 /pretyping | |
| parent | c9074aa238e73bb932be67c67479b11bc95cd47a (diff) | |
Fix bug 4157,
change the representation of inductive constructor
when there is too many non constant constructors in the inductive type
Conflicts:
kernel/cbytegen.ml
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/vnorm.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/vnorm.ml b/pretyping/vnorm.ml index 19613c4e06..3c302f8da3 100644 --- a/pretyping/vnorm.ml +++ b/pretyping/vnorm.ml @@ -165,8 +165,8 @@ and nf_whd env whd typ = let _, args = nf_args env vargs t in mkApp(cfd,args) | Vconstr_const n -> construct_of_constr_const env n typ - | Vconstr_block b -> - let capp,ctyp = construct_of_constr_block env (btag b) typ in + | Vconstr_block (tag,b) -> + let capp,ctyp = construct_of_constr_block env tag typ in let args = nf_bargs env b ctyp in mkApp(capp,args) | Vatom_stk(Aid idkey, stk) -> |