Changeset 9972


Ignore:
Timestamp:
Jul 10, 2008, 9:34:39 AM (11 years ago)
Author:
gb
Message:

foreign_name_and_offset() moved elsewhere.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lisp-kernel/plbt.c

    r4572 r9972  
    320320}
    321321   
    322 const char *
    323 foreign_name_and_offset(void *frame, unsigned *delta)
    324 {
    325   Dl_info info;
    326 #if defined(LINUX) && !defined(PPC64)
    327   void *pc = (void *) (((eabi_c_frame *)frame)->savelr);
    328 #else
    329   void *pc = (void *) (((c_frame *)frame)->savelr);
    330 #endif
    331 #ifndef STATIC
    332   if (dladdr(pc, &info)) {
    333     if (delta) {
    334       *delta = (unsigned long )pc - (unsigned long)info.dli_saddr;
    335     }
    336     return info.dli_sname;
    337   }
    338 #endif
    339   if (delta) {
    340     *delta = 0;
    341   }
    342   return NULL;
    343 }
Note: See TracChangeset for help on using the changeset viewer.