1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
$NetBSD: patch-except.c,v 1.1 2012/11/19 02:54:42 joerg Exp $
--- except.c.orig 2012-11-19 01:59:57.000000000 +0000
+++ except.c
@@ -107,7 +107,7 @@ void warning (const char *text, ...)
putc ('\n', stderr);
}
-void error (const char *text, ...)
+void NORETURN error (const char *text, ...) NRUTERON
{
void *eh, *tmp;
va_list ap;
@@ -118,17 +118,13 @@ void error (const char *text, ...)
ScmRaiseError (eh, tmp);
}
-void fatal (const char *text)
+void NORETURN fatal (const char *text) NRUTERON
{
-# ifndef EXIT_VOLATILE
- extern NORETURN void exit (int) NRUTERON;
-# endif
-
fprintf (stderr, "fatal: %s\n", text);
exit (EXIT_FAILURE);
}
-void restriction (const char *text, ...)
+void NORETURN restriction (const char *text, ...) NRUTERON
{
void *eh, *tmp;
va_list ap;
@@ -140,13 +136,13 @@ void restriction (const char *text, ...)
ScmRaiseError (eh, tmp);
}
-void reset (const char *text)
+void NORETURN reset (const char *text) NRUTERON
{
fprintf (stderr, "System reset: %s\n", text);
ScmRaiseReset ();
}
-void badarg (const char *fname, void *arg)
+void NORETURN badarg (const char *fname, void *arg) NRUTERON
{
error ("bad argument to primitive procedure %s: %w", fname, arg);
}
|