From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- sys/gio/gki/gkiinline.x | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 sys/gio/gki/gkiinline.x (limited to 'sys/gio/gki/gkiinline.x') diff --git a/sys/gio/gki/gkiinline.x b/sys/gio/gki/gkiinline.x new file mode 100644 index 00000000..87fc1f29 --- /dev/null +++ b/sys/gio/gki/gkiinline.x @@ -0,0 +1,23 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include + +# GKI_INLINE_KERNEL -- Identify a graphics stream for use with an inline +# kernel, i.e., with a kernel linked into the same process as the high level +# code which calls the GKI procedures. At present there may be at most one +# inline kernel at a time. The entry point addresses of the kernel procedures +# are passed in the array DD. Subsequent GKI calls for the named stream will +# result in direct calls to the inline kernel without encoding and decoding +# GKI instructions, hence this is the most efficient mode of operation. + +procedure gki_inline_kernel (stream, dd) + +int stream # graphics stream to be redirected +int dd[ARB] # device driver for the kernel +include "gki.com" + +begin + gk_type[stream] = TY_INLINE + call amovi (dd, gk_dd, LEN_GKIDD) +end -- cgit