1 files changed, 49 insertions, 0 deletions
diff --git a/lang/vscm/patches/patch-except.c b/lang/vscm/patches/patch-except.c
new file mode 100644
index 00000000000..0f103cb6e4f
--- /dev/null
+++ b/lang/vscm/patches/patch-except.c
@@ -0,0 +1,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);
+ }