gcl-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Gcl-devel] [PATCH 08/11] Handle dladdr failure correctly


From: Will Newton
Subject: [Gcl-devel] [PATCH 08/11] Handle dladdr failure correctly
Date: Wed, 11 Jun 2014 17:27:21 +0100

From: Will Newton <address@hidden>

dladdr does not set dlerror but returns zero on failure.
---
 gcl/o/cfun.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcl/o/cfun.c b/gcl/o/cfun.c
index ed64430..593ee92 100644
--- a/gcl/o/cfun.c
+++ b/gcl/o/cfun.c
@@ -101,10 +101,10 @@ 
DEFUN("DLADDR",object,fSdladdr,SI,1,1,NONE,OI,OO,OO,OO,(fixnum ad),"") {
   Dl_info info;
   unsigned long u;
   const char *c;
+  int ret;
 
-  dlerror();
-  dladdr((void *)ad,&info);
-  if (dlerror())
+  ret = dladdr((void *)ad,&info);
+  if (ret == 0)
     FEerror("dladdr lookup failure on ~s",1,make_fixnum(ad));
   u=(unsigned long)info.dli_fbase;
   c=info.dli_fname;
-- 
1.9.3




reply via email to

[Prev in Thread] Current Thread [Next in Thread]