Repatch (from linux) of OSX IRAF

1 files changed, 14 insertions, 0 deletions

diff --git a/sys/memdbg/zrtadr.c b/sys/memdbg/zrtadr.c
new file mode 100644
index 00000000..7bf9dc2f
--- /dev/null
+++ b/sys/memdbg/zrtadr.c
@@ -0,0 +1,14 @@
+/* ZRTADR -- Return the program address from which the routine calling zrtadr
+ * was called.  If zrtadr is called in procedure B and B is called from
+ * procedure A, the address returned by zrtadr will be the address in A
+ * following the call to procedure B.  This can be used to determine which
+ * procedure called B.
+ *
+ * This is a portable stub for the actual routine, which is machine dependent
+ * and normally written in assembler.
+ */
+
+zrtadr_()
+{
+	return (0);
+}