d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

use stdarg when compiling with ANSI C compiler

Browse source
This commit is contained in:
ceriel 1995-08-17 16:43:36 +00:00
parent 53eb117563
commit 7b207deeb7
1 changed files with 69 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

69
lang/cem/cpp.ansi/error.c
View file

@ -6,7 +6,11 @@
/* E R R O R A N D D I A G N O S T I C R O U T I N E S */ /* E R R O R A N D D I A G N O S T I C R O U T I N E S */
#include <system.h> #include <system.h>
#if __STDC__
#include <stdarg.h>
#else
#include <varargs.h> #include <varargs.h>
#endif
#include "arith.h" #include "arith.h"
#include "errout.h" #include "errout.h"
@ -28,6 +32,70 @@ err_hdr(s)
else fprint(ERROUT, s); else fprint(ERROUT, s);
} }
#if __STDC__
/*VARARGS*/
error(char *fmt, ...)
{
va_list ap;
err_occurred = 1;
err_hdr("");
va_start(ap, fmt);
doprnt(ERROUT, fmt, ap);
fprint(ERROUT, "\n");
va_end(ap);
}
/*VARARGS*/
warning(char *fmt, ...)
{
va_list ap;
err_hdr("(warning) ");
va_start(ap, fmt);
doprnt(ERROUT, fmt, ap);
fprint(ERROUT, "\n");
va_end(ap);
}
/*VARARGS*/
strict(char *fmt, ...)
{
va_list ap;
err_hdr("(strict) ");
va_start(ap, fmt);
doprnt(ERROUT, fmt, ap);
fprint(ERROUT, "\n");
va_end(ap);
}
/*VARARGS*/
crash(char *fmt, ...)
{
va_list ap;
err_hdr("CRASH\007 ");
va_start(ap, fmt);
doprnt(ERROUT, fmt, ap);
fprint(ERROUT, "\n");
va_end(ap);
sys_stop(S_ABORT);
}
/*VARARGS*/
fatal(char *fmt, ...)
{
va_list ap;
err_hdr("fatal error -- ");
va_start(ap, fmt);
doprnt(ERROUT, fmt, ap);
fprint(ERROUT, "\n");
va_end(ap);
sys_stop(S_EXIT);
}
#else
/*VARARGS*/ /*VARARGS*/
error(va_alist) error(va_alist)
va_dcl va_dcl
@ -105,3 +173,4 @@ fatal(va_alist)
va_end(ap); va_end(ap);
sys_stop(S_EXIT); sys_stop(S_EXIT);
} }
#endif