diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 96d2aa273f2..9bf6ae45ce9 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -231,8 +231,6 @@ extern Lisp_Object Qand_optional, Qand_rest; | |||
| 231 | /* Bstack_ref is code 0. */ | 231 | /* Bstack_ref is code 0. */ |
| 232 | #define Bstack_set 0262 | 232 | #define Bstack_set 0262 |
| 233 | #define Bstack_set2 0263 | 233 | #define Bstack_set2 0263 |
| 234 | #define Bvec_ref 0264 | ||
| 235 | #define Bvec_set 0265 | ||
| 236 | #define BdiscardN 0266 | 234 | #define BdiscardN 0266 |
| 237 | 235 | ||
| 238 | #define Bconstant 0300 | 236 | #define Bconstant 0300 |
| @@ -1722,27 +1720,6 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 1722 | case Bstack_set2: | 1720 | case Bstack_set2: |
| 1723 | stack.bottom[FETCH2] = POP; | 1721 | stack.bottom[FETCH2] = POP; |
| 1724 | break; | 1722 | break; |
| 1725 | case Bvec_ref: | ||
| 1726 | case Bvec_set: | ||
| 1727 | /* These byte-codes used mostly for variable references to | ||
| 1728 | lexically bound variables that are in an environment vector | ||
| 1729 | instead of on the byte-interpreter stack (generally those | ||
| 1730 | variables which might be shared with a closure). */ | ||
| 1731 | { | ||
| 1732 | int index = FETCH; | ||
| 1733 | Lisp_Object vec = POP; | ||
| 1734 | |||
| 1735 | if (! VECTORP (vec)) | ||
| 1736 | wrong_type_argument (Qvectorp, vec); | ||
| 1737 | else if (index < 0 || index >= XVECTOR (vec)->size) | ||
| 1738 | args_out_of_range (vec, make_number (index)); | ||
| 1739 | |||
| 1740 | if (op == Bvec_ref) | ||
| 1741 | PUSH (XVECTOR (vec)->contents[index]); | ||
| 1742 | else | ||
| 1743 | XVECTOR (vec)->contents[index] = POP; | ||
| 1744 | } | ||
| 1745 | break; | ||
| 1746 | case BdiscardN: | 1723 | case BdiscardN: |
| 1747 | op = FETCH; | 1724 | op = FETCH; |
| 1748 | if (op & 0x80) | 1725 | if (op & 0x80) |