diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2019-10-07 15:09:55 +0200 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2019-10-07 15:09:55 +0200 |
commit | bd4fbff2badea3922bf0e144777ae8ecfdc30e74 (patch) | |
tree | 9532d870aa63d54d57c0526f2a2f313232208201 /backend/Duplicateaux.ml | |
parent | 2a5715729f6454a9e664fcce52f269ee8c13e9e1 (diff) | |
download | compcert-kvx-bd4fbff2badea3922bf0e144777ae8ecfdc30e74.tar.gz compcert-kvx-bd4fbff2badea3922bf0e144777ae8ecfdc30e74.zip |
Fixing identity PTree in Duplicateaux oracle
Diffstat (limited to 'backend/Duplicateaux.ml')
-rw-r--r-- | backend/Duplicateaux.ml | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/backend/Duplicateaux.ml b/backend/Duplicateaux.ml index 70726c4a..9ff2ae55 100644 --- a/backend/Duplicateaux.ml +++ b/backend/Duplicateaux.ml @@ -1,7 +1,13 @@ open RTL open Maps +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)) + (* For now, identity function *) let duplicate_aux f = - let pTreeEntry = PTree.set (fn_entrypoint f) (fn_entrypoint f) PTree.empty - in (((fn_code f), (fn_entrypoint f)), pTreeEntry) + let pTreeId = make_identity_ptree f + in (((fn_code f), (fn_entrypoint f)), pTreeId) |