diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-09-01 16:08:57 +0200 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-09-01 16:08:57 +0200 |
commit | 269208723faff37e6f6539b71101515b17a8a36f (patch) | |
tree | 2a52dd6fc5ae0b65b2a40a08c8e20c2eb8357ff3 /x86 | |
parent | 1fbe45e2d1f02ef6e8fb6fe7545728a744e047b8 (diff) | |
parent | 54a22d92bc18fa3ece958a097844caa5e7b2e0c5 (diff) | |
download | compcert-kvx-269208723faff37e6f6539b71101515b17a8a36f.tar.gz compcert-kvx-269208723faff37e6f6539b71101515b17a8a36f.zip |
[MERGE] BTL into kvx-work (replacing RTLpath)
Diffstat (limited to 'x86')
l--------- | x86/BTL_SEsimplify.v | 1 | ||||
l---------[-rw-r--r--] | x86/ExpansionOracle.ml | 18 | ||||
-rw-r--r-- | x86/PrepassSchedulingOracle.ml | 5 |
3 files changed, 3 insertions, 21 deletions
diff --git a/x86/BTL_SEsimplify.v b/x86/BTL_SEsimplify.v new file mode 120000 index 00000000..f190e6d5 --- /dev/null +++ b/x86/BTL_SEsimplify.v @@ -0,0 +1 @@ +../aarch64/BTL_SEsimplify.v
\ No newline at end of file diff --git a/x86/ExpansionOracle.ml b/x86/ExpansionOracle.ml index 3b63b80d..ee2674bf 100644..120000 --- a/x86/ExpansionOracle.ml +++ b/x86/ExpansionOracle.ml @@ -1,17 +1 @@ -(* *************************************************************) -(* *) -(* The Compcert verified compiler *) -(* *) -(* Léo Gourdin UGA, VERIMAG *) -(* *) -(* Copyright VERIMAG. All rights reserved. *) -(* This file is distributed under the terms of the INRIA *) -(* Non-Commercial License Agreement. *) -(* *) -(* *************************************************************) - -open RTLpathCommon - -let expanse (sb : superblock) code pm = (code, pm) - -let find_last_node_reg c = () +../aarch64/ExpansionOracle.ml
\ No newline at end of file diff --git a/x86/PrepassSchedulingOracle.ml b/x86/PrepassSchedulingOracle.ml index 42a3da23..31b4ea5b 100644 --- a/x86/PrepassSchedulingOracle.ml +++ b/x86/PrepassSchedulingOracle.ml @@ -1,6 +1,3 @@ -open RTL -open Registers (* Do not do anything *) -let schedule_sequence (seqa : (instruction*Regset.t) array) - live_regs_entry typing reference = None +let schedule_sequence inst btl = None |