From baf840da533804e141e0c2cabe8021947d4947c7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 22 Oct 1991 09:53:38 +0000 Subject: [PATCH] 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. --- v7/src/compiler/back/lapgn1.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 2.25.1