added minor changes for vms

This commit is contained in:
2012-05-28 07:11:13 +00:00
parent 5943d9d190
commit 4105128b3a
5 changed files with 9 additions and 1 deletions

View File

@ -43,6 +43,7 @@
#elif defined(vms) || defined(__vms)
# include <starlet.h> /* (SYS$...) */
# include <ssdef.h> /* (SS$...) */
# include <lib$routines.h> /* (lib$...) */
#else
# include "syscall.h"
#endif
@ -169,6 +170,9 @@ void qse_assert_failed (
intdos (&regs, &regs);
}
#elif defined(vms) || defined(__vms)
lib$stop (SS$_ABORT); /* use SS$_OPCCUS instead? */
/* this won't be reached since lib$stop() terminates the process */
sys$exit (SS$_ABORT); /* this condition code can be shown with
* 'show symbol $status' from the command-line. */
#else

View File

@ -38,6 +38,8 @@
# include <io.h>
# include <fcntl.h>
# include <errno.h>
#elif defined(vms) || defined(__vms)
# include <starlet.h>
#else
# include "syscall.h"
#endif