pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.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: interpret.c,v 1.85 1998/05/25 10:38:45 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.86 1998/06/01 20:49:33 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:1677:    break;       CASE(F_CALL_FUNCTION_AND_RETURN);    {    INT32 args=sp - *--mark_sp;    if(!args)    PIKE_ERROR("`()", "Too few arguments.\n", sp, 0);    switch(sp[-args].type)    {    case T_INT: +  if (!sp[-args].u.integer) { +  PIKE_ERROR("`()", "Attempt to call the NULL-value\n", sp, args); +  }    case T_STRING:    case T_FLOAT:    case T_MAPPING:    case T_MULTISET:    PIKE_ERROR("`()", "Attempt to call a non-function value.\n", sp, args);    }    return args;    }       default: