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.21 1997/02/18 05:13:35 hubbe Exp $"); + RCSID("$Id: las.c,v 1.22 1997/02/27 08:09:46 hubbe 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:1935:    }       if(n->token == F_CAST && n->type==void_type_string)    {    n=CAR(n);    continue;    }    break;    }    -  if(n->token != F_RETURN) return 0; +  if(!n || n->token != F_RETURN) return 0;    n=CAR(n);    -  if(n->token != F_APPLY) return 0; +  if(!n || n->token != F_APPLY) return 0;       tmp=stupid_args(CDR(n),0,vargs);    if(!(vargs?tmp==65535:tmp==args)) return 0;       n=CAR(n); -  if(n->token != F_CONSTANT) return 0; +  if(!n || n->token != F_CONSTANT) return 0;    return &n->u.sval;   }      int dooptcode(struct pike_string *name,    node *n,    struct pike_string *type,    int modifiers)   {    union idptr tmp;    int args, vargs, ret;