Parent Directory | Revision Log | Patch
revision 1.3 by wfs, Tue May 15 05:58:27 2001 UTC | revision 1.4 by camm, Mon Jul 29 22:50:54 2002 UTC | |
---|---|---|
# | Line 868 type_of(#0)==t_bitvector") | Line 868 type_of(#0)==t_bitvector") |
868 | (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) | (#1))") | (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) | (#1))") |
869 | (get 'logior 'inline-always)) | (get 'logior 'inline-always)) |
870 | ||
871 | ;;LOGXOR | |
872 | (push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) ^ (#1))") | |
873 | (get 'logxor 'inline-always)) | |
874 | ||
875 | ;;LOGNOT | ;;LOGNOT |
876 | (push '((fixnum) fixnum #.(flags rfa)"(~(#0))") | (push '((fixnum) fixnum #.(flags rfa)"(~(#0))") |
877 | (get 'lognot 'inline-always)) | (get 'lognot 'inline-always)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |