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.47 1998/01/29 00:30:34 hubbe Exp $"); + RCSID("$Id: las.c,v 1.48 1998/01/29 04:07:48 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:2226:    if(!n || n->token != F_RETURN) return 0;    n=CAR(n);       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 || n->token != F_CONSTANT) return 0; +  +  if((count_arguments(n->type) < 0) == !!vargs)    return &n->u.sval; -  +  +  return 0;   }      int dooptcode(struct pike_string *name,    node *n,    struct pike_string *type,    int modifiers)   {    union idptr tmp;    int args, vargs, ret;    struct svalue *foo;