pike.git / src / docode.c

version» Context lines:

pike.git/src/docode.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: docode.c,v 1.131 2001/08/31 06:54:06 hubbe Exp $"); + RCSID("$Id: docode.c,v 1.132 2001/09/24 14:26:52 grubba Exp $");   #include "las.h"   #include "program.h"   #include "pike_types.h"   #include "stralloc.h"   #include "interpret.h"   #include "constants.h"   #include "array.h"   #include "pike_macros.h"   #include "pike_error.h"   #include "pike_memory.h"
pike.git/src/docode.c:401:    ret=0;    if(car_is_node(n)) ret += count_cases(CAR(n));    if(cdr_is_node(n)) ret += count_cases(CDR(n));    return ret;    }   }         int generate_call_function(node *n)   { -  node **arg; +     emit0(F_MARK);    PUSH_CLEANUP_FRAME(do_pop_mark, 0);    do_docode(CDR(n),DO_NOT_COPY);    emit0(F_CALL_FUNCTION);    POP_AND_DONT_CLEANUP;    return 1;   }      static inline struct compiler_frame *find_local_frame(INT32 depth)   {
pike.git/src/docode.c:1221:    PUSH_CLEANUP_FRAME(do_pop_mark, 0);    do_docode(CAAR(n),0); /* object */    do_docode(CDR(n),0); /* args */    emit1(F_CALL_OTHER, store_prog_string(CDAR(n)->u.sval.u.string));    POP_AND_DONT_CLEANUP;    return 1;    }    else    {    struct pike_string *tmp; -  struct efun *fun; +     node *foo;       emit0(F_MARK);    PUSH_CLEANUP_FRAME(do_pop_mark, 0);    do_docode(CAR(n),0);    do_docode(CDR(n),0);       tmp=findstring("call_function");    if(!tmp) yyerror("No call_function efun.");    foo=find_module_identifier(tmp,0);