Changeset 11919


Ignore:
Timestamp:
Apr 9, 2009, 6:26:00 PM (11 years ago)
Author:
gb
Message:

Osei Poku's patch to handle shared libraries whose names don't contain
a dot in %REVIVE-SHARED-LIBRARIES.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-cfm-support.lisp

    r11871 r11919  
    882882          (shlib.base lib) nil)
    883883    (let* ((soname (shlib.soname lib))
    884            (last-dot (if soname (1+ (last-dot-pos soname)))))
     884           (last-dot (if soname (last-dot-pos soname))))
    885885      (when soname
    886886        (with-cstrs ((soname soname))
     
    894894                                 (when (or (%cstrcmp soname libname)
    895895                                           (and last-dot
    896                                                 (%cnstrcmp soname libname last-dot)))
     896                                                (%cnstrcmp soname libname (1+ last-dot))))
    897897                                   (return-from found  m)))))))))
    898898            (when map
Note: See TracChangeset for help on using the changeset viewer.