Branch: Tag:

2000-05-07

2000-05-07 00:39:52 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

allow one cyclic recursion when resolving identifiers

Rev: lib/master.pike.in:1.117
Rev: src/builtin_functions.c:1.273
Rev: src/cyclic.c:1.4
Rev: src/las.c:1.177
Rev: src/opcodes.c:1.75
Rev: src/program.c:1.236

26:   #include "bignum.h"   #include "operators.h"    - RCSID("$Id: opcodes.c,v 1.74 2000/04/20 02:41:45 hubbe Exp $"); + RCSID("$Id: opcodes.c,v 1.75 2000/05/07 00:39:17 hubbe Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {
502: Inside #if defined(PIKE_DEBUG)
   if(save_sp!=sp)    fatal("o_cast left stack droppings.\n");   #endif -  END_CYCLIC(); +     } -  +  END_CYCLIC();    assign_svalue(sp-3,sp-1);    pop_stack();    }
550:    fatal("o_cast left stack droppings.\n");   #endif    order_multiset(m); -  END_CYCLIC(); +     } -  +  END_CYCLIC();    assign_svalue(sp-3,sp-1);    pop_stack();    }
604: Inside #if defined(PIKE_DEBUG)
   if(save_sp!=sp)    fatal("o_cast left stack droppings.\n");   #endif -  END_CYCLIC(); +     } -  +  END_CYCLIC();    assign_svalue(sp-4,sp-1);    pop_stack();    }