diff options
author | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2021-06-02 08:20:58 +0200 |
---|---|---|
committer | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2021-06-02 08:20:58 +0200 |
commit | abfc8509ec4686924095c1328179fa06766dc496 (patch) | |
tree | a3052548018a306b91eeb03d2b339209fd130138 /scheduling/BTL_Scheduler.v | |
parent | f6a3483c7dcac5ed56a349361a19dc1f4c985de3 (diff) | |
download | compcert-kvx-abfc8509ec4686924095c1328179fa06766dc496.tar.gz compcert-kvx-abfc8509ec4686924095c1328179fa06766dc496.zip |
the current "high-level" specification of the simulation test will not work !
Diffstat (limited to 'scheduling/BTL_Scheduler.v')
-rw-r--r-- | scheduling/BTL_Scheduler.v | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/scheduling/BTL_Scheduler.v b/scheduling/BTL_Scheduler.v index b479204c..bcddcf5d 100644 --- a/scheduling/BTL_Scheduler.v +++ b/scheduling/BTL_Scheduler.v @@ -15,7 +15,8 @@ Record match_function (f1 f2: BTL.function): Prop := { preserv_fnparams: fn_params f1 = fn_params f2; preserv_fnstacksize: fn_stacksize f1 = fn_stacksize f2; preserv_entrypoint: fn_entrypoint f1 = fn_entrypoint f2; - symbolic_simu_ok: forall pc ib1, (fn_code f1)!pc = Some ib1 -> + (* preserv_inputs: equiv_input_regs f1 f2; TODO: a-t-on besoin de ça ? *) + symbolic_simu_ok: forall pc ib1, (fn_code f1)!pc = Some ib1 -> exists ib2, (fn_code f2)!pc = Some ib2 /\ symbolic_simu f1 f2 (entry ib1) (entry ib2); }. @@ -23,6 +24,12 @@ Local Open Scope error_monad_scope. Definition check_symbolic_simu (f tf: BTL.function): res unit := OK tt. (* TODO: fixme *) +(* TODO: a-t-on besoin de ça ? +Lemma check_symbolic_simu_input_equiv x f1 f2: + check_symbolic_simu f1 f2 = OK x -> equiv_input_regs f1 f2. +Admitted. +*) + Lemma check_symbolic_simu_correct x f1 f2: check_symbolic_simu f1 f2 = OK x -> forall pc ib1, (fn_code f1)!pc = Some ib1 -> |