Changeset 16629 for release


Ignore:
Timestamp:
Oct 27, 2015, 10:06:14 PM (3 years ago)
Author:
rme
Message:

Lose {x862,arm2}-form-float, which is probably an old PPC-ism.

Closes ticket:1312.

Location:
release/1.11/source/compiler
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.11/source/compiler/ARM/arm2.lisp

    r16317 r16629  
    12531253              (arm2-form seg nil nil f ))
    12541254            (apply fn seg vreg xfer (acode-operands form))))))))
    1255 
    1256 ;;; dest is a float reg - form is acode
    1257 (defun arm2-form-float (seg freg xfer form)
    1258   (declare (ignore xfer))
    1259   (arm-with-note (form seg freg)
    1260     (when (or (nx-null form)(nx-t form))(compiler-bug "arm2-form to freg ~s" form))
    1261     (when (and (= (get-regspec-mode freg) hard-reg-class-fpr-mode-double)
    1262                (arm2-form-typep form 'double-float))
    1263                                         ; kind of screwy - encoding the source type in the dest register spec
    1264       (set-node-regspec-type-modes freg hard-reg-class-fpr-type-double))
    1265     (let* ((fn (arm2-acode-operator-function form)))
    1266       (apply fn seg freg nil (acode-operands form)))))
    1267 
    1268 
    12691255
    12701256(defun arm2-form-typep (form type)
     
    31273113
    31283114(defun arm2-one-lreg-form (seg form lreg)
    3129   (let ((is-float (= (hard-regspec-class lreg) hard-reg-class-fpr)))
    3130     (if is-float
    3131       (arm2-form-float seg lreg nil form)
    3132       (arm2-form seg lreg nil form))
    3133     lreg))
     3115  (arm2-form seg lreg nil form)
     3116  lreg)
    31343117
    31353118(defun arm2-one-targeted-reg-form (seg form reg)
  • release/1.11/source/compiler/X86/x862.lisp

    r16355 r16629  
    14591459            (apply fn seg vreg xfer (acode-operands form))))))))
    14601460
    1461 ;;; dest is a float reg - form is acode
    1462 (defun x862-form-float (seg freg xfer form)
    1463   (declare (ignore xfer))
    1464   (x86-with-note (form seg)
    1465     (when (or (nx-null form)(nx-t form))(compiler-bug "x862-form to freg ~s" form))
    1466     (when (and (= (get-regspec-mode freg) hard-reg-class-fpr-mode-double)
    1467                (x862-form-typep form 'double-float))
    1468       ;; kind of screwy - encoding the source type in the dest register spec
    1469       (set-node-regspec-type-modes freg hard-reg-class-fpr-type-double))
    1470     (let* ((fn (x862-acode-operator-function form)))
    1471       (apply fn seg freg nil (acode-operands form)))))
    1472 
    1473 
    14741461(defun x862-form-typep (form type)
    14751462  (acode-form-typep form type *x862-trust-declarations*)
     
    37063693
    37073694(defun x862-one-lreg-form (seg form lreg)
    3708   (let ((is-float (= (hard-regspec-class lreg) hard-reg-class-fpr)))
    3709     (if is-float
    3710       (x862-form-float seg lreg nil form)
    3711       (x862-form seg lreg nil form))
    3712     lreg))
     3695  (x862-form seg lreg nil form)
     3696  lreg)
    37133697
    37143698(defun x862-one-targeted-reg-form (seg form reg)
Note: See TracChangeset for help on using the changeset viewer.