Changeset 8825


Ignore:
Timestamp:
Mar 19, 2008, 4:30:20 AM (12 years ago)
Author:
gb
Message:

MAKE-RECORD-FORM: macroexpand into call to memset, since bzero may
not exist.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/lib/macros.lisp

    r8489 r8825  
    29372937                         (unparse-foreign-type ftype))))
    29382938         (p (gensym))
    2939          (bzero (read-from-string "#_bzero")))   
     2939         (memset (read-from-string "#_memset")))   
    29402940    `(let* ((,p (,allocator ,bytes)))
    29412941      ,@(when (eq *host-backend* *target-backend*)
    29422942              `((%set-macptr-type ,p ,ordinal-form)))
    2943       (,bzero ,p ,bytes)
     2943      (,memset ,p 0 ,bytes)
    29442944      ,@(%foreign-record-field-forms p ftype record-name initforms)
    29452945      ,p)))
Note: See TracChangeset for help on using the changeset viewer.