Changeset 4834

Timestamp:

Jun 27, 2006, 3:44:04 AM (18 years ago)

Author:

Gary Byers

Message:

Some FreeBSD conditionalization; get_r_debug() for ELF platforms.
(Needs testing under Linux.)

File:

• trunk/ccl/lisp-kernel/pmcl-kernel.c (modified) (3 diffs)

trunk/ccl/lisp-kernel/pmcl-kernel.c

@@ -98 +98 @@
 #include <sys/resource.h>
 #include <dlfcn.h>
+#include <elf.h> 
 #endif
 
@@ -1743 +1744 @@
 xFindSymbol(void* handle, char *name)
 {
-#ifdef LINUX
+#if defined(LINUX) || defined(FREEBSD)
   return dlsym(handle, name);
 #endif
@@ -1769 +1770 @@
 }
 
-
+void *
+get_r_debug()
+{
+#if defined(LINUX) || defined(FREEBSD)
+#if WORD_SIZE == 64
+  extern Elf64_Dyn _DYNAMIC;
+  Elf64_Dyn *dp;
+#else
+  extern Elf32_Dyn _DYNAMIC;
+  Elf32_Dyn *dp;
+#endif
+  int tag;
+
+  for (dp = &_DYNAMIC; (tag = dp->d_tag) != 0; dp++) {
+    if (tag == DT_DEBUG) {
+      return (void *)(dp->d_un.d_ptr);
+    }
+  }
+#endif
+  return NULL;
+}
+
+