Changeset 14646

Timestamp:

Feb 7, 2011, 5:47:26 PM (14 years ago)

Author:

Gary Byers

Message:

Fix Windows lossage from last commit.

Location:

trunk/source

Files:

• level-0/l0-cfm-support.lisp (modified) (4 diffs)
• level-1/linux-files.lisp (modified) (1 diff)

trunk/source/level-0/l0-cfm-support.lisp

@@ -119 +119 @@
                        (setf (fv.addr fv) nil))))
                fvs))))
+
+;;; Walk over all registered entrypoints, invalidating any whose container
+;;; is the specified library.  Return true if any such entrypoints were
+;;; found.
+(defun unload-library-entrypoints (lib)
+  (let* ((count 0))
+    (declare (fixnum count))
+    (maphash #'(lambda (k eep)
+                 (declare (ignore k))
+                 (when (eep.address eep)
+                   (when (or (null lib) (eq (eep.container eep) lib))
+                     (setf (eep.address eep) nil)
+                     (incf count))))
+             (eeps))    
+    (not (zerop count))))
+
+(defun shared-library-with-name (name)
+  (let* ((namelen (length name)))
+    (dolist (lib *shared-libraries*)
+      (let* ((libname (shlib.soname lib)))
+        (when (%simple-string= name libname 0 0 namelen (length libname))
+          (return lib))))))
 
 (defun generate-external-functions (path)
@@ -216 +238 @@
       (return lib))))
 
-(defun shared-library-with-name (name)
-  (let* ((namelen (length name)))
-    (dolist (lib *shared-libraries*)
-      (let* ((libname (shlib.soname lib)))
-        (when (%simple-string= name libname 0 0 namelen (length libname))
-          (return lib))))))
+
 
 (defun shlib-from-map-entry (m)
@@ -297 +314 @@
 (init-shared-libraries)
 
-;;; Walk over all registered entrypoints, invalidating any whose container
-;;; is the specified library.  Return true if any such entrypoints were
-;;; found.
-(defun unload-library-entrypoints (lib)
-  (let* ((count 0))
-    (declare (fixnum count))
-    (maphash #'(lambda (k eep)
-                 (declare (ignore k))
-                 (when (eq (eep.container eep) lib)
-                   (setf (eep.address eep) nil)
-                   (incf count)))
-             (eeps))    
-    (not (zerop count))))
+
 
 
@@ -423 +428 @@
          (t (values nil "unknown error"))))))
 
-;;; Walk over all registered entrypoints, invalidating any whose container
-;;; is the specified library.  Return true if any such entrypoints were
-;;; found.
-;;;
-;;; SAME AS LINUX VERSION
-;;;
-(defun unload-library-entrypoints (lib)
-  (let* ((count 0))
-    (declare (fixnum count))
-    (maphash #'(lambda (k eep)
-                 (declare (ignore k))
-                 (when (eep.address eep)
-                   (when (or (null lib) (eq (eep.container eep) lib))
-                     (setf (eep.address eep) nil)
-                     (incf count))))
-             (eeps))    
-    (not (zerop count))))
+
 
 ;;;

trunk/source/level-1/linux-files.lisp

@@ -987 +987 @@
   #+windows-target
   (with-filename-cstrs ((name (shlib.pathname shlib)))
-    (not (%null-ptr-p (#_FindModuleW name)))))
+    (not (%null-ptr-p (#_GetModuleHandleW name)))))