mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-19 05:39:17 +02:00
WIP
This commit is contained in:
Justin Ethier
parent
af7fe0db87
commit
fc45a93ebd
2 changed files with 33595 additions and 0 deletions
367
tests/debug/mbrot-csc-opt.txt
Normal file
367
tests/debug/mbrot-csc-opt.txt
Normal file
|
|
@ -0,0 +1,367 @@
|
|||
[optimized]
|
||||
(lambda (k389)
|
||||
(let ((k390 (##core#lambda
|
||||
(r391)
|
||||
(let ((k393 (##core#lambda
|
||||
(r394)
|
||||
(let ((k396 (##core#lambda
|
||||
(r397)
|
||||
(let ((k399 (##core#lambda
|
||||
(r400)
|
||||
(let ((k402 (##core#lambda
|
||||
(r403)
|
||||
(let ((t405 (set! flush-output-port #f flush-output)))
|
||||
(let ((t406 (set! current-jiffy #f current-milliseconds)))
|
||||
(let ((t407 (set! jiffies-per-second
|
||||
#f
|
||||
(lambda (k409) (k409 1000)))))
|
||||
(let ((t410 (set! current-second #f current-seconds)))
|
||||
(let ((t411 (set! inexact #f exact->inexact)))
|
||||
(let ((t412 (set! exact #f inexact->exact)))
|
||||
(let ((t413 (set! square
|
||||
#f
|
||||
(lambda (k415 x61)
|
||||
(k415 (##core#inline_allocate
|
||||
("C_a_i_times" 4)
|
||||
x61
|
||||
x61))))))
|
||||
(let ((t419 (set! exact-integer? #f integer?)))
|
||||
(let ((t420 (set! this-scheme-implementation-name
|
||||
#f
|
||||
(lambda (k422)
|
||||
(let ((k427 (##core#lambda
|
||||
(r428)
|
||||
(string-append k422 "chicken-" r428))))
|
||||
(chicken-version k427))))))
|
||||
(let ((t430 (set! count
|
||||
#f
|
||||
(lambda (k432 r66 i67 step68 x69 y70)
|
||||
(let ((k505 (##core#lambda
|
||||
(r506)
|
||||
(let ((r502 (##core#inline_allocate
|
||||
("C_a_i_times" 4)
|
||||
r506
|
||||
step68)))
|
||||
(let ((r434 (##core#inline_allocate
|
||||
("C_a_i_plus" 4)
|
||||
r66
|
||||
r502)))
|
||||
(let ((cr73 r434))
|
||||
(let ((k497 (##core#lambda
|
||||
(r498)
|
||||
(let ((r494 (##core#inline_allocate
|
||||
("C_a_i_times" 4)
|
||||
r498
|
||||
step68)))
|
||||
(let ((r437 (##core#inline_allocate
|
||||
("C_a_i_plus" 4)
|
||||
i67
|
||||
r494)))
|
||||
(let ((ci74 r437))
|
||||
(let ((loop75 (##core#undefined)))
|
||||
(let ((t442 (set! loop75
|
||||
#f
|
||||
(lambda (k444 zr76 zi77 c78)
|
||||
(if (##core#inline "C_i_nequalp" c78 64)
|
||||
(k444 c78)
|
||||
(let ((r452 (##core#inline_allocate
|
||||
("C_a_i_times" 4)
|
||||
zr76
|
||||
zr76)))
|
||||
(let ((r455 (##core#inline_allocate
|
||||
("C_a_i_times" 4)
|
||||
zi77
|
||||
zi77)))
|
||||
(let ((r490 (##core#inline_allocate
|
||||
("C_a_i_plus" 4)
|
||||
r452
|
||||
r455)))
|
||||
(if (##core#inline "C_i_greaterp" r490 16.0)
|
||||
(k444 c78)
|
||||
(let ((r486 (##core#inline_allocate
|
||||
("C_a_i_minus" 4)
|
||||
r452
|
||||
r455)))
|
||||
(let ((r464 (##core#inline_allocate
|
||||
("C_a_i_plus" 4)
|
||||
r486
|
||||
cr73)))
|
||||
(let ((r482 (##core#inline_allocate
|
||||
("C_a_i_times" 4)
|
||||
zr76
|
||||
zi77)))
|
||||
(let ((r478 (##core#inline_allocate
|
||||
("C_a_i_times" 4)
|
||||
2.0
|
||||
r482)))
|
||||
(let ((r467 (##core#inline_allocate
|
||||
("C_a_i_plus" 4)
|
||||
r478
|
||||
ci74)))
|
||||
(let ((r474 (##core#inline_allocate ("C_a_i_plus" 4) c78 1)))
|
||||
(loop75 k444 r464 r467 r474))))))))))))))))
|
||||
(loop75 k432 cr73 ci74 0)))))))))
|
||||
(inexact k497 y70))))))))
|
||||
(inexact k505 x69))))))
|
||||
(let ((t508 (set! mbrot
|
||||
#f
|
||||
(lambda (k510 matrix85 r86 i87 step88 n89)
|
||||
(let ((r516 (##core#inline_allocate ("C_a_i_minus" 4) n89 1)))
|
||||
(let ((loop190 (##core#undefined)))
|
||||
(let ((t518 (set! loop190
|
||||
#f
|
||||
(lambda (k520 y91)
|
||||
(if (##core#inline "C_i_greater_or_equalp" y91 0)
|
||||
(let ((r532 (##core#inline_allocate ("C_a_i_minus" 4) n89 1)))
|
||||
(let ((loop292 (##core#undefined)))
|
||||
(let ((t534 (set! loop292
|
||||
#f
|
||||
(lambda (k536 x93)
|
||||
(if (##core#inline "C_i_greater_or_equalp" x93 0)
|
||||
(let ((r555 (##core#inline "C_i_vector_ref" matrix85 x93)))
|
||||
(let ((a553 r555))
|
||||
(let ((k558 (##core#lambda
|
||||
(r559)
|
||||
(let ((r544 (##core#inline "C_i_vector_set" a553 y91 r559)))
|
||||
(let ((r551 (##core#inline_allocate ("C_a_i_minus" 4) x93 1)))
|
||||
(loop292 k536 r551))))))
|
||||
(count k558 r86 i87 step88 x93 y91))))
|
||||
(let ((r566 (##core#inline_allocate ("C_a_i_minus" 4) y91 1)))
|
||||
(loop190 k536 r566)))))))
|
||||
(loop292 k520 r532))))
|
||||
(k520 (##core#undefined)))))))
|
||||
(loop190 k510 r516))))))))
|
||||
(let ((t568 (set! test
|
||||
#f
|
||||
(lambda (k570 n98)
|
||||
(let ((k571 (##core#lambda
|
||||
(r572)
|
||||
(let ((matrix99 r572))
|
||||
(let ((k574 (##core#lambda
|
||||
(r575)
|
||||
(let ((k577 (##core#lambda
|
||||
(r578)
|
||||
(let ((r585 (##core#inline "C_i_vector_ref" matrix99 0)))
|
||||
(k570 (##core#inline "C_i_vector_ref" r585 0))))))
|
||||
(mbrot k577 matrix99 -1.0 -0.5 0.005 n98)))))
|
||||
(let ((r589 (##core#inline_allocate ("C_a_i_minus" 4) n98 1)))
|
||||
(let ((loop100 (##core#undefined)))
|
||||
(let ((t591 (set! loop100
|
||||
#f
|
||||
(lambda (k593 i101)
|
||||
(if (##core#inline "C_i_greater_or_equalp" i101 0)
|
||||
(let ((k611 (##core#lambda
|
||||
(r612)
|
||||
(let ((r601 (##core#inline
|
||||
"C_i_vector_set"
|
||||
matrix99
|
||||
i101
|
||||
r612)))
|
||||
(let ((r608 (##core#inline_allocate ("C_a_i_minus" 4) i101 1)))
|
||||
(loop100 k593 r608))))))
|
||||
(make-vector k611 n98))
|
||||
(k593 (##core#undefined)))))))
|
||||
(loop100 k574 r589)))))))))
|
||||
(make-vector k571 n98))))))
|
||||
(let ((t614 (set! main
|
||||
#f
|
||||
(lambda (k616)
|
||||
(let ((k617 (##core#lambda
|
||||
(r618)
|
||||
(let ((count107 r618))
|
||||
(let ((k620 (##core#lambda
|
||||
(r621)
|
||||
(let ((input1108 r621))
|
||||
(let ((k623 (##core#lambda
|
||||
(r624)
|
||||
(let ((output109 r624))
|
||||
(let ((k626 (##core#lambda
|
||||
(r627)
|
||||
(let ((s2110 r627))
|
||||
(let ((k629 (##core#lambda
|
||||
(r630)
|
||||
(let ((k636 (##core#lambda
|
||||
(r637)
|
||||
(let ((a639 (lambda (k641)
|
||||
(let ((k646 (##core#lambda (r647) (test k641 r647))))
|
||||
(hide k646 count107 input1108)))))
|
||||
(let ((a649 (lambda (k651 result113)
|
||||
(k651 (##core#inline "C_i_nequalp" result113 output109)))))
|
||||
(run-r7rs-benchmark k616 r637 count107 a639 a649))))))
|
||||
(string-append k636 "mbrot" ":" r630 ":" s2110)))))
|
||||
(number->string k629 input1108))))))
|
||||
(number->string k626 count107))))))
|
||||
(read k623))))))
|
||||
(read k620))))))
|
||||
(read k617))))))
|
||||
(let ((t655 (set! hide
|
||||
#f
|
||||
(lambda (k657 r115 x116)
|
||||
(let ((a661 (lambda (k663)
|
||||
(let ((a678 (lambda (k680 x117) (k680 x117))))
|
||||
(let ((r669 (##core#inline_allocate
|
||||
("C_a_i_vector2" 3)
|
||||
values
|
||||
a678)))
|
||||
(let ((r676 (##core#inline "C_i_lessp" r115 100)))
|
||||
(let ((r673 (##core#cond r676 0 1)))
|
||||
((##core#proc "C_values" #t) k663 r669 r673))))))))
|
||||
(let ((a681 (lambda (k683 v118 i119)
|
||||
(let ((r685 (##core#inline "C_i_vector_ref" v118 i119)))
|
||||
(r685 k683 x116)))))
|
||||
((##core#proc "C_call_with_values" #t)
|
||||
k657
|
||||
a661
|
||||
a681)))))))
|
||||
(let ((t690 (set! run-r7rs-benchmark
|
||||
#f
|
||||
(lambda (k692 name123 count124 thunk125 ok?126)
|
||||
(let ((k707 (##core#lambda
|
||||
(r708)
|
||||
(let ((k710 (##core#lambda
|
||||
(r711)
|
||||
(let ((k713 (##core#lambda
|
||||
(r714)
|
||||
(let ((k716 (##core#lambda
|
||||
(r717)
|
||||
(let ((k719 (##core#lambda
|
||||
(r720)
|
||||
(let ((j/s129 r720))
|
||||
(let ((k722 (##core#lambda
|
||||
(r723)
|
||||
(let ((t0130 r723))
|
||||
(let ((k725 (##core#lambda
|
||||
(r726)
|
||||
(let ((j0131 r726))
|
||||
(let ((loop132 (##core#undefined)))
|
||||
(let ((t731 (set! loop132
|
||||
#f
|
||||
(lambda (k733 i133 result134)
|
||||
(if (##core#inline "C_i_lessp" i133 count124)
|
||||
(let ((r745 (##core#inline_allocate ("C_a_i_plus" 4) i133 1)))
|
||||
(let ((a743 r745))
|
||||
(let ((k748 (##core#lambda (r749) (loop132 k733 a743 r749))))
|
||||
(thunk125 k748))))
|
||||
(let ((k754 (##core#lambda
|
||||
(r755)
|
||||
(if r755
|
||||
(let ((k757 (##core#lambda
|
||||
(r758)
|
||||
(let ((j1139 r758))
|
||||
(let ((k760 (##core#lambda
|
||||
(r761)
|
||||
(let ((t1140 r761))
|
||||
(let ((r764 (##core#inline_allocate
|
||||
("C_a_i_minus" 4)
|
||||
j1139
|
||||
j0131)))
|
||||
(let ((k766 (##core#lambda
|
||||
(r767)
|
||||
(let ((secs142 r767))
|
||||
(let ((k769 (##core#lambda
|
||||
(r770)
|
||||
(let ((secs2143 r770))
|
||||
(let ((k772 (##core#lambda
|
||||
(r773)
|
||||
(let ((k775 (##core#lambda
|
||||
(r776)
|
||||
(let ((k778 (##core#lambda
|
||||
(r779)
|
||||
(let ((k781 (##core#lambda
|
||||
(r782)
|
||||
(let ((k784 (##core#lambda
|
||||
(r785)
|
||||
(let ((k787 (##core#lambda
|
||||
(r788)
|
||||
(let ((k790 (##core#lambda
|
||||
(r791)
|
||||
(let ((k793 (##core#lambda
|
||||
(r794)
|
||||
(let ((k796 (##core#lambda
|
||||
(r797)
|
||||
(let ((k799 (##core#lambda
|
||||
(r800)
|
||||
(let ((k802 (##core#lambda
|
||||
(r803)
|
||||
(let ((k805 (##core#lambda
|
||||
(r806)
|
||||
(let ((k808 (##core#lambda
|
||||
(r809)
|
||||
(let ((k811 (##core#lambda
|
||||
(r812)
|
||||
(let ((k814 (##core#lambda (r815) (k733 result134))))
|
||||
(let ((r819 ##sys#standard-output))
|
||||
(flush-output-port k814 ##sys#standard-output))))))
|
||||
(newline k811)))))
|
||||
(display k808 secs142)))))
|
||||
(display k805 ",")))))
|
||||
(display k802 name123)))))
|
||||
(display k799 ",")))))
|
||||
(let ((k822 (##core#lambda (r823) (display k796 r823))))
|
||||
(this-scheme-implementation-name k822))))))
|
||||
(display k793 "+!CSVLINE!+")))))
|
||||
(newline k790)))))
|
||||
(display k787 name123)))))
|
||||
(display k784 ") for ")))))
|
||||
(write k781 secs2143)))))
|
||||
(display k778 " seconds (")))))
|
||||
(write k775 secs142)))))
|
||||
(display k772 "Elapsed time: "))))))
|
||||
(let ((r827 (##core#inline_allocate
|
||||
("C_a_i_minus" 4)
|
||||
t1140
|
||||
t0130)))
|
||||
(let ((k695 k769))
|
||||
(let ((k700 (##core#lambda
|
||||
(r701)
|
||||
(k695 (##core#inline_allocate
|
||||
("C_a_i_divide" 4)
|
||||
r701
|
||||
1000)))))
|
||||
(let ((r705 (##core#inline_allocate
|
||||
("C_a_i_times" 4)
|
||||
1000
|
||||
r827)))
|
||||
(round k700 r705))))))))))
|
||||
(let ((r831 (##core#inline_allocate
|
||||
("C_a_i_divide" 4)
|
||||
r764
|
||||
j/s129)))
|
||||
(inexact k766 r831))))))))
|
||||
(current-second k760))))))
|
||||
(current-jiffy k757))
|
||||
(let ((k833 (##core#lambda
|
||||
(r834)
|
||||
(let ((k836 (##core#lambda
|
||||
(r837)
|
||||
(let ((k839 (##core#lambda
|
||||
(r840)
|
||||
(let ((k842 (##core#lambda (r843) (k733 result134))))
|
||||
(let ((r847 ##sys#standard-output))
|
||||
(flush-output-port k842 ##sys#standard-output))))))
|
||||
(newline k839)))))
|
||||
(write k836 result134)))))
|
||||
(display
|
||||
k833
|
||||
"ERROR: returned incorrect result: "))))))
|
||||
(ok?126 k754 result134)))))))
|
||||
(loop132 k692 0 #f)))))))
|
||||
(current-jiffy k725))))))
|
||||
(current-second k722))))))
|
||||
(jiffies-per-second k719)))))
|
||||
(let ((r851 ##sys#standard-output))
|
||||
(flush-output-port k716 ##sys#standard-output))))))
|
||||
(newline k713)))))
|
||||
(display k710 name123)))))
|
||||
(display k707 "Running "))))))
|
||||
(let ((k853 (##core#lambda
|
||||
(r854)
|
||||
(let ((k856 (##core#lambda (r857) (k389 (##core#undefined)))))
|
||||
(let ((k859 (##core#lambda (r860) (r860 k856))))
|
||||
(##sys#implicit-exit-handler k859))))))
|
||||
(main k853))))))))))))))))))))
|
||||
(##sys#require k402 'vector-lib)))))
|
||||
(##core#callunit "extras" k399)))))
|
||||
(##core#callunit "chicken_2dsyntax" k396)))))
|
||||
(##core#callunit "eval" k393)))))
|
||||
(##core#callunit "library" k390)))
|
||||
33228
tests/debug/mbrot-cyc.txt
Normal file
33228
tests/debug/mbrot-cyc.txt
Normal file
File diff suppressed because it is too large
Load diff
Loading…
Add table
Reference in a new issue