From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 16 Dec 2018 00:45:06 +0000 (+0000)
Subject: Use push with memory reference on i386 too.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=66f6a88667f1102ab11ecf4ece5cca1e1962265e;p=mit-scheme.git

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 1ce8e626a..c60d3d19c 100644
--- 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))))
 
 ;;;; CHAR->ASCII/BYTE-OFFSET