Репозитории ALT
S: | 4.13.1-alt1 |
5.1: | 3.10.2-alt3.1 |
4.1: | 3.10.2-alt3 |
4.0: | 3.09.3-alt0.1 |
3.0: | 3.08.1-alt1 |
Группа :: Разработка/ML
Пакет: ocaml
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: ocaml-3.04+7-private.patch
Скачать
Скачать
diff -urN ocaml-3.04+7.orig/byterun/fail.h ocaml-3.04+7/byterun/fail.h
--- ocaml-3.04+7.orig/byterun/fail.h Wed Feb 20 22:33:01 2002
+++ ocaml-3.04+7/byterun/fail.h Sat Mar 2 03:30:56 2002
@@ -16,9 +16,7 @@
#ifndef _fail_
#define _fail_
-/* <private> */
#include <setjmp.h>
-/* </private> */
#include "misc.h"
#include "mlvalues.h"
@@ -35,6 +33,8 @@
#define SYS_BLOCKED_IO 9 /* "Sys_blocked_io" */
#define ASSERT_FAILURE_EXN 10 /* "Assert_failure" */
+/* </private> */
+
#ifdef POSIX_SIGNALS
struct longjmp_buffer {
sigjmp_buf buf;
@@ -43,6 +43,11 @@
struct longjmp_buffer {
jmp_buf buf;
};
+#endif
+
+/* <private> */
+
+#ifndef POSIX_SIGNALS
#define sigsetjmp(buf,save) setjmp(buf)
#define siglongjmp(buf,val) longjmp(buf,val)
#endif
@@ -51,6 +56,7 @@
extern value exn_bucket;
/* </private> */
+
CAMLextern void mlraise (value bucket) Noreturn;
CAMLextern void raise_constant (value tag) Noreturn;