diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-12-09 16:11:51 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-12-09 16:11:51 +0100 |
| commit | f3bc44cf982c56245a0ab17ca0324e195032f82e (patch) | |
| tree | 55a041e184c4ebc03cc61c8d08957c581189d942 /backend/Duplicateaux.ml | |
| parent | 1cc98a193dcf83aff89fe22a3b23d4881b7123f9 (diff) | |
| parent | 7429e1f28da407de3dc64de9394dc4eab9c783a8 (diff) | |
| download | compcert-kvx-f3bc44cf982c56245a0ab17ca0324e195032f82e.tar.gz compcert-kvx-f3bc44cf982c56245a0ab17ca0324e195032f82e.zip | |
Merge remote-tracking branch 'origin/mppa-work-upstream-merge' 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 a655e76b..3fe0e61c 100644 --- a/backend/Duplicateaux.ml +++ b/backend/Duplicateaux.ml @@ -217,13 +217,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) |