From 6113d10bd637c220036cb74b45f03354fe1f872d Mon Sep 17 00:00:00 2001 From: Anton Kovalenko Date: Fri, 30 Sep 2011 14:06:04 +0400 Subject: [PATCH] fix run-program misaligned access Thanks to Antoni Grzymala for the report. --- src/code/run-program.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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. -- 1.7.10.4