Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 4888:c27efc9acb5a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 27 Jan 2010 00:37:59 -0600
parents 6772ce4d982b
children 6ef8256a020a db2db229ee82
comparison
equal deleted inserted replaced
4887:a47abe9c47f2 4888:c27efc9acb5a
230 Bcdr_safe = 0243, 230 Bcdr_safe = 0243,
231 Bnconc = 0244, 231 Bnconc = 0244,
232 Bquo = 0245, 232 Bquo = 0245,
233 Brem = 0246, 233 Brem = 0246,
234 Bnumberp = 0247, 234 Bnumberp = 0247,
235 Bintegerp = 0250, 235 Bfixnump = 0250, /* Was Bintegerp. */
236 236
237 BRgoto = 0252, 237 BRgoto = 0252,
238 BRgotoifnil = 0253, 238 BRgotoifnil = 0253,
239 BRgotoifnonnil = 0254, 239 BRgotoifnonnil = 0254,
240 BRgotoifnilelsepop = 0255, 240 BRgotoifnilelsepop = 0255,
1074 #else 1074 #else
1075 TOP_LVALUE = INT_OR_FLOATP (TOP) ? Qt : Qnil; 1075 TOP_LVALUE = INT_OR_FLOATP (TOP) ? Qt : Qnil;
1076 #endif 1076 #endif
1077 break; 1077 break;
1078 1078
1079 case Bintegerp: 1079 case Bfixnump:
1080 #ifdef HAVE_BIGNUM
1081 TOP_LVALUE = INTEGERP (TOP) ? Qt : Qnil;
1082 #else
1083 TOP_LVALUE = INTP (TOP) ? Qt : Qnil; 1080 TOP_LVALUE = INTP (TOP) ? Qt : Qnil;
1084 #endif
1085 break; 1081 break;
1086 1082
1087 case Beq: 1083 case Beq:
1088 { 1084 {
1089 Lisp_Object arg = POP; 1085 Lisp_Object arg = POP;