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 735827871dc00dfa4160e691d22ce04eb37b6b4f..d44604c6a38e4bff8a560ded11b9a649e3eebe0d 100644 (file)
--- 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