diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2019-12-09 17:34:09 +0100 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2019-12-09 17:34:09 +0100 |
commit | 7dd69b9d594951614dea265f636473f09580ad73 (patch) | |
tree | 94041ceb069ff9832686abacfa598e03b22b0c2e /backend/Duplicateaux.ml | |
parent | 5382048e0eef1a726119172067a4d6afdf7881fb (diff) | |
parent | f3bc44cf982c56245a0ab17ca0324e195032f82e (diff) | |
download | compcert-kvx-7dd69b9d594951614dea265f636473f09580ad73.tar.gz compcert-kvx-7dd69b9d594951614dea265f636473f09580ad73.zip |
Merge remote-tracking branch 'refs/remotes/origin/mppa-duplicate-oracle' into mppa-duplicate-oracle
Diffstat (limited to 'backend/Duplicateaux.ml')
-rw-r--r-- | backend/Duplicateaux.ml | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/backend/Duplicateaux.ml b/backend/Duplicateaux.ml index 069741de..82d1f8ef 100644 --- a/backend/Duplicateaux.ml +++ b/backend/Duplicateaux.ml @@ -244,13 +244,9 @@ let rec make_identity_ptree_rec = function | [] -> PTree.empty | m::lm -> let (n, _) = m in PTree.set n n (make_identity_ptree_rec lm) -let make_identity_ptree f = make_identity_ptree_rec (PTree.elements (fn_code f)) +let make_identity_ptree f = make_identity_ptree_rec (PTree.elements f.fn_code) (* For now, identity function *) let duplicate_aux f = - let pTreeId = make_identity_ptree f in - let traces = select_traces (to_ttl_code @@ fn_code f) (fn_entrypoint f) - in begin - print_traces traces; - (((fn_code f), (fn_entrypoint f)), pTreeId) - end + let pTreeId = make_identity_ptree f + in ((f.fn_code, f.fn_entrypoint), pTreeId) |