Changeset 10828


Ignore:
Timestamp:
Sep 22, 2008, 3:16:49 PM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r10730 r10828  
    29972997                                        (unparse-foreign-type ftype))))
    29982998         (p (gensym))
    2999          (bzero (read-from-string "#_bzero")))   
     2999         (memset (read-from-string "#_memset")))   
    30003000    `(let* ((,p (,allocator ,bytes)))
    30013001      ,@(when (eq *host-backend* *target-backend*)
    30023002              `((%set-macptr-type ,p ,ordinal-form)))
    3003       (,bzero ,p ,bytes)
     3003      (,memset ,p 0 ,bytes)
    30043004      ,@(%foreign-record-field-forms p ftype record-name initforms)
    30053005      ,p)))
Note: See TracChangeset for help on using the changeset viewer.