pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: pike_types.c,v 1.273 2007/03/31 21:39:45 grubba Exp $ + || $Id: pike_types.c,v 1.274 2007/03/31 22:12:14 grubba Exp $   */      #include "global.h"   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"
pike.git/src/pike_types.c:5347:    }   #endif /* PIKE_DEBUG */       if (args->token == F_PUSH_ARRAY) {    struct pike_type *prev = NULL;    int cnt = 256;    /* This token can expand to anything between zero and MAX_ARGS args. */      #ifdef PIKE_DEBUG    if (l_flag>2) { -  fprintf(stderr, "\n The argument is a splice operator."); +  fprintf(stderr, "\n The argument is a splice operator.\n");    }   #endif /* PIKE_DEBUG */       /* Loop until we get a stable fun_type, or it's an invalid argument. */    while ((tmp = low_new_check_call(debug_malloc_pass(fun_type),    debug_malloc_pass(args->type), 0)) &&    (tmp != prev) && --cnt) {      #ifdef PIKE_DEBUG    if (l_flag>4) {
pike.git/src/pike_types.c:6352:    *    * It's needed for dmalloc to survive.    */    pike_type_hash = NULL;    }    /* Don't do this, it messes up stuff...    *    * It's needed for dmalloc to survive.    */    pike_type_hash_size = 0; - #if 0 +    #ifdef DO_PIKE_CLEANUP    free_all_pike_type_blocks();   #endif /* DO_PIKE_CLEANUP */ - #endif /* 0 */ +    }      #if 0   #ifdef PIKE_DEBUG      void gc_mark_type_as_referenced(struct pike_type *t)   {    if (gc_mark(t)) {    GC_ENTER(t, PIKE_T_TYPE) {    switch(t->type) {