From 72a7d353cb1101a8bfcbbb3836814fe2f55a8b01 Mon Sep 17 00:00:00 2001 From: Léo Gourdin Date: Mon, 2 Nov 2020 23:13:16 +0100 Subject: Some adaptations on PostpassScheduling for aarch64, and defs in Asmblock --- aarch64/Asmblock.v | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'aarch64/Asmblock.v') 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. -- cgit