pike.git / src / las.c

version» Context lines:

pike.git/src/las.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: las.c,v 1.413 2008/05/24 15:14:12 grubba Exp $ + || $Id: las.c,v 1.414 2008/05/24 21:45:48 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"
pike.git/src/las.c:3230: Inside #if defined(NEW_ARG_CHECK)
   struct pike_type *soft_type = NULL;    if (CDR(n) && (CDR(n)->token == F_CONSTANT) &&    (CDR(n)->u.sval.type == T_TYPE)) {    soft_type = CDR(n)->u.sval.u.type;    if ((n->type = soft_cast(soft_type, CAR(n)->type, 0))) {    /* Success. */    break;    }    ref_push_type_value(CAR(n)->type);    ref_push_type_value(soft_type); -  yytype_report(REPORT_ERROR, NULL, 0, NULL, NULL, 0, NULL, 2, -  "Soft cast of %O to %O isn't a valid cast."); +  yytype_report(REPORT_ERROR, NULL, 0, NULL, NULL, 0, NULL, +  2, "Soft cast of %O to %O isn't a valid cast.");    } else {    yytype_report(REPORT_ERROR, NULL, 0, type_type_string,    NULL, 0, CDR(n)->type, 0,    "Soft cast with non-type.");    }    /* Failure: Fall through to the old code. */   #else /* !NEW_ARG_CHECK */    if (!check_soft_cast(old_type, CAR(n)->type)) {    ref_push_type_value(old_type);    ref_push_type_value(CAR(n)->type); -  yytype_report(REPORT_ERROR, NULL, 0, NULL, NULL, 0, NULL, 2, -  "Soft cast to %S isn't a restriction of %S.", +  yytype_report(REPORT_ERROR, NULL, 0, NULL, NULL, 0, NULL, +  2, "Soft cast to %S isn't a restriction of %S.",    t1, t2);    }    /* FIXME: check_soft_cast() is weaker than pike_types_le()    * The resulting type should probably be the AND between the old    * and the new type.    */   #endif /* NEW_ARG_CHECK */    }    /* FALL_THROUGH */    case F_CAST: