Changeset 15085

Timestamp:

Nov 21, 2011, 3:19:46 AM (13 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/compiler/ARM/arm2.lisp (modified) (1 diff)

trunk/source/compiler/ARM/arm2.lisp

@@ -3468 +3468 @@
       (if aconst
         (setq adest (arm2-one-untargeted-reg-form seg aform areg restricted))
-        (arm2-elide-pushes seg apushed (arm2-pop-register seg areg))))
+        (arm2-elide-pushes seg apushed (arm2-pop-register seg (setq adest areg)))))
     (values adest bdest cdest ddest)))