Changeset 6442 for branches/x8664-call


Ignore:
Timestamp:
May 8, 2007, 9:25:20 AM (13 years ago)
Author:
gb
Message:

%fixnum-ref-macptr, %fixnum-set-macptr should be defined early.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/level-0/l0-def.lisp

    r3837 r6442  
    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.