[Openmcl-cvs-notifications] r10828 - /trunk/source/lib/macros.lisp

[gb at clozure.com]

Author: gb
Date: Mon Sep 22 11:16:49 2008
New Revision: 10828

Log:
In MAKE-RECORD-FORM: expand into #_memset, not #_bzero (no #_bzero
on Windows.)

Modified:
    trunk/source/lib/macros.lisp

Modified: trunk/source/lib/macros.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/macros.lisp (original)
+++ trunk/source/lib/macros.lisp Mon Sep 22 11:16:49 2008
@@ -2996,11 +2996,11 @@
 		  (signal-program-error "Unknown size for foreign type ~S."
 					(unparse-foreign-type ftype))))
 	 (p (gensym))
-	 (bzero (read-from-string "#_bzero")))    =

+	 (memset (read-from-string "#_memset")))    =

     `(let* ((,p (,allocator ,bytes)))
       ,@(when (eq *host-backend* *target-backend*)
               `((%set-macptr-type ,p ,ordinal-form)))
-      (,bzero ,p ,bytes)
+      (,memset ,p 0 ,bytes)
       ,@(%foreign-record-field-forms p ftype record-name initforms)
       ,p)))
   =