Changeset 7670 for branches


Ignore:
Timestamp:
Nov 18, 2007, 4:10:42 AM (17 years ago)
Author:
Gary Byers
Message:

Avoid #_bcopy.

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/working-0711/ccl/level-1/l1-utils.lisp

    r6946 r7670  
    12761276
    12771277(defun %set-composite-pointer-ref (size pointer offset new)
    1278   (#_bcopy new
    1279            (%inc-ptr pointer offset)
    1280            size))
     1278  (#_memmove (%inc-ptr pointer offset)
     1279             new
     1280             size))
    12811281
    12821282

  • branches/working-0711/ccl/objc-bridge/objc-runtime.lisp

    r7471 r7670  
    26952695(defun %objc-struct-return (return-temp size value)
    26962696  (unless (eq return-temp value)
    2697     (#_bcopy value return-temp size)))
     2697    (#_memmove return-temp value size)))
    26982698
    26992699(defmacro objc:defmethod (name (self-arg &rest other-args) &body body &environment env)
Note: See TracChangeset for help on using the changeset viewer.