Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37037187
en ru br
Репозитории 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
www.altlinux.org/Changes

Группа :: Разработка/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;
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin