diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-30 16:45:33 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-30 16:45:33 +0100 |
| commit | dd299de4b51c561b3a2d8e9f388396381b0e2b85 (patch) | |
| tree | 3b59836e2e2f4bb54e4860bb260b6325cc7c1995 /aarch64/PostpassSchedulingOracle.ml | |
| parent | 4278bf9dbe51015408bc6796c214df61f1b4ff6e (diff) | |
| download | compcert-kvx-dd299de4b51c561b3a2d8e9f388396381b0e2b85.tar.gz compcert-kvx-dd299de4b51c561b3a2d8e9f388396381b0e2b85.zip | |
add option in scheduler to record bb size
Diffstat (limited to 'aarch64/PostpassSchedulingOracle.ml')
| -rw-r--r-- | aarch64/PostpassSchedulingOracle.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/aarch64/PostpassSchedulingOracle.ml b/aarch64/PostpassSchedulingOracle.ml index fbcdb55d..8d930255 100644 --- a/aarch64/PostpassSchedulingOracle.ml +++ b/aarch64/PostpassSchedulingOracle.ml @@ -18,6 +18,7 @@ open OpWeightsAsm open InstructionScheduler let debug = false +let stats = false (** * Extracting infos from Asm instructions @@ -649,6 +650,10 @@ let bblock_schedule bb = if debug && not identity_mode then ( Printf.eprintf "###############################\n"; Printf.eprintf "SCHEDULING\n" ); + if stats then ( + let oc = open_out_gen [Open_append; Open_creat] 0o666 "oracle_stats.csv" in + Printf.fprintf oc "%d\n" (Camlcoq.Z.to_int (size bb)); + close_out oc); if identity_mode then pack_result bb else smart_schedule bb (** Called schedule function from Coq *) |