From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 Oct 1991 09:53:38 +0000 (+0000)
Subject: RTL comment should precede prefix instructions in output.  That way
X-Git-Tag: 20090517-FFI~10134
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=baf840da533804e141e0c2cabe8021947d4947c7;p=mit-scheme.git

RTL comment should precede prefix instructions in output.  That way
all instructions generated as a result of that RTL will appear
between that comment and the next.
---

diff --git a/v7/src/compiler/back/lapgn1.scm b/v7/src/compiler/back/lapgn1.scm
index 6507bd523..00bb99008 100644
--- a/v7/src/compiler/back/lapgn1.scm
+++ b/v7/src/compiler/back/lapgn1.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn1.scm,v 4.11 1991/05/06 22:47:15 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn1.scm,v 4.12 1991/10/22 09:53:38 cph Exp $
 
-Copyright (c) 1987-1991 Massachusetts Institute of Technology
+Copyright (c) 1987-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -171,10 +171,10 @@ MIT in each case. |#
 			  (*needed-registers* '()))
 		(let ((instructions (match-result)))
 		  (delete-dead-registers!)
-		  (LAP ,@*prefix-instructions*
-		       ,@(if *insert-rtl?*
+		  (LAP ,@(if *insert-rtl?*
 			     (LAP (COMMENT (RTL ,rtl)))
 			     (LAP))
+		       ,@*prefix-instructions*
 		       ,@instructions
 		       ,@*suffix-instructions*))))
 	    (begin (error "CGEN-RINST: No matching rules" rtl)