From 5673d04d22334c2493efe5a2ff8108768e089be2 Mon Sep 17 00:00:00 2001 From: Léo Gourdin Date: Thu, 30 Sep 2021 15:35:21 +0200 Subject: fix issue #247 by using a BTL's ghostfield --- scheduling/BTLcommonaux.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'scheduling/BTLcommonaux.ml') diff --git a/scheduling/BTLcommonaux.ml b/scheduling/BTLcommonaux.ml index 577e4828..11a7ee7f 100644 --- a/scheduling/BTLcommonaux.ml +++ b/scheduling/BTLcommonaux.ml @@ -6,9 +6,9 @@ open RTLcommonaux let undef_node = -1 -let mk_iinfo _inumb _pcond = { inumb = _inumb; pcond = _pcond; visited = false; liveins = Regset.empty } +let mk_iinfo _inumb _opt_info = { inumb = _inumb; opt_info = _opt_info; visited = false; liveins = Regset.empty } -let def_iinfo () = { inumb = undef_node; pcond = None; visited = false; liveins = Regset.empty } +let def_iinfo () = { inumb = undef_node; opt_info = None; visited = false; liveins = Regset.empty } let mk_binfo _bnumb _s_output_regs _typing = { -- cgit