pike.git / src / encode.c

version» Context lines:

pike.git/src/encode.c:18:   #include "pike_error.h"   #include "operators.h"   #include "builtin_functions.h"   #include "module_support.h"   #include "fsort.h"   #include "threads.h"   #include "stuff.h"   #include "version.h"   #include "bignum.h"    - RCSID("$Id: encode.c,v 1.112 2001/07/15 21:45:31 mast Exp $"); + RCSID("$Id: encode.c,v 1.113 2001/07/16 21:55:33 mast Exp $");      /* #define ENCODE_DEBUG */      #ifdef ENCODE_DEBUG   /* Pass a nonzero integer as the third arg to encode_value,    * encode_value_canonic and decode_value to activate this debug. */   #define EDB(N,X) do if (data->debug>=N) {X;} while (0)   #else   #define EDB(N,X) do {} while (0)   #endif
pike.git/src/encode.c:1801:    debug_malloc_touch(o);    pop_stack();    push_object(o);       if(o->prog)    {    if(o->prog->flags & PROGRAM_FINISHED)    {    apply_lfun(o, LFUN___INIT, 0);    pop_stack(); +  /* FIXME: Should call LFUN_CREATE here in <= 7.2 +  * compatibility mode. */    }else{    struct unfinished_obj_link *ol=ALLOC_STRUCT(unfinished_obj_link);    ol->o=o;    ol->next=data->unfinished_objects;    data->unfinished_objects=ol;    }    }       EDB(2,fprintf(stderr, "%*sDecoded an object to <%d>: ",    data->depth, "", tmp.u.integer);
pike.git/src/encode.c:2294:    struct unfinished_obj_link *l, **ptr;    for(ptr= &data->unfinished_objects ; (l=*ptr);)    {    struct object *o=l->o;    if(o->prog)    {    if(o->prog->flags & PROGRAM_FINISHED)    {    apply_lfun(o, LFUN___INIT, 0);    pop_stack(); +  /* FIXME: Should call LFUN_CREATE here in <= 7.2 +  * compatibility mode. */    }else{    ptr=&l->next;    continue;    }    }    *ptr = l->next;    free((char *)l);    }    }