2008-04-18 17:51:09 -04:00
|
|
|
IN: optimizer.inlining.tests
|
2008-06-29 03:12:44 -04:00
|
|
|
USING: tools.test optimizer.inlining generic arrays math
|
|
|
|
|
sequences growable sbufs vectors sequences.private accessors kernel ;
|
2008-04-18 17:51:09 -04:00
|
|
|
|
|
|
|
|
\ word-flat-length must-infer
|
|
|
|
|
\ inlining-math-method must-infer
|
|
|
|
|
\ optimistic-inline? must-infer
|
|
|
|
|
\ find-identity must-infer
|
2008-06-29 03:12:44 -04:00
|
|
|
\ dispatching-class must-infer
|
|
|
|
|
|
|
|
|
|
! Make sure we have sane heuristics
|
2008-07-04 05:41:27 -04:00
|
|
|
[ t ] [ \ fixnum \ shift method should-inline? ] unit-test
|
|
|
|
|
[ f ] [ \ array \ equal? method should-inline? ] unit-test
|
|
|
|
|
[ f ] [ \ sequence \ hashcode* method should-inline? ] unit-test
|
|
|
|
|
[ t ] [ \ array \ nth-unsafe method should-inline? ] unit-test
|
|
|
|
|
[ t ] [ \ growable \ nth-unsafe method should-inline? ] unit-test
|
|
|
|
|
[ t ] [ \ sbuf \ set-nth-unsafe method should-inline? ] unit-test
|
|
|
|
|
[ t ] [ \ growable \ set-nth-unsafe method should-inline? ] unit-test
|
|
|
|
|
[ t ] [ \ growable \ set-nth method should-inline? ] unit-test
|
|
|
|
|
[ t ] [ \ vector \ (>>length) method should-inline? ] unit-test
|
