Changeset 14975


Ignore:
Timestamp:
Sep 9, 2011, 1:39:26 AM (8 years ago)
Author:
rme
Message:

In the Darwin-specific version of open-shared-library-internal,
push newly-opened shlib objects onto *shared-libraries*.

The ELF and Windows targets already add to *shared-libraries*
in shlib-from-map-entry and shared-library-from-hmodule,
respectively.

File:
1 edited

Legend:

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

    r14929 r14975  
    669669          (unless lib
    670670            (setq lib (%cons-shlib name name nil nil))
    671             (setf (shlib.handle lib) handle))
     671            (setf (shlib.handle lib) handle)
     672            (push lib *shared-libraries*))
    672673          (incf (shlib.opencount lib))
    673674          (values lib nil))))))
Note: See TracChangeset for help on using the changeset viewer.