Mercurial > emacs
comparison src/bytecode.c @ 470:db84d8d9a1d9
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 21 Dec 1991 07:03:14 +0000 |
| parents | 43e88c4db330 |
| children | 8c615e453683 |
comparison
equal
deleted
inserted
replaced
| 469:ffa6d5c9b074 | 470:db84d8d9a1d9 |
|---|---|
| 416 XSETINT (v2, XINT (v2) + 1); | 416 XSETINT (v2, XINT (v2) + 1); |
| 417 Fput (v1, Qbyte_code_meter, v2); | 417 Fput (v1, Qbyte_code_meter, v2); |
| 418 } | 418 } |
| 419 } | 419 } |
| 420 #endif | 420 #endif |
| 421 /* The frobbing of gcpro3 was lost by jwz's changes in June 91 | |
| 422 and then reinserted by jwz in Nov 91. */ | |
| 423 /* Remove protection from the args we are giving to Ffuncall. | |
| 424 FFuncall will protect them, and double protection would | |
| 425 cause disasters. */ | |
| 426 gcpro3.nvars = &TOP - stack - 1; | |
| 427 TOP = Ffuncall (op + 1, &TOP); | 421 TOP = Ffuncall (op + 1, &TOP); |
| 428 gcpro3.nvars = XFASTINT (maxdepth); | |
| 429 break; | 422 break; |
| 430 | 423 |
| 431 case Bunbind+6: | 424 case Bunbind+6: |
| 432 op = FETCH; | 425 op = FETCH; |
| 433 goto dounbind; | 426 goto dounbind; |
