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.280 2007/04/05 16:00:59 grubba Exp $ + || $Id: pike_types.c,v 1.281 2007/04/05 16:01:35 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:5384: Inside #if defined(PIKE_DEBUG)
   simple_describe_type(fun_type);    }   #endif /* PIKE_DEBUG */       if (args->token == F_PUSH_ARRAY) {    struct pike_type *prev = fun_type;    int cnt = 256;    /* This token can expand to anything between zero and MAX_ARGS args. */      #ifdef PIKE_DEBUG -  if (1 || l_flag>2) { +  if (l_flag>2) {    fprintf(stderr, "\n The argument is a splice operator.\n");    }   #endif /* PIKE_DEBUG */       copy_pike_type(res, fun_type);       /* Loop until we get a stable fun_type, or it's an invalid argument. */    while ((fun_type = low_new_check_call(debug_malloc_pass(prev),    debug_malloc_pass(args->type), 0)) &&    (fun_type != prev) && --cnt) {      #ifdef PIKE_DEBUG -  if (1 || l_flag>4) { +  if (l_flag>4) {    fprintf(stderr, "\n sub_result_type: ");    simple_describe_type(fun_type);    }   #endif /* PIKE_DEBUG */       res = dmalloc_touch(struct pike_type *,    or_pike_types(debug_malloc_pass(tmp = res),    debug_malloc_pass(fun_type), 1));   #ifdef PIKE_DEBUG -  if (1 || l_flag>4) { +  if (l_flag>4) {    fprintf(stderr, "\n joined_type: ");    simple_describe_type(res);    }   #endif /* PIKE_DEBUG */       if ((res == tmp) || (res == fun_type)) {    free_type(tmp);    break;    }    free_type(tmp);
pike.git/src/pike_types.c:5438:    if (cnt == 256) {    yywarning("In argument %d to %S: The @-operator argument must be an empty array.",    *argno, fun_name);    } else if (lex.pragmas & ID_STRICT_TYPES) {    yywarning("In argument %d to %S: The @-operator argument has a max length of %d.",    *argno, fun_name, 256-cnt);    }    }      #ifdef PIKE_DEBUG -  if (1 || l_flag>2) { +  if (l_flag>2) {    fprintf(stderr, "\n result: ");    simple_describe_type(res);    fprintf(stderr, " OK.\n");    }   #endif /* PIKE_DEBUG */       return res;    } else if ((res = low_new_check_call(fun_type, args->type, 0))) {    /* OK. */   #ifdef PIKE_DEBUG