From b6f76dedb9378089f0a6abaf28f0699e321c564c Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 11 Sep 1993 21:28:33 +0000 Subject: [PATCH] Change breakpoint handles to non-marked-vectors to make the runtime system's life easier. --- v7/src/microcode/cmpintmd/hppa.h | 4 ++-- v7/src/microcode/comutl.c | 6 +++--- v8/src/microcode/cmpintmd/hppa.h | 4 ++-- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/v7/src/microcode/cmpintmd/hppa.h b/v7/src/microcode/cmpintmd/hppa.h index 8a25f9fdd..0424e882b 100644 --- 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 7e3d966ce..a254f23ae 100644 --- 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 8a25f9fdd..0424e882b 100644 --- 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 -- 2.25.1