Use push with memory reference on i386 too.

diff --git a/src/compiler/machines/i386/rules1.scm b/src/compiler/machines/i386/rules1.scm
index 1ce8e626a46449794a798194831a291622f6600e..c60d3d19c0970344f7b1bbdc832040951858a607 100644 (file)
--- a/src/compiler/machines/i386/rules1.scm
+++ b/src/compiler/machines/i386/rules1.scm
@@ -264,6 +264,10 @@ USA.
          (CONS-POINTER (MACHINE-CONSTANT (? type))
                        (MACHINE-CONSTANT (? datum))))
   (LAP (PUSH W (&U ,(make-non-pointer-literal type datum)))))
+
+(define-rule statement
+  (ASSIGN (PRE-INCREMENT (REGISTER 4) -1) (? expression rtl:simple-offset?))
+  (LAP (PUSH ,(offset->reference! expression))))
 \f
 ;;;; CHAR->ASCII/BYTE-OFFSET