diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2019-01-17 13:33:01 +0100 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2019-01-17 13:33:01 +0100 |
commit | 15c5ca037eabb9891f7880bc2d517982ba34e769 (patch) | |
tree | 5d76c04e6d81b21030cd4167270c4c0d0937a0fc /mppa_k1c/PostpassSchedulingOracle.ml | |
parent | 319f7614c03c3f4c50fcd513c91cc262cea6e117 (diff) | |
download | compcert-kvx-15c5ca037eabb9891f7880bc2d517982ba34e769.tar.gz compcert-kvx-15c5ca037eabb9891f7880bc2d517982ba34e769.zip |
Corrected a bug in PostlassSchedulingOracle:intlist provoking cycles
Diffstat (limited to 'mppa_k1c/PostpassSchedulingOracle.ml')
-rw-r--r-- | mppa_k1c/PostpassSchedulingOracle.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mppa_k1c/PostpassSchedulingOracle.ml b/mppa_k1c/PostpassSchedulingOracle.ml index 100e1b49..06985c1d 100644 --- a/mppa_k1c/PostpassSchedulingOracle.ml +++ b/mppa_k1c/PostpassSchedulingOracle.ml @@ -469,7 +469,7 @@ let rec get_accesses llocs laccs = let rec intlist n = if n < 0 then failwith "intlist: n < 0" else if n = 0 then [] - else n :: (intlist (n-1)) + else (n-1) :: (intlist (n-1)) let latency_constraints bb = (* failwith "latency_constraints: not implemented" *) let written = ref [] |