From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 28 Feb 1995 01:44:55 +0000 (+0000)
Subject: Removed duplicate of RTLGEN/HEAP-PUSH!/POST-INCREMENT
X-Git-Tag: 20090517-FFI~6576
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=521cd1ad99671cadb58cd4ec323c7dbd5871e223;p=mit-scheme.git

Removed duplicate of RTLGEN/HEAP-PUSH!/POST-INCREMENT
---

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