From d356a8c51ef5443c0dc39c421f5148d7eac0617e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 14 Sep 1992 20:34:20 +0000 Subject: [PATCH] In definitions of interrupt registers, use `Registers' instead of `Regs', because the latter breaks in "interp.c" where references occur outside of `Interpret'. --- v7/src/microcode/intrpt.h | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/v7/src/microcode/intrpt.h b/v7/src/microcode/intrpt.h index 59e3a1772..d74748be3 100644 --- a/v7/src/microcode/intrpt.h +++ b/v7/src/microcode/intrpt.h @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: intrpt.h,v 1.9 1992/09/11 21:59:03 cph Exp $ +$Id: intrpt.h,v 1.10 1992/09/14 20:34:20 cph Exp $ Copyright (c) 1987-92 Massachusetts Institute of Technology @@ -36,11 +36,15 @@ MIT in each case. */ /* The interrupt control registers. */ -#define IntCode ((long) (Regs[REGBLOCK_INT_CODE])) /* interrupts requesting */ -#define IntEnb ((long) (Regs[REGBLOCK_INT_MASK])) /* interrupts enabled */ +/* interrupts requesting */ +#define IntCode ((long) (Registers[REGBLOCK_INT_CODE])) +#define set_IntCode(code) \ + (Registers[REGBLOCK_INT_CODE]) = ((SCHEME_OBJECT) (code)) -#define set_IntCode(code) (Regs[REGBLOCK_INT_CODE]) = ((SCHEME_OBJECT) (code)) -#define set_IntEnb(mask) (Regs[REGBLOCK_INT_MASK]) = ((SCHEME_OBJECT) (mask)) +/* interrupts enabled */ +#define IntEnb ((long) (Registers[REGBLOCK_INT_MASK])) +#define set_IntEnb(mask) \ + (Registers[REGBLOCK_INT_MASK]) = ((SCHEME_OBJECT) (mask)) /* Interrupt bits -- scanned from LSB (1) to MSB (16) */ -- 2.25.1