/[cvs]/stack/stack.c
ViewVC logotype

Diff of /stack/stack.c

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

revision 1.85 by teddy, Fri Feb 15 12:45:28 2002 UTC revision 1.86 by teddy, Fri Feb 15 14:44:24 2002 UTC
# Line 292  void push_sym(environment *env, const ch Line 292  void push_sym(environment *env, const ch
292      if(handle==NULL)            /* If no handle */      if(handle==NULL)            /* If no handle */
293        handle= dlopen(NULL, RTLD_LAZY);        handle= dlopen(NULL, RTLD_LAZY);
294    
295      funcptr= dlsym(handle, in_string); /* Get function pointer */      mangled=mangle_str(in_string); /* mangle the name */
296        funcptr= dlsym(handle, mangled); /* and try to find it */
297        free(mangled);
298      dlerr=dlerror();      dlerr=dlerror();
299      if(dlerr != NULL) {         /* If no function was found */      if(dlerr != NULL) {         /* If no function was found */
300        mangled=mangle_str(in_string);        funcptr= dlsym(handle, in_string); /* Get function pointer */
       funcptr= dlsym(handle, mangled); /* try mangling it */  
       free(mangled);  
301        dlerr=dlerror();        dlerr=dlerror();
302      }      }
303      if(dlerr==NULL) {           /* If a function was found */      if(dlerr==NULL) {           /* If a function was found */
Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26