diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-09-30 15:35:21 +0200 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-09-30 15:35:21 +0200 |
commit | 5673d04d22334c2493efe5a2ff8108768e089be2 (patch) | |
tree | 00fc7f0de1f0e62b5857635135053ff029986e95 /scheduling/BTLtoRTLaux.ml | |
parent | 1b87b2abead3751eb0564ac36030501a9cec748c (diff) | |
download | compcert-kvx-5673d04d22334c2493efe5a2ff8108768e089be2.tar.gz compcert-kvx-5673d04d22334c2493efe5a2ff8108768e089be2.zip |
fix issue #247 by using a BTL's ghostfield
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" |