aboutsummaryrefslogtreecommitdiffstats
path: root/backend/RTLgenproof.v
diff options
context:
space:
mode:
authorPierre Nigron <pierre.nigron@free.fr>2020-09-22 12:32:59 +0200
committerXavier Leroy <xavier.leroy@college-de-france.fr>2022-09-19 16:23:17 +0200
commitb816d696733c96fdc62428e43c4a4a1f5a09b47b (patch)
tree7a6ed23ab65addb874852d30b3a6ed8f1be11820 /backend/RTLgenproof.v
parent88cccb19502dfec65f7e21d0f6772ba99b1fb99d (diff)
downloadcompcert-b816d696733c96fdc62428e43c4a4a1f5a09b47b.tar.gz
compcert-b816d696733c96fdc62428e43c4a4a1f5a09b47b.zip
RTLgen: use the state and error monad for reserve_labels (#371)
Diffstat (limited to 'backend/RTLgenproof.v')
-rw-r--r--backend/RTLgenproof.v5
1 files changed, 2 insertions, 3 deletions
diff --git a/backend/RTLgenproof.v b/backend/RTLgenproof.v
index 79b9319b..90f03c1c 100644
--- a/backend/RTLgenproof.v
+++ b/backend/RTLgenproof.v
@@ -397,9 +397,8 @@ Lemma sig_transl_function:
Proof.
intros until tf. unfold transl_fundef, transf_partial_fundef.
case f; intro.
- unfold transl_function.
- destruct (reserve_labels (fn_body f0) (PTree.empty node, init_state)) as [ngoto s0].
- case (transl_fun f0 ngoto s0); simpl; intros.
+ unfold transl_function.
+ case (transl_fun f0 (init_state)); simpl; intros.
discriminate.
destruct p. simpl in H. inversion H. reflexivity.
intro. inversion H. reflexivity.