Changeset 6485


Ignore:
Timestamp:
May 9, 2007, 7:45:41 AM (14 years ago)
Author:
gb
Message:

%FIXNUM-REF-MACPTR, %FIXNUM-SET-MACPTR: move here.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-def.lisp

    r3837 r6485  
    251251  (%global-macro-function form))
    252252
     253(defun %fixnum-ref-macptr (fixnum &optional (offset 0))
     254  (%int-to-ptr (%fixnum-ref-natural fixnum offset)))
     255
     256(defun %fixnum-set-macptr (fixnum offset &optional (newval offset newval-p))
     257  (%fixnum-set-natural fixnum (if newval-p offset 0) (%ptr-to-int newval))
     258  newval)
     259
    253260;;; end of l0-def.lisp
Note: See TracChangeset for help on using the changeset viewer.