Changeset 256

Timestamp:

Jan 10, 2004, 10:14:29 PM (21 years ago)

Author:

Gary Byers

Message:

Vinsn renames; slight change to remove backend support for "handle"-based
memory accessors.

File:

• trunk/ccl/compiler/PPC/ppc2.lisp (modified) (13 diffs)

trunk/ccl/compiler/PPC/ppc2.lisp

@@ -1374 +1374 @@
                              (! double->heap target 0))
                            (if (and index-known-fixnum (<= index-known-fixnum ppc32::max-1-bit-constant-index))
-                             (! misc-ref-c-bit[fixnum] target src index-known-fixnum)
+                             (! misc-ref-c-bit-fixnum target src index-known-fixnum)
                              (with-imm-temps
                                  () (word-index bitnum dest)
@@ -1383 +1383 @@
                                    (! scale-1bit-misc-index word-index bitnum unscaled-idx))
                                  (! misc-ref-u32 dest src word-index)
-                                 (! extract-variable-bit[fixnum] target dest bitnum))))))))
+                                 (! extract-variable-bit-fixnum target dest bitnum))))))))
                   (^))))))))))
 
@@ -3426 +3426 @@
 ; If "value-first-p" is true and both "offset" and "val" need to be 
 ; evaluated, evaluate "val" before evaluating "offset".
-(defun ppc2-%immediate-set-ptr (seg vreg xfer deref ptr offset val value-first-p)
+(defun ppc2-%immediate-set-ptr (seg vreg xfer  ptr offset val value-first-p)
   (with-ppc-local-vinsn-macros (seg vreg xfer)
     (let* ((intval (acode-absolute-ptr-p val))
@@ -3466 +3466 @@
                     (setq val-target ppc::rzero)
                     (ppc2-lwi seg val-target intval))
-                  (if deref
-                    (! mem-ref-c-fullword ptr-reg ptr-reg 0))
                   (! mem-set-c-fullword val-target ptr-reg offval)
                   (if for-value
@@ -3478 +3476 @@
                       (! temp-pop-unboxed-word ptr-reg)
                       (ppc2-close-undo)
-                      (if deref
-                        (! mem-ref-c-fullword ptr-reg ptr-reg 0))
                       (! mem-set-c-fullword address ptr-reg offval)
                       (if for-value
@@ -3558 +3554 @@
                                   xval-reg address
                                   node-arg_z nil)))))))
-              (if deref
-                (! mem-ref-c-fullword xptr-reg xptr-reg 0))
               (! mem-set-fullword xval-reg xptr-reg xoff-reg)
               (when for-value
@@ -3590 +3584 @@
   (with-ppc-local-vinsn-macros (seg vreg xfer)
     (if (eql 0 (%ilogand #xf bits))
-      (ppc2-%immediate-set-ptr seg vreg xfer (%ilogbitp 4 bits) ptr offset val value-first-p)
+      (ppc2-%immediate-set-ptr seg vreg xfer  ptr offset val value-first-p)
       (let* ((deref (%ilogbitp 4 bits))
              (size
@@ -5233 +5227 @@
     (progn
       (ensuring-node-target (target vreg) 
-        (! extract-tag[fixnum] target (ppc2-one-untargeted-reg-form seg node ppc::arg_z)))
+        (! extract-tag-fixnum target (ppc2-one-untargeted-reg-form seg node ppc::arg_z)))
       (^))))
 
@@ -5241 +5235 @@
     (progn
       (ensuring-node-target (target vreg) 
-        (! extract-fulltag[fixnum] target (ppc2-one-untargeted-reg-form seg node ppc::arg_z)))
+        (! extract-fulltag-fixnum target (ppc2-one-untargeted-reg-form seg node ppc::arg_z)))
       (^))))
 
@@ -5250 +5244 @@
                                                          ppc::arg_y ppc::arg_z))))
       (ensuring-node-target (target vreg) 
-        (! extract-typecode[fixnum] target reg ))
+        (! extract-typecode-fixnum target reg ))
       (^))))
 
@@ -5306 +5300 @@
     (if vreg 
       (ensuring-node-target (target vreg)
-        (! misc-element-count[fixnum] target misc-reg)))
+        (! misc-element-count-fixnum target misc-reg)))
     (^)))
 
@@ -6288 +6282 @@
           (ppc2-one-targeted-reg-form seg ptr src-reg)
           (if (node-reg-p vreg)
-            (! mem-ref-c-bit[fixnum] vreg src-reg byte-index (logand 31 (+ bit-shift
+            (! mem-ref-c-bit-fixnum vreg src-reg byte-index (logand 31 (+ bit-shift
                                                                            ppc32::fixnumshift)))
             (with-imm-target ()           ;OK if src-reg & dest overlap
@@ -6307 +6301 @@
               (ppc2-close-undo))
             (if (node-reg-p vreg)
-              (! mem-ref-bit[fixnum] vreg src-reg offset-reg)
+              (! mem-ref-bit-fixnum vreg src-reg offset-reg)
               (with-imm-target ()
                 (dest :u8)