static void bomb (char *p_name)
{
char_varying(256) msgvs;
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);
strcpy_vstr_nstr (&msgvs, "Please capture the output of the 'trace' request and mail it to [email protected].");
s$write_code (&msgvs, &0);
vos_call_debug ();
strcpy_vstr_nstr (&msgvs, "Return from debugger. Stopping program. Sorry but this error is unrecoverable.");
s$write_code (&msgvs, &0);
s$stop_program (&"", &1);
}
int dcc_ncpus(int *ncpus)
{
short int code;
module_info mi;
char_varying(66) module_name;
strcpy_vstr_nstr (&module_name, "");
mi.version = MODULE_INFO_VERSION_1;
s$get_module_info ((char_varying *)&module_name, (void *)&mi, &code);
if (code != 0)
*ncpus = 1; /* safe guess... */
else *ncpus = mi.n_user_cpus;
return 0;
}
