summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--devel/unproven-pthreads/Makefile7
-rw-r--r--devel/unproven-pthreads/files/patch-sum8
-rw-r--r--devel/unproven-pthreads/patches/patch-ac13
-rw-r--r--devel/unproven-pthreads/patches/patch-ad220
-rw-r--r--devel/unproven-pthreads/patches/patch-ae83
-rw-r--r--devel/unproven-pthreads/patches/patch-af13
-rw-r--r--devel/unproven-pthreads/patches/patch-ag258
-rw-r--r--devel/unproven-pthreads/patches/patch-ah403
8 files changed, 1001 insertions, 4 deletions
diff --git a/devel/unproven-pthreads/Makefile b/devel/unproven-pthreads/Makefile
index 4711ecd0f5c..d6951484a5f 100644
--- a/devel/unproven-pthreads/Makefile
+++ b/devel/unproven-pthreads/Makefile
@@ -1,4 +1,4 @@
-# $NetBSD: Makefile,v 1.17 2000/09/11 02:02:40 wiz Exp $
+# $NetBSD: Makefile,v 1.18 2000/12/28 03:56:52 wiz Exp $
#
DISTNAME= unproven-pthreads-0.17
@@ -8,8 +8,9 @@ MASTER_SITES= ftp://ftp.flame.org/pub/netbsd/
MAINTAINER= explorer@netbsd.org
-#ONLY_FOR_PLATFORM= NetBSD-*-alpha NetBSD-*-sparc
-ONLY_FOR_PLATFORM= NetBSD-*-i386 NetBSD-*-arm32 NetBSD-*-m68k
+#ONLY_FOR_PLATFORM= NetBSD-*-sparc
+ONLY_FOR_PLATFORM= NetBSD-*-alpha NetBSD-*-arm32 NetBSD-*-i386 \
+ NetBSD-*-m68k
CONFLICTS+= mit-pthreads-*
HAS_CONFIGURE= yes
diff --git a/devel/unproven-pthreads/files/patch-sum b/devel/unproven-pthreads/files/patch-sum
index bf85e35b00e..75605206be4 100644
--- a/devel/unproven-pthreads/files/patch-sum
+++ b/devel/unproven-pthreads/files/patch-sum
@@ -1,4 +1,10 @@
-$NetBSD: patch-sum,v 1.4 2000/11/29 17:08:07 agc Exp $
+$NetBSD: patch-sum,v 1.5 2000/12/28 03:56:53 wiz Exp $
MD5 (patch-aa) = c22d3df041130ba62d48208de1f281c5
MD5 (patch-ab) = 1e5276b89be447be4bb0983f6be81569
+MD5 (patch-ac) = c7df28ac1efaa1eb6c5c246ea2020aa9
+MD5 (patch-ad) = 3c6504ebf05008f1736b5c10680ccc87
+MD5 (patch-ae) = 7766b977f14b40509b56ac14ee0b767f
+MD5 (patch-af) = 6e42849e7483fa1b99871f4b274182dc
+MD5 (patch-ag) = c004c08ab5f156eb66f747c4f56d004d
+MD5 (patch-ah) = 8ab61f9ea67a6dd50e6af66f4ca07c5d
diff --git a/devel/unproven-pthreads/patches/patch-ac b/devel/unproven-pthreads/patches/patch-ac
new file mode 100644
index 00000000000..500c10cc35d
--- /dev/null
+++ b/devel/unproven-pthreads/patches/patch-ac
@@ -0,0 +1,13 @@
+$NetBSD: patch-ac,v 1.1 2000/12/28 03:56:53 wiz Exp $
+
+--- config/configure.in.orig Tue Dec 26 23:43:07 2000
++++ config/configure.in
+@@ -83,7 +83,7 @@
+
+ case $host in
+ changequote(,)dnl
+- alpha-*-netbsd1.4*)
++ alpha-*-netbsd1.5*)
+ name=alpha-netbsd-1.3
+ except="fork lseek ftruncate pipe fstat"
+ available_syscalls="sigsuspend sigaction sigprocmask"
diff --git a/devel/unproven-pthreads/patches/patch-ad b/devel/unproven-pthreads/patches/patch-ad
new file mode 100644
index 00000000000..510923c5689
--- /dev/null
+++ b/devel/unproven-pthreads/patches/patch-ad
@@ -0,0 +1,220 @@
+$NetBSD: patch-ad,v 1.1 2000/12/28 03:56:53 wiz Exp $
+
+--- machdep/engine-alpha-netbsd-1.3.h.orig Fri Nov 12 16:02:40 1999
++++ machdep/engine-alpha-netbsd-1.3.h
+@@ -10,7 +10,15 @@
+ #include <setjmp.h>
+ #include <sys/time.h>
+ #include <sys/cdefs.h>
+-#include <sys/signal.h> /* for _NSIG */
++#include <sys/signal.h> /* for _NSIG */
++#include <sys/syscall.h>
++
++#include <unistd.h>
++#include <setjmp.h>
++#include <stdlib.h>
++#include <fcntl.h>
++
++#include <pthread/sysfunc.h>
+
+ /* The first machine dependent functions are the SEMAPHORES needing
+ the test and set instruction.
+@@ -21,20 +29,20 @@
+ #define SEMAPHORE_SET 1
+
+ #if 0
+-#define SEMAPHORE_TEST_AND_SET(lock) \
+-({ int *_sem_lock = (lock), locked, old; \
+- asm ("mb" : : : "memory"); \
+- do { asm ("ldl_l %0,%1" : "=r" (old) : "m" (*_sem_lock)); \
+- /* ?? if (old != SEMAPHORE_CLEAR) break; */ \
+- asm ("stl_c %0,%1" : "=r" (locked), "=m" (*_sem_lock) \
+- : "0" (SEMAPHORE_SET)); \
+- } while (!locked); \
+- asm ("mb" : : : "memory"); \
++#define SEMAPHORE_TEST_AND_SET(lock) \
++({ int *_sem_lock = (lock), locked, old; \
++ asm ("mb" : : : "memory"); \
++ do { asm ("ldl_l %0,%1" : "=r" (old) : "m" (*_sem_lock)); \
++ /* ?? if (old != SEMAPHORE_CLEAR) break; */ \
++ asm ("stl_c %0,%1" : "=r" (locked), "=m" (*_sem_lock) \
++ : "0" (SEMAPHORE_SET)); \
++ } while (!locked); \
++ asm ("mb" : : : "memory"); \
+ old == SEMAPHORE_CLEAR; })
+
+ #define SEMAPHORE_RESET(lock) \
+-({ int *_sem_lock = (lock); \
+- *_sem_lock = SEMAPHORE_CLEAR; \
++({ int *_sem_lock = (lock); \
++ *_sem_lock = SEMAPHORE_CLEAR; \
+ asm ("mb" : : : "memory"); })
+ #endif
+
+@@ -46,19 +54,19 @@
+ /*
+ * sigset_t macros
+ */
+-#define SIG_ANY(sig) (sig)
+-#define SIGMAX (_NSIG-1)
++#define SIG_ANY(sig) (sig)
++#define SIGMAX (_NSIG-1)
+
+ /*
+ * New Strutures
+ */
+ struct machdep_pthread {
+- void *(*start_routine)(void *);
+- void *start_argument;
+- void *machdep_stack;
+- struct itimerval machdep_timer;
+- unsigned long machdep_istate[11];
+- unsigned long machdep_fstate[9];
++ void *(*start_routine)(void *);
++ void *start_argument;
++ void *machdep_stack;
++ struct itimerval machdep_timer;
++ unsigned long machdep_istate[11];
++ unsigned long machdep_fstate[9];
+ };
+
+ /*
+@@ -66,18 +74,18 @@
+ * For initial thread only.
+ */
+ #define MACHDEP_PTHREAD_INIT \
+- { NULL, NULL, NULL, { { 0, 0 }, { 0, 100000 } }, 0 }
++ { NULL, NULL, NULL, { { 0, 0 }, { 0, 100000 } }, { 0 }, { 0 } }
+
+ /*
+ * Minimum stack size
+ */
+-#define PTHREAD_STACK_MIN 2048
++#define PTHREAD_STACK_MIN 2048
+
+ /*
+ * Some fd flag defines that are necessary to distinguish between posix
+ * behavior and bsd4.3 behavior.
+ */
+-#define __FD_NONBLOCK O_NONBLOCK
++#define __FD_NONBLOCK O_NONBLOCK
+
+ /*
+ * New functions
+@@ -91,21 +99,112 @@
+ #define __machdep_stack_set(x, y) (x)->machdep_stack = y
+ #define __machdep_stack_repl(x, y) \
+ { \
+- if (stack = __machdep_stack_get(x)) { \
++ if ((stack = __machdep_stack_get(x))) { \
+ __machdep_stack_free(stack); \
+ } \
+ __machdep_stack_set(x, y); \
+ }
+
+-void * __machdep_stack_alloc(size_t);
+-void __machdep_stack_free(void *);
+-
+ int machdep_save_state(void);
++int safe_store (int *loc, int nw);
+
+ int __machdep_save_int_state(unsigned long *);
+ void __machdep_restore_int_state(unsigned long *);
+ void __machdep_save_fp_state(unsigned long *);
+ void __machdep_restore_fp_state(unsigned long *);
++
++void *machdep_pthread_cleanup(struct machdep_pthread *machdep_pthread);
++void machdep_pthread_start(void);
++
++/* ==========================================================================
++ * __machdep_stack_free()
++ */
++inline static
++void __machdep_stack_free(void * stack)
++{
++ free(stack);
++}
++
++/* ==========================================================================
++ * __machdep_stack_alloc()
++ */
++inline static
++void * __machdep_stack_alloc(size_t size)
++{
++ return(malloc(size));
++}
++
++/* ==========================================================================
++ * machdep_sys_creat()
++ */
++static inline int
++machdep_sys_creat(char * path, int mode)
++{
++ return(machdep_sys_open(path, O_WRONLY | O_CREAT | O_TRUNC, mode));
++}
++
++/* ==========================================================================
++ * machdep_sys_wait3()
++ */
++static inline int
++machdep_sys_wait3(int * b, int c, struct rusage *d)
++{
++ return(machdep_sys_wait4(0, b, c, d));
++}
++
++/* ==========================================================================
++ * machdep_sys_waitpid()
++ */
++static inline int
++machdep_sys_waitpid(int a, int * b, int c)
++{
++ return(machdep_sys_wait4(a, b, c, NULL));
++}
++
++/* ==========================================================================
++ * machdep_sys_getdtablesize()
++ */
++static inline int
++machdep_sys_getdtablesize(void)
++{
++ return(sysconf(_SC_OPEN_MAX));
++}
++
++/* ==========================================================================
++ * machdep_sys_lseek()
++ */
++static inline
++off_t machdep_sys_lseek(int fd, off_t offset, int whence)
++{
++ return(__syscall((quad_t)SYS_lseek, fd, 0, offset, whence));
++}
++
++static inline
++int machdep_sys_ftruncate( int fd, off_t length)
++{
++ quad_t q;
++ int rv;
++
++ q = __syscall((quad_t)SYS_ftruncate, fd,0, length);
++ if( /* LINTED constant */ sizeof( quad_t ) == sizeof( register_t ) ||
++ /* LINTED constant */ BYTE_ORDER == LITTLE_ENDIAN )
++ rv = (int)q;
++ else
++ rv = (int)((u_quad_t)q >> 32);
++
++ return rv;
++}
++
++
++/* ==========================================================================
++ * machdep_sys_getdirentries()
++ */
++static inline int
++machdep_sys_getdirentries(int fd, char * buf, int len, int * seek)
++{
++ return(machdep_sys_getdents(fd, buf, len));
++}
++
+
+ #endif
+
diff --git a/devel/unproven-pthreads/patches/patch-ae b/devel/unproven-pthreads/patches/patch-ae
new file mode 100644
index 00000000000..155e1449158
--- /dev/null
+++ b/devel/unproven-pthreads/patches/patch-ae
@@ -0,0 +1,83 @@
+$NetBSD: patch-ae,v 1.1 2000/12/28 03:56:53 wiz Exp $
+
+--- machdep/syscall-template-alpha-netbsd-1.3.S.orig Sat Nov 6 18:33:03 1999
++++ machdep/syscall-template-alpha-netbsd-1.3.S
+@@ -1,11 +1,16 @@
+ #include <machine/asm.h>
+ #define COMPAT_43
+ #include <sys/syscall.h>
+-#define CHMK() call_pal 0x83
++#define CHMK() call_pal 0x83
+
+ #ifdef SYS___sigsuspend14
+ #define SYS_sigsuspend SYS___sigsuspend14
+ #endif
++
++#ifdef SYS___sigaction14
++#define SYS_sigaction SYS___sigaction14
++#endif
++
+ #ifdef SYS___sigprocmask14
+ #define SYS_sigprocmask SYS___sigprocmask14
+ #endif
+@@ -14,11 +19,11 @@
+
+ /* Kernel syscall interface:
+ Input:
+- v0 - system call number
+- a* - arguments, as in C
++ v0 - system call number
++ a* - arguments, as in C
+ Output:
+- a3 - zero iff successful
+- v0 - errno value on failure, else result
++ a3 - zero iff successful
++ v0 - errno value on failure, else result
+
+ This macro is similar to SYSCALL in asm.h, but not completely.
+ There's room for optimization, if we assume this will continue to
+@@ -26,28 +31,28 @@
+
+ This macro expansions does not include the return instruction.
+ If there's no other work to be done, use something like:
+- SYSCALL(foo) ; ret
++ SYSCALL(foo) ; ret
+ If there is other work to do (in fork, maybe?), do it after the
+ SYSCALL invocation. */
+
+ #define SYSCALL(x) \
+- .align 4 ;\
+- .globl machdep_sys_##x ;\
+- .ent machdep_sys_##x, 0 ;\
+-machdep_sys_##x: ;\
+- .frame sp,0,ra ;\
+- ldiq v0, SYS_##x ;\
+- CHMK() ;\
+- beq a3, Lsys_noerr_##x ;\
+- br gp, Lsys_err_##x ;\
+-Lsys_err_##x: ;\
+- /* Load gp so we can find cerror to jump to. */;\
+- ldgp gp, 0(gp) ;\
+- jmp zero, machdep_cerror ;\
++ .align 4 ;\
++ .globl machdep_sys_##x ;\
++ .ent machdep_sys_##x, 0 ;\
++machdep_sys_##x: ;\
++ .frame sp,0,ra ;\
++ ldiq v0, SYS_##x ;\
++ CHMK() ;\
++ beq a3, Lsys_noerr_##x ;\
++ br gp, Lsys_err_##x ;\
++Lsys_err_##x: ;\
++ /* Load gp so we can find cerror to jump to. */;\
++ ldgp gp, 0(gp) ;\
++ jmp zero, machdep_cerror ;\
+ Lsys_noerr_##x:
+
+-#define SIMPLE_SYSCALL(x) SYSCALL(x) ; ret ; .end machdep_sys_##x
++#define SIMPLE_SYSCALL(x) SYSCALL(x) ; ret ; .end machdep_sys_##x
+
+-#define XSYSCALL(x) SIMPLE_SYSCALL(x)
++#define XSYSCALL(x) SIMPLE_SYSCALL(x)
+
+ XSYSCALL(SYSCALL_NAME)
diff --git a/devel/unproven-pthreads/patches/patch-af b/devel/unproven-pthreads/patches/patch-af
new file mode 100644
index 00000000000..eb6cf2a3c7f
--- /dev/null
+++ b/devel/unproven-pthreads/patches/patch-af
@@ -0,0 +1,13 @@
+$NetBSD: patch-af,v 1.1 2000/12/28 03:56:54 wiz Exp $
+
+--- config/configure.orig Mon Jul 10 15:03:06 2000
++++ config/configure
+@@ -1151,7 +1151,7 @@
+ name=$host_cpu-$host_os
+
+ case $host in
+- alpha-*-netbsd1.4*)
++ alpha-*-netbsd1.5*)
+ name=alpha-netbsd-1.3
+ except="fork lseek ftruncate pipe fstat"
+ available_syscalls="sigsuspend sigaction sigprocmask"
diff --git a/devel/unproven-pthreads/patches/patch-ag b/devel/unproven-pthreads/patches/patch-ag
new file mode 100644
index 00000000000..e9444c993b1
--- /dev/null
+++ b/devel/unproven-pthreads/patches/patch-ag
@@ -0,0 +1,258 @@
+$NetBSD: patch-ag,v 1.1 2000/12/28 03:56:54 wiz Exp $
+
+--- machdep/engine-alpha-netbsd-1.3.c.orig Fri Dec 10 13:40:41 1999
++++ machdep/engine-alpha-netbsd-1.3.c
+@@ -3,17 +3,17 @@
+ *
+ * Description : Machine dependent functions for NetBSD/Alpha 1.1(+)
+ *
+- * 1.00 93/08/04 proven
++ * 1.00 93/08/04 proven
+ * -Started coding this file.
+ *
+- * 95/04/22 cgd
+- * -Modified to make it go with NetBSD/Alpha
++ * 95/04/22 cgd
++ * -Modified to make it go with NetBSD/Alpha
+ */
+
+ #ifndef lint
+ static const char rcsid[] = "engine-alpha-osf1.c,v 1.4.4.1 1995/12/13 05:41:37 proven Exp";
+ #endif
+-
++
+ #include <pthread.h>
+ #include <sys/types.h>
+ #include <sys/socket.h>
+@@ -23,77 +23,24 @@
+ #include <stdio.h>
+
+ /* ==========================================================================
+- * machdep_save_state()
+- */
+-int machdep_save_state(void)
+-{
+- return __machdep_save_int_state(pthread_run->machdep_data.machdep_istate);
+-}
+-
+-void machdep_restore_state(void)
+-{
+- __machdep_restore_int_state(pthread_run->machdep_data.machdep_istate);
+-}
+-
+-void machdep_save_float_state (void)
+-{
+- __machdep_save_fp_state(pthread_run->machdep_data.machdep_fstate);
+-}
+-
+-void machdep_restore_float_state (void)
+-{
+- __machdep_restore_fp_state(pthread_run->machdep_data.machdep_fstate);
+-}
+-
+-/* ==========================================================================
+- * machdep_set_thread_timer()
+- */
+-void machdep_set_thread_timer(struct machdep_pthread *machdep_pthread)
+-{
+- if (setitimer(ITIMER_VIRTUAL, &(machdep_pthread->machdep_timer), NULL)) {
+- PANIC("setitimer failed");
+- }
+-}
+-
+-/* ==========================================================================
+- * machdep_unset_thread_timer()
+- */
+-void machdep_unset_thread_timer(struct machdep_pthread *machdep_pthread)
+-{
+- struct itimerval zeroval = { { 0, 0 }, { 0, 0} };
+-
+- if (setitimer(ITIMER_VIRTUAL, &zeroval, NULL)) {
+- PANIC("setitimer failed");
+- }
+-}
+-
+-/* ==========================================================================
+- * machdep_pthread_cleanup()
+- */
+-void *machdep_pthread_cleanup(struct machdep_pthread *machdep_pthread)
+-{
+- return(machdep_pthread->machdep_stack);
+-}
+-
+-/* ==========================================================================
+ * machdep_pthread_start()
+ */
+ void machdep_pthread_start(void)
+ {
+- context_switch_done();
+- pthread_sched_resume ();
++ context_switch_done();
++ pthread_sched_resume ();
+
+- /* XXXMLG
+- * This is EXTREMELY bogus, but it seems that this function is called
+- * with the pthread kernel locked. If this happens, __errno() will
+- * return the wrong address until after the first context switch.
+- *
+- * Clearly there is a leak of pthread_kernel somewhere, but until
+- * it is found, we force a context switch here, just before calling
+- * the thread start routine. When we return from pthread_yield
+- * the kernel will be unlocked.
+- */
+- pthread_yield();
++ /* XXXMLG
++ * This is EXTREMELY bogus, but it seems that this function is called
++ * with the pthread kernel locked. If this happens, __errno() will
++ * return the wrong address until after the first context switch.
++ *
++ * Clearly there is a leak of pthread_kernel somewhere, but until
++ * it is found, we force a context switch here, just before calling
++ * the thread start routine. When we return from pthread_yield
++ * the kernel will be unlocked.
++ */
++ pthread_yield();
+
+ /* Run current threads start routine with argument */
+ pthread_exit(pthread_run->machdep_data.start_routine
+@@ -104,28 +51,10 @@
+ }
+
+ /* ==========================================================================
+- * __machdep_stack_free()
+- */
+-void __machdep_stack_free(void * stack)
+-{
+- free(stack);
+-}
+-
+-/* ==========================================================================
+- * __machdep_stack_alloc()
+- */
+-void * __machdep_stack_alloc(size_t size)
+-{
+- void * stack;
+-
+- return(malloc(size));
+-}
+-
+-/* ==========================================================================
+ * __machdep_pthread_create()
+ */
+ void __machdep_pthread_create(struct machdep_pthread *machdep_pthread,
+- void *(* start_routine)(), void *start_argument,
++ void *(* start_routine)(void *), void *start_argument,
+ long stack_size, long nsec, long flags)
+ {
+ machdep_pthread->start_routine = start_routine;
+@@ -151,66 +80,68 @@
+ }
+ }
+
+-int safe_store (loc, new)
+- int *loc;
+- int new;
++/* ==========================================================================
++ * machdep_save_state()
++ */
++int machdep_save_state(void)
+ {
+- int locked, old;
+- asm ("mb" : : : "memory");
+- do {
+- asm ("ldl_l %0,%1" : "=r" (old) : "m" (*loc));
+- asm ("stl_c %0,%1" : "=r" (locked), "=m" (*loc) : "0" (new));
+- } while (!locked);
+- asm ("mb" : : : "memory");
+- return old;
++ return __machdep_save_int_state(pthread_run->machdep_data.machdep_istate);
+ }
+
+-/* ==========================================================================
+- * machdep_sys_creat()
+- */
+-machdep_sys_creat(char * path, int mode)
+-{
+- return(machdep_sys_open(path, O_WRONLY | O_CREAT | O_TRUNC, mode));
+-}
++void machdep_restore_state(void)
++{
++ __machdep_restore_int_state(pthread_run->machdep_data.machdep_istate);
++}
+
+-/* ==========================================================================
+- * machdep_sys_wait3()
+- */
+-machdep_sys_wait3(int * b, int c, int * d)
+-{
+- return(machdep_sys_wait4(0, b, c, d));
+-}
+-
+-/* ==========================================================================
+- * machdep_sys_waitpid()
+- */
+-machdep_sys_waitpid(int a, int * b, int c)
++void machdep_save_float_state (struct pthread *pthread)
++{
++ __machdep_save_fp_state(pthread->machdep_data.machdep_fstate);
++}
++
++void machdep_restore_float_state (void)
+ {
+- return(machdep_sys_wait4(a, b, c, NULL));
++ __machdep_restore_fp_state(pthread_run->machdep_data.machdep_fstate);
+ }
+
+ /* ==========================================================================
+- * machdep_sys_getdtablesize()
++ * machdep_set_thread_timer()
+ */
+-machdep_sys_getdtablesize()
++void machdep_set_thread_timer(struct machdep_pthread *machdep_pthread)
+ {
+- return(sysconf(_SC_OPEN_MAX));
++ if (setitimer(ITIMER_VIRTUAL, &(machdep_pthread->machdep_timer), NULL)) {
++ PANIC("setitimer failed");
++ }
+ }
+
+ /* ==========================================================================
+- * machdep_sys_lseek()
++ * machdep_unset_thread_timer()
+ */
+-off_t machdep_sys_lseek(int fd, off_t offset, int whence)
++void machdep_unset_thread_timer(struct machdep_pthread *machdep_pthread)
+ {
+- extern off_t __syscall();
++ struct itimerval zeroval = { { 0, 0 }, { 0, 0} };
+
+- return(__syscall((quad_t)SYS_lseek, fd, 0, offset, whence));
++ if (setitimer(ITIMER_VIRTUAL, &zeroval, NULL)) {
++ PANIC("setitimer failed");
++ }
+ }
+
+ /* ==========================================================================
+- * machdep_sys_getdirentries()
++ * machdep_pthread_cleanup()
+ */
+-machdep_sys_getdirentries(int fd, char * buf, int len, int * seek)
++void *machdep_pthread_cleanup(struct machdep_pthread *machdep_pthread)
+ {
+- return(machdep_sys_getdents(fd, buf, len));
+-}
++ return(machdep_pthread->machdep_stack);
++}
++
++int safe_store (int *loc, int new)
++{
++ int locked, old;
++ asm ("mb" : : : "memory");
++ do {
++ asm ("ldl_l %0,%1" : "=r" (old) : "m" (*loc));
++ asm ("stl_c %0,%1" : "=r" (locked), "=m" (*loc) : "0" (new));
++ } while (!locked);
++ asm ("mb" : : : "memory");
++ return old;
++}
++
diff --git a/devel/unproven-pthreads/patches/patch-ah b/devel/unproven-pthreads/patches/patch-ah
new file mode 100644
index 00000000000..a49d453ab1f
--- /dev/null
+++ b/devel/unproven-pthreads/patches/patch-ah
@@ -0,0 +1,403 @@
+$NetBSD: patch-ah,v 1.1 2000/12/28 03:56:54 wiz Exp $
+
+--- machdep/syscall-alpha-netbsd-1.3.S.orig Sat Nov 6 18:33:03 1999
++++ machdep/syscall-alpha-netbsd-1.3.S
+@@ -1,21 +1,21 @@
+ #include <machine/asm.h>
+-#define CHMK() call_pal 0x83
++#define CHMK() call_pal 0x83
+ #define COMPAT_43
+ #include <sys/syscall.h>
+ #ifndef __CONCAT
+ #include <sys/cdefs.h>
+ #endif
+-#define CONCAT __CONCAT
++#define CONCAT __CONCAT
+
+ #undef SYSCALL
+
+ /* Kernel syscall interface:
+ Input:
+- v0 - system call number
+- a* - arguments, as in C
++ v0 - system call number
++ a* - arguments, as in C
+ Output:
+- a3 - zero iff successful
+- v0 - errno value on failure, else result
++ a3 - zero iff successful
++ v0 - errno value on failure, else result
+
+ This macro is similar to SYSCALL in asm.h, but not completely.
+ There's room for optimization, if we assume this will continue to
+@@ -23,206 +23,206 @@
+
+ This macro expansions does not include the return instruction.
+ If there's no other work to be done, use something like:
+- SYSCALL(foo) ; ret
++ SYSCALL(foo) ; ret
+ If there is other work to do (in fork, maybe?), do it after the
+ SYSCALL invocation. */
+
+ #define SYSCALL(x) \
+- .align 4 ;\
+- .globl CONCAT(machdep_sys_,x) ;\
+- .ent CONCAT(machdep_sys_,x), 0 ;\
+-CONCAT(machdep_sys_,x): ;\
+- .frame sp,0,ra ;\
+- ldiq v0, CONCAT(SYS_,x) ;\
+- CHMK() ;\
+- beq a3, CONCAT(Lsys_noerr_,x) ;\
+- br gp, CONCAT(Lsys_err_,x) ;\
+-CONCAT(Lsys_err_,x): ;\
+- /* Load gp so we can find cerror to jump to. */;\
+- ldgp gp, 0(gp) ;\
+- jmp zero, machdep_cerror ;\
++ .align 4 ;\
++ .globl CONCAT(machdep_sys_,x) ;\
++ .ent CONCAT(machdep_sys_,x), 0 ;\
++CONCAT(machdep_sys_,x): ;\
++ .frame sp,0,ra ;\
++ ldiq v0, CONCAT(SYS_,x) ;\
++ CHMK() ;\
++ beq a3, CONCAT(Lsys_noerr_,x) ;\
++ br gp, CONCAT(Lsys_err_,x) ;\
++CONCAT(Lsys_err_,x): ;\
++ /* Load gp so we can find cerror to jump to. */;\
++ ldgp gp, 0(gp) ;\
++ jmp zero, machdep_cerror ;\
+ CONCAT(Lsys_noerr_,x):
+
+-#define XSYSCALL(x) SYSCALL(x) ; RET ; .end CONCAT(machdep_sys_,x)
++#define XSYSCALL(x) SYSCALL(x) ; RET ; .end CONCAT(machdep_sys_,x)
+
+- .globl machdep_cerror
++ .globl machdep_cerror
+ machdep_cerror:
+- br t0, Lmachdep_cerror_setgp
++ br t0, Lmachdep_cerror_setgp
+ Lmachdep_cerror_setgp:
+- ldgp gp, 0(t0)
+- stl v0, errno
++ ldgp gp, 0(t0)
++ stl v0, errno
+ #if 0
+- ldiq v0, -1
++ ldiq v0, -1
+ #else
+- subq zero, v0, v0
++ subq zero, v0, v0
+ #endif
+- RET
++ RET
+
+ /* The fork system call is special... */
+ SYSCALL(fork)
+- cmovne a4, 0, v0
+- RET
+- .end machdep_sys_fork
++ cmovne a4, 0, v0
++ RET
++ .end machdep_sys_fork
+
+ /* The pipe system call is special... */
+ SYSCALL(pipe)
+- stl v0, 0(a0)
+- stl a4, 4(a0)
+- mov zero, v0
+- RET
+- .end machdep_sys_pipe
++ stl v0, 0(a0)
++ stl a4, 4(a0)
++ mov zero, v0
++ RET
++ .end machdep_sys_pipe
+
+ #ifndef SYS___sigsuspend14
+ /* The sigsuspend system call is special... */
+- .align 4
+- .globl machdep_sys_sigsuspend
+- .ent machdep_sys_sigsuspend, 0
++ .align 4
++ .globl machdep_sys_sigsuspend
++ .ent machdep_sys_sigsuspend, 0
+ machdep_sys_sigsuspend:
+- ldl a0, 0(a0) /* pass *mask instead of mask */
+- ldiq v0, SYS_sigsuspend
+- CHMK()
+- mov zero, v0 /* shouldn't need; just in case... */
+- RET
+- .end machdep_sys_sigsuspend
++ ldl a0, 0(a0) /* pass *mask instead of mask */
++ ldiq v0, SYS_sigsuspend
++ CHMK()
++ mov zero, v0 /* shouldn't need; just in case... */
++ RET
++ .end machdep_sys_sigsuspend
+ #endif /* SYS_sigsuspend14 */
+
+ #ifndef SYS___sigprocmask14
+ /* The sigprocmask system call is special... */
+- .align 4
+- .globl machdep_sys_sigprocmask
+- .ent machdep_sys_sigprocmask, 0
++ .align 4
++ .globl machdep_sys_sigprocmask
++ .ent machdep_sys_sigprocmask, 0
+ machdep_sys_sigprocmask:
+- mov a2, a5 /* safe */
+- cmoveq a1, 1, a0 /* if set == NULL, how = SIG_BLOCK */
+- beq a1, Ldoit /* and set = 0, and do it. */
+- ldl a1, 0(a1) /* load the set from *set */
+-Ldoit: ldiq v0, SYS_sigprocmask
+- CHMK()
+- beq a5, Lret /* if they don't want old mask, done */
+- stl v0, 0(a5) /* otherwise, give it to them. */
+-Lret: mov zero, v0
+- RET
+- .end machdep_sys_sigprocmask
++ mov a2, a5 /* safe */
++ cmoveq a1, 1, a0 /* if set == NULL, how = SIG_BLOCK */
++ beq a1, Ldoit /* and set = 0, and do it. */
++ ldl a1, 0(a1) /* load the set from *set */
++Ldoit: ldiq v0, SYS_sigprocmask
++ CHMK()
++ beq a5, Lret /* if they don't want old mask, done */
++ stl v0, 0(a5) /* otherwise, give it to them. */
++Lret: mov zero, v0
++ RET
++ .end machdep_sys_sigprocmask
+ #endif /* SYS_sigprocmask14 */
+
+ /* More stuff ... */
+- .align 4
+- .global __machdep_save_int_state
+- .ent __machdep_save_int_state, 0
++ .align 4
++ .global __machdep_save_int_state
++ .ent __machdep_save_int_state, 0
+ __machdep_save_int_state:
+- .frame sp, 16, ra
+- ldgp gp, 0(t12)
+- lda sp, -16(sp)
+- stq ra, 0(sp)
+-
+- /* save integer registers */
+- stq ra, ( 0 * 8)(a0) /* return address */
+- stq s0, ( 1 * 8)(a0) /* callee-saved registers */
+- stq s1, ( 2 * 8)(a0)
+- stq s2, ( 3 * 8)(a0)
+- stq s3, ( 4 * 8)(a0)
+- stq s4, ( 5 * 8)(a0)
+- stq s5, ( 6 * 8)(a0)
+- stq s6, ( 7 * 8)(a0)
+- stq sp, ( 9 * 8)(a0)
+- stq ra, ( 8 * 8)(a0) /* RA on return */
+- stq pv, (10 * 8)(a0) /* and PV; we restore it */
+-
+- mov zero, v0
+- lda sp, 16(sp)
+- RET
+- .end __machdep_save_int_state
+-
+- .align 4
+- .global __machdep_restore_int_state
+- .ent __machdep_restore_int_state, 0
++ .frame sp, 16, ra
++ ldgp gp, 0(t12)
++ lda sp, -16(sp)
++ stq ra, 0(sp)
++
++ /* save integer registers */
++ stq ra, ( 0 * 8)(a0) /* return address */
++ stq s0, ( 1 * 8)(a0) /* callee-saved registers */
++ stq s1, ( 2 * 8)(a0)
++ stq s2, ( 3 * 8)(a0)
++ stq s3, ( 4 * 8)(a0)
++ stq s4, ( 5 * 8)(a0)
++ stq s5, ( 6 * 8)(a0)
++ stq s6, ( 7 * 8)(a0)
++ stq sp, ( 9 * 8)(a0)
++ stq ra, ( 8 * 8)(a0) /* RA on return */
++ stq pv, (10 * 8)(a0) /* and PV; we restore it */
++
++ mov zero, v0
++ lda sp, 16(sp)
++ RET
++ .end __machdep_save_int_state
++
++ .align 4
++ .global __machdep_restore_int_state
++ .ent __machdep_restore_int_state, 0
+ __machdep_restore_int_state:
+- .frame sp, 16, ra
+- ldgp gp, 0(t12)
+- lda sp, -16(sp)
+- stq ra, 0(sp)
+-
+- /* restore integer registers */
+- ldq t0, ( 0 * 8)(a0) /* return address */
+- ldq s0, ( 1 * 8)(a0) /* callee-saved registers */
+- ldq s1, ( 2 * 8)(a0)
+- ldq s2, ( 3 * 8)(a0)
+- ldq s3, ( 4 * 8)(a0)
+- ldq s4, ( 5 * 8)(a0)
+- ldq s5, ( 6 * 8)(a0)
+- ldq s6, ( 7 * 8)(a0)
+- ldq ra, ( 8 * 8)(a0) /* RA after return */
+- ldq sp, ( 9 * 8)(a0)
+- ldq pv, (10 * 8)(a0) /* and PV; we restore it */
+-
+- ldiq v0, 1
+- ret zero,(t0),1
+- .end __machdep_restore_int_state
+-
+- .align 4
+- .global __machdep_save_fp_state
+- .ent __machdep_save_fp_state, 0
++ .frame sp, 16, ra
++ ldgp gp, 0(t12)
++ lda sp, -16(sp)
++ stq ra, 0(sp)
++
++ /* restore integer registers */
++ ldq t0, ( 0 * 8)(a0) /* return address */
++ ldq s0, ( 1 * 8)(a0) /* callee-saved registers */
++ ldq s1, ( 2 * 8)(a0)
++ ldq s2, ( 3 * 8)(a0)
++ ldq s3, ( 4 * 8)(a0)
++ ldq s4, ( 5 * 8)(a0)
++ ldq s5, ( 6 * 8)(a0)
++ ldq s6, ( 7 * 8)(a0)
++ ldq ra, ( 8 * 8)(a0) /* RA after return */
++ ldq sp, ( 9 * 8)(a0)
++ ldq pv, (10 * 8)(a0) /* and PV; we restore it */
++
++ ldiq v0, 1
++ ret zero,(t0),1
++ .end __machdep_restore_int_state
++
++ .align 4
++ .global __machdep_save_fp_state
++ .ent __machdep_save_fp_state, 0
+ __machdep_save_fp_state:
+- .frame sp, 16, ra
+- ldgp gp, 0(t12)
+- lda sp, -16(sp)
+- stq ra, 0(sp)
+-
+- /* save FP registers */
+- stt fs0, (0 * 8)(a0) /* callee-saved registers */
+- stt fs1, (1 * 8)(a0)
+- stt fs2, (2 * 8)(a0)
+- stt fs3, (3 * 8)(a0)
+- stt fs4, (4 * 8)(a0)
+- stt fs5, (5 * 8)(a0)
+- stt fs6, (6 * 8)(a0)
+- stt fs7, (7 * 8)(a0)
+- mf_fpcr ft0 /* and FP control reg */
+- stt ft0, (8 * 8)(a0)
+-
+- lda sp, 16(sp)
+- RET
+- .end __machdep_save_fp_state
+-
+- .align 4
+- .global __machdep_restore_fp_state
+- .ent __machdep_restore_fp_state, 0
++ .frame sp, 16, ra
++ ldgp gp, 0(t12)
++ lda sp, -16(sp)
++ stq ra, 0(sp)
++
++ /* save FP registers */
++ stt fs0, (0 * 8)(a0) /* callee-saved registers */
++ stt fs1, (1 * 8)(a0)
++ stt fs2, (2 * 8)(a0)
++ stt fs3, (3 * 8)(a0)
++ stt fs4, (4 * 8)(a0)
++ stt fs5, (5 * 8)(a0)
++ stt fs6, (6 * 8)(a0)
++ stt fs7, (7 * 8)(a0)
++ mf_fpcr ft0 /* and FP control reg */
++ stt ft0, (8 * 8)(a0)
++
++ lda sp, 16(sp)
++ RET
++ .end __machdep_save_fp_state
++
++ .align 4
++ .global __machdep_restore_fp_state
++ .ent __machdep_restore_fp_state, 0
+ __machdep_restore_fp_state:
+- .frame sp, 16, ra
+- ldgp gp, 0(t12)
+- lda sp, -16(sp)
+- stq ra, 0(sp)
+-
+- /* restore FP registers */
+- ldt fs0, (0 * 8)(a0) /* callee-saved registers */
+- ldt fs1, (1 * 8)(a0)
+- ldt fs2, (2 * 8)(a0)
+- ldt fs3, (3 * 8)(a0)
+- ldt fs4, (4 * 8)(a0)
+- ldt fs5, (5 * 8)(a0)
+- ldt fs6, (6 * 8)(a0)
+- ldt fs7, (7 * 8)(a0)
+- ldt ft0, (8 * 8)(a0)
+- mt_fpcr ft0 /* and FP control reg */
+-
+- lda sp, 16(sp)
+- RET
+- .end __machdep_restore_fp_state
++ .frame sp, 16, ra
++ ldgp gp, 0(t12)
++ lda sp, -16(sp)
++ stq ra, 0(sp)
++
++ /* restore FP registers */
++ ldt fs0, (0 * 8)(a0) /* callee-saved registers */
++ ldt fs1, (1 * 8)(a0)
++ ldt fs2, (2 * 8)(a0)
++ ldt fs3, (3 * 8)(a0)
++ ldt fs4, (4 * 8)(a0)
++ ldt fs5, (5 * 8)(a0)
++ ldt fs6, (6 * 8)(a0)
++ ldt fs7, (7 * 8)(a0)
++ ldt ft0, (8 * 8)(a0)
++ mt_fpcr ft0 /* and FP control reg */
++
++ lda sp, 16(sp)
++ RET
++ .end __machdep_restore_fp_state
+
+ /* For fstat() we actually syscall fstat13. */
+- .align 4
+- .globl machdep_sys_fstat
+- .ent machdep_sys_fstat, 0
++ .align 4
++ .globl machdep_sys_fstat
++ .ent machdep_sys_fstat, 0
+ machdep_sys_fstat:
+- .frame sp,0,ra
+- ldiq v0, SYS___fstat13
+- CHMK()
+- beq a3, Lsys_noerr_fstat
+- br gp, Lsys_err_fstat
++ .frame sp,0,ra
++ ldiq v0, SYS___fstat13
++ CHMK()
++ beq a3, Lsys_noerr_fstat
++ br gp, Lsys_err_fstat
+ Lsys_err_fstat:
+- /* Load gp so we can find cerror to jump to. */
+- ldgp gp, 0(gp)
+- jmp zero, machdep_cerror
++ /* Load gp so we can find cerror to jump to. */
++ ldgp gp, 0(gp)
++ jmp zero, machdep_cerror
+ Lsys_noerr_fstat:
+- RET
+- .end machdep_sys_fstat
++ RET
++ .end machdep_sys_fstat