diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-05-24 17:39:44 +0200 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-05-24 17:39:44 +0200 |
commit | a6006df63f0d03cc223d13834e81a71651513fbe (patch) | |
tree | 7ce509e87f659159dc9e9669290e3f2f5000f5e0 /scheduling/BTLtoRTLaux.ml | |
parent | 0efe7783c50d72858352fda93d30e0f52792d658 (diff) | |
download | compcert-kvx-a6006df63f0d03cc223d13834e81a71651513fbe.tar.gz compcert-kvx-a6006df63f0d03cc223d13834e81a71651513fbe.zip |
a draft frontend for prepass
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; |