Mercurial > emacs

comparison src/bytecode.c @ 27727:9400865ec7cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove `LISP_FLOAT_TYPE' and `standalone'.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 17 Feb 2000 09:45:46 +0000
parents ad65b21bc4cd
children f53ecb062478
comparison
equal deleted inserted replaced
27726:9627810a3fed 27727:9400865ec7cf
432 432
433 while (1) 433 while (1)
434 { 434 {
435 #ifdef BYTE_CODE_SAFE 435 #ifdef BYTE_CODE_SAFE
436 if (top > stacke) 436 if (top > stacke)
437 error ("Byte code stack overflow (byte compiler bug), pc %d, depth %d", 437 abort ();
438 stack.pc - stack.byte_string_start, stacke - top);
439 else if (top < stack.bottom - 1) 438 else if (top < stack.bottom - 1)
440 error ("Byte code stack underflow (byte compiler bug), pc %d", 439 abort ();
441 stack.pc - stack.byte_string_start);
442 #endif 440 #endif
443 441
444 #ifdef BYTE_CODE_METER 442 #ifdef BYTE_CODE_METER
445 prev_op = this_op; 443 prev_op = this_op;
446 this_op = op = FETCH; 444 this_op = op = FETCH;
1040 v2 = POP; v1 = TOP; 1038 v2 = POP; v1 = TOP;
1041 BEFORE_POTENTIAL_GC (); 1039 BEFORE_POTENTIAL_GC ();
1042 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0); 1040 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0);
1043 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0); 1041 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0);
1044 AFTER_POTENTIAL_GC (); 1042 AFTER_POTENTIAL_GC ();
1045 #ifdef LISP_FLOAT_TYPE
1046 if (FLOATP (v1) || FLOATP (v2)) 1043 if (FLOATP (v1) || FLOATP (v2))
1047 { 1044 {
1048 double f1, f2; 1045 double f1, f2;
1049 1046
1050 f1 = (FLOATP (v1) ? XFLOAT_DATA (v1) : XINT (v1)); 1047 f1 = (FLOATP (v1) ? XFLOAT_DATA (v1) : XINT (v1));
1051 f2 = (FLOATP (v2) ? XFLOAT_DATA (v2) : XINT (v2)); 1048 f2 = (FLOATP (v2) ? XFLOAT_DATA (v2) : XINT (v2));
1052 TOP = (f1 == f2 ? Qt : Qnil); 1049 TOP = (f1 == f2 ? Qt : Qnil);
1053 } 1050 }
1054 else 1051 else
1055 #endif
1056 TOP = (XINT (v1) == XINT (v2) ? Qt : Qnil); 1052 TOP = (XINT (v1) == XINT (v2) ? Qt : Qnil);
1057 break; 1053 break;
1058 } 1054 }
1059 1055
1060 case Bgtr: 1056 case Bgtr:
1530 case 255: 1526 case 255:
1531 default: 1527 default:
1532 #ifdef BYTE_CODE_SAFE 1528 #ifdef BYTE_CODE_SAFE
1533 if (op < Bconstant) 1529 if (op < Bconstant)
1534 { 1530 {
1535 BEFORE_POTENTIAL_GC (); 1531 abort ();
1536 error ("unknown bytecode %d (byte compiler bug)", op);
1537 AFTER_POTENTIAL_GC ();
1538 } 1532 }
1539 if ((op -= Bconstant) >= const_length) 1533 if ((op -= Bconstant) >= const_length)
1540 { 1534 {
1541 BEFORE_POTENTIAL_GC (); 1535 abort ();
1542 error ("no constant number %d (byte compiler bug)", op);
1543 AFTER_POTENTIAL_GC ();
1544 } 1536 }
1545 PUSH (vectorp[op]); 1537 PUSH (vectorp[op]);
1546 #else 1538 #else
1547 PUSH (vectorp[op - Bconstant]); 1539 PUSH (vectorp[op - Bconstant]);
1548 #endif 1540 #endif