pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.207 2000/09/12 14:24:29 grubba Exp $"); + RCSID("$Id: las.c,v 1.208 2000/09/12 14:28:53 grubba 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:1756:    if(((*a)->token == F_CAST) ||    ((*a)->token == F_SOFT_CAST) ||    ((*a)->token == F_POP_VALUE)) return last_cmd(&_CAR(*a));    if(((*a)->token != F_ARG_LIST) &&    ((*a)->token != F_COMMA_EXPR)) return a;    if(CDR(*a))    {    if(CDR(*a)->token != F_CAST &&    CDR(*a)->token != F_SOFT_CAST &&    CDR(*a)->token != F_POP_VALUE && -  CAR(*a)->token != F_ARG_LIST && /* FIXME: typo? */ -  CAR(*a)->token != F_COMMA_EXPR) /* FIXME: typo? */ +  CDR(*a)->token != F_ARG_LIST && +  CDR(*a)->token != F_COMMA_EXPR)    return &_CDR(*a);    if((n=last_cmd(&_CDR(*a))))    return n;    }    if(CAR(*a))    {    if(CAR(*a)->token != F_CAST &&    CAR(*a)->token != F_SOFT_CAST &&    CAR(*a)->token != F_POP_VALUE &&    CAR(*a)->token != F_ARG_LIST &&