From 56de8538ba01af6ad77d40240d875067fefc80ae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 17 Jul 1998 12:53:16 -0700
Subject: [PATCH] more debug
Rev: src/interpret.c:1.92
---
src/interpret.c | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/src/interpret.c b/src/interpret.c
index 3fd927094e..eb9e80ff26 100644
--- a/src/interpret.c
+++ b/src/interpret.c
@@ -4,7 +4,7 @@
||| 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,7 +1906,14 @@ void mega_apply(enum apply_type type, INT32 args, void *arg1, void *arg2)
"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;
--
GitLab