| … | |
… | |
| 75 | *tid = 0; |
75 | *tid = 0; |
| 76 | CreateThread (0, 4096, proc, arg, 0, tid); |
76 | CreateThread (0, 4096, proc, arg, 0, tid); |
| 77 | return !!*tid; |
77 | return !!*tid; |
| 78 | } |
78 | } |
| 79 | |
79 | |
|
|
80 | #define respipe_read(a,b,c) PerlSock_recv ((a), (b), (c), 0) |
|
|
81 | #define respipe_write(a,b,c) send ((a), (b), (c), 0) |
|
|
82 | #define respipe_close(a) PerlSock_closesocket ((a)) |
|
|
83 | |
| 80 | #else |
84 | #else |
| 81 | ///////////////////////////////////////////////////////////////////////////// |
85 | ///////////////////////////////////////////////////////////////////////////// |
| 82 | |
86 | |
| 83 | /* solaris */ |
87 | /* solaris */ |
| 84 | #define _POSIX_PTHREAD_SEMANTICS 1 |
88 | #define _POSIX_PTHREAD_SEMANTICS 1 |
| … | |
… | |
| 134 | pthread_sigmask (SIG_SETMASK, &oldsigset, 0); |
138 | pthread_sigmask (SIG_SETMASK, &oldsigset, 0); |
| 135 | |
139 | |
| 136 | return retval; |
140 | return retval; |
| 137 | } |
141 | } |
| 138 | |
142 | |
|
|
143 | #define respipe_read(a,b,c) read ((a), (b), (c)) |
|
|
144 | #define respipe_write(a,b,c) write ((a), (b), (c)) |
|
|
145 | #define respipe_close(a) close ((a)) |
|
|
146 | |
| 139 | #endif |
147 | #endif |
| 140 | |
148 | |
| 141 | |
149 | |
| 142 | |
150 | |
