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.   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.297 2002/08/15 14:49:22 marcus Exp $"); + RCSID("$Id: las.c,v 1.298 2002/09/15 18:47:32 marcus Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:1752:    case F_LSH_EQ:    case F_RSH_EQ:    case F_ADD_EQ:    case F_SUB_EQ:    case F_MULT_EQ:    case F_MOD_EQ:    case F_DIV_EQ:    case F_ARG_LIST:    case F_LOR:    case F_LAND: -  case F_CAST: -  case F_SOFT_CAST: +     tmp=recursive_add_call_arg(CDR(n), arg);   #ifdef SHARED_NODES    {    n=defrost_node(n);    _CDR(n)=tmp;    n=freeze_node(n);    }   #else    _CDR(n)=tmp;   #endif    break;    -  +  case F_CAST: +  case F_SOFT_CAST: +  tmp=recursive_add_call_arg(CAR(n), arg); + #ifdef SHARED_NODES +  { +  n=defrost_node(n); +  _CAR(n)=tmp; +  n=freeze_node(n); +  } + #else +  _CAR(n)=tmp; + #endif +  break; +     default:    yyerror("Syntax error in implicit lambda.");    free_node(arg);    break;    }       return n;   }      node *index_node(node *n, char *node_name, struct pike_string *id)