Mercurial > emacs
comparison src/bytecode.c @ 27293:d94d421ca521
(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) |