From 521cd1ad99671cadb58cd4ec323c7dbd5871e223 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 28 Feb 1995 01:44:55 +0000 Subject: [PATCH] Removed duplicate of RTLGEN/HEAP-PUSH!/POST-INCREMENT --- v8/src/compiler/midend/rtlgen.scm | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm index 735827871..d44604c6a 100644 --- a/v8/src/compiler/midend/rtlgen.scm +++ b/v8/src/compiler/midend/rtlgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rtlgen.scm,v 1.13 1995/02/16 13:19:38 adams Exp $ +$Id: rtlgen.scm,v 1.14 1995/02/28 01:44:55 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -739,13 +739,6 @@ MIT in each case. |# (rtlgen/heap-push!/post-increment elts) (rtlgen/heap-push!/bump-once elts))) -(define (rtlgen/heap-push!/post-increment elts) - (let ((free (rtlgen/reference-to-free))) - (rtlgen/emit! - (map (lambda (elt) - `(ASSIGN (POST-INCREMENT ,free 1) ,(rtlgen/->register elt))) - elts)))) - (define (rtlgen/heap-push!/post-increment elts) (let ((free (rtlgen/reference-to-free))) (for-each -- 2.25.1