From c1c351f91867f654497629b11cc60bc98ca94627 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sat, 11 Sep 1993 19:41:26 +0000
Subject: [PATCH] Distinguish between return-to-interpreter and
 reflect-to-interface.

---
 v7/src/microcode/cmpint.c | 4 ++--
 v8/src/microcode/cmpint.c | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index 7d894a626..d3a654ae5 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.69 1993/09/11 14:20:38 gjr Exp $
+$Id: cmpint.c,v 1.70 1993/09/11 19:41:26 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -2393,7 +2393,7 @@ DEFUN (compiled_entry_type,
       {
         kind = KIND_CONTINUATION;
         field1 = CONTINUATION_RETURN_TO_INTERPRETER;
-        field2 = 0;
+        field2 = ((long) (entry != return_to_interpreter));
         break;
       }
       default:
diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index 7d894a626..d3a654ae5 100644
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.69 1993/09/11 14:20:38 gjr Exp $
+$Id: cmpint.c,v 1.70 1993/09/11 19:41:26 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -2393,7 +2393,7 @@ DEFUN (compiled_entry_type,
       {
         kind = KIND_CONTINUATION;
         field1 = CONTINUATION_RETURN_TO_INTERPRETER;
-        field2 = 0;
+        field2 = ((long) (entry != return_to_interpreter));
         break;
       }
       default:
-- 
2.25.1