diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2020-03-13 14:13:16 +0100 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2020-03-13 14:13:16 +0100 |
| commit | dd345b4fd33a9e59507029f30da9a09d5e450db6 (patch) | |
| tree | 3bcc8fb52a3cb500b9866b7f5db21a4dc615889d /backend/PrintRTL.ml | |
| parent | 786ada1bd193e3995b948e2bd11d6285654a5c6a (diff) | |
| download | compcert-kvx-dd345b4fd33a9e59507029f30da9a09d5e450db6.tar.gz compcert-kvx-dd345b4fd33a9e59507029f30da9a09d5e450db6.zip | |
Added prediction info in the printers
Diffstat (limited to 'backend/PrintRTL.ml')
| -rw-r--r-- | backend/PrintRTL.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/backend/PrintRTL.ml b/backend/PrintRTL.ml index 5eab9901..b2ef05ca 100644 --- a/backend/PrintRTL.ml +++ b/backend/PrintRTL.ml @@ -75,10 +75,11 @@ let print_instruction pp (pc, i) = (name_of_external ef) (print_builtin_args reg) args; print_succ pp s (pc - 1) - | Icond(cond, args, s1, s2, _) -> - fprintf pp "if (%a) goto %d else goto %d\n" + | Icond(cond, args, s1, s2, info) -> + fprintf pp "if (%a) goto %d else goto %d (prediction: %s)\n" (PrintOp.print_condition reg) (cond, args) (P.to_int s1) (P.to_int s2) + (match info with None -> "none" | Some true -> "branch" | Some false -> "fallthrough") | Ijumptable(arg, tbl) -> let tbl = Array.of_list tbl in fprintf pp "jumptable (%a)\n" reg arg; |