diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-11-13 14:32:32 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-11-13 14:32:32 +0100 |
| commit | 147fe13100aaacbd0906194f53a140373a7006d3 (patch) | |
| tree | 0b033dc1ffc44fc46937cccec5039537aa242e79 /backend/Duplicateaux.ml | |
| parent | f2cf6d4e0600d4a58677a7531e8516a37fe1d0da (diff) | |
| parent | 40360396c621603af3ea6fb9a2fc89fa7945c79a (diff) | |
| download | compcert-kvx-147fe13100aaacbd0906194f53a140373a7006d3.tar.gz compcert-kvx-147fe13100aaacbd0906194f53a140373a7006d3.zip | |
Merge branch 'master' of https://github.com/AbsInt/CompCert into mppa-work-upstream-merge
Diffstat (limited to 'backend/Duplicateaux.ml')
| -rw-r--r-- | backend/Duplicateaux.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Duplicateaux.ml b/backend/Duplicateaux.ml index 9ff2ae55..a64f4862 100644 --- a/backend/Duplicateaux.ml +++ b/backend/Duplicateaux.ml @@ -5,9 +5,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 (((fn_code f), (fn_entrypoint f)), pTreeId) + in ((f.fn_code, f.fn_entrypoint), pTreeId) |