pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: las.c,v 1.34 1997/05/22 23:27:32 hubbe Exp $"); + RCSID("$Id: las.c,v 1.35 1997/08/03 09:55:09 hubbe Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:2031:   int dooptcode(struct pike_string *name,    node *n,    struct pike_string *type,    int modifiers)   {    union idptr tmp;    int args, vargs, ret;    struct svalue *foo;      #ifdef DEBUG +  if(recoveries && sp-evaluator_stack < recoveries->sp) +  fatal("Stack error before dooptcode (underflow)\n"); + #endif +  + #ifdef DEBUG    if(a_flag > 1)    fprintf(stderr,"Doing function '%s' at %x\n",name->str,PC);   #endif    last_function_opt_info=OPT_SIDE_EFFECT;       args=count_arguments(type);    if(args < 0)    {    args=~args;    vargs=IDENTIFIER_VARARGS;
pike.git/src/las.c:2077: Inside #if defined(DEBUG)
   {    fprintf(stderr,"Coding: ");    print_tree(n);    }   #endif    if(!num_parse_error)    {    do_code_block(n);    }    + #ifdef DEBUG +  if(recoveries && sp-evaluator_stack < recoveries->sp) +  fatal("Stack error after do_code_block (underflow)\n"); + #endif +     ret=define_function(name,    type,    modifiers,    IDENTIFIER_PIKE_FUNCTION | vargs,    &tmp);       free_node(n);    return ret;   }      INT32 get_opt_info() { return last_function_opt_info; }