Looking for NOTYPE object too for Fortran globals with some compiler
authorChao Huang <chuang10@uiuc.edu>
Wed, 13 Dec 2006 08:52:01 +0000 (08:52 +0000)
committerChao Huang <chuang10@uiuc.edu>
Wed, 13 Dec 2006 08:52:01 +0000 (08:52 +0000)
src/conv-core/loadsym.c

index 4d8e9397040651db7ebdd1622328052b4bbaa57a..c1360d57285487044f858de064d221410001cfad 100644 (file)
@@ -492,7 +492,11 @@ static unsigned long libc;  /* libc start address */
 int
 lookup_obj_sym(char *name, unsigned long *val, int *size)
 {
-       return lookup_sym(symtab, STT_OBJECT, name, val, size);
+       if(-1==lookup_sym(symtab, STT_OBJECT, name, val, size) 
+        &&-1==lookup_sym(symtab, STT_NOTYPE, name, val, size))
+               return -1;
+       else 
+               return 0;
 }
 
 int