summaryrefslogtreecommitdiff
path: root/src/lem_interp/run_interp_model.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/lem_interp/run_interp_model.ml')
-rw-r--r--src/lem_interp/run_interp_model.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lem_interp/run_interp_model.ml b/src/lem_interp/run_interp_model.ml
index 9df5cdc3..034fd991 100644
--- a/src/lem_interp/run_interp_model.ml
+++ b/src/lem_interp/run_interp_model.ml
@@ -61,8 +61,8 @@ let slice register_vector (start,stop) =
increasing because ppcmem only speaks increasing, so here we turn it back *)
let startd = register_vector.rv_start_internal- start in
let stopd = startd - (stop - start) in
- (*let _ = Printf.eprintf "slice decreasing with %i, %i, %i\n" startd stopd register_vector.rv_start in*)
- slice_reg_value {register_vector with rv_start=register_vector.rv_start_internal} startd stopd
+(* let _ = Printf.eprintf "slice decreasing with %i, %i, %i\n" startd stopd register_vector.rv_start in*)
+ slice_reg_value register_vector start stop
let big_num_unit = of_int 1