diff --git a/src/interpret.c b/src/interpret.c index 572eff8af012730e9e59e4568ac814d8be87ca56..a64f7845612e1333ede30d47b24d22d233e1354c 100644 --- a/src/interpret.c +++ b/src/interpret.c @@ -5,7 +5,7 @@ \*/ /**/ #include "global.h" -RCSID("$Id: interpret.c,v 1.170 2000/09/08 16:17:56 grubba Exp $"); +RCSID("$Id: interpret.c,v 1.171 2000/09/25 23:41:33 hubbe Exp $"); #include "interpret.h" #include "object.h" #include "program.h" @@ -902,7 +902,7 @@ PMOD_EXPORT void mega_apply2(enum apply_type type, INT32 args, void *arg1, void case APPLY_STACK: apply_stack: if(!args) - PIKE_ERROR("`()", "Too few arguments.\n", Pike_sp, 0); + PIKE_ERROR("`()", "Too few arguments (apply stack).\n", Pike_sp, 0); args--; if(Pike_sp-save_sp-args > (args<<2) + 32) { diff --git a/src/interpret_functions.h b/src/interpret_functions.h index cdb4eea431843d94fb2da812f1157766fe268aa1..73952d83337293611d94aa41916d652b16cb53b5 100644 --- a/src/interpret_functions.h +++ b/src/interpret_functions.h @@ -1,5 +1,5 @@ /* - * $Id: interpret_functions.h,v 1.31 2000/08/24 04:04:41 hubbe Exp $ + * $Id: interpret_functions.h,v 1.32 2000/09/25 23:41:33 hubbe Exp $ * * Opcode definitions for the interpreter. */ @@ -1423,7 +1423,7 @@ BREAK; { INT32 args = DO_NOT_WARN(Pike_sp - *--Pike_mark_sp); if(!args) - PIKE_ERROR("`()", "Too few arguments.\n", Pike_sp, 0); + PIKE_ERROR("`()", "Too few arguments (call&return).\n", Pike_sp, 0); switch(Pike_sp[-args].type) { case PIKE_T_INT: