aboutsummaryrefslogtreecommitdiffstats
path: root/scheduling/BTLtoRTLaux.ml
diff options
context:
space:
mode:
authorLéo Gourdin <leo.gourdin@univ-grenoble-alpes.fr>2021-09-30 15:35:21 +0200
committerLéo Gourdin <leo.gourdin@univ-grenoble-alpes.fr>2021-09-30 15:35:21 +0200
commit5673d04d22334c2493efe5a2ff8108768e089be2 (patch)
tree00fc7f0de1f0e62b5857635135053ff029986e95 /scheduling/BTLtoRTLaux.ml
parent1b87b2abead3751eb0564ac36030501a9cec748c (diff)
downloadcompcert-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.ml2
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"