Changeset 16740


Ignore:
Timestamp:
May 20, 2016, 5:57:02 PM (5 years ago)
Author:
gb
Message:

Something (ARM2-WLIDE-PUSHES ?) can leave a MIL on *ARM2-ALL-NFP-PUSHES*.
Don't choke on it in ARM2-MAX-NFP-DEPTH.

Fixes ticket:1381 in the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm2.lisp

    r16685 r16740  
    1 ;;;-*-Mode: LISP; Package: CCL -*-
     1;;-*-Mode: LISP; Package: CCL -*-
    22;;;
    33;;; Copyright 2010 Clozure Associates
     
    4646              (declare (fixnum max))
    4747              (dolist (v *arm2-all-nfp-pushes* max)
    48                 (when (vinsn-succ v)    ;not elided
     48                (when (and v (vinsn-succ v))    ;not elided
    4949                  (let* ((depth (+ (the fixnum (svref (vinsn-variable-parts v) 1))
    5050                                   (if (vinsn-attribute-p v :uses-frame-pointer)
     
    235235                 (eql c (svref vals i)))
    236236        (setq out (logior out (ash 1 i)))))))
    237 
     237 
    238238(defun arm2-nfp-ref (seg vreg ea)
    239239  (with-arm-local-vinsn-macros (seg vreg)
Note: See TracChangeset for help on using the changeset viewer.