diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-24 17:34:53 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-24 17:34:53 +0100 |
| commit | 1975837dbd2b3a924bc77fd4e64cce0a37c21994 (patch) | |
| tree | 71fe6f6f0632395dd567fe72795c517776320097 /aarch64/Asmgen.v | |
| parent | 788406cac443d2d33345c0b9db86577c6b39011e (diff) | |
| download | compcert-kvx-1975837dbd2b3a924bc77fd4e64cce0a37c21994.tar.gz compcert-kvx-1975837dbd2b3a924bc77fd4e64cce0a37c21994.zip | |
Restoring asmgenproof on multiple labels issue
Diffstat (limited to 'aarch64/Asmgen.v')
| -rw-r--r-- | aarch64/Asmgen.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/aarch64/Asmgen.v b/aarch64/Asmgen.v index bd6b55cc..94db0e22 100644 --- a/aarch64/Asmgen.v +++ b/aarch64/Asmgen.v @@ -327,11 +327,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 |