Mercurial > emacs
comparison src/bytecode.c @ 46545:99d1224dfe6c
(struct byte_stack): Pointers into byte string now
point to const.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Fri, 19 Jul 2002 14:26:46 +0000 |
| parents | 40db0673e6f0 |
| children | 58d2828adc19 |
comparison
equal
deleted
inserted
replaced
| 46544:513411cc4308 | 46545:99d1224dfe6c |
|---|---|
| 237 | 237 |
| 238 struct byte_stack | 238 struct byte_stack |
| 239 { | 239 { |
| 240 /* Program counter. This points into the byte_string below | 240 /* Program counter. This points into the byte_string below |
| 241 and is relocated when that string is relocated. */ | 241 and is relocated when that string is relocated. */ |
| 242 unsigned char *pc; | 242 const unsigned char *pc; |
| 243 | 243 |
| 244 /* Top and bottom of stack. The bottom points to an area of memory | 244 /* Top and bottom of stack. The bottom points to an area of memory |
| 245 allocated with alloca in Fbyte_code. */ | 245 allocated with alloca in Fbyte_code. */ |
| 246 Lisp_Object *top, *bottom; | 246 Lisp_Object *top, *bottom; |
| 247 | 247 |
| 248 /* The string containing the byte-code, and its current address. | 248 /* The string containing the byte-code, and its current address. |
| 249 Storing this here protects it from GC because mark_byte_stack | 249 Storing this here protects it from GC because mark_byte_stack |
| 250 marks it. */ | 250 marks it. */ |
| 251 Lisp_Object byte_string; | 251 Lisp_Object byte_string; |
| 252 unsigned char *byte_string_start; | 252 const unsigned char *byte_string_start; |
| 253 | 253 |
| 254 /* The vector of constants used during byte-code execution. Storing | 254 /* The vector of constants used during byte-code execution. Storing |
| 255 this here protects it from GC because mark_byte_stack marks it. */ | 255 this here protects it from GC because mark_byte_stack marks it. */ |
| 256 Lisp_Object constants; | 256 Lisp_Object constants; |
| 257 | 257 |