Changeset 6497


Ignore:
Timestamp:
May 9, 2007, 8:28:17 AM (12 years ago)
Author:
gb
Message:

Move %FIXNUM-REF-MACPTR and %FIXNUM-SET-MACPTR elsewhere.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/ppc-threads-utils.lisp

    r4589 r6497  
    5555                       (lfun-bits #'%fixnum-set-natural)))))
    5656
    57 (defun %fixnum-ref-macptr (fixnum &optional (offset 0))
    58   (%int-to-ptr (%fixnum-ref-natural fixnum offset)))
    59 
    60 (defun %fixnum-set-macptr (fixnum offset &optional (newval offset newval-p))
    61   (%fixnum-set-natural fixnum (if newval-p offset 0) (%ptr-to-int newval))
    62   newval)
     57
    6358 
    6459                                 
Note: See TracChangeset for help on using the changeset viewer.