diff options
| author | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2021-05-28 15:24:16 +0200 |
|---|---|---|
| committer | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2021-05-28 15:24:16 +0200 |
| commit | b79d0a04787d9234cf580841bf58e592fe4ab3ee (patch) | |
| tree | d1bef8184071e30612178cfc53c820e59b1e0675 /scheduling/BTLtoRTLproof.v | |
| parent | 25595a7b34b70011dcb77aae277ee1cdb8920c60 (diff) | |
| download | compcert-kvx-b79d0a04787d9234cf580841bf58e592fe4ab3ee.tar.gz compcert-kvx-b79d0a04787d9234cf580841bf58e592fe4ab3ee.zip | |
starting to extend RTLtoBTL with Liveness checking (on BTL side)
Diffstat (limited to 'scheduling/BTLtoRTLproof.v')
| -rw-r--r-- | scheduling/BTLtoRTLproof.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/scheduling/BTLtoRTLproof.v b/scheduling/BTLtoRTLproof.v index 765f9cad..75f67d51 100644 --- a/scheduling/BTLtoRTLproof.v +++ b/scheduling/BTLtoRTLproof.v @@ -6,6 +6,18 @@ Require Import Errors Linking BTLtoRTL. Require Import Linking. + +Inductive match_fundef: BTL.fundef -> RTL.fundef -> Prop := + | match_Internal dupmap f f': match_function dupmap f f' -> match_fundef (Internal f) (Internal f') + | match_External ef: match_fundef (External ef) (External ef). + +Inductive match_stackframes: BTL.stackframe -> RTL.stackframe -> Prop := + | match_stackframe_intro + dupmap res f sp pc rs f' pc' + (TRANSF: match_function dupmap f f') + (DUPLIC: dupmap!pc = Some pc') + : match_stackframes (BTL.Stackframe res f sp pc rs) (RTL.Stackframe res f' sp pc' rs). + Inductive match_states: BTL.state -> RTL.state -> Prop := | match_states_intro dupmap st f sp pc rs m st' f' pc' |