Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

PowerPC is now supported!

  • Loading branch information...
commit 0657e27221f94dc5a97ffd4882f3e9e79ed6e883 1 parent 236a055
sumii authored
View
30 bytemark/Makefile
@@ -1,30 +0,0 @@
-test: test-huffman
-clean:
- rm -f *.s *.min-caml *.ocamlopt *.gcc *.gcc64 *.gcc-mflat *.cmi *.cmx *.o *.out
-
-test-huffman: huffman.min-caml huffman.ocamlopt huffman.gcc huffman.gcc64 huffman.gcc-mflat
- time ./huffman.min-caml > huffman.min-caml.out < huffman.int
- time ./huffman.ocamlopt > huffman.ocamlopt.out < huffman.int
- time ./huffman.gcc > huffman.gcc.out < huffman.int
- time ./huffman.gcc64 > huffman.gcc64.out < huffman.int
- time ./huffman.gcc-mflat > huffman.gcc-mflat.out < huffman.int
- diff huffman.min-caml.out huffman.ocamlopt.out
- diff huffman.min-caml.out huffman.gcc.out
- diff huffman.min-caml.out huffman.gcc64.out
- diff huffman.min-caml.out huffman.gcc-mflat.out
-
-huffman.ocamlopt: huffman.ml
- ocamlopt -pp ../min-rt/preprocess.sh -unsafe -inline 100 huffman.ml -o huffman.ocamlopt
-
-huffman.min-caml: huffman.ml
- ../min-caml.opt -inline 100 huffman
- gcc -m32 -g -O2 -Wall huffman.s ../libmincaml.s ../stub.c -lm -o huffman.min-caml
-
-huffman.gcc: huffman.c
- gcc -m32 -O3 -Wall huffman.c -o huffman.gcc
-
-huffman.gcc64: huffman.c
- gcc -m64 -O3 -Wall huffman.c -o huffman.gcc64
-
-huffman.gcc-mflat: huffman.c
- sparc-sun-solaris2.9-gcc-3.4.3 -m32 -mflat -O3 -Wall huffman.c -o huffman.gcc-mflat
View
137 min-rt/globals.s
@@ -1,137 +0,0 @@
-.section ".data"
-.align 8
-.global min_caml_objects
-min_caml_objects:
- .skip 240
-.align 8
-.global min_caml_size
-min_caml_size:
- .skip 8
-.align 8
-.global min_caml_dbg
-min_caml_dbg:
- .skip 4
-.align 8
-.global min_caml_screen
-min_caml_screen:
- .skip 24
-.align 8
-.global min_caml_vp
-min_caml_vp:
- .skip 24
-.align 8
-.global min_caml_view
-min_caml_view:
- .skip 24
-.align 8
-.global min_caml_light
-min_caml_light:
- .skip 24
-.align 8
-.global min_caml_cos_v
-min_caml_cos_v:
- .skip 16
-.align 8
-.global min_caml_sin_v
-min_caml_sin_v:
- .skip 16
-.align 8
-.global min_caml_beam
-min_caml_beam:
- .skip 8
-.align 8
-.global min_caml_and_net
-min_caml_and_net:
- .skip 200
-.align 8
-.global min_caml_or_net
-min_caml_or_net:
- .skip 4
-.align 8
-.global min_caml_temp
-min_caml_temp:
- .skip 112
-.align 8
-.global min_caml_cs_temp
-min_caml_cs_temp:
- .skip 128
-.align 8
-.global min_caml_solver_dist
-min_caml_solver_dist:
- .skip 8
-.align 8
-.global min_caml_vscan
-min_caml_vscan:
- .skip 24
-.align 8
-.global min_caml_intsec_rectside
-min_caml_intsec_rectside:
- .skip 4
-.align 8
-.global min_caml_tmin
-min_caml_tmin:
- .skip 8
-.align 8
-.global min_caml_crashed_point
-min_caml_crashed_point:
- .skip 24
-.align 8
-.global min_caml_crashed_object
-min_caml_crashed_object:
- .skip 4
-.align 8
-.global min_caml_end_flag
-min_caml_end_flag:
- .skip 4
-.align 8
-.global min_caml_viewpoint
-min_caml_viewpoint:
- .skip 24
-.align 8
-.global min_caml_nvector
-min_caml_nvector:
- .skip 24
-.align 8
-.global min_caml_rgb
-min_caml_rgb:
- .skip 24
-.align 8
-.global min_caml_texture_color
-min_caml_texture_color:
- .skip 24
-.align 8
-.global min_caml_solver_w_vec
-min_caml_solver_w_vec:
- .skip 24
-.align 8
-.global min_caml_chkinside_p
-min_caml_chkinside_p:
- .skip 24
-.align 8
-.global min_caml_isoutside_q
-min_caml_isoutside_q:
- .skip 24
-.align 8
-.global min_caml_nvector_w
-min_caml_nvector_w:
- .skip 24
-.align 8
-.global min_caml_scan_d
-min_caml_scan_d:
- .skip 8
-.align 8
-.global min_caml_scan_offset
-min_caml_scan_offset:
- .skip 8
-.align 8
-.global min_caml_scan_sscany
-min_caml_scan_sscany:
- .skip 8
-.align 8
-.global min_caml_scan_met1
-min_caml_scan_met1:
- .skip 8
-.align 8
-.global min_caml_wscan
-min_caml_wscan:
- .skip 24
View
138 shootout/Makefile
@@ -1,138 +0,0 @@
-test: test-fib test-ack test-tak test-harmonic test-mandelbrot
-clean:
- rm -f *.s *.min-caml *.ocamlopt *.gcc *.gcc64 *.gcc-mflat *.cmi *.cmx *.o *.out
-
-test-fib: fib.min-caml fib.ocamlopt fib.gcc fib.gcc64 fib.gcc-mflat
- time ./fib.min-caml > fib.min-caml.out
- time ./fib.ocamlopt > fib.ocamlopt.out
- time ./fib.gcc > fib.gcc.out
- time ./fib.gcc64 > fib.gcc64.out
- time ./fib.gcc-mflat > fib.gcc-mflat.out
- diff fib.min-caml.out fib.ocamlopt.out
- diff fib.min-caml.out fib.gcc.out
- diff fib.min-caml.out fib.gcc64.out
- diff fib.min-caml.out fib.gcc-mflat.out
-
-fib.ocamlopt: fib.ml
- ocamlopt -pp ../min-rt/preprocess.sh -unsafe -inline 100 fib.ml -o fib.ocamlopt
-
-fib.min-caml: fib.ml
- ../min-caml.opt -inline 100 fib
- gcc -m32 -g -O2 -Wall fib.s ../libmincaml.s ../stub.c -lm -o fib.min-caml
-
-fib.gcc: fib.c
- gcc -m32 -O3 -Wall fib.c -o fib.gcc
-
-fib.gcc64: fib.c
- gcc -m64 -O3 -Wall fib.c -o fib.gcc64
-
-fib.gcc-mflat: fib.c
- sparc-sun-solaris2.9-gcc-3.4.3 -m32 -mflat -O3 -Wall fib.c -o fib.gcc-mflat
-
-test-ack: ack.min-caml ack.ocamlopt ack.gcc ack.gcc64 ack.gcc-mflat
- time ./ack.min-caml > ack.min-caml.out
- time ./ack.ocamlopt > ack.ocamlopt.out
- time ./ack.gcc > ack.gcc.out
- time ./ack.gcc64 > ack.gcc64.out
- time ./ack.gcc-mflat > ack.gcc-mflat.out
- diff ack.min-caml.out ack.ocamlopt.out
- diff ack.min-caml.out ack.gcc.out
- diff ack.min-caml.out ack.gcc64.out
- diff ack.min-caml.out ack.gcc-mflat.out
-
-ack.ocamlopt: ack.ml
- ocamlopt -pp ../min-rt/preprocess.sh -unsafe -inline 100 ack.ml -o ack.ocamlopt
-
-ack.min-caml: ack.ml
- ../min-caml.opt -inline 100 ack
- gcc -m32 -g -O2 -Wall ack.s ../libmincaml.s ../stub.c -lm -o ack.min-caml
-
-ack.gcc: ack.c
- gcc -m32 -O3 -Wall ack.c -o ack.gcc
-
-ack.gcc64: ack.c
- gcc -m64 -O3 -Wall ack.c -o ack.gcc64
-
-ack.gcc-mflat: ack.c
- sparc-sun-solaris2.9-gcc-3.4.3 -m32 -mflat -O3 -Wall ack.c -o ack.gcc-mflat
-
-test-harmonic: harmonic.min-caml harmonic.ocamlopt harmonic.gcc harmonic.gcc64 harmonic.gcc-mflat
- time ./harmonic.min-caml > harmonic.min-caml.out
- time ./harmonic.ocamlopt > harmonic.ocamlopt.out
- time ./harmonic.gcc > harmonic.gcc.out
- time ./harmonic.gcc64 > harmonic.gcc64.out
- time ./harmonic.gcc-mflat > harmonic.gcc-mflat.out
- diff harmonic.min-caml.out harmonic.ocamlopt.out
- diff harmonic.min-caml.out harmonic.gcc.out
- diff harmonic.min-caml.out harmonic.gcc64.out
- diff harmonic.min-caml.out harmonic.gcc-mflat.out
-
-harmonic.ocamlopt: harmonic.ml
- ocamlopt -pp ../min-rt/preprocess.sh -unsafe -inline 100 harmonic.ml -o harmonic.ocamlopt
-
-harmonic.min-caml: harmonic.ml
- ../min-caml.opt -inline 100 harmonic
- gcc -m32 -g -O2 -Wall harmonic.s ../libmincaml.s ../stub.c -lm -o harmonic.min-caml
-
-harmonic.gcc: harmonic.c
- gcc -m32 -O3 -Wall harmonic.c -o harmonic.gcc
-
-harmonic.gcc64: harmonic.c
- gcc -m64 -O3 -Wall harmonic.c -o harmonic.gcc64
-
-harmonic.gcc-mflat: harmonic.c
- sparc-sun-solaris2.9-gcc-3.4.3 -m32 -mflat -O3 -Wall harmonic.c -o harmonic.gcc-mflat
-
-test-mandelbrot: mandelbrot.min-caml mandelbrot.ocamlopt mandelbrot.gcc mandelbrot.gcc64 mandelbrot.gcc-mflat
- time ./mandelbrot.min-caml > mandelbrot.min-caml.out
- time ./mandelbrot.ocamlopt > mandelbrot.ocamlopt.out
- time ./mandelbrot.gcc > mandelbrot.gcc.out
- time ./mandelbrot.gcc64 > mandelbrot.gcc64.out
- time ./mandelbrot.gcc-mflat > mandelbrot.gcc-mflat.out
- diff mandelbrot.min-caml.out mandelbrot.ocamlopt.out
- diff mandelbrot.min-caml.out mandelbrot.gcc.out
- diff mandelbrot.min-caml.out mandelbrot.gcc64.out
- diff mandelbrot.min-caml.out mandelbrot.gcc-mflat.out
-
-mandelbrot.ocamlopt: mandelbrot.ml
- ocamlopt -pp ../min-rt/preprocess.sh -unsafe -inline 100 mandelbrot.ml -o mandelbrot.ocamlopt
-
-mandelbrot.min-caml: mandelbrot.ml
- ../min-caml.opt -inline 100 mandelbrot
- gcc -m32 -g -O2 -Wall mandelbrot.s ../libmincaml.s ../stub.c -lm -o mandelbrot.min-caml
-
-mandelbrot.gcc: mandelbrot.c
- gcc -m32 -O3 -Wall mandelbrot.c -o mandelbrot.gcc
-
-mandelbrot.gcc64: mandelbrot.c
- gcc -m64 -O3 -Wall mandelbrot.c -o mandelbrot.gcc64
-
-mandelbrot.gcc-mflat: mandelbrot.c
- sparc-sun-solaris2.9-gcc-3.4.3 -m32 -mflat -O3 -Wall mandelbrot.c -o mandelbrot.gcc-mflat
-
-test-tak: tak.min-caml tak.ocamlopt tak.gcc tak.gcc64 tak.gcc-mflat
- time ./tak.min-caml > tak.min-caml.out
- time ./tak.ocamlopt > tak.ocamlopt.out
- time ./tak.gcc > tak.gcc.out
- time ./tak.gcc64 > tak.gcc64.out
- time ./tak.gcc-mflat > tak.gcc-mflat.out
- diff tak.min-caml.out tak.ocamlopt.out
- diff tak.min-caml.out tak.gcc.out
- diff tak.min-caml.out tak.gcc64.out
- diff tak.min-caml.out tak.gcc-mflat.out
-
-tak.ocamlopt: tak.ml
- ocamlopt -pp ../min-rt/preprocess.sh -unsafe -inline 100 tak.ml -o tak.ocamlopt
-
-tak.gcc64: tak.c
- gcc -m64 -O3 -Wall tak.c -o tak.gcc64
-
-tak.min-caml: tak.ml
- ../min-caml.opt -inline 100 tak
- gcc -m32 -g -O2 -Wall tak.s ../libmincaml.s ../stub.c -lm -o tak.min-caml
-
-tak.gcc: tak.c
- gcc -m32 -O3 -Wall tak.c -o tak.gcc
-
-tak.gcc-mflat: tak.c
- sparc-sun-solaris2.9-gcc-3.4.3 -m32 -mflat -O3 -Wall tak.c -o tak.gcc-mflat
View
18 test/spill.ml
@@ -21,9 +21,25 @@ let rec f a b c d =
let w = h + i in
let x = h + j in
let y = i + j in
+
+ let aa = k + l in
+ let ab = k + m in
+ let ac = k + n in
+ let ad = k + o in
+ let ae = k + p in
+ let af = k + q in
+ let ag = k + r in
+ let ah = k + s in
+ let ai = k + t in
+ let aj = k + u in
+ let ak = k + v in
+ let al = k + w in
+ let am = k + x in
+ let an = k + y in
let z = a + b + c + d +
e + f + g + h + i + j +
- k + l + m + n + o + p + q + r + s + t + u + v + w + x + y in
+ k + l + m + n + o + p + q + r + s + t + u + v + w + x + y +
+ aa + ab + ac + ad + ae + af + ag + ah + ai + aj + ak + al + am + an in
-z in
print_int (f 1 2 3 4)
View
1  test/spill2.ml
@@ -1,3 +1,4 @@
+(* http://smpl.seesaa.net/article/9342186.html#comment *)
let rec f _ = 12345 in
let rec g y = y + 1 in
let z = Array.create 10 1 in
Please sign in to comment.
Something went wrong with that request. Please try again.