sam/libqbe
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

do a bigger test computation

Browse source
This commit is contained in:
Quentin Carbonneaux 2015-04-05 15:53:15 -04:00
parent f23cd2882d
commit 5719df3ae4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lo2.ml
View file

@ -609,7 +609,7 @@ let pcount: iprog =
let psum: iprog = let psum: iprog =
[| { bb_name = "init" [| { bb_name = "init"
; bb_phis = [||] ; bb_phis = [||]
; bb_inss = [| `Con 100; `Con 1; `Con 0 |] ; bb_inss = [| `Con 1234567; `Con 1; `Con 0 |]
; bb_jmp = `Jmp 1 ; bb_jmp = `Jmp 1
} }
; { bb_name = "loop" ; { bb_name = "loop"
@ -662,7 +662,7 @@ let oneshot () =
let _ = let _ =
if Array.length Sys.argv > 1 && Sys.argv.(1) = "test" then if Array.length Sys.argv > 1 && Sys.argv.(1) = "test" then
let oc = open_out "t.o" in let oc = open_out "t.o" in
nregs := 2; nregs := 3;
let s = psum |> regalloc |> movgen |> codegen in let s = psum |> regalloc |> movgen |> codegen in
Elf.barebones_elf oc "f" s; Elf.barebones_elf oc "f" s;
close_out oc; close_out oc;