/* +++begin copyright+++ ******************************************* */
/* */
-/* COPYRIGHT (c) 1997, 1998 Stratus Computer, Inc. */
+/* COPYRIGHT (c) 1997, 1998, 1999, 2000 Stratus Computer (DE), Inc. */
/* */
/* This program is free software; you can redistribute it and/or */
/* modify it under the terms of either: */
/* */
/* +++end copyright+++ ********************************************* */
-#define _POSIX_C_SOURCE
+#define _POSIX_C_SOURCE 199309L
#include <stdio.h>
#include <string.h>
{
char_varying(256) msgvs;
- strcpy_vstr_nstr (&msgvs, "FATAL ERROR: Call to missing function '");
+ strcpy_vstr_nstr (&msgvs, "FATAL ERROR: Call to unimplemented function '");
strcat_vstr_nstr (&msgvs, p_name);
strcat_vstr_nstr (&msgvs, "'. Entering debugger.");
s$write_code (&msgvs, &0);
bomb ("do_spawn");
}
-extern int execlp (const char *_file, const char *_arg, ...)
-{
- bomb ("execlp");
-}
-
-extern int execl (const char *_path, const char *_arg, ...)
-{
- bomb ("execl");
-}
-
-extern int execvp (const char *_file, char *const _argv[], ...)
-{
- bomb ("execvp");
-}
-
extern pid_t fork (void)
{
bomb ("fork");
bomb ("Perl_dump_mstats");
}
+extern int Perl_get_mstats (struct perl_mstats *buf, int buflen, int level)
+{
+ bomb ("Perl_get_mstats");
+}
+
extern pid_t waitpid (pid_t pid, int *stat_loc, int options)
{