pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1581:    }   }      node *index_node(node *n, char *node_name, struct pike_string *id)   {    node *ret;    JMP_BUF tmp;       check_tree(n,0);    -  if (!is_const(n) && !TEST_COMPAT(7, 6)) { +  if (!is_const(n)) {    /* Index dynamically. */    return mknode(F_INDEX, copy_node(n), mkstrnode(id));    }       if(SETJMP(tmp))    {    if (node_name) {    handle_compile_exception ("Couldn't index module %s.", node_name);    } else {    handle_compile_exception ("Couldn't index module.");
pike.git/src/las.c:3250:    *    * FIXME: Exactly what case is the problem?    * /grubba 2005-02-15    *    * Example:    * array tmp = ({([]),([])});    * tmp->foo = 7; // Multi-assign.    * /grubba 2007-04-27    */    if (((CDR(n)->token != F_INDEX && CDR(n)->token != F_ARROW) || -  !((TEST_COMPAT (7, 6) && /* Bug compatibility. */ -  match_types(array_type_string, CDR(n)->type)) || -  match_types(array_type_string, CADR(n)->type))) && +  !(match_types(array_type_string, CADR(n)->type))) &&    !match_types(CDR(n)->type,CAR(n)->type)) {    yytype_report(REPORT_ERROR, NULL, 0, CDR(n)->type,    NULL, 0, CAR(n)->type,    0, "Bad type in assignment.");    } else {    if (c->lex.pragmas & ID_STRICT_TYPES) {    struct pike_string *t1 = describe_type(CAR(n)->type);    struct pike_string *t2 = describe_type(CDR(n)->type);   #ifdef PIKE_DEBUG    if (l_flag > 0) {