aboutsummaryrefslogtreecommitdiff
path: root/sys/gio/stdgraph/stgonint.x
diff options
context:
space:
mode:
Diffstat (limited to 'sys/gio/stdgraph/stgonint.x')
-rw-r--r--sys/gio/stdgraph/stgonint.x21
1 files changed, 21 insertions, 0 deletions
diff --git a/sys/gio/stdgraph/stgonint.x b/sys/gio/stdgraph/stgonint.x
new file mode 100644
index 00000000..2aed03ee
--- /dev/null
+++ b/sys/gio/stdgraph/stgonint.x
@@ -0,0 +1,21 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include <config.h>
+include <xwhen.h>
+include "stdgraph.h"
+
+# STG_ONINT -- Interrupt handler for the stdgraph kernel. If an interrupt
+# occurs while we are posted to an exception, branch to the last ZSVJMP.
+# (This library procedure is not currently used by the kernel).
+
+procedure stg_onint (vex, next_handler)
+
+int vex # virtual exception
+int next_handler # next exception handler in chain
+int jmpbuf[LEN_JUMPBUF]
+common /stgxin/ jmpbuf
+
+begin
+ call xer_reset()
+ call zdojmp (jmpbuf, vex)
+end