From 66f6a88667f1102ab11ecf4ece5cca1e1962265e Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 16 Dec 2018 00:45:06 +0000 Subject: [PATCH] Use push with memory reference on i386 too. --- src/compiler/machines/i386/rules1.scm | 4 ++++ 1 file changed, 4 insertions(+) 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 -- 2.25.1