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.350 2008/08/11 15:15:43 grubba Exp $ + || $Id: pike_types.c,v 1.351 2008/08/17 10:10:28 mast 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:6858: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if (l_flag>2) {    fprintf(stderr, " Checking argument #%d... ", *argno);    simple_describe_type(args->type);    if (sval) {    fprintf(stderr, "\n Constant of type %s", get_name_of_type(sval->type));    }    fprintf(stderr, "\n fun_type: ");    simple_describe_type(fun_type); +  fputc ('\n', stderr);    }   #endif /* PIKE_DEBUG */       if (TEST_COMPAT(7, 6)) {    /* Attempt to reduce strictness to Pike 7.6 levels. */    flags |= CALL_7_6;    }       if (args->token == F_PUSH_ARRAY) {   #ifdef PIKE_DEBUG