From 0d4ee2c4b562ce9e34b212966bd50fbcf7795275 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 1 Apr 1990 22:26:21 +0000 Subject: [PATCH] lap:make-unconditional-branch now returns a sequence rather than a single instructions. On machines with branch delay slots and no nullification, a nop must be returned in addition to the branch instruction. --- v7/src/compiler/back/linear.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/back/linear.scm b/v7/src/compiler/back/linear.scm index 024908a4d..4ebcc2aa8 100644 --- a/v7/src/compiler/back/linear.scm +++ b/v7/src/compiler/back/linear.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/linear.scm,v 4.9 1990/01/18 22:42:06 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/linear.scm,v 4.10 1990/04/01 22:26:21 jinx Exp $ Copyright (c) 1987, 1988, 1990 Massachusetts Institute of Technology @@ -76,7 +76,7 @@ MIT in each case. |# (define (linearize-sblock-next bblock label) (if (node-marked? bblock) - (LAP ,(lap:make-unconditional-branch label)) + (lap:make-unconditional-branch label) (linearize-bblock bblock))) (define (linearize-pblock pblock cn an) @@ -85,7 +85,7 @@ MIT in each case. |# (heed-preference pblock cn an (lambda (generator cn an) (LAP ,@(generator (bblock-label cn)) - ,(lap:make-unconditional-branch (bblock-label an))))) + ,@(lap:make-unconditional-branch (bblock-label an))))) (LAP ,@((pblock-consequent-lap-generator pblock) (bblock-label cn)) ,@(linearize-bblock an))) @@ -124,7 +124,7 @@ MIT in each case. |# (alternative (linearize-bblock-1 an))) (LAP ,@(generator clabel) ,@alternative - ,(lap:make-unconditional-branch jlabel) + ,@(lap:make-unconditional-branch jlabel) ,@consequent ,(lap:make-label-statement jlabel) ,@(linearize-next cn)))))))))) -- 2.25.1