File tree Expand file tree Collapse file tree 2 files changed +5
-5
lines changed
Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -194,15 +194,15 @@ Definition env := PTree.t val.
194194
195195Fixpoint set_params (vl: list val) (il: list ident) {struct il} : env :=
196196 match il, vl with
197- | i1 :: is , v1 :: vs => PTree.set i1 v1 (set_params vs is )
198- | i1 :: is , nil => PTree.set i1 Vundef (set_params nil is )
197+ | i1 :: il , v1 :: vl => PTree.set i1 v1 (set_params vl il )
198+ | i1 :: il , nil => PTree.set i1 Vundef (set_params nil il )
199199 | _, _ => PTree.empty val
200200 end .
201201
202202Fixpoint set_locals (il: list ident) (e: env) {struct il} : env :=
203203 match il with
204204 | nil => e
205- | i1 :: is => PTree.set i1 Vundef (set_locals is e)
205+ | i1 :: il => PTree.set i1 Vundef (set_locals il e)
206206 end .
207207
208208Definition set_optvar (optid: option ident) (v: val) (e: env) : env :=
Original file line number Diff line number Diff line change @@ -1103,8 +1103,8 @@ Qed.
11031103
11041104Fixpoint set_params' (vl: list val) (il: list ident) (te: Cminor.env) : Cminor.env :=
11051105 match il, vl with
1106- | i1 :: is , v1 :: vs => set_params' vs is (PTree.set i1 v1 te)
1107- | i1 :: is , nil => set_params' nil is (PTree.set i1 Vundef te)
1106+ | i1 :: il , v1 :: vl => set_params' vl il (PTree.set i1 v1 te)
1107+ | i1 :: il , nil => set_params' nil il (PTree.set i1 Vundef te)
11081108 | _, _ => te
11091109 end .
11101110
You can’t perform that action at this time.
0 commit comments