diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-16 16:51:42 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-16 16:51:42 +0000 |
| commit | 707b6a1ae9660b13cf6f68c7c0ce74017f5981c5 (patch) | |
| tree | 166a21d507612d60db40737333ddec5003fc81aa /backend/Linearizetyping.v | |
| parent | e44df4563f1cb893ab25b2a8b25d5b83095205be (diff) | |
Assorted changes to reduce stack and heap requirements when compiling very big functions.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2151 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Linearizetyping.v')
| -rw-r--r-- | backend/Linearizetyping.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Linearizetyping.v b/backend/Linearizetyping.v index 7393535..b4e25de 100644 --- a/backend/Linearizetyping.v +++ b/backend/Linearizetyping.v @@ -71,9 +71,9 @@ Lemma wt_linearize_body: forall enum, wt_code f.(LTL.fn_sig) (linearize_body f enum). Proof. - induction enum; simpl. + unfold linearize_body; induction enum; rewrite list_fold_right_eq. red; simpl; intros; contradiction. - caseEq ((LTL.fn_code f)!a); intros. + unfold linearize_node. caseEq ((LTL.fn_code f)!a); intros. apply wt_add_instr. constructor. apply wt_linearize_instr; eauto with coqlib. auto. Qed. |