Mercurial > emacs

comparison src/bytecode.c @ 27293:d94d421ca521

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fbyte_code): Pass new arg to set_internal.
author Richard M. Stallman <rms@gnu.org>
date Tue, 11 Jan 2000 22:17:34 +0000
parents 97289ec4d7d0
children 5218aa03936e
comparison
equal deleted inserted replaced
27292:d0aba668c5af 27293:d94d421ca521
548 goto varset; 548 goto varset;
549 549
550 case Bvarset+6: 550 case Bvarset+6:
551 op = FETCH; 551 op = FETCH;
552 varset: 552 varset:
553 set_internal (vectorp[op], POP, 0); 553 set_internal (vectorp[op], POP, current_buffer, 0);
554 /* Fset (vectorp[op], POP); */ 554 /* Fset (vectorp[op], POP); */
555 break; 555 break;
556 556
557 case Bdup: 557 case Bdup:
558 { 558 {
1490 case Bscan_buffer: 1490 case Bscan_buffer:
1491 error ("scan-buffer is an obsolete bytecode"); 1491 error ("scan-buffer is an obsolete bytecode");
1492 break; 1492 break;
1493 #endif 1493 #endif
1494 1494
1495 case 0:
1496 abort ();
1497
1498 case 255:
1495 default: 1499 default:
1496 #ifdef BYTE_CODE_SAFE 1500 #ifdef BYTE_CODE_SAFE
1497 if (op < Bconstant) 1501 if (op < Bconstant)
1498 error ("unknown bytecode %d (byte compiler bug)", op); 1502 error ("unknown bytecode %d (byte compiler bug)", op);
1499 if ((op -= Bconstant) >= const_length) 1503 if ((op -= Bconstant) >= const_length)