From 6e1801caa24c16c898ad80d0ae525dd92c0f57fa Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 14 Oct 1992 11:17:20 +0000
Subject: [PATCH] Added support for trap_PendingInterrupt, because it is needed
 for without-interrupts.

---
 lisp/hppa-arch.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lisp/hppa-arch.c b/lisp/hppa-arch.c
index f1e8fa77a..acccd8116 100644
--- a/lisp/hppa-arch.c
+++ b/lisp/hppa-arch.c
@@ -119,6 +119,11 @@ static void sigtrap_handler(int signal, int code, struct sigcontext *scp)
 	    fake_foreign_function_call(scp);
 	    lose("%%primitive halt called; the party is over.\n");
 
+	  case trap_PendingInterrupt:
+	    arch_skip_instruction(scp);
+	    interrupt_handle_pending(scp);
+	    break;
+
 	  case trap_Error:
 	  case trap_Cerror:
 	    interrupt_internal_error(signal, code, scp, im5==trap_Cerror);
-- 
GitLab