From 8eb189fa3b1612d80e2ac9d736e299af6d73aa22 Mon Sep 17 00:00:00 2001
From: Marcus Comstedt <marcus@mc.pp.se>
Date: Sun, 23 Sep 2001 17:23:45 +0200
Subject: [PATCH] Paranoia-check to ensure we find the right instance of
 ourselves...

Rev: src/dlopen.c:1.27
---
 src/dlopen.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/dlopen.c b/src/dlopen.c
index 40f4dfbdac..062aa3e675 100644
--- a/src/dlopen.c
+++ b/src/dlopen.c
@@ -183,7 +183,7 @@ size_t STRNLEN(char *s, size_t maxlen)
 
 #else /* PIKE_CONCAT */
 
-RCSID("$Id: dlopen.c,v 1.26 2001/09/23 05:29:29 hubbe Exp $");
+RCSID("$Id: dlopen.c,v 1.27 2001/09/23 15:23:45 marcus Exp $");
 
 #endif
 
@@ -1947,6 +1947,11 @@ static void init_dlopen(void)
   }
 #endif
 
+#ifdef PIKE_DEBUG
+  if(global_imagebase != (INT32)data->buffer)
+    fatal("LoadLibrary(ARGV[0]) didn't return instantiated program.\n");
+#endif 
+
 #ifdef DLDEBUG
   fprintf(stderr,"DL: init done\n");
 #endif
-- 
GitLab