CMUCL commit: src/code (unix-glibc2.lisp unix.lisp)

Raymond Toy rtoy at common-lisp.net
Mon Dec 7 02:48:27 CET 2009


    Date: Sunday, December 6, 2009 @ 20:48:27
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: unix-glibc2.lisp unix.lisp

Fix bug in SUB-UNIX-EXECVE.  The call to execve needs to convert the
Lisp string to a C string appropriately.

Bug noted by Helmut Eller on cmucl-imp, 2009-12-06.  He also provided
the basic solution.


------------------+
 unix-glibc2.lisp |    6 +++---
 unix.lisp        |    6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)


Index: src/code/unix-glibc2.lisp
diff -u src/code/unix-glibc2.lisp:1.51 src/code/unix-glibc2.lisp:1.52
--- src/code/unix-glibc2.lisp:1.51	Mon Nov  2 10:05:06 2009
+++ src/code/unix-glibc2.lisp	Sun Dec  6 20:48:27 2009
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/unix-glibc2.lisp,v 1.51 2009-11-02 15:05:06 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/unix-glibc2.lisp,v 1.52 2009-12-07 01:48:27 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1815,8 +1815,8 @@
 	  (multiple-value-setq
 	      (result error-code)
 	    (int-syscall ("execve"
-			  (* char) system-area-pointer system-area-pointer)
-			 (vector-sap program) argv envp)))
+			  c-string system-area-pointer system-area-pointer)
+			 program argv envp)))
       ;; 
       ;; Deallocate memory
       (when argv
Index: src/code/unix.lisp
diff -u src/code/unix.lisp:1.125 src/code/unix.lisp:1.126
--- src/code/unix.lisp:1.125	Thu Oct 15 15:36:08 2009
+++ src/code/unix.lisp	Sun Dec  6 20:48:27 2009
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.125 2009-10-15 19:36:08 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.126 2009-12-07 01:48:27 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2946,8 +2946,8 @@
 	  (multiple-value-setq
 	      (result error-code)
 	    (int-syscall ("execve"
-			  (* char) system-area-pointer system-area-pointer)
-			 (vector-sap program) argv envp)))
+			  c-string system-area-pointer system-area-pointer)
+			 program argv envp)))
       ;; 
       ;; Deallocate memory
       (when argv



More information about the cmucl-commit mailing list