From effe7892329a0408643e9e47d5bd0a3c459d6c07 Mon Sep 17 00:00:00 2001 From: Jason Wilson Date: Wed, 9 Jun 1993 09:01:13 +0000 Subject: [PATCH] Add scheme_hook_{low,high}, needed by HP-PA trap handling code. --- v7/src/microcode/cmpauxmd/c.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/v7/src/microcode/cmpauxmd/c.c b/v7/src/microcode/cmpauxmd/c.c index a5239d713..c78ec786c 100644 --- a/v7/src/microcode/cmpauxmd/c.c +++ b/v7/src/microcode/cmpauxmd/c.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: c.c,v 1.1 1993/06/08 06:13:32 gjr Exp $ +$Id: c.c,v 1.2 1993/06/09 09:01:13 jawilson Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -72,6 +72,7 @@ extern void EXFUN (C_to_interface, (PTR)); extern void EXFUN (interface_initialize, (void)); extern SCHEME_OBJECT * EXFUN (initialize_C_compiled_block, (int, char *)); extern void EXFUN (initialize_compiled_code_blocks, (void)); +extern void * scheme_hooks_low, * scheme_hooks_high; typedef SCHEME_OBJECT * EXFUN ((* compiled_block), (SCHEME_OBJECT *)); @@ -81,6 +82,9 @@ static compiled_block * compiled_code_blocks; static char ** compiled_block_names; static int max_compiled_code_blocks, compiled_code_blocks_size; static SCHEME_OBJECT dummy_entry = SHARP_F; +void + * scheme_hooks_low = NULL, + * scheme_hooks_high = NULL; SCHEME_OBJECT * DEFUN (trampoline_procedure, (trampoline), SCHEME_OBJECT * trampoline) -- 2.25.1