From 4f980e9903ddfb213247bf45015d486e36977383 Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Thu, 6 Feb 2020 11:20:15 +0100 Subject: accessors for records are now not extracted it seems --- backend/Duplicateaux.ml | 6 +++--- 1 file 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) -- cgit