Skip to content

Commit e43236d

Browse files
committed
Print the node values of registers
This is less confusing when some simplification is missing.
1 parent df1aa70 commit e43236d

File tree

1 file changed

+11
-10
lines changed

1 file changed

+11
-10
lines changed

src/Assembly/Equivalence.v

+11-10
Original file line numberDiff line numberDiff line change
@@ -421,18 +421,19 @@ Definition describe_idx_from_state
421421
| ExprApp (old _ _, _) => true
422422
| _ => false
423423
end in
424-
match is_old, description_from_state, show_full with
425-
| true, Some descr, _
426-
| _, Some descr, true
424+
match is_old, description_from_state, show_full, dag.lookup st.(dag_state) idx with
425+
| true, Some descr, false, _
426+
| true, Some descr, _, None
427427
=> [show idx ++ " is " ++ descr ++ "."]
428-
| true, None, _
428+
| _, Some descr, true, Some e
429+
=> [show idx ++ " is " ++ descr ++ " (" ++ show_node_lite e ++ ")."]
430+
| true, None, _, _
429431
=> [show idx ++ " is a special value no longer present in the symbolic machine state at the end of execution."]
430-
| _, _, false => []
431-
| _, None, true
432-
=> [show idx ++ " is " ++ match dag.lookup st.(dag_state) idx with
433-
| Some e => show_node_lite e
434-
| None => "not in the dag"
435-
end]
432+
| _, _, false, _ => []
433+
| _, None, true, Some e
434+
=> [show idx ++ " is " ++ show_node_lite e ++ "."]
435+
| _, None, true, None
436+
=> [show idx ++ " is not in the dag."]
436437
end%string.
437438

438439
Definition iteratively_describe_idxs_after

0 commit comments

Comments
 (0)