From: jwalz <jwalz>
Date: Sat, 5 Jan 2002 21:06:00 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: MOVE2GIT~3635
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=c5069e2f59b6b3444330b41778c6cf44044c6dd8;p=nethack

*** empty log message ***
---

diff --git a/sys/vms/vmsmisc.c b/sys/vms/vmsmisc.c
new file mode 100644
index 000000000..395091d1c
--- /dev/null
+++ b/sys/vms/vmsmisc.c
@@ -0,0 +1,30 @@
+/*	SCCS Id: @(#)vmsmisc.c	3.3	1996/03/02	*/
+/* NetHack may be freely redistributed.  See license for details. */
+
+#include <ssdef.h>
+#include <stsdef.h>
+
+void vms_exit( /*_ int _*/ );
+void vms_abort( /*_ void _*/ );
+
+extern void exit( /*_ int _*/ );
+extern void lib$signal( /*_ unsigned long,... _*/ );
+
+void
+vms_exit(status)
+int status;
+{
+    exit(status ? (SS$_ABORT | STS$M_INHIB_MSG) : SS$_NORMAL);
+}
+
+void
+vms_abort()
+{
+    lib$signal(SS$_DEBUG);
+}
+
+#ifdef VERYOLD_VMS
+#include "oldcrtl.c"
+#endif
+
+/*vmsmisc.c*/