Updated hw6 to a newer version
Signed-off-by: jmug <u.g.a.mariano@gmail.com>
This commit is contained in:
parent
9224001a22
commit
0c04936ccf
356 changed files with 8408 additions and 4725 deletions
204
hw6/test/analysistests.ml
Normal file
204
hw6/test/analysistests.ml
Normal file
|
|
@ -0,0 +1,204 @@
|
|||
open Oat
|
||||
open Datastructures
|
||||
|
||||
let liveness_analysis_tests =
|
||||
[ "llprograms/analysis9.ll", lblm[
|
||||
"_entry", uids[]
|
||||
; "body", uids["1"; "2"; "d0"; "d1"]
|
||||
; "end", uids["1"]
|
||||
; "guard", uids["1"; "2"; "d0"]
|
||||
]
|
||||
; "llprograms/analysis8.ll", lblm[
|
||||
"_entry", uids[]
|
||||
]
|
||||
; "llprograms/analysis7.ll", lblm[
|
||||
"_entry", uids[]
|
||||
; "body", uids["1"; "4"]
|
||||
; "end", uids["1"]
|
||||
; "guard", uids["1"; "4"]
|
||||
]
|
||||
; "llprograms/analysis5.ll", lblm[
|
||||
"_entry", uids[]
|
||||
]
|
||||
; "llprograms/analysis4.ll", lblm[
|
||||
"_entry", uids["argc"]
|
||||
; "l1", uids["2"; "3"]
|
||||
; "l2", uids["3"]
|
||||
]
|
||||
; "llprograms/analysis3.ll", lblm[
|
||||
"_entry", uids[]
|
||||
; "l2", uids["1"]
|
||||
; "l3", uids["2"]
|
||||
; "l4", uids["3"]
|
||||
; "l5", uids["4"]
|
||||
; "l6", uids["5"]
|
||||
; "l7", uids["6"]
|
||||
; "l8", uids["7"]
|
||||
; "l9", uids["8"]
|
||||
; "lexit", uids["9"]
|
||||
]
|
||||
; "llprograms/analysis2.ll", lblm[
|
||||
"_entry", uids["argc"]
|
||||
; "l1", uids["1"; "3"]
|
||||
; "l2", uids[]
|
||||
]
|
||||
; "llprograms/analysis19.ll", lblm[
|
||||
"_entry", uids[]
|
||||
]
|
||||
; "llprograms/analysis15.ll", lblm[
|
||||
"_entry", uids[]
|
||||
]
|
||||
; "llprograms/analysis14.ll", lblm[
|
||||
"_entry", uids[]
|
||||
]
|
||||
; "llprograms/analysis11.ll", lblm[
|
||||
"_entry", uids[]
|
||||
; "foo", uids[]
|
||||
]
|
||||
; "llprograms/analysis10.ll", lblm[
|
||||
"_entry", uids[]
|
||||
; "else", uids["1"; "7"]
|
||||
; "merge", uids["1"; "7"]
|
||||
; "then", uids["1"; "7"]
|
||||
]
|
||||
; "llprograms/analysis1.ll", lblm[
|
||||
"_entry", uids["argc"]
|
||||
; "l1", uids["1"; "3"]
|
||||
]
|
||||
]
|
||||
|
||||
|
||||
let alias_analysis_tests =
|
||||
let open Alias.SymPtr in
|
||||
[ "llprograms/analysis9.ll", lblm[
|
||||
"_entry", uidm["1", Unique; "2", Unique; "argv", MayAlias]
|
||||
; "body", uidm["1", Unique; "2", Unique; "argv", MayAlias]
|
||||
; "end", uidm["1", Unique; "2", Unique; "argv", MayAlias]
|
||||
; "guard", uidm["1", Unique; "2", Unique; "argv", MayAlias]
|
||||
]
|
||||
; "llprograms/analysis8.ll", lblm[
|
||||
"_entry", uidm["argv", MayAlias; "tmp1", Unique]
|
||||
]
|
||||
; "llprograms/analysis7.ll", lblm[
|
||||
"_entry", uidm["2", Unique; "4", Unique; "argv", MayAlias]
|
||||
; "body", uidm["2", Unique; "4", Unique; "argv", MayAlias]
|
||||
; "end", uidm["2", Unique; "4", Unique; "argv", MayAlias]
|
||||
; "guard", uidm["2", Unique; "4", Unique; "argv", MayAlias]
|
||||
]
|
||||
; "llprograms/analysis5.ll", lblm[
|
||||
"_entry", uidm["argv", MayAlias]
|
||||
]
|
||||
; "llprograms/analysis4.ll", lblm[
|
||||
"_entry", uidm["3", Unique; "arcv", MayAlias]
|
||||
; "l1", uidm["3", MayAlias; "6", MayAlias; "7", MayAlias; "arcv", MayAlias]
|
||||
; "l2", uidm["3", MayAlias; "6", MayAlias; "7", MayAlias; "arcv", MayAlias]
|
||||
]
|
||||
; "llprograms/analysis3.ll", lblm[
|
||||
"_entry", uidm["arcv", MayAlias]
|
||||
; "l2", uidm["arcv", MayAlias]
|
||||
; "l3", uidm["arcv", MayAlias]
|
||||
; "l4", uidm["arcv", MayAlias]
|
||||
; "l5", uidm["arcv", MayAlias]
|
||||
; "l6", uidm["arcv", MayAlias]
|
||||
; "l7", uidm["arcv", MayAlias]
|
||||
; "l8", uidm["arcv", MayAlias]
|
||||
; "l9", uidm["arcv", MayAlias]
|
||||
; "lexit", uidm["arcv", MayAlias]
|
||||
]
|
||||
; "llprograms/analysis2.ll", lblm[
|
||||
"_entry", uidm["3", Unique; "arcv", MayAlias]
|
||||
; "l1", uidm["3", MayAlias; "5", MayAlias; "arcv", MayAlias]
|
||||
; "l2", uidm["3", Unique; "arcv", MayAlias]
|
||||
]
|
||||
; "llprograms/analysis19.ll", lblm[
|
||||
"_entry", uidm["1", Unique; "2", MayAlias; "arcv", MayAlias]
|
||||
]
|
||||
; "llprograms/analysis15.ll", lblm[
|
||||
"_entry", uidm["arcv", MayAlias; "head", MayAlias; "link", MayAlias; "link2", MayAlias; "next", MayAlias; "next2", MayAlias; "val", MayAlias; "val2", MayAlias]
|
||||
]
|
||||
; "llprograms/analysis14.ll", lblm[
|
||||
"_entry", uidm["1", MayAlias; "2", MayAlias; "arcv", MayAlias]
|
||||
]
|
||||
; "llprograms/analysis11.ll", lblm[
|
||||
"_entry", uidm["argv", MayAlias]
|
||||
; "foo", uidm["4", Unique; "5", Unique]
|
||||
]
|
||||
; "llprograms/analysis1.ll", lblm[
|
||||
"_entry", uidm["3", Unique; "arcv", MayAlias]
|
||||
; "l1", uidm["3", MayAlias; "4", MayAlias; "arcv", MayAlias]
|
||||
]
|
||||
]
|
||||
|
||||
|
||||
|
||||
let constprop_analysis_tests =
|
||||
let open Constprop.SymConst in
|
||||
[ "llprograms/analysis8.ll", lblm[
|
||||
"_entry", uidm["a", Const (1L); "argc", NonConst; "argv", NonConst; "b", Const (3L); "c", Const (6L); "d", Const (10L); "e", Const (15L); "f", Const (21L); "g", Const (28L); "h", Const (36L); "i", Const (45L); "j", Const (55L); "k", Const (66L); "l", Const (78L); "m", Const (91L); "n", NonConst; "o", NonConst; "p", NonConst; "q", NonConst; "r", NonConst; "s", NonConst; "t", NonConst; "tmp1", NonConst; "tmp2", NonConst; "u", NonConst; "v", NonConst; "w", NonConst; "x", NonConst; "y", NonConst; "z", NonConst]
|
||||
]
|
||||
; "llprograms/analysis7.ll", lblm[
|
||||
"_entry", uidm["1", Const (10L); "2", NonConst; "3", Const (1L); "4", NonConst; "argc", NonConst; "argv", NonConst]
|
||||
; "body", uidm["1", Const (10L); "2", NonConst; "3", Const (1L); "4", NonConst; "5", NonConst; "6", NonConst; "7", NonConst; "8", NonConst; "argc", NonConst; "argv", NonConst]
|
||||
; "end", uidm["1", Const (10L); "2", NonConst; "3", Const (1L); "4", NonConst; "5", NonConst; "6", NonConst; "7", NonConst; "8", NonConst; "argc", NonConst; "argv", NonConst]
|
||||
; "guard", uidm["1", Const (10L); "2", NonConst; "3", Const (1L); "4", NonConst; "5", NonConst; "6", NonConst; "7", NonConst; "8", NonConst; "argc", NonConst; "argv", NonConst]
|
||||
]
|
||||
; "llprograms/analysis6.ll", lblm[
|
||||
"_entry", uidm["1", Const (2L); "2", Const (3L); "3", Const (4L); "argc", NonConst; "argv", NonConst]
|
||||
; "else", uidm["1", Const (2L); "2", Const (3L); "3", Const (4L); "4", Const (1L); "argc", NonConst; "argv", NonConst]
|
||||
; "merge", uidm["1", Const (2L); "2", Const (3L); "3", Const (4L); "4", Const (1L); "argc", NonConst; "argv", NonConst]
|
||||
; "then", uidm["1", Const (2L); "2", Const (3L); "3", Const (4L); "4", Const (1L); "argc", NonConst; "argv", NonConst]
|
||||
]
|
||||
; "llprograms/analysis5.ll", lblm[
|
||||
"_entry", uidm["1", Const (7L); "2", Const (7L); "3", Const (14L); "argc", NonConst; "argv", NonConst]
|
||||
]
|
||||
; "llprograms/analysis4.ll", lblm[
|
||||
"_entry", uidm["1", Const (49L); "2", NonConst; "3", NonConst; "arcv", NonConst; "argc", NonConst]
|
||||
; "l1", uidm["1", Const (49L); "2", NonConst; "3", NonConst; "4", NonConst; "5", NonConst; "6", NonConst; "7", NonConst; "8", NonConst; "9", NonConst; "arcv", NonConst; "argc", NonConst]
|
||||
; "l2", uidm["1", Const (49L); "10", NonConst; "2", NonConst; "3", NonConst; "4", NonConst; "5", NonConst; "6", NonConst; "7", NonConst; "8", NonConst; "9", NonConst; "arcv", NonConst; "argc", NonConst]
|
||||
]
|
||||
; "llprograms/analysis3.ll", lblm[
|
||||
"_entry", uidm["1", Const (14L); "arcv", NonConst; "argc", NonConst]
|
||||
; "l2", uidm["1", Const (14L); "2", Const (28L); "arcv", NonConst; "argc", NonConst]
|
||||
; "l3", uidm["1", Const (14L); "2", Const (28L); "3", Const (-4L); "arcv", NonConst; "argc", NonConst]
|
||||
; "l4", uidm["1", Const (14L); "2", Const (28L); "3", Const (-4L); "4", Const (-8L); "arcv", NonConst; "argc", NonConst]
|
||||
; "l5", uidm["1", Const (14L); "2", Const (28L); "3", Const (-4L); "4", Const (-8L); "5", Const (15L); "arcv", NonConst; "argc", NonConst]
|
||||
; "l6", uidm["1", Const (14L); "2", Const (28L); "3", Const (-4L); "4", Const (-8L); "5", Const (15L); "6", Const (3L); "arcv", NonConst; "argc", NonConst]
|
||||
; "l7", uidm["1", Const (14L); "2", Const (28L); "3", Const (-4L); "4", Const (-8L); "5", Const (15L); "6", Const (3L); "7", Const (3L); "arcv", NonConst; "argc", NonConst]
|
||||
; "l8", uidm["1", Const (14L); "2", Const (28L); "3", Const (-4L); "4", Const (-8L); "5", Const (15L); "6", Const (3L); "7", Const (3L); "8", Const (67L); "arcv", NonConst; "argc", NonConst]
|
||||
; "l9", uidm["1", Const (14L); "2", Const (28L); "3", Const (-4L); "4", Const (-8L); "5", Const (15L); "6", Const (3L); "7", Const (3L); "8", Const (67L); "9", Const (188L); "arcv", NonConst; "argc", NonConst]
|
||||
; "lexit", uidm["1", Const (14L); "2", Const (28L); "3", Const (-4L); "4", Const (-8L); "5", Const (15L); "6", Const (3L); "7", Const (3L); "8", Const (67L); "9", Const (188L); "arcv", NonConst; "argc", NonConst]
|
||||
]
|
||||
; "llprograms/analysis2.ll", lblm[
|
||||
"_entry", uidm["1", Const (49L); "2", NonConst; "3", NonConst; "4", Const (0L); "arcv", NonConst; "argc", NonConst]
|
||||
; "l1", uidm["1", Const (49L); "2", NonConst; "3", NonConst; "4", Const (0L); "5", NonConst; "arcv", NonConst; "argc", NonConst]
|
||||
; "l2", uidm["1", Const (49L); "2", NonConst; "3", NonConst; "4", Const (0L); "arcv", NonConst; "argc", NonConst]
|
||||
]
|
||||
; "llprograms/analysis19.ll", lblm[
|
||||
"_entry", uidm["1", NonConst; "2", NonConst; "3", NonConst; "arcv", NonConst; "argc", NonConst]
|
||||
]
|
||||
; "llprograms/analysis17.ll", lblm[
|
||||
"_entry", uidm["i1", Const (2L); "i2", Const (3L); "sx", NonConst; "sy", NonConst; "v1", NonConst; "v2", NonConst; "v3", NonConst; "x", NonConst; "y", NonConst]
|
||||
; "l1", uidm["a1", NonConst; "arg1", Const (12L); "i1", Const (2L); "i2", Const (3L); "sx", NonConst; "sy", NonConst; "v1", NonConst; "v2", NonConst; "v3", NonConst; "v4", NonConst; "x", NonConst; "y", NonConst]
|
||||
]
|
||||
; "llprograms/analysis15.ll", lblm[
|
||||
"_entry", uidm["1", NonConst; "arcv", NonConst; "argc", NonConst; "head", NonConst; "link", NonConst; "link2", NonConst; "next", NonConst; "next2", NonConst; "val", NonConst; "val2", NonConst]
|
||||
]
|
||||
; "llprograms/analysis14.ll", lblm[
|
||||
"_entry", uidm["1", NonConst; "2", NonConst; "3", Const (2L); "4", Const (0L); "arcv", NonConst; "argc", NonConst]
|
||||
]
|
||||
; "llprograms/analysis11.ll", lblm[
|
||||
"_entry", uidm["1", Const (1L); "2", Const (2L); "3", Const (3L); "argc", NonConst; "argv", NonConst]
|
||||
; "foo", uidm["4", NonConst; "5", NonConst; "6", NonConst; "7", NonConst; "8", NonConst; "9", NonConst]
|
||||
]
|
||||
; "llprograms/analysis10.ll", lblm[
|
||||
"_entry", uidm["1", Const (30L); "2", Const (6L); "3", Const (3L); "4", NonConst; "5", NonConst; "6", Const (12L); "7", NonConst; "8", NonConst; "9", Const (1L); "argc", NonConst; "argv", NonConst]
|
||||
; "else", uidm["1", Const (30L); "12", NonConst; "13", NonConst; "2", Const (6L); "3", Const (3L); "4", NonConst; "5", NonConst; "6", Const (12L); "7", NonConst; "8", NonConst; "9", Const (1L); "argc", NonConst; "argv", NonConst]
|
||||
; "merge", uidm["1", Const (30L); "10", NonConst; "11", NonConst; "12", NonConst; "13", NonConst; "14", NonConst; "15", Const (30L); "16", NonConst; "2", Const (6L); "3", Const (3L); "4", NonConst; "5", NonConst; "6", Const (12L); "7", NonConst; "8", NonConst; "9", Const (1L); "argc", NonConst; "argv", NonConst]
|
||||
; "then", uidm["1", Const (30L); "10", NonConst; "11", NonConst; "2", Const (6L); "3", Const (3L); "4", NonConst; "5", NonConst; "6", Const (12L); "7", NonConst; "8", NonConst; "9", Const (1L); "argc", NonConst; "argv", NonConst]
|
||||
]
|
||||
; "llprograms/analysis1.ll", lblm[
|
||||
"_entry", uidm["1", Const (49L); "2", NonConst; "3", NonConst; "arcv", NonConst; "argc", NonConst]
|
||||
; "l1", uidm["1", Const (49L); "2", NonConst; "3", NonConst; "4", NonConst; "arcv", NonConst; "argc", NonConst]
|
||||
]
|
||||
]
|
||||
|
||||
15
hw6/test/dune
Normal file
15
hw6/test/dune
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
(env
|
||||
(dev
|
||||
(flags
|
||||
(:standard -g -w "+a-4-7-9-26-27-29-30-32..42-44-45-48-50-60-66..70")
|
||||
)))
|
||||
|
||||
(library
|
||||
(name studenttests)
|
||||
(modules studenttests)
|
||||
(libraries util x86 ll oat))
|
||||
|
||||
(library
|
||||
(name gradedtests)
|
||||
(modules gradedtests analysistests)
|
||||
(libraries util x86 ll oat))
|
||||
527
hw6/test/gradedtests.ml
Normal file
527
hw6/test/gradedtests.ml
Normal file
|
|
@ -0,0 +1,527 @@
|
|||
open Util.Assert
|
||||
open X86
|
||||
open Oat
|
||||
open Driver
|
||||
open Ll
|
||||
open Backend
|
||||
open Analysistests
|
||||
open Datastructures
|
||||
|
||||
(* Do NOT modify this file -- we will overwrite it with our *)
|
||||
(* own version when we test your project. *)
|
||||
|
||||
(* These tests will be used to grade your assignment *)
|
||||
|
||||
let exec_ll_ast path ll_ast args extra_files =
|
||||
let () = Platform.verb @@ Printf.sprintf "** exec_ll_ast: %s\n" path in
|
||||
|
||||
let output_path = !Platform.output_path in
|
||||
|
||||
(* First - optimize the ll ast *)
|
||||
let _ = Opt.opt_level := 1 in
|
||||
let ll_ast = Opt.optimize ll_ast in
|
||||
|
||||
(* Write out the optimized ll file for debugging purposes *)
|
||||
let ll_str = Driver.string_of_ll_ast path ll_ast in
|
||||
let dot_ll_file = Platform.gen_name output_path "test" ".ll" in
|
||||
let () = write_file dot_ll_file ll_str in
|
||||
|
||||
(* Run the ll backend *)
|
||||
let _ = Backend.set_liveness "dataflow" in
|
||||
let _ = Backend.set_regalloc "better" in
|
||||
let asm_ast = Backend.compile_prog ll_ast in
|
||||
let asm_str = X86.string_of_prog asm_ast in
|
||||
|
||||
(* Write out the resulting .s file for debugging purposes *)
|
||||
let dot_s_file = Platform.gen_name output_path "test" ".s" in
|
||||
let _ = Driver.write_file dot_s_file asm_str in
|
||||
|
||||
(* Create the executable *)
|
||||
let exec_file = Platform.gen_name output_path "exec" "" in
|
||||
let _ = Platform.link (dot_s_file::extra_files) exec_file in
|
||||
|
||||
(* Run it, piping the output to a temporary file *)
|
||||
let tmp_file = Platform.gen_name output_path "tmp" ".txt" in
|
||||
let result = Driver.run_program args exec_file tmp_file in
|
||||
let () = Platform.sh (Printf.sprintf "rm -f %s %s %s" dot_ll_file exec_file tmp_file) Platform.ignore_error in
|
||||
let () = Platform.verb @@ Printf.sprintf "** Executable output:\n%s\n" result in
|
||||
result
|
||||
|
||||
let exec_ll_file path args =
|
||||
let ast = Driver.parse_ll_file path in
|
||||
exec_ll_ast path ast args []
|
||||
|
||||
let oat_file_e2e_test path args =
|
||||
let () = Platform.verb @@ Printf.sprintf "** oat_file_e2e_test: %s\n" path in
|
||||
(* Run the Oat typechecker and frontend *)
|
||||
let oat_ast = parse_oat_file path in
|
||||
Typechecker.typecheck_program oat_ast;
|
||||
let ll_ast = Frontend.cmp_prog oat_ast in
|
||||
exec_ll_ast path ll_ast args ["bin/runtime.c"]
|
||||
|
||||
let pass_all = ref true
|
||||
let pass_all_executed_ll_file tests =
|
||||
List.map (fun (fn, ans) ->
|
||||
fn, (fun () ->
|
||||
try assert_eqfs (fun () -> exec_ll_file fn "") ans ()
|
||||
with exn -> pass_all := false; raise exn))
|
||||
tests
|
||||
|
||||
let pass_all_executed_oat_file tests =
|
||||
List.map (fun (path, args, ans) ->
|
||||
(path ^ " args: " ^ args),
|
||||
(fun () ->
|
||||
try assert_eqfs (fun () -> oat_file_e2e_test path args) ans ()
|
||||
with exn -> pass_all := false; raise exn))
|
||||
tests
|
||||
|
||||
let compile_with_config live regalloc ll_ast =
|
||||
let open Registers in
|
||||
let open Backend in
|
||||
let _ = set_liveness live in
|
||||
let _ = set_regalloc regalloc in
|
||||
let asm_ast = compile_prog ll_ast in
|
||||
let (histogram,size) = histogram_of_prog asm_ast in
|
||||
histogram, size, asm_ast
|
||||
|
||||
let assert_quality fn ll_ast =
|
||||
if not !pass_all then failwith "Your register allocator failed a correctness test" else
|
||||
let _ = Opt.opt_level := 1 in
|
||||
let ll_ast = Opt.optimize ll_ast in
|
||||
let h_greedy, size_greedy, x86_greedy = compile_with_config "dataflow" "greedy" ll_ast in
|
||||
let h_better, size_better, x86_better = compile_with_config "dataflow" "better" ll_ast in
|
||||
let mem_greedy = Registers.memop_of_prog x86_greedy in
|
||||
let mem_better = Registers.memop_of_prog x86_better in
|
||||
let _ =
|
||||
if !Driver.print_regs_flag then begin
|
||||
Printf.printf "greedy sz: %4d mem: %4d\t\tbetter sz: %4d mem: %4d \t diff_sz: %4d diff_mem: %4d - %s\n"
|
||||
size_greedy mem_greedy size_better mem_better (size_greedy - size_better) (mem_greedy - mem_better) fn
|
||||
end
|
||||
in
|
||||
if
|
||||
mem_better < mem_greedy then ()
|
||||
else if
|
||||
size_better < size_greedy then ()
|
||||
else failwith @@ Printf.sprintf "greedy is better"
|
||||
|
||||
let assert_quality_oat fn () =
|
||||
let oat_ast = parse_oat_file fn in
|
||||
let ll_ast = Frontend.cmp_prog oat_ast in
|
||||
assert_quality fn ll_ast
|
||||
|
||||
let quality_oat tests =
|
||||
List.map (fun (fn, _, _) -> fn, assert_quality_oat fn) tests
|
||||
|
||||
|
||||
|
||||
let fdecl_of_path path =
|
||||
Platform.verb @@ Printf.sprintf "* processing file: %s\n" path;
|
||||
let ll_ast = parse_ll_file path in
|
||||
match ll_ast.Ll.fdecls with
|
||||
| [_, fdecl] -> (fdecl, ll_ast.tdecls)
|
||||
| _ -> failwith "test expected one fdecl"
|
||||
|
||||
let ll_dfa_file_test path compare analyze expected =
|
||||
let (fdecl, _) = fdecl_of_path path in
|
||||
let dfa = analyze (Cfg.of_ast fdecl) in
|
||||
compare dfa expected
|
||||
|
||||
let throw_key_diff compare val_to_string a b =
|
||||
let keys = LblM.diff_keys compare a b in
|
||||
if List.length keys == 0 then ()
|
||||
else begin
|
||||
let str_a = LblM.to_string val_to_string a in
|
||||
let str_b = LblM.to_string val_to_string b in
|
||||
failwith @@ Printf.sprintf "Output differs at labels: %s in maps\n%s\n%s\n"
|
||||
(String.concat ", " keys)
|
||||
str_a
|
||||
str_b
|
||||
end
|
||||
|
||||
let ll_opt_file_test path optimize ans =
|
||||
let (fdecl, tdecls) = fdecl_of_path path in
|
||||
let expected = (Cfg.of_ast @@ fst @@ fdecl_of_path ans).Cfg.blocks in
|
||||
let opt = optimize (Cfg.of_ast fdecl) in
|
||||
let printer k b = Printf.sprintf "%s %s" (Lbl.to_string k) (Llutil.string_of_block tdecls b) in
|
||||
throw_key_diff Llutil.compare_block printer opt expected
|
||||
|
||||
let dfa_liveness_file (tests : (string * 'a Datastructures.LblM.t) list) =
|
||||
let open Liveness in
|
||||
let analyze f = Graph.dfa (analyze f) in
|
||||
let printer k s = Printf.sprintf "%s %s" (Lbl.to_string k) (UidS.to_string s) in
|
||||
List.map (fun (path, ans) ->
|
||||
("liveness: " ^ path,
|
||||
fun () -> ll_dfa_file_test path (throw_key_diff Fact.compare printer) analyze ans)) tests
|
||||
|
||||
let dfa_alias_file tests =
|
||||
let open Alias in
|
||||
let analyze f = Graph.dfa (analyze f) in
|
||||
let printer k f = Printf.sprintf "%s %s" (Lbl.to_string k) (Alias.Fact.to_string f) in
|
||||
List.map (fun (path, ans) ->
|
||||
("alias: " ^ path,
|
||||
fun () -> ll_dfa_file_test path (throw_key_diff Fact.compare printer) analyze ans)) tests
|
||||
|
||||
let dfa_constprop_file tests =
|
||||
let open Constprop in
|
||||
let analyze f = Graph.dfa (analyze f) in
|
||||
let printer k f = Printf.sprintf "%s %s" (Lbl.to_string k) (Constprop.Fact.to_string f) in
|
||||
List.map (fun (path, ans) ->
|
||||
("constprop: " ^ path,
|
||||
fun () -> ll_dfa_file_test path (throw_key_diff Fact.compare printer) analyze ans)) tests
|
||||
|
||||
let opt_dce_file tests =
|
||||
let opt g =
|
||||
let ag = Alias.analyze g in
|
||||
let lg = Liveness.analyze g in
|
||||
let g = Dce.run lg ag g in
|
||||
g.Cfg.blocks
|
||||
in
|
||||
List.map (fun (path, ans) ->
|
||||
(Printf.sprintf "dce opt: %s, %s"
|
||||
(Filename.basename path) (Filename.basename ans),
|
||||
fun () -> ll_opt_file_test path opt ans)) tests
|
||||
|
||||
let opt_constfold_file tests =
|
||||
let opt g =
|
||||
let cg = Constprop.analyze g in
|
||||
let g = Constprop.run cg g in
|
||||
g.Cfg.blocks
|
||||
in
|
||||
List.map (fun (path, ans) ->
|
||||
(Printf.sprintf "constprop opt: %s, %s"
|
||||
(Filename.basename path) (Filename.basename ans),
|
||||
fun () -> ll_opt_file_test path opt ans)) tests
|
||||
|
||||
(* this test harness is used for part iv of the homework -------------------- *)
|
||||
let executed_fullopt_file tests =
|
||||
let opt n g = let g = Opt.pass n g in g.Cfg.blocks in
|
||||
List.map (fun (n, path, ans) ->
|
||||
(Printf.sprintf "fullopt %d iterations: %s" n path,
|
||||
fun () -> ll_opt_file_test path (opt n) ans)) tests
|
||||
|
||||
|
||||
let binop_tests =
|
||||
[ "llprograms/add.ll", "14"
|
||||
; "llprograms/sub.ll", "1"
|
||||
; "llprograms/mul.ll", "45"
|
||||
; "llprograms/and.ll", "0"
|
||||
; "llprograms/or.ll", "1"
|
||||
; "llprograms/xor.ll", "0"
|
||||
; "llprograms/shl.ll", "168"
|
||||
; "llprograms/lshr.ll", "10"
|
||||
; "llprograms/ashr.ll", "5" ]
|
||||
|
||||
let calling_convention_tests =
|
||||
[ "llprograms/call.ll", "42"
|
||||
; "llprograms/call1.ll", "17"
|
||||
; "llprograms/call2.ll", "19"
|
||||
; "llprograms/call3.ll", "34"
|
||||
; "llprograms/call4.ll", "34"
|
||||
; "llprograms/call5.ll", "24"
|
||||
; "llprograms/call6.ll", "26"
|
||||
; "llprograms/call7.ll", "7"
|
||||
; "llprograms/call8.ll", "21"
|
||||
]
|
||||
|
||||
let memory_tests =
|
||||
[ "llprograms/alloca1.ll", "17"
|
||||
; "llprograms/alloca2.ll", "17"
|
||||
; "llprograms/global1.ll", "12"
|
||||
]
|
||||
|
||||
let terminator_tests =
|
||||
[ "llprograms/return.ll", "0"
|
||||
; "llprograms/return42.ll", "42"
|
||||
; "llprograms/br1.ll", "9"
|
||||
; "llprograms/br2.ll", "17"
|
||||
; "llprograms/cbr1.ll", "7"
|
||||
; "llprograms/cbr2.ll", "9"
|
||||
; "llprograms/cbr3.ll", "9"
|
||||
]
|
||||
|
||||
let bitcast_tests =
|
||||
[ "llprograms/bitcast1.ll", "3"
|
||||
]
|
||||
|
||||
let gep_tests =
|
||||
[ "llprograms/gep1.ll", "6"
|
||||
; "llprograms/gep2.ll", "4"
|
||||
; "llprograms/gep3.ll", "1"
|
||||
; "llprograms/gep4.ll", "2"
|
||||
; "llprograms/gep5.ll", "4"
|
||||
; "llprograms/gep6.ll", "7"
|
||||
; "llprograms/gep7.ll", "7"
|
||||
; "llprograms/gep8.ll", "2"
|
||||
; "llprograms/gep9.ll", "5"
|
||||
; "llprograms/gep10.ll", "3"
|
||||
]
|
||||
|
||||
|
||||
let arithmetic_tests =
|
||||
[ "llprograms/add_twice.ll", "29"
|
||||
; "llprograms/sub_neg.ll", "255" (* Why, oh why, does the termianl only report the last byte? *)
|
||||
; "llprograms/arith_combo.ll", "4"
|
||||
; "llprograms/return_intermediate.ll", "18" ]
|
||||
|
||||
let sum_tree_tests = ["llprograms/sum_tree.ll", "116"]
|
||||
let gcd_euclidian_tests = [ "llprograms/gcd_euclidian.ll", "2"]
|
||||
let sieve_tests = [["bin/cinterop.c"], "llprograms/sieve.ll", [], "1"]
|
||||
let binary_search_tests = ["llprograms/binarysearch.ll", "8"]
|
||||
let gep_5_deep_tests = ["llprograms/qtree.ll", "3"]
|
||||
let binary_gcd_tests = ["llprograms/binary_gcd.ll", "3"]
|
||||
let linear_search_tests = ["llprograms/linear_search.ll", "1"]
|
||||
let lfsr_tests = ["llprograms/lfsr.ll", "108"]
|
||||
let naive_factor_tests =
|
||||
[ "llprograms/naive_factor_prime.ll", "1"
|
||||
; "llprograms/naive_factor_nonprime.ll", "0"
|
||||
]
|
||||
let euclid_recursive_test = ["llprograms/euclid.ll", "2"]
|
||||
let matmul_tests = ["llprograms/matmul.ll", "0"]
|
||||
|
||||
let large_tests = [ "llprograms/list1.ll", "3"
|
||||
; "llprograms/cbr.ll", "42"
|
||||
; "llprograms/factorial.ll", "120"
|
||||
; "llprograms/factrect.ll", "120"
|
||||
]
|
||||
|
||||
let ll_tests =
|
||||
binop_tests
|
||||
@ terminator_tests
|
||||
@ memory_tests
|
||||
@ calling_convention_tests
|
||||
@ bitcast_tests
|
||||
@ gep_tests
|
||||
@ arithmetic_tests
|
||||
@ sum_tree_tests
|
||||
@ gcd_euclidian_tests
|
||||
@ binary_search_tests
|
||||
@ gep_5_deep_tests
|
||||
@ binary_gcd_tests
|
||||
@ linear_search_tests
|
||||
@ lfsr_tests
|
||||
@ naive_factor_tests
|
||||
@ euclid_recursive_test
|
||||
@ matmul_tests
|
||||
@ large_tests
|
||||
|
||||
(* Should not be used for quality tests *)
|
||||
let greedy_is_good_tests = [
|
||||
("hw4programs/easyrun1.oat", "", "17");
|
||||
("hw4programs/easyrun2.oat", "", "35");
|
||||
("hw4programs/easyrun5.oat", "", "212");
|
||||
("hw4programs/easyrun6.oat", "", "9");
|
||||
("hw4programs/easyrun7.oat", "", "23");
|
||||
("hw4programs/easyrun8.oat", "", "160");
|
||||
("hw4programs/path1.oat", "", "17");
|
||||
("hw4programs/run26.oat", "", "0");
|
||||
("hw4programs/run27.oat", "", "99");
|
||||
("hw4programs/run29.oat", "", "1");
|
||||
("hw4programs/run30.oat", "", "9");
|
||||
("hw4programs/run31.oat", "", "9");
|
||||
("hw4programs/run13.oat", "", "1");
|
||||
("hw4programs/run38.oat", "", "31");
|
||||
("hw4programs/run40.oat", "", "8");
|
||||
("hw4programs/run60.oat", "", "85");
|
||||
("hw5programs/ifq2.oat", "", "5");
|
||||
("hw5programs/length1.oat", "", "5");
|
||||
]
|
||||
|
||||
|
||||
let hw4_easiest_tests = [
|
||||
("hw4programs/easyrun3.oat", "", "73");
|
||||
("hw4programs/easyrun4.oat", "", "6");
|
||||
("hw4programs/easyrun9.oat", "", "236");
|
||||
]
|
||||
|
||||
(* Should not be used for quality tests *)
|
||||
let hw4_globals_tests = [
|
||||
("hw4programs/globals1.oat", "", "42");
|
||||
("hw4programs/globals2.oat", "", "17");
|
||||
("hw4programs/globals3.oat", "", "17");
|
||||
("hw4programs/globals4.oat", "", "5");
|
||||
("hw4programs/globals5.oat", "", "17");
|
||||
("hw4programs/globals6.oat", "", "15");
|
||||
]
|
||||
|
||||
let hw4_path_tests = [
|
||||
("hw4programs/path2.oat", "", "35");
|
||||
("hw4programs/path3.oat", "", "3");
|
||||
("hw4programs/arrayargs1.oat", "", "17");
|
||||
("hw4programs/arrayargs2.oat", "", "17");
|
||||
("hw4programs/arrayargs4.oat", "", "0");
|
||||
]
|
||||
|
||||
let hw4_easy_tests = [
|
||||
("hw4programs/run28.oat", "", "18");
|
||||
("hw4programs/run32.oat", "", "33");
|
||||
("hw4programs/run21.oat", "", "99");
|
||||
("hw4programs/run33.oat", "", "1");
|
||||
("hw4programs/run34.oat", "", "66");
|
||||
("hw4programs/run39.oat", "a", "2");
|
||||
("hw4programs/run42.oat", "", "2");
|
||||
("hw4programs/run49.oat", "", "abc0");
|
||||
("hw4programs/run50.oat", "", "abcde0");
|
||||
("hw4programs/run61.oat", "", "3410");
|
||||
]
|
||||
|
||||
let hw4_medium_tests = [
|
||||
("hw4programs/fact.oat", "", "1200");
|
||||
("hw4programs/run1.oat", "", "153");
|
||||
("hw4programs/run2.oat", "", "6");
|
||||
("hw4programs/run8.oat", "", "2");
|
||||
("hw4programs/run9.oat", "", "4");
|
||||
("hw4programs/run10.oat", "", "5");
|
||||
("hw4programs/run11.oat", "", "7");
|
||||
("hw4programs/run14.oat", "", "16");
|
||||
("hw4programs/run15.oat", "", "19");
|
||||
("hw4programs/run16.oat", "", "13");
|
||||
("hw4programs/run22.oat", "", "abc0");
|
||||
("hw4programs/run23.oat", "", "1230");
|
||||
("hw4programs/run25.oat", "", "nnn0");
|
||||
("hw4programs/run46.oat", "", "420");
|
||||
("hw4programs/run47.oat", "", "3");
|
||||
("hw4programs/run48.oat", "", "11");
|
||||
("hw4programs/lib4.oat", "", "53220");
|
||||
("hw4programs/lib5.oat", "", "20");
|
||||
("hw4programs/lib6.oat", "", "56553");
|
||||
("hw4programs/lib7.oat", "", "53");
|
||||
("hw4programs/lib8.oat", "", "Hello world!0");
|
||||
("hw4programs/lib9.oat", "a b c d", "abcd5");
|
||||
("hw4programs/lib11.oat", "", "45");
|
||||
("hw4programs/lib14.oat", "", "~}|{zyxwvu0");
|
||||
("hw4programs/lib15.oat", "123456789", "456780");
|
||||
("hw4programs/regalloctest.oat", "", "0");
|
||||
("hw4programs/regalloctest2.oat", "", "137999986200000000")
|
||||
]
|
||||
|
||||
let hw4_hard_tests = [
|
||||
("hw4programs/fac.oat", "", "120");
|
||||
("hw4programs/bsort.oat", "", "y}xotnuw notuwxy}255");
|
||||
("hw4programs/msort.oat", "", "~}|{zyxwvu uvwxyz{|}~ 0");
|
||||
("hw4programs/msort2.oat", "", "~}|{zyxwvu uvwxyz{|}~ 0");
|
||||
("hw4programs/selectionsort.oat", "", "01253065992000");
|
||||
("hw4programs/matrixmult.oat", "", "19 16 13 23 \t5 6 7 6 \t19 16 13 23 \t5 6 7 6 \t0");
|
||||
("hw4programs/binary_search.oat", "", "Correct!0");
|
||||
("hw4programs/xor_shift.oat", "", "838867572\n22817190600");
|
||||
("hw4programs/gcd.oat", "", "16")
|
||||
]
|
||||
|
||||
let struct_tests = [
|
||||
("hw5programs/compile_assign_struct.oat", "", "16");
|
||||
("hw5programs/compile_basic_struct.oat", "", "7");
|
||||
("hw5programs/compile_global_struct.oat", "", "254");
|
||||
("hw5programs/compile_nested_struct.oat", "", "10");
|
||||
("hw5programs/compile_return_struct.oat", "", "0");
|
||||
("hw5programs/compile_struct_array.oat", "", "15");
|
||||
("hw5programs/compile_struct_fptr.oat", "", "7");
|
||||
("hw5programs/compile_various_fields.oat", "", "hello253");
|
||||
]
|
||||
|
||||
let fptr_tests = [
|
||||
("hw5programs/compile_array_fptr.oat", "", "2");
|
||||
("hw5programs/compile_func_argument.oat", "", "4");
|
||||
("hw5programs/compile_global_fptr.oat", "", "7");
|
||||
("hw5programs/compile_global_fptr_unordered.oat", "", "2");
|
||||
("hw5programs/compile_scall_fptr.oat", "", "4");
|
||||
("hw5programs/compile_var_fptr.oat", "", "1");
|
||||
("hw5programs/compile_local_fptr.oat", "", "5");
|
||||
("hw5programs/compile_function_shadow.oat", "", "12");
|
||||
("hw5programs/compile_global_struct_fptr.oat", "", "20");
|
||||
("hw5programs/compile_builtin_argument.oat", "", "abab0");
|
||||
]
|
||||
|
||||
let regalloc_challenge_tests = [
|
||||
("hw4programs/arrayargs3.oat", "", "34");
|
||||
("hw4programs/run41.oat", "", "3");
|
||||
("hw4programs/run51.oat", "", "341");
|
||||
("hw4programs/run52.oat", "", "15");
|
||||
("hw4programs/run54.oat", "", "10");
|
||||
("hw4programs/run55.oat", "", "6");
|
||||
("hw4programs/qsort.oat", "", "kpyf{shomfhkmopsy{255");
|
||||
]
|
||||
|
||||
let new_tests = [
|
||||
("hw5programs/ifq1.oat", "", "4");
|
||||
("hw5programs/length2.oat", "", "3");
|
||||
("hw5programs/initarr1.oat", "", "1");
|
||||
("hw5programs/initarr2.oat", "", "2");
|
||||
]
|
||||
|
||||
let oat_regalloc_quality_tests =
|
||||
hw4_easiest_tests
|
||||
@ hw4_path_tests
|
||||
@ hw4_easy_tests
|
||||
@ hw4_medium_tests
|
||||
@ hw4_hard_tests
|
||||
@ struct_tests
|
||||
@ fptr_tests
|
||||
@ new_tests
|
||||
@ regalloc_challenge_tests
|
||||
|
||||
|
||||
let oat_correctness_tests =
|
||||
oat_regalloc_quality_tests
|
||||
@ hw4_globals_tests
|
||||
@ greedy_is_good_tests
|
||||
|
||||
|
||||
let dce_opt_tests =
|
||||
[ "llprograms/analysis1_cf_opt.ll", "llprograms/analysis1_dce_opt.ll"
|
||||
; "llprograms/analysis2_cf_opt.ll", "llprograms/analysis2_dce_opt.ll"
|
||||
; "llprograms/analysis3_cf_opt.ll", "llprograms/analysis3_dce_opt.ll"
|
||||
; "llprograms/analysis4_cf_opt.ll", "llprograms/analysis4_dce_opt.ll"
|
||||
; "llprograms/analysis5_cf_opt.ll", "llprograms/analysis5_dce_opt.ll"
|
||||
; "llprograms/analysis6_cf_opt.ll", "llprograms/analysis6_dce_opt.ll"
|
||||
; "llprograms/analysis7_cf_opt.ll", "llprograms/analysis7_dce_opt.ll"
|
||||
; "llprograms/analysis8_cf_opt.ll", "llprograms/analysis8_dce_opt.ll"
|
||||
; "llprograms/analysis9_cf_opt.ll", "llprograms/analysis9_dce_opt.ll"
|
||||
; "llprograms/analysis10_cf_opt.ll", "llprograms/analysis10_dce_opt.ll"
|
||||
; "llprograms/analysis11_cf_opt.ll", "llprograms/analysis11_dce_opt.ll"
|
||||
; "llprograms/analysis12_cf_opt.ll", "llprograms/analysis12_dce_opt.ll"
|
||||
]
|
||||
|
||||
|
||||
|
||||
|
||||
let constprop_opt_tests =
|
||||
[ "llprograms/analysis1.ll", "llprograms/analysis1_cf_opt.ll"
|
||||
; "llprograms/analysis2.ll", "llprograms/analysis2_cf_opt.ll"
|
||||
; "llprograms/analysis3.ll", "llprograms/analysis3_cf_opt.ll"
|
||||
; "llprograms/analysis4.ll", "llprograms/analysis4_cf_opt.ll"
|
||||
; "llprograms/analysis5.ll", "llprograms/analysis5_cf_opt.ll"
|
||||
; "llprograms/analysis6.ll", "llprograms/analysis6_cf_opt.ll"
|
||||
; "llprograms/analysis7.ll", "llprograms/analysis7_cf_opt.ll"
|
||||
; "llprograms/analysis8.ll", "llprograms/analysis8_cf_opt.ll"
|
||||
; "llprograms/analysis9.ll", "llprograms/analysis9_cf_opt.ll"
|
||||
; "llprograms/analysis10.ll", "llprograms/analysis10_cf_opt.ll"
|
||||
; "llprograms/analysis11.ll", "llprograms/analysis11_cf_opt.ll"
|
||||
; "llprograms/analysis12.ll", "llprograms/analysis12_cf_opt.ll"
|
||||
]
|
||||
|
||||
|
||||
|
||||
|
||||
let tests : suite =
|
||||
[
|
||||
GradedTest("solver / liveness analysis tests", 13, dfa_liveness_file liveness_analysis_tests);
|
||||
GradedTest("alias analysis tests", 13, dfa_alias_file alias_analysis_tests);
|
||||
GradedTest("constprop analysis tests", 18, dfa_constprop_file constprop_analysis_tests);
|
||||
GradedTest("dce optimization tests", 13, opt_dce_file dce_opt_tests);
|
||||
GradedTest("constprop optimization tests", 13, opt_constfold_file constprop_opt_tests);
|
||||
|
||||
]
|
||||
(* Uncomment the following code if you are doing the optional Task IV Register Allocation *)
|
||||
(*
|
||||
@
|
||||
[
|
||||
Test("ll regalloc correctness tests", pass_all_executed_ll_file ll_tests);
|
||||
Test("oat regalloc correctness tests", pass_all_executed_oat_file (oat_correctness_tests @ regalloc_challenge_tests));
|
||||
GradedTest("oat regalloc quality tests", 0, quality_oat oat_regalloc_quality_tests);
|
||||
]
|
||||
*)
|
||||
|
||||
|
||||
|
||||
let graded_tests : suite =
|
||||
timeout_suite 10 tests
|
||||
|
||||
10
hw6/test/studenttests.ml
Normal file
10
hw6/test/studenttests.ml
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
open Util.Assert
|
||||
|
||||
(* These tests are provided by you -- they will be graded manually *)
|
||||
|
||||
(* You should also add additional test cases here to help you *)
|
||||
(* debug your program. *)
|
||||
|
||||
let provided_tests : suite = [
|
||||
|
||||
]
|
||||
Loading…
Add table
Add a link
Reference in a new issue