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.

diff --git a/v8/src/compiler/machines/i386/rules3.scm b/v8/src/compiler/machines/i386/rules3.scm
index 7aa8e4e17bac140b33f8da432b34b48259aff8c0..d1408fed89059c70ba8d7cae4eb3ec6687bf8256 100644 (file)
--- 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)))))