Changeset 570

Timestamp:

Feb 26, 2004, 11:58:31 AM (21 years ago)

Author:

Gary Byers

Message:

Check return value from semaphore creation.

File:

• trunk/ccl/level-0/l0-aprims.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-aprims.lisp

@@ -122 +122 @@
 
 (defun %make-semaphore-ptr ()
-  (record-system-lock
-   (%setf-macptr
-    (make-gcable-macptr $flags_DisposeSemaphore)
-    (ff-call (%kernel-import ppc32::kernel-import-new-semaphore)
+  (let* ((p (ff-call (%kernel-import ppc32::kernel-import-new-semaphore)
              :signed-fullword 0
-             :address))))
+             :address)))
+    (if (%null-ptr-p p)
+      (error "Can't create semaphore.")
+      (record-system-lock
+       (%setf-macptr
+        (make-gcable-macptr $flags_DisposeSemaphore)
+        p)))))
 
 (defun make-semaphore ()