Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 4957:db2db229ee82

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Thu, 28 Jan 2010 02:48:45 -0600
parents 19a72041c5ed 6772ce4d982b
children e813cf16c015
comparison
equal deleted inserted replaced
4956:3461165c79be 4957:db2db229ee82
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;