Steel Bank Common Lisp

The branch "master" has been updated in SBCL:
       via  6113d10bd637c220036cb74b45f03354fe1f872d (commit)
      from  33b3b129c1c895c9583494dc75455f56c83ad748 (commit)

- Log -----------------------------------------------------------------
commit 6113d10bd637c220036cb74b45f03354fe1f872d
Author: Anton Kovalenko <anton@...>
Date:   Fri Sep 30 14:06:04 2011 +0400

    fix run-program misaligned access
    
    Thanks to Antoni Grzymala for the report.
---
 src/code/run-program.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index daebefe..0417401 100644
--- 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
-        (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.

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL

The branch "master" has been updated in SBCL:
       via  33b3b129c1c895c9583494dc75455f56c83ad748 (commit)
      from  d7952c5aacc3ec295e148cdf1d24eec3f6509e81 (commit)

- Log -----------------------------------------------------------------
commit 33b3b129c1c895c9583494dc75455f56c83ad748
Author: David Lichteblau <david@...>
Date:   Fri Sep 30 10:09:08 2011 +0200

    Fix the build on Windows
---
 src/code/run-program.lisp |    1 +
 src/runtime/coreparse.c   |    3 ++-
 src/runtime/save.c        |    1 +
 3 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 512a7a9..daebefe 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -899,6 +899,7 @@ Users Manual for details about the PROCESS structure."#-win32"
                     (t
                      (incf read-end count)
                      (funcall copy-fun))))))))
+    #-win32
     (push handler *handlers-installed*)))
 
 ;;; FIXME: something very like this is done in SB-POSIX to treat
diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c
index 3109b0b..60359d1 100644
--- a/src/runtime/coreparse.c
+++ b/src/runtime/coreparse.c
@@ -23,6 +23,8 @@
 #include <fcntl.h>
 #include <unistd.h>
 
+#include "sbcl.h"
+
 #ifndef LISP_FEATURE_WIN32
 #ifdef LISP_FEATURE_LINUX
 /* For madvise */
@@ -31,7 +33,6 @@
 #include <sys/mman.h>
 #endif
 
-#include "sbcl.h"
 #include "os.h"
 #include "runtime.h"
 #include "globals.h"
diff --git a/src/runtime/save.c b/src/runtime/save.c
index 2ab2101..9fd7d8e 100644
--- a/src/runtime/save.c
+++ b/src/runtime/save.c
@@ -149,6 +149,7 @@ write_and_compress_bytes(FILE *file, char *addr, long bytes, os_vm_offset_t file
     bytes = (bytes+os_vm_page_size-1)&~(os_vm_page_size-1);
 
 #ifdef LISP_FEATURE_WIN32
+    long count;
     /* touch every single page in the space to force it to be mapped. */
     for (count = 0; count < bytes; count += 0x1000) {
         volatile int temp = addr[count];

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL