diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-02-06 11:20:15 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-02-06 11:20:15 +0100 |
| commit | 4f980e9903ddfb213247bf45015d486e36977383 (patch) | |
| tree | 6025a3c3ef46a1231a433726f313877d6aa2f8d4 /backend/Duplicateaux.ml | |
| parent | 7dca7590aa212806ee939244b253a6a067f34bfc (diff) | |
| download | compcert-kvx-4f980e9903ddfb213247bf45015d486e36977383.tar.gz compcert-kvx-4f980e9903ddfb213247bf45015d486e36977383.zip | |
accessors for records are now not extracted it seems
Diffstat (limited to 'backend/Duplicateaux.ml')
| -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) |