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.351 2008/08/17 10:10:28 mast Exp $ + || $Id: pike_types.c,v 1.352 2008/08/17 10:14:55 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
pike.git/src/pike_types.c:6886: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    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, flags, sval))) { +  } else { + #ifdef PIKE_DEBUG +  if (l_flag>2) fputc ('\n', stderr); + #endif +  if ((res = low_new_check_call(fun_type, args->type, flags, sval))) {    /* OK. */   #ifdef PIKE_DEBUG    if (l_flag>2) {    fprintf(stderr, " OK.\n");    }   #endif /* PIKE_DEBUG */    if ((c->lex.pragmas & ID_STRICT_TYPES) &&    /* FIXME: Strict types not supported for lvalues yet. */    !(flags & CALL_ARG_LVALUE)){    if (!(tmp = low_new_check_call(fun_type, args->type,
pike.git/src/pike_types.c:6911:    0, "Type mismatch in argument %d to %S.",    *argno, fun_name);    if (tmp) free_type(tmp);    } else {    free_type(tmp);    }    }    free_type(fun_type);    return res;    } +  }       if ((tmp = get_first_arg_type(fun_type, flags))) {    struct pike_type *tmp2;      #ifdef PIKE_DEBUG    if (l_flag>2) {    fprintf(stderr, " Bad argument.\n");    }   #endif /* PIKE_DEBUG */    yytype_report(REPORT_ERROR, NULL, 0, tmp, NULL, 0, args->type,