From 3a186398bb88f27679cf65857e4a6facba35bb68 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 26 Nov 1994 19:23:53 +0000 Subject: [PATCH] Forbid lapopt to fill the delay slot in the PROFILE-COUNT code. --- v8/src/compiler/machines/spectrum/lapopt.scm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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) -- 2.25.1