From 5dbbf8c9530f6377162d1c969dd69b217c37d2b9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Thu, 1 Jul 1999 20:58:53 +0200
Subject: [PATCH] Added some more PIKE_DEBUG.
Rev: src/program.c:1.127
---
src/program.c | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/src/program.c b/src/program.c
index aff4a30c4c..51492a8969 100644
--- a/src/program.c
+++ b/src/program.c
@@ -5,7 +5,7 @@
\*/
/**/
#include "global.h"
-RCSID("$Id: program.c,v 1.126 1999/07/01 18:43:53 grubba Exp $");
+RCSID("$Id: program.c,v 1.127 1999/07/01 18:58:53 grubba Exp $");
#include "program.h"
#include "object.h"
#include "dynamic_buffer.h"
@@ -1965,6 +1965,13 @@ int really_low_find_shared_string_identifier(struct pike_string *name,
CDFPRINTF((stderr,"Trying to find %s see_static=%d\n",
name->str, see_static));
+#ifdef PIKE_DEBUG
+ if (!prog) {
+ fatal("really_low_find_shared_string_identifier(\"%s\", NULL, %d)\n"
+ "prog is NULL!\n", name, see_static);
+ }
+#endif /* PIKE_DEBUG */
+
for(i=0;i<(int)prog->num_identifier_references;i++)
{
funp = prog->identifier_references + i;
--
GitLab