Changeset 15085


Ignore:
Timestamp:
Nov 21, 2011, 11:19:46 AM (8 years ago)
Author:
gb
Message:

Yet another typo in ARM2-FOUR-UNTARGETED-REG-FORMS (need to set ADEST
if we might have pushed/popped AREG.)

File:
1 edited

Legend:

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

    r15080 r15085  
    34683468      (if aconst
    34693469        (setq adest (arm2-one-untargeted-reg-form seg aform areg restricted))
    3470         (arm2-elide-pushes seg apushed (arm2-pop-register seg areg))))
     3470        (arm2-elide-pushes seg apushed (arm2-pop-register seg (setq adest areg)))))
    34713471    (values adest bdest cdest ddest)))
    34723472
Note: See TracChangeset for help on using the changeset viewer.