From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 26 Nov 1994 19:23:53 +0000 (+0000)
Subject: Forbid lapopt to fill the delay slot in the PROFILE-COUNT code.
X-Git-Tag: 20090517-FFI~6943
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3a186398bb88f27679cf65857e4a6facba35bb68;p=mit-scheme.git

Forbid lapopt to fill the delay slot in the PROFILE-COUNT code.
---

diff --git a/v8/src/compiler/machines/spectrum/lapopt.scm b/v8/src/compiler/machines/spectrum/lapopt.scm
index f7a07be35..dce66dec7 100644
--- a/v8/src/compiler/machines/spectrum/lapopt.scm
+++ b/v8/src/compiler/machines/spectrum/lapopt.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lapopt.scm,v 1.1 1994/11/19 02:08:04 adams Exp $
+$Id: lapopt.scm,v 1.2 1994/11/26 19:23:53 adams Exp $
 
 Copyright (c) 1991-1994 Massachusetts Institute of Technology
 
@@ -606,8 +606,14 @@ MIT in each case. |#
 			       (else
 				(fix-unconditional-branch)))))))))
 
-	  ((BE BLE)
+	  ((BE)
 	   (fix-unconditional-branch))
+	  ((BLE)
+	   (if (and (equal? (second instr) '(N))
+		    (eqv? (second (third instr)) hook:compiler-profile-count))
+	       ;; (BLE (N) (OFFSET profile 4 3)) has a data word following it
+	       (fail)
+	       (fix-unconditional-branch)))
 	  ((NOP)
 	   (let ((dict (match hook-pattern instrs)))
 	     (if (not dict)