From: ssmith <ssmith>
Date: Thu, 12 Jan 1995 14:45:48 +0000 (+0000)
Subject: Fixed assumption that raw continuation is 4 bytes after one left on stack.
X-Git-Tag: 20090517-FFI~6759
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=efd786bdf1cca85a464e2f7b26bec4281a2515bb;p=mit-scheme.git

Fixed assumption that raw continuation is 4 bytes after one left on stack.
---

diff --git a/v8/src/compiler/machines/i386/machin.scm b/v8/src/compiler/machines/i386/machin.scm
index 7bce28f65..07b7c52c4 100644
--- a/v8/src/compiler/machines/i386/machin.scm
+++ b/v8/src/compiler/machines/i386/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.4 1995/01/11 20:25:23 ssmith Exp $
+$Id: machin.scm,v 1.5 1995/01/12 14:45:48 ssmith Exp $
 
 Copyright (c) 1992-1995 Massachusetts Institute of Technology
 
@@ -86,7 +86,7 @@ MIT in each case. |#
   ;; Distance in bytes between a raw continuation
   ;; (as left behind by JSR) and the real continuation
   ;; (after descriptor)
-  0)
+  4)
 
 (define #|-integrable|# untagged-fixnums?
   ;; true when fixnums have tags 000000... and 111111...