pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:3794:    if (!CAR(n) || (CAR(n)->token != ':') ||    !CDAR(n) || (CDAR(n)->token != F_ARG_LIST) ||    !CADAR(n) || !CDDAR(n)) {    yyerror("Too few arguments to sscanf().");    MAKE_CONSTANT_TYPE(n->type, tIntPos);    } else {    struct pike_string *sscanf_name;    struct pike_type *sscanf_type;    node *args;    INT32 argno = 0; -  if (CAAR(n)->u.sval.u.integer & SSCANF_FLAG_76_COMPAT) { -  MAKE_CONST_STRING(sscanf_name, "sscanf_76"); -  add_ref(sscanf_type = sscanf_76_type_string); -  } else { +     MAKE_CONST_STRING(sscanf_name, "sscanf");    add_ref(sscanf_type = sscanf_type_string); -  } +     args = mknode(F_ARG_LIST, CDAR(n), CDR(n));    add_ref(CDAR(n));    if (CDR(n)) add_ref(CDR(n));    sscanf_type = new_check_call(sscanf_name, sscanf_type, args, &argno, 0);    free_node(args);    if (sscanf_type) {    if (!(n->type = new_get_return_type(sscanf_type, 0))) {    struct pike_type *expected;    if ((expected = get_first_arg_type(sscanf_type, CALL_NOT_LAST_ARG))) {    yytype_report(REPORT_ERROR,