Hi!

This is a post that is relevant to about 0.000000% (o, I forgot a "1"!) of the readers: how to implement the missing dladdr() in AIX5. I could not find it anywhere, nobody seemed to have an implementation - and CINT needs it. So when porting v5.28.00 to AIX5 I needed to deal with it.

To save other people from going mad, here's the code:

#include "sys/ldr.h"

struct Dl_info {
  const char* dli_fname;
};
int dladdr(void* s, Dl_info* i) {
   static const size_t bufSize = 4096;
   G__FastAllocString buf(bufSize);
   char* pldi = buf;
   int r = loadquery(L_GETINFO,  pldi,  bufSize);
   if (r == -1) {
      i->dli_fname = 0;
      return 0;
   }
   // First is main(), skip.
   ld_info* ldi = (ld_info*)pldi;
   while (ldi->ldinfo_next) {
     pldi += ldi->ldinfo_next;
     ldi = (ld_info*)pldi;
     char* textBegin = (char*)ldi->ldinfo_textorg;
     if (textBegin < s) {
        char* textEnd = textBegin + ldi->ldinfo_textsize;
        if (textEnd > s) {
           i->dli_fname = ldi->ldinfo_filename;
           return 1;
        }
     }
   }
   i->dli_fname = 0;
   return 0;
}

The next post will be super mainstream again, I promise ;-)

Cheers,