From 03f682ab43dda635038b7eff9a1a9286d9f86d8f Mon Sep 17 00:00:00 2001 From: ssmith Date: Thu, 12 Jan 1995 19:51:19 +0000 Subject: [PATCH] Fixed bug in invocations: It jmped to the address at the memory location pointed to by the register, instead of jumping to the address pointed to by the register. --- v8/src/compiler/machines/i386/rules3.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v8/src/compiler/machines/i386/rules3.scm b/v8/src/compiler/machines/i386/rules3.scm index 7aa8e4e17..d1408fed8 100644 --- a/v8/src/compiler/machines/i386/rules3.scm +++ b/v8/src/compiler/machines/i386/rules3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rules3.scm,v 1.7 1995/01/11 22:14:41 ssmith Exp $ +$Id: rules3.scm,v 1.8 1995/01/12 19:51:19 ssmith Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -968,7 +968,7 @@ MIT in each case. |# (profile-info/add 'INVOCATION:REGISTER) (let ((addr (standard-source! reg))) (LAP ,@(clear-map!) - (JMP (@R ,addr))))) + (JMP (R ,addr))))) ;; NOTE for this procedure, we may need to alter the return address ;; that's pushed onto the stack... I'm not sure what the best way to @@ -1021,7 +1021,7 @@ MIT in each case. |# (CMP B (@RO B ,addr -3) 0) ;; This is ugly - oh well (JNE (@PCR ,label)) - (JMP (@R ,addr)) + (JMP (R ,addr)) (LABEL ,label) ,@(copy obj* regnum:first-arg) ,@(%invocation:apply frame-size))))) -- 2.25.1