Changeset 6485

Timestamp:

May 9, 2007, 7:45:41 AM (14 years ago)

Author:

gb

Message:

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

File:

• trunk/ccl/level-0/l0-def.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-def.lisp

@@ -251 +251 @@
   (%global-macro-function form))
 
+(defun %fixnum-ref-macptr (fixnum &optional (offset 0))
+  (%int-to-ptr (%fixnum-ref-natural fixnum offset)))
+
+(defun %fixnum-set-macptr (fixnum offset &optional (newval offset newval-p))
+  (%fixnum-set-natural fixnum (if newval-p offset 0) (%ptr-to-int newval))
+  newval)
+
 ;;; end of l0-def.lisp