diff options
Diffstat (limited to 'scheduling/BTLtoRTLaux.ml')
-rw-r--r-- | scheduling/BTLtoRTLaux.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scheduling/BTLtoRTLaux.ml b/scheduling/BTLtoRTLaux.ml index 521f6ef2..42c20942 100644 --- a/scheduling/BTLtoRTLaux.ml +++ b/scheduling/BTLtoRTLaux.ml @@ -63,9 +63,9 @@ let translate_function code entry = Some ( Iload (trap, chk, addr, lr, rd, get_ib_num (get_some k)), get_inumb iinfo ) - | Bstore (chk, addr, lr, rd, iinfo) -> + | Bstore (chk, addr, lr, src, iinfo) -> Some - ( Istore (chk, addr, lr, rd, get_ib_num (get_some k)), + ( Istore (chk, addr, lr, src, get_ib_num (get_some k)), get_inumb iinfo ) | BF (Bcall (sign, fn, lr, rd, s), iinfo) -> next_nodes := s :: !next_nodes; |