diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-02 23:13:16 +0100 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-02 23:13:16 +0100 |
commit | 72a7d353cb1101a8bfcbbb3836814fe2f55a8b01 (patch) | |
tree | 88c6a4d963515804e68a8837b7a3d4e6baaea17c /aarch64/Asmblock.v | |
parent | 167c5c1ba6b8e72e1e1c009dbd28623d7cc5d9c1 (diff) | |
download | compcert-kvx-72a7d353cb1101a8bfcbbb3836814fe2f55a8b01.tar.gz compcert-kvx-72a7d353cb1101a8bfcbbb3836814fe2f55a8b01.zip |
Some adaptations on PostpassScheduling for aarch64, and defs in Asmblock
Diffstat (limited to 'aarch64/Asmblock.v')
-rw-r--r-- | aarch64/Asmblock.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/aarch64/Asmblock.v b/aarch64/Asmblock.v index ddd58223..27292234 100644 --- a/aarch64/Asmblock.v +++ b/aarch64/Asmblock.v @@ -7,6 +7,7 @@ (* Xavier Leroy INRIA Paris-Rocquencourt *) (* David Monniaux CNRS, VERIMAG *) (* Cyril Six Kalray *) +(* Léo Gourdin UGA, VERIMAG *) (* *) (* Copyright Kalray. Copyright VERIMAG. All rights reserved. *) (* This file is distributed under the terms of the INRIA *) @@ -373,6 +374,16 @@ Definition length_opt {A} (o: option A) : nat := | None => 0 end. +Program Definition no_header (bb : bblock) := {| header := nil; body := body bb; exit := exit bb |}. +Next Obligation. + destruct bb; cbn. assumption. +Defined. + +Program Definition stick_header (h : list label) (bb : bblock) := {| header := h; body := body bb; exit := exit bb |}. +Next Obligation. + destruct bb; cbn. assumption. +Defined. + (* This notion of size induces the notion of "valid" code address given by [find_bblock] The result is in Z to be compatible with operations on PC. |