kvx/unittest/postpass_test.ml


1
2
3
4
5
6
7
8
9
10
11
12

open Printf
open Asmblock
open Integers
open PostpassSchedulingOracle
open BinNums

let test_schedule_sd =
  let sd_inst = PStore (PStoreRRO (Psd, GPR12, GPR16, (Ofsimm (Ptrofs.of_int @@ Int.intval Z0))))
  in let bb = { header = []; body = [sd_inst]; exit = None }
  in List.iter print_bb (smart_schedule bb)

let _ = test_schedule_sd; printf "Done\n"