projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tighter floating-point type constraints in some cases
[sbcl.git]
/
src
/
code
/
run-program.lisp
diff --git
a/src/code/run-program.lisp
b/src/code/run-program.lisp
index
daebefe
..
b854e31
100644
(file)
--- a/
src/code/run-program.lisp
+++ b/
src/code/run-program.lisp
@@
-496,7
+496,7
@@
status slot."
;; Copy string.
(sb-kernel:copy-ub8-to-system-area octets 0 string-sap 0 size)
;; NULL-terminate it
;; Copy string.
(sb-kernel:copy-ub8-to-system-area octets 0 string-sap 0 size)
;; NULL-terminate it
- (setf (sap-ref-32 string-sap size) 0)
+ (sb-kernel:system-area-ub8-fill 0 string-sap size 4)
;; Put the pointer in the vector.
(setf (sap-ref-sap vec-sap vec-index-offset) string-sap)
;; Advance string-sap for the next string.
;; Put the pointer in the vector.
(setf (sap-ref-sap vec-sap vec-index-offset) string-sap)
;; Advance string-sap for the next string.
@@
-773,7
+773,7
@@
Users Manual for details about the PROCESS structure."#-win32"
(if search 1 0)
environment-vec pty-name
(if wait 1 0))))
(if search 1 0)
environment-vec pty-name
(if wait 1 0))))
- (unless (= child -1)
+ (unless (minusp child)
(setf proc
(apply
#'make-process
(setf proc
(apply
#'make-process
@@
-791,9
+791,15
@@
Users Manual for details about the PROCESS structure."#-win32"
(list :%status :running))))
(push proc *active-processes*)))))
;; Report the error outside the lock.
(list :%status :running))))
(push proc *active-processes*)))))
;; Report the error outside the lock.
- (when (= child -1)
- (error "couldn't fork child process: ~A"
- (strerror)))))))))
+ #+win32
+ (when (minusp child)
+ (error "Couldn't execute ~S: ~A" progname (strerror)))
+ #-win32
+ (case child
+ (-2
+ (error "Couldn't execute ~S: ~A" progname (strerror)))
+ (-1
+ (error "Couldn't fork child process: ~A" (strerror))))))))))
(dolist (fd *close-in-parent*)
(sb-unix:unix-close fd))
(unless proc
(dolist (fd *close-in-parent*)
(sb-unix:unix-close fd))
(unless proc