steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.tree.modular-arithmetic: make a partial test and add some information to the XXX: comment.

db4
John Benediktsson 2014-07-09 09:27:13 -07:00
parent 05182b7a30
commit e0801a632e
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/compiler/tree/modular-arithmetic/modular-arithmetic-tests.factor
View File

@ -21,12 +21,14 @@ IN: compiler.tree.modular-arithmetic.tests
TUPLE: declared-fixnum { x fixnum } ;
! XXX: As of .97, we do a bounds check and throw an error on overflow, so we can't
! use fixnum+ here. If this is too big a regression, we can revert it.
! [ t ] [
! [ { declared-fixnum } declare [ 1 + ] change-x ]
[ t ] [
[ { declared-fixnum } declare [ 1 + ] change-x ]
{ + } inlined?
! XXX: As of .97, we do a bounds check and throw an error on
! overflow, so we no longer convert fixnum+ to fixnum+fast.
! If this is too big a regression, we can revert it.
! { + fixnum+ >fixnum } inlined?
! ] unit-test
] unit-test
[ t ] [
[ { declared-fixnum } declare x>> drop ]