From 45ce514eaeb2fb1d80cb145ba769cd281195cb69 Mon Sep 17 00:00:00 2001 From: Léo Gourdin Date: Sun, 1 Nov 2020 13:02:25 +0100 Subject: Yarpgen C file to test multiple labels and corresponding code In this branch I remove the multiple label limitation to pass some tests but the proof is admitted ! --- aarch64/Asmgen.v | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'aarch64/Asmgen.v') diff --git a/aarch64/Asmgen.v b/aarch64/Asmgen.v index fcd12eef..d1d01a8f 100644 --- a/aarch64/Asmgen.v +++ b/aarch64/Asmgen.v @@ -326,11 +326,11 @@ Definition unfold_bblock (bb: bblock) := * on the other hand could return a position pointing into the original * basic block. *) - if zle (list_length_z (header bb)) 1 then + (*if zle (list_length_z (header bb)) 1 then*) do bo_is <- unfold_body (body bb); - OK (lbl ++ bo_is ++ unfold_exit (exit bb)) - else - Error (msg "Asmgen.unfold_bblock: Multiple labels were generated."). + OK (lbl ++ bo_is ++ unfold_exit (exit bb)). + (*else*) + (*Error (msg "Asmgen.unfold_bblock: Multiple labels were generated.").*) Fixpoint unfold (bbs: Asmblock.bblocks) : res Asm.code := match bbs with -- cgit