Changeset 15918 in project for chicken


Ignore:
Timestamp:
09/16/09 10:21:12 (10 years ago)
Author:
kon
Message:

'dynamic-load-mode' didn't handle case of no dload-flags. 'C_dynamic_library_open' didn't test for .dll & .so

Location:
chicken/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/eval.scm

    r15908 r15918  
    905905               (dynamic-load-flags->mode (##sys#dlopen-flags)) )
    906906              (else
    907                 (dynamic-load-mode) ) ) ) ) )
     907               '(lazy global) ) ) ) ) )
    908908             
    909909  (set! set-dynamic-load-mode! (lambda (mode) (dynamic-load-mode mode) ) ) )
  • chicken/trunk/runtime.c

    r15907 r15918  
    86588658  C_char *mname = (C_char *)C_data_pointer(name);
    86598659
    8660   if(C_truep(reloadable) && (reload_lf = find_lf_list_node(C_c_string(name))) != NULL) {
     8660  if(C_truep(reloadable) && (reload_lf = find_lf_list_node(mname)) != NULL) {
    86618661    if(0 != C_dynamic_library_close(reload_lf->module_handle))
    86628662      panic(C_text("Unable to unload previously loaded compiled code"));
     
    87448744  /* cannot use LoadLibrary on non-DLLs, so we use extension checking */
    87458745  int len = strlen(name);
    8746   if (   (len >= 5 && C_strncasecmp(".dll", name+len-5, 4))
    8747       || (len >= 4 && C_strncasecmp(".so", name+len-4, 3))) {
     8746  if(   (len >= 5 && C_strncasecmp(".dll", name+len-5, 4))
     8747     && (len >= 4 && C_strncasecmp(".so", name+len-4, 3))) {
    87488748    /* FIXME - really should have an error for this */
    87498749    C_dlerror = NULL;
Note: See TracChangeset for help on using the changeset viewer.