In FLO:VECTOR-LENGTH, coerce length to fixnum before OBJECT->FIXNUM.
authorTaylor R Campbell <campbell@mumble.net>
Sat, 28 Aug 2010 20:52:26 +0000 (20:52 +0000)
committerTaylor R Campbell <campbell@mumble.net>
Sat, 28 Aug 2010 20:52:26 +0000 (20:52 +0000)
commit6872861ccb2bc35478059c94d6ce34096790b59c
tree31f943e3a9e1762d3376aaddb01084b93aa0e595
parent4fbe0daf385cc70cd7dae0aa2d63d449a1ef7a12
In FLO:VECTOR-LENGTH, coerce length to fixnum before OBJECT->FIXNUM.

The previous open-coding worked whenever OBJECT->FIXNUM merely
shifted left by the tag width, ignoring whatever tag was there
before.  The SVM does not do this, however.
src/compiler/rtlgen/opncod.scm