Changeset 218

Timestamp:

Jan 5, 2004, 6:10:18 PM (21 years ago)

Author:

Gary Byers

Message:

Don't assume that dladdr exists if STATIC is defined.

File:

• trunk/ccl/lisp-kernel/plbt.c (modified) (4 diffs)

trunk/ccl/lisp-kernel/plbt.c

@@ -150 +150 @@
   if ((fun == 0) || (fun == fulltag_misc)) {
     spname = "unknown ?";
+#ifndef STATIC
     if (dladdr((void *)pc, &info)) {
       spname = (char *)(info.dli_sname);
     }
+#endif
     Dprintf("(#x%08X) #x%08X : (subprimitive %s)", frame, pc, spname);
   } else {
@@ -182 +184 @@
   Dl_info foreign_info;
 
+#ifndef STATIC
   if (dladdr((void *)pc, &foreign_info)) {
     Dprintf("(#x%08x) #x%08X : %s + %d", frame, pc, foreign_info.dli_sname,
             pc-((int)foreign_info.dli_saddr));
   } else {
+#endif
     Dprintf("(#x%08X) #x%08X : foreign code (%s)", frame, pc, "unknown");
-  }
-
+#ifndef STATIC
+  }
+#endif
 }
 
@@ -284 +289 @@
   void *pc = (void *) (((c_frame *)frame)->savelr);
 #endif
+#ifndef STATIC
   if (dladdr(pc, &info)) {
     if (delta) {
@@ -290 +296 @@
     return info.dli_sname;
   }
+#endif
   if (delta) {
     *delta = 0;