1998-07-17
1998-07-17 19:53:16 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
56de8538ba01af6ad77d40240d875067fefc80ae
(10 lines)
(+9/-1)
[
Show
| Annotate
]
Branch: 7.9
more debug
Rev: src/interpret.c:1.92
4:
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
- RCSID("$Id: interpret.c,v 1.91 1998/07/16 19:25:43 hubbe Exp $");
+ RCSID("$Id: interpret.c,v 1.92 1998/07/17 19:53:16 hubbe Exp $");
#include "interpret.h"
#include "object.h"
#include "program.h"
1906: Inside #if defined(DEBUG)
"Cannot call functions in destructed objects.\n", sp, args);
#ifdef DEBUG
if(fun>=(int)p->num_identifier_references)
+ {
+ fprintf(stderr,"Function index out of range. %d >= %d\n",fun,(int)p->num_identifier_references);
+ fprintf(stderr,"########Program is:\n");
+ describe(p);
+ fprintf(stderr,"########Object is:\n");
+ describe(o);
fatal("Function index out of range.\n");
-
+ }
#endif
ref = p->identifier_references + fun;