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.408 2008/05/15 15:13:04 grubba Exp $ + || $Id: las.c,v 1.409 2008/05/17 14:09:28 marcus 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:4101:    foreach_type_check_done:    copy_pike_type(n->type, void_type_string);    break;       case F_SSCANF:    if (!CAR(n) || (CAR(n)->token != ':') ||    !CDAR(n) || (CDAR(n)->token != F_ARG_LIST) ||    !CADAR(n) || !CDDAR(n)) {    yyerror("Too few arguments to sscanf().");    } else { -  check_node_type(CAAR(n), string_type_string, +  check_node_type(CADAR(n), string_type_string,    "Bad argument 1 to sscanf()."); -  check_node_type(CDAR(n), string_type_string, +  check_node_type(CDDAR(n), string_type_string,    "Bad argument 2 to sscanf().");    }    /* FIXME: */    MAKE_CONSTANT_TYPE(n->type, tIntPos);    break;       case F_UNDEFINED:    copy_pike_type(n->type, zero_type_string);    break;