diff options
Diffstat (limited to 'scheduling/BTLtoRTLaux.ml')
| -rw-r--r-- | scheduling/BTLtoRTLaux.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scheduling/BTLtoRTLaux.ml b/scheduling/BTLtoRTLaux.ml index ddec991d..47262b3e 100644 --- a/scheduling/BTLtoRTLaux.ml +++ b/scheduling/BTLtoRTLaux.ml @@ -22,7 +22,7 @@ let translate_function btl entry = match ib with | Bcond (cond, lr, BF (Bgoto s1, _), Bnop None, iinfo) -> Some - ( Icond (cond, lr, s1, get_ib_num (get_some k), iinfo.pcond), + ( Icond (cond, lr, s1, get_ib_num (get_some k), iinfo.opt_info), get_inumb iinfo ) | Bcond (_, _, _, _, _) -> failwith "translate_function: unsupported Bcond" |