]> birchwood-abbey.net Git - mit-scheme.git/commit
projects / mit-scheme.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: acd462d) | patch
In FIXNUM-LSH, if the count exceeds the Scheme datum width in absolute
authorTaylor R. Campbell <net/mumble/campbell>
Mon, 23 Feb 2009 22:40:12 +0000 (22:40 +0000)
committerTaylor R. Campbell <net/mumble/campbell>
Mon, 23 Feb 2009 22:40:12 +0000 (22:40 +0000)
commit8837d8f77d1cc04c9e719bdcf75da077281a398d
tree20938ed271a6493cf0552befd2fb21dfd1fafd22tree | snapshot
parentacd462d58e3647c8c28a4fbce703fb510cd720f9commit | diff
In FIXNUM-LSH, if the count exceeds the Scheme datum width in absolute
value, return zero.  Intel's brain-damaged shift instructions on the
i386 and later (but not the 8086 -- go figure) ignore all but the
low-order five bits of the count.
v7/src/compiler/machines/i386/rulfix.scm diff | blob | history
MIT/GNU Scheme is an implementation of the Scheme programming