/[ascend]/trunk/base/generic/utilities/ascDynaLoad.c
ViewVC logotype

Diff of /trunk/base/generic/utilities/ascDynaLoad.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 96 by johnpye, Tue Dec 6 04:06:12 2005 UTC revision 97 by jds, Fri Dec 9 03:49:19 2005 UTC
# Line 236  int Asc_DynamicLoad(CONST char *path, CO Line 236  int Asc_DynamicLoad(CONST char *path, CO
236    AscCheckDuplicateLoad(path); /* whine if we've see it before */    AscCheckDuplicateLoad(path); /* whine if we've see it before */
237    
238    /*FPRINTF(ASCERR,"PATH IS NOT A DUPE\n");*/    /*FPRINTF(ASCERR,"PATH IS NOT A DUPE\n");*/
239    
240    fp = fopen(path,"rb");    fp = fopen(path,"rb");
241    if(fp==NULL){    if(fp==NULL){
242      FPRINTF(ASCERR,"FILE %s ISN'T THERE\n",path);      FPRINTF(ASCERR,"FILE %s ISN'T THERE\n",path);
# Line 244  int Asc_DynamicLoad(CONST char *path, CO Line 244  int Asc_DynamicLoad(CONST char *path, CO
244    }    }
245    /* FPRINTF(ASCERR,"FILE %s IS THERE AND CAN BE OPENED\n",path);*/    /* FPRINTF(ASCERR,"FILE %s IS THERE AND CAN BE OPENED\n",path);*/
246    fclose(fp);    fclose(fp);
247      
248    /* clear error message first */    /* clear error message first */
249    dlerror();    dlerror();
250      
251    xlib = dlopen(path,RTLD_GLOBAL|RTLD_NOW);    xlib = dlopen(path,RTLD_GLOBAL|RTLD_NOW);
252    if(xlib==NULL){    if(xlib==NULL){
253      FPRINTF(ASCERR,"COULDN'T LOAD LIBRARY %s\n",path);      FPRINTF(ASCERR,"COULDN'T LOAD LIBRARY %s\n",path);

Legend:
Removed from v.96  
changed lines
  Added in v.97

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22