Changeset 9852 for release/1.2/source
- Timestamp:
- Jun 30, 2008, 3:08:20 PM (13 years ago)
- Location:
- release/1.2/source/lisp-kernel
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/lisp-kernel/Threads.h
r8547 r9852 216 216 extern int thread_suspend_signal, thread_resume_signal; 217 217 218 void * 219 allocate_stack(natural); 220 218 221 void 219 222 suspend_resume_handler(int, siginfo_t *, ExceptionInformation *); -
release/1.2/source/lisp-kernel/pmcl-kernel.c
r9056 r9852 188 188 189 189 BytePtr 190 allocate_lisp_stack( unsigneduseable,190 allocate_lisp_stack(natural useable, 191 191 unsigned softsize, 192 192 unsigned hardsize, … … 198 198 protected_area_ptr *hardp) 199 199 { 200 void *allocate_stack( unsigned);200 void *allocate_stack(natural); 201 201 void free_stack(void *); 202 202 natural size = useable+softsize+hardsize; … … 248 248 area * 249 249 allocate_lisp_stack_area(area_code stack_type, 250 unsigned useable,250 natural usable, 251 251 unsigned softsize, 252 252 unsigned hardsize, … … 260 260 protected_area_ptr soft_area=NULL, hard_area=NULL; 261 261 262 bottom = allocate_lisp_stack(us eable,262 bottom = allocate_lisp_stack(usable, 263 263 softsize, 264 264 hardsize, … … 301 301 302 302 area* 303 allocate_vstack_holding_area_lock( unsignedusable)303 allocate_vstack_holding_area_lock(natural usable) 304 304 { 305 305 return allocate_lisp_stack_area(AREA_VSTACK, … … 313 313 314 314 area * 315 allocate_tstack_holding_area_lock( unsignedusable)315 allocate_tstack_holding_area_lock(natural usable) 316 316 { 317 317 return allocate_lisp_stack_area(AREA_TSTACK, -
release/1.2/source/lisp-kernel/thread_manager.c
r8547 r9852 734 734 { 735 735 extern area 736 *allocate_vstack_holding_area_lock( unsigned),737 *allocate_tstack_holding_area_lock( unsigned);736 *allocate_vstack_holding_area_lock(natural), 737 *allocate_tstack_holding_area_lock(natural); 738 738 area *a; 739 739 int i; … … 972 972 #else 973 973 Ptr 974 create_stack( intsize)974 create_stack(natural size) 975 975 { 976 976 Ptr p; 977 977 size=align_to_power_of_2(size, log2_page_size); 978 978 p = (Ptr) mmap(NULL, 979 980 981 982 983 984 979 (size_t)size, 980 PROT_READ | PROT_WRITE | PROT_EXEC, 981 MAP_PRIVATE | MAP_ANON | MAP_GROWSDOWN, 982 -1, /* Darwin insists on this when not mmap()ing 983 a real fd */ 984 0); 985 985 if (p != (Ptr)(-1)) { 986 986 *((size_t *)p) = size; … … 993 993 994 994 void * 995 allocate_stack( unsignedsize)995 allocate_stack(natural size) 996 996 { 997 997 return create_stack(size); … … 1075 1075 { 1076 1076 thread_activation *activation = (thread_activation *)param; 1077 TCR *tcr = new_tcr(activation->vsize, activation-> vsize);1077 TCR *tcr = new_tcr(activation->vsize, activation->tsize); 1078 1078 sigset_t mask, old_mask; 1079 1079 … … 1695 1695 LOCK_SPINLOCK(rw->spin,tcr); 1696 1696 rw->blocked_writers--; 1697 if (err = EINTR) {1697 if (err == EINTR) { 1698 1698 err = 0; 1699 1699 }
Note: See TracChangeset
for help on using the changeset viewer.