Branch: Tag:

1999-10-21

1999-10-21 21:34:37 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

some bugfixes for AUTO_BIGNUM

Rev: lib/master.pike.in:1.64
Rev: src/builtin_functions.c:1.190
Rev: src/interpret.h:1.34
Rev: src/program.c:1.161
Rev: src/program.h:1.61
Rev: src/svalue.c:1.49
Rev: src/testsuite.in:1.202

5:   \*/      /* -  * $Id: interpret.h,v 1.33 1999/07/29 17:10:23 mirar Exp $ +  * $Id: interpret.h,v 1.34 1999/10/21 21:34:32 hubbe Exp $    */   #ifndef INTERPRET_H   #define INTERPRET_H
99:   #define stack_dup() push_svalue(sp-1)   #define stack_swap() do { struct svalue _=sp[-1]; sp[-1]=sp[-2]; sp[-2]=_; } while(0)    + /* This pops a number of arguments from the stack but keeps the top +  * element on top. Used for popping the arguments while keeping the +  * return value. +  */ + #define stack_unlink(X) do { if(X) { free_svalue(sp-(X)-1); sp[-(X)-1]=sp[-1]; sp--; pop_n_elems(X-1); } }while(0) +    #define free_pike_frame(F) do{ struct pike_frame *f_=(F); debug_malloc_touch(f_); if(!--f_->refs) really_free_pike_frame(f_); }while(0)      #define POP_PIKE_FRAME() do { \