diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-02-06 11:21:00 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-02-06 11:21:00 +0100 |
commit | e4da4f2eca5213a6c1b64a64d8e25384a4ec2fec (patch) | |
tree | 4fc52611f22c75558ad65d450f495ba0a2b32879 | |
parent | 90e7548f0dae5be1c896fcb964a21fe70b514e0d (diff) | |
parent | 4f980e9903ddfb213247bf45015d486e36977383 (diff) | |
download | compcert-kvx-e4da4f2eca5213a6c1b64a64d8e25384a4ec2fec.tar.gz compcert-kvx-e4da4f2eca5213a6c1b64a64d8e25384a4ec2fec.zip |
Merge remote-tracking branch 'origin/mppa-work' into mppa-cse2
-rw-r--r-- | backend/Duplicateaux.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/backend/Duplicateaux.ml b/backend/Duplicateaux.ml index 84daa329..c3340cca 100644 --- a/backend/Duplicateaux.ml +++ b/backend/Duplicateaux.ml @@ -563,10 +563,10 @@ let rec invert_iconds code = function (* For now, identity function *) let duplicate_aux f = - let entrypoint = fn_entrypoint f in - let code = fn_code f in + let entrypoint = f.fn_entrypoint in + let code = f.fn_code in let traces = select_traces (to_ttl_code code entrypoint) entrypoint in let icond_code = invert_iconds code traces in let preds = get_predecessors_rtl icond_code in let (new_code, pTreeId) = (print_traces traces; superblockify_traces icond_code preds traces) in - ((new_code, (fn_entrypoint f)), pTreeId) + ((new_code, f.fn_entrypoint), pTreeId) |