Change breakpoint handles to non-marked-vectors to make the runtime

system's life easier.

diff --git a/v7/src/microcode/cmpintmd/hppa.h b/v7/src/microcode/cmpintmd/hppa.h
index 8a25f9fddf0891cb5085d350473bf5efa13b126e..0424e882bef2428aa7af60930e7a871c12af9bbe 100644 (file)
--- a/v7/src/microcode/cmpintmd/hppa.h
+++ b/v7/src/microcode/cmpintmd/hppa.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: hppa.h,v 1.45 1993/09/11 02:44:51 gjr Exp $
+$Id: hppa.h,v 1.46 1993/09/11 21:28:33 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -892,7 +892,7 @@ DEFUN (alloc_bkpt_handle, (kind, first_instr, entry_point),
   handle[3] = ((SCHEME_OBJECT) first_instr);
   handle[4] = (ENTRY_TO_OBJECT (entry_point));
   
-  return (MAKE_POINTER_OBJECT (TC_VECTOR, handle));
+  return (MAKE_POINTER_OBJECT (TC_NON_MARKED_VECTOR, handle));
 }
 
 SCHEME_OBJECT

diff --git a/v7/src/microcode/comutl.c b/v7/src/microcode/comutl.c
index 7e3d966ce7ca0cf8dcdf4fdb58f74277fc20e709..a254f23ae5810818687bd091032a3ce2c839fc68 100644 (file)
--- a/v7/src/microcode/comutl.c
+++ b/v7/src/microcode/comutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: comutl.c,v 1.26 1993/09/11 02:45:51 gjr Exp $
+$Id: comutl.c,v 1.27 1993/09/11 21:27:44 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -237,7 +237,7 @@ Remove a breakpoint trap installed by INSTALL-BKPT.")
 {
   PRIMITIVE_HEADER (2);
   CHECK_ARG (1, COMPILED_CODE_ADDRESS_P);
-  CHECK_ARG (2, VECTOR_P);
+  CHECK_ARG (2, NON_MARKED_VECTOR_P);
 
   {
     SCHEME_OBJECT * entry = (OBJECT_ADDRESS (ARG_REF (1)));
@@ -267,7 +267,7 @@ Proceed the computation from the current breakpoint.")
 {
   PRIMITIVE_HEADER (3);
   CHECK_ARG (1, COMPILED_CODE_ADDRESS_P);
-  CHECK_ARG (2, VECTOR_P);
+  CHECK_ARG (2, NON_MARKED_VECTOR_P);
 
   PRIMITIVE_RETURN (bkpt_proceed (((PTR) (OBJECT_ADDRESS (ARG_REF (1)))),
                                  (ARG_REF (2)),

diff --git a/v8/src/microcode/cmpintmd/hppa.h b/v8/src/microcode/cmpintmd/hppa.h
index 8a25f9fddf0891cb5085d350473bf5efa13b126e..0424e882bef2428aa7af60930e7a871c12af9bbe 100644 (file)
--- a/v8/src/microcode/cmpintmd/hppa.h
+++ b/v8/src/microcode/cmpintmd/hppa.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: hppa.h,v 1.45 1993/09/11 02:44:51 gjr Exp $
+$Id: hppa.h,v 1.46 1993/09/11 21:28:33 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -892,7 +892,7 @@ DEFUN (alloc_bkpt_handle, (kind, first_instr, entry_point),
   handle[3] = ((SCHEME_OBJECT) first_instr);
   handle[4] = (ENTRY_TO_OBJECT (entry_point));
   
-  return (MAKE_POINTER_OBJECT (TC_VECTOR, handle));
+  return (MAKE_POINTER_OBJECT (TC_NON_MARKED_VECTOR, handle));
 }
 
 SCHEME_OBJECT