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;