2000-05-07
2000-05-07 00:39:52 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
14bb598e8ee57bf016546ace2016a972bce9a9a6
(9 lines)
(+5/-4)
[
Show
| Annotate
]
Branch: 7.9
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();
}