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.166 2000/02/15 22:06:18 hubbe Exp $"); + RCSID("$Id: las.c,v 1.167 2000/03/02 01:58:08 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:171:    tmp1=count_args(CADR(n));    tmp2=count_args(CDDR(n));    if(tmp1==-1 || tmp2==-2) return -1;    if(tmp1 < tmp2) return tmp1;    return tmp2;    }       case F_PUSH_ARRAY:    return -1;    +  case F_APPLY: +  if(CAR(n)->token == F_CONSTANT && +  CAR(n)->u.sval.type == T_FUNCTION && +  CAR(n)->u.sval.subtype == FUNCTION_BUILTIN && +  n->type == void_type_string) +  return 0; +  return 1; +     default:    if(n->type == void_type_string) return 0;    return 1;    }   }      struct pike_string *find_return_type(node *n)   {    struct pike_string *a,*b;