Print this page
patch lower-case-segops
Split |
Close |
Expand all |
Collapse all |
--- old/usr/src/uts/common/vm/vm_as.c
+++ new/usr/src/uts/common/vm/vm_as.c
1 1 /*
2 2 * CDDL HEADER START
3 3 *
4 4 * The contents of this file are subject to the terms of the
5 5 * Common Development and Distribution License (the "License").
6 6 * You may not use this file except in compliance with the License.
7 7 *
8 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 9 * or http://www.opensolaris.org/os/licensing.
10 10 * See the License for the specific language governing permissions
11 11 * and limitations under the License.
12 12 *
13 13 * When distributing Covered Code, include this CDDL HEADER in each
14 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 15 * If applicable, add the following below this CDDL HEADER, with the
16 16 * fields enclosed by brackets "[]" replaced with your own identifying
17 17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 18 *
19 19 * CDDL HEADER END
20 20 */
21 21 /*
22 22 * Copyright 2010 Sun Microsystems, Inc. All rights reserved.
23 23 * Use is subject to license terms.
24 24 * Copyright 2015, Joyent, Inc. All rights reserved.
25 25 */
26 26
27 27 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
28 28 /* All Rights Reserved */
29 29
30 30 /*
31 31 * University Copyright- Copyright (c) 1982, 1986, 1988
32 32 * The Regents of the University of California
33 33 * All Rights Reserved
34 34 *
35 35 * University Acknowledgment- Portions of this document are derived from
36 36 * software developed by the University of California, Berkeley, and its
37 37 * contributors.
38 38 */
39 39
40 40 /*
41 41 * VM - address spaces.
42 42 */
43 43
44 44 #include <sys/types.h>
45 45 #include <sys/t_lock.h>
46 46 #include <sys/param.h>
47 47 #include <sys/errno.h>
48 48 #include <sys/systm.h>
49 49 #include <sys/mman.h>
50 50 #include <sys/sysmacros.h>
51 51 #include <sys/cpuvar.h>
52 52 #include <sys/sysinfo.h>
53 53 #include <sys/kmem.h>
54 54 #include <sys/vnode.h>
55 55 #include <sys/vmsystm.h>
56 56 #include <sys/cmn_err.h>
57 57 #include <sys/debug.h>
58 58 #include <sys/tnf_probe.h>
59 59 #include <sys/vtrace.h>
60 60
61 61 #include <vm/hat.h>
62 62 #include <vm/xhat.h>
63 63 #include <vm/as.h>
64 64 #include <vm/seg.h>
65 65 #include <vm/seg_vn.h>
66 66 #include <vm/seg_dev.h>
67 67 #include <vm/seg_kmem.h>
68 68 #include <vm/seg_map.h>
69 69 #include <vm/seg_spt.h>
70 70 #include <vm/page.h>
71 71
72 72 clock_t deadlk_wait = 1; /* number of ticks to wait before retrying */
73 73
74 74 static struct kmem_cache *as_cache;
75 75
76 76 static void as_setwatchprot(struct as *, caddr_t, size_t, uint_t);
77 77 static void as_clearwatchprot(struct as *, caddr_t, size_t);
78 78 int as_map_locked(struct as *, caddr_t, size_t, int ((*)()), void *);
79 79
80 80
81 81 /*
82 82 * Verifying the segment lists is very time-consuming; it may not be
83 83 * desirable always to define VERIFY_SEGLIST when DEBUG is set.
84 84 */
85 85 #ifdef DEBUG
86 86 #define VERIFY_SEGLIST
87 87 int do_as_verify = 0;
88 88 #endif
89 89
90 90 /*
91 91 * Allocate a new callback data structure entry and fill in the events of
92 92 * interest, the address range of interest, and the callback argument.
93 93 * Link the entry on the as->a_callbacks list. A callback entry for the
94 94 * entire address space may be specified with vaddr = 0 and size = -1.
95 95 *
96 96 * CALLERS RESPONSIBILITY: If not calling from within the process context for
97 97 * the specified as, the caller must guarantee persistence of the specified as
98 98 * for the duration of this function (eg. pages being locked within the as
99 99 * will guarantee persistence).
100 100 */
101 101 int
102 102 as_add_callback(struct as *as, void (*cb_func)(), void *arg, uint_t events,
103 103 caddr_t vaddr, size_t size, int sleepflag)
104 104 {
105 105 struct as_callback *current_head, *cb;
106 106 caddr_t saddr;
107 107 size_t rsize;
108 108
109 109 /* callback function and an event are mandatory */
110 110 if ((cb_func == NULL) || ((events & AS_ALL_EVENT) == 0))
111 111 return (EINVAL);
112 112
113 113 /* Adding a callback after as_free has been called is not allowed */
114 114 if (as == &kas)
115 115 return (ENOMEM);
116 116
117 117 /*
118 118 * vaddr = 0 and size = -1 is used to indicate that the callback range
119 119 * is the entire address space so no rounding is done in that case.
120 120 */
121 121 if (size != -1) {
122 122 saddr = (caddr_t)((uintptr_t)vaddr & (uintptr_t)PAGEMASK);
123 123 rsize = (((size_t)(vaddr + size) + PAGEOFFSET) & PAGEMASK) -
124 124 (size_t)saddr;
125 125 /* check for wraparound */
126 126 if (saddr + rsize < saddr)
127 127 return (ENOMEM);
128 128 } else {
129 129 if (vaddr != 0)
130 130 return (EINVAL);
131 131 saddr = vaddr;
132 132 rsize = size;
133 133 }
134 134
135 135 /* Allocate and initialize a callback entry */
136 136 cb = kmem_zalloc(sizeof (struct as_callback), sleepflag);
137 137 if (cb == NULL)
138 138 return (EAGAIN);
139 139
140 140 cb->ascb_func = cb_func;
141 141 cb->ascb_arg = arg;
142 142 cb->ascb_events = events;
143 143 cb->ascb_saddr = saddr;
144 144 cb->ascb_len = rsize;
145 145
146 146 /* Add the entry to the list */
147 147 mutex_enter(&as->a_contents);
148 148 current_head = as->a_callbacks;
149 149 as->a_callbacks = cb;
150 150 cb->ascb_next = current_head;
151 151
152 152 /*
153 153 * The call to this function may lose in a race with
154 154 * a pertinent event - eg. a thread does long term memory locking
155 155 * but before the callback is added another thread executes as_unmap.
156 156 * A broadcast here resolves that.
157 157 */
158 158 if ((cb->ascb_events & AS_UNMAPWAIT_EVENT) && AS_ISUNMAPWAIT(as)) {
159 159 AS_CLRUNMAPWAIT(as);
160 160 cv_broadcast(&as->a_cv);
161 161 }
162 162
163 163 mutex_exit(&as->a_contents);
164 164 return (0);
165 165 }
166 166
167 167 /*
168 168 * Search the callback list for an entry which pertains to arg.
169 169 *
170 170 * This is called from within the client upon completion of the callback.
171 171 * RETURN VALUES:
172 172 * AS_CALLBACK_DELETED (callback entry found and deleted)
173 173 * AS_CALLBACK_NOTFOUND (no callback entry found - this is ok)
174 174 * AS_CALLBACK_DELETE_DEFERRED (callback is in process, delete of this
175 175 * entry will be made in as_do_callbacks)
176 176 *
177 177 * If as_delete_callback encounters a matching entry with AS_CALLBACK_CALLED
178 178 * set, it indicates that as_do_callbacks is processing this entry. The
179 179 * AS_ALL_EVENT events are cleared in the entry, and a broadcast is made
180 180 * to unblock as_do_callbacks, in case it is blocked.
181 181 *
182 182 * CALLERS RESPONSIBILITY: If not calling from within the process context for
183 183 * the specified as, the caller must guarantee persistence of the specified as
184 184 * for the duration of this function (eg. pages being locked within the as
185 185 * will guarantee persistence).
186 186 */
187 187 uint_t
188 188 as_delete_callback(struct as *as, void *arg)
189 189 {
190 190 struct as_callback **prevcb = &as->a_callbacks;
191 191 struct as_callback *cb;
192 192 uint_t rc = AS_CALLBACK_NOTFOUND;
193 193
194 194 mutex_enter(&as->a_contents);
195 195 for (cb = as->a_callbacks; cb; prevcb = &cb->ascb_next, cb = *prevcb) {
196 196 if (cb->ascb_arg != arg)
197 197 continue;
198 198
199 199 /*
200 200 * If the events indicate AS_CALLBACK_CALLED, just clear
201 201 * AS_ALL_EVENT in the events field and wakeup the thread
202 202 * that may be waiting in as_do_callbacks. as_do_callbacks
203 203 * will take care of removing this entry from the list. In
204 204 * that case, return AS_CALLBACK_DELETE_DEFERRED. Otherwise
205 205 * (AS_CALLBACK_CALLED not set), just remove it from the
206 206 * list, return the memory and return AS_CALLBACK_DELETED.
207 207 */
208 208 if ((cb->ascb_events & AS_CALLBACK_CALLED) != 0) {
209 209 /* leave AS_CALLBACK_CALLED */
210 210 cb->ascb_events &= ~AS_ALL_EVENT;
211 211 rc = AS_CALLBACK_DELETE_DEFERRED;
212 212 cv_broadcast(&as->a_cv);
213 213 } else {
214 214 *prevcb = cb->ascb_next;
215 215 kmem_free(cb, sizeof (struct as_callback));
216 216 rc = AS_CALLBACK_DELETED;
217 217 }
218 218 break;
219 219 }
220 220 mutex_exit(&as->a_contents);
221 221 return (rc);
222 222 }
223 223
224 224 /*
225 225 * Searches the as callback list for a matching entry.
226 226 * Returns a pointer to the first matching callback, or NULL if
227 227 * nothing is found.
228 228 * This function never sleeps so it is ok to call it with more
229 229 * locks held but the (required) a_contents mutex.
230 230 *
231 231 * See also comment on as_do_callbacks below.
232 232 */
233 233 static struct as_callback *
234 234 as_find_callback(struct as *as, uint_t events, caddr_t event_addr,
235 235 size_t event_len)
236 236 {
237 237 struct as_callback *cb;
238 238
239 239 ASSERT(MUTEX_HELD(&as->a_contents));
240 240 for (cb = as->a_callbacks; cb != NULL; cb = cb->ascb_next) {
241 241 /*
242 242 * If the callback has not already been called, then
243 243 * check if events or address range pertains. An event_len
244 244 * of zero means do an unconditional callback.
245 245 */
246 246 if (((cb->ascb_events & AS_CALLBACK_CALLED) != 0) ||
247 247 ((event_len != 0) && (((cb->ascb_events & events) == 0) ||
248 248 (event_addr + event_len < cb->ascb_saddr) ||
249 249 (event_addr > (cb->ascb_saddr + cb->ascb_len))))) {
250 250 continue;
251 251 }
252 252 break;
253 253 }
254 254 return (cb);
255 255 }
256 256
257 257 /*
258 258 * Executes a given callback and removes it from the callback list for
259 259 * this address space.
260 260 * This function may sleep so the caller must drop all locks except
261 261 * a_contents before calling this func.
262 262 *
263 263 * See also comments on as_do_callbacks below.
264 264 */
265 265 static void
266 266 as_execute_callback(struct as *as, struct as_callback *cb,
267 267 uint_t events)
268 268 {
269 269 struct as_callback **prevcb;
270 270 void *cb_arg;
271 271
272 272 ASSERT(MUTEX_HELD(&as->a_contents) && (cb->ascb_events & events));
273 273 cb->ascb_events |= AS_CALLBACK_CALLED;
274 274 mutex_exit(&as->a_contents);
275 275 (*cb->ascb_func)(as, cb->ascb_arg, events);
276 276 mutex_enter(&as->a_contents);
277 277 /*
278 278 * the callback function is required to delete the callback
279 279 * when the callback function determines it is OK for
280 280 * this thread to continue. as_delete_callback will clear
281 281 * the AS_ALL_EVENT in the events field when it is deleted.
282 282 * If the callback function called as_delete_callback,
283 283 * events will already be cleared and there will be no blocking.
284 284 */
285 285 while ((cb->ascb_events & events) != 0) {
286 286 cv_wait(&as->a_cv, &as->a_contents);
287 287 }
288 288 /*
289 289 * This entry needs to be taken off the list. Normally, the
290 290 * callback func itself does that, but unfortunately the list
291 291 * may have changed while the callback was running because the
292 292 * a_contents mutex was dropped and someone else other than the
293 293 * callback func itself could have called as_delete_callback,
294 294 * so we have to search to find this entry again. The entry
295 295 * must have AS_CALLBACK_CALLED, and have the same 'arg'.
296 296 */
297 297 cb_arg = cb->ascb_arg;
298 298 prevcb = &as->a_callbacks;
299 299 for (cb = as->a_callbacks; cb != NULL;
300 300 prevcb = &cb->ascb_next, cb = *prevcb) {
301 301 if (((cb->ascb_events & AS_CALLBACK_CALLED) == 0) ||
302 302 (cb_arg != cb->ascb_arg)) {
303 303 continue;
304 304 }
305 305 *prevcb = cb->ascb_next;
306 306 kmem_free(cb, sizeof (struct as_callback));
307 307 break;
308 308 }
309 309 }
310 310
311 311 /*
312 312 * Check the callback list for a matching event and intersection of
313 313 * address range. If there is a match invoke the callback. Skip an entry if:
314 314 * - a callback is already in progress for this entry (AS_CALLBACK_CALLED)
315 315 * - not event of interest
316 316 * - not address range of interest
317 317 *
318 318 * An event_len of zero indicates a request for an unconditional callback
319 319 * (regardless of event), only the AS_CALLBACK_CALLED is checked. The
320 320 * a_contents lock must be dropped before a callback, so only one callback
321 321 * can be done before returning. Return -1 (true) if a callback was
322 322 * executed and removed from the list, else return 0 (false).
323 323 *
324 324 * The logically separate parts, i.e. finding a matching callback and
325 325 * executing a given callback have been separated into two functions
326 326 * so that they can be called with different sets of locks held beyond
327 327 * the always-required a_contents. as_find_callback does not sleep so
328 328 * it is ok to call it if more locks than a_contents (i.e. the a_lock
329 329 * rwlock) are held. as_execute_callback on the other hand may sleep
330 330 * so all locks beyond a_contents must be dropped by the caller if one
331 331 * does not want to end comatose.
332 332 */
333 333 static int
334 334 as_do_callbacks(struct as *as, uint_t events, caddr_t event_addr,
335 335 size_t event_len)
336 336 {
337 337 struct as_callback *cb;
338 338
339 339 if ((cb = as_find_callback(as, events, event_addr, event_len))) {
340 340 as_execute_callback(as, cb, events);
341 341 return (-1);
342 342 }
343 343 return (0);
344 344 }
345 345
346 346 /*
347 347 * Search for the segment containing addr. If a segment containing addr
348 348 * exists, that segment is returned. If no such segment exists, and
349 349 * the list spans addresses greater than addr, then the first segment
350 350 * whose base is greater than addr is returned; otherwise, NULL is
351 351 * returned unless tail is true, in which case the last element of the
352 352 * list is returned.
353 353 *
354 354 * a_seglast is used to cache the last found segment for repeated
355 355 * searches to the same addr (which happens frequently).
356 356 */
357 357 struct seg *
358 358 as_findseg(struct as *as, caddr_t addr, int tail)
359 359 {
360 360 struct seg *seg = as->a_seglast;
361 361 avl_index_t where;
362 362
363 363 ASSERT(AS_LOCK_HELD(as, &as->a_lock));
364 364
365 365 if (seg != NULL &&
366 366 seg->s_base <= addr &&
367 367 addr < seg->s_base + seg->s_size)
368 368 return (seg);
369 369
370 370 seg = avl_find(&as->a_segtree, &addr, &where);
371 371 if (seg != NULL)
372 372 return (as->a_seglast = seg);
373 373
374 374 seg = avl_nearest(&as->a_segtree, where, AVL_AFTER);
375 375 if (seg == NULL && tail)
376 376 seg = avl_last(&as->a_segtree);
377 377 return (as->a_seglast = seg);
378 378 }
379 379
380 380 #ifdef VERIFY_SEGLIST
381 381 /*
382 382 * verify that the linked list is coherent
383 383 */
384 384 static void
385 385 as_verify(struct as *as)
386 386 {
387 387 struct seg *seg, *seglast, *p, *n;
388 388 uint_t nsegs = 0;
389 389
390 390 if (do_as_verify == 0)
391 391 return;
392 392
393 393 seglast = as->a_seglast;
394 394
395 395 for (seg = AS_SEGFIRST(as); seg != NULL; seg = AS_SEGNEXT(as, seg)) {
396 396 ASSERT(seg->s_as == as);
397 397 p = AS_SEGPREV(as, seg);
398 398 n = AS_SEGNEXT(as, seg);
399 399 ASSERT(p == NULL || p->s_as == as);
400 400 ASSERT(p == NULL || p->s_base < seg->s_base);
401 401 ASSERT(n == NULL || n->s_base > seg->s_base);
402 402 ASSERT(n != NULL || seg == avl_last(&as->a_segtree));
403 403 if (seg == seglast)
404 404 seglast = NULL;
405 405 nsegs++;
406 406 }
407 407 ASSERT(seglast == NULL);
408 408 ASSERT(avl_numnodes(&as->a_segtree) == nsegs);
409 409 }
410 410 #endif /* VERIFY_SEGLIST */
411 411
412 412 /*
413 413 * Add a new segment to the address space. The avl_find()
414 414 * may be expensive so we attempt to use last segment accessed
415 415 * in as_gap() as an insertion point.
416 416 */
417 417 int
418 418 as_addseg(struct as *as, struct seg *newseg)
419 419 {
420 420 struct seg *seg;
421 421 caddr_t addr;
422 422 caddr_t eaddr;
423 423 avl_index_t where;
424 424
425 425 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
426 426
427 427 as->a_updatedir = 1; /* inform /proc */
428 428 gethrestime(&as->a_updatetime);
429 429
430 430 if (as->a_lastgaphl != NULL) {
431 431 struct seg *hseg = NULL;
432 432 struct seg *lseg = NULL;
433 433
434 434 if (as->a_lastgaphl->s_base > newseg->s_base) {
435 435 hseg = as->a_lastgaphl;
436 436 lseg = AVL_PREV(&as->a_segtree, hseg);
437 437 } else {
438 438 lseg = as->a_lastgaphl;
439 439 hseg = AVL_NEXT(&as->a_segtree, lseg);
440 440 }
441 441
442 442 if (hseg && lseg && lseg->s_base < newseg->s_base &&
443 443 hseg->s_base > newseg->s_base) {
444 444 avl_insert_here(&as->a_segtree, newseg, lseg,
445 445 AVL_AFTER);
446 446 as->a_lastgaphl = NULL;
447 447 as->a_seglast = newseg;
448 448 return (0);
449 449 }
450 450 as->a_lastgaphl = NULL;
451 451 }
452 452
453 453 addr = newseg->s_base;
454 454 eaddr = addr + newseg->s_size;
455 455 again:
456 456
457 457 seg = avl_find(&as->a_segtree, &addr, &where);
458 458
459 459 if (seg == NULL)
460 460 seg = avl_nearest(&as->a_segtree, where, AVL_AFTER);
461 461
462 462 if (seg == NULL)
463 463 seg = avl_last(&as->a_segtree);
464 464
465 465 if (seg != NULL) {
466 466 caddr_t base = seg->s_base;
467 467
468 468 /*
469 469 * If top of seg is below the requested address, then
470 470 * the insertion point is at the end of the linked list,
471 471 * and seg points to the tail of the list. Otherwise,
472 472 * the insertion point is immediately before seg.
473 473 */
474 474 if (base + seg->s_size > addr) {
475 475 if (addr >= base || eaddr > base) {
476 476 #ifdef __sparc
477 477 extern struct seg_ops segnf_ops;
478 478
479 479 /*
480 480 * no-fault segs must disappear if overlaid.
481 481 * XXX need new segment type so
482 482 * we don't have to check s_ops
483 483 */
484 484 if (seg->s_ops == &segnf_ops) {
485 485 seg_unmap(seg);
486 486 goto again;
487 487 }
488 488 #endif
489 489 return (-1); /* overlapping segment */
490 490 }
491 491 }
492 492 }
493 493 as->a_seglast = newseg;
494 494 avl_insert(&as->a_segtree, newseg, where);
495 495
496 496 #ifdef VERIFY_SEGLIST
497 497 as_verify(as);
498 498 #endif
499 499 return (0);
500 500 }
501 501
502 502 struct seg *
503 503 as_removeseg(struct as *as, struct seg *seg)
504 504 {
505 505 avl_tree_t *t;
506 506
507 507 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
508 508
509 509 as->a_updatedir = 1; /* inform /proc */
510 510 gethrestime(&as->a_updatetime);
511 511
512 512 if (seg == NULL)
513 513 return (NULL);
514 514
515 515 t = &as->a_segtree;
516 516 if (as->a_seglast == seg)
517 517 as->a_seglast = NULL;
518 518 as->a_lastgaphl = NULL;
519 519
520 520 /*
521 521 * if this segment is at an address higher than
522 522 * a_lastgap, set a_lastgap to the next segment (NULL if last segment)
523 523 */
524 524 if (as->a_lastgap &&
525 525 (seg == as->a_lastgap || seg->s_base > as->a_lastgap->s_base))
526 526 as->a_lastgap = AVL_NEXT(t, seg);
527 527
528 528 /*
529 529 * remove the segment from the seg tree
530 530 */
531 531 avl_remove(t, seg);
532 532
533 533 #ifdef VERIFY_SEGLIST
534 534 as_verify(as);
535 535 #endif
536 536 return (seg);
537 537 }
538 538
539 539 /*
540 540 * Find a segment containing addr.
541 541 */
542 542 struct seg *
543 543 as_segat(struct as *as, caddr_t addr)
544 544 {
545 545 struct seg *seg = as->a_seglast;
546 546
547 547 ASSERT(AS_LOCK_HELD(as, &as->a_lock));
548 548
549 549 if (seg != NULL && seg->s_base <= addr &&
550 550 addr < seg->s_base + seg->s_size)
551 551 return (seg);
552 552
553 553 seg = avl_find(&as->a_segtree, &addr, NULL);
554 554 return (seg);
555 555 }
556 556
557 557 /*
558 558 * Serialize all searches for holes in an address space to
559 559 * prevent two or more threads from allocating the same virtual
560 560 * address range. The address space must not be "read/write"
561 561 * locked by the caller since we may block.
562 562 */
563 563 void
564 564 as_rangelock(struct as *as)
565 565 {
566 566 mutex_enter(&as->a_contents);
567 567 while (AS_ISCLAIMGAP(as))
568 568 cv_wait(&as->a_cv, &as->a_contents);
569 569 AS_SETCLAIMGAP(as);
570 570 mutex_exit(&as->a_contents);
571 571 }
572 572
573 573 /*
574 574 * Release hold on a_state & AS_CLAIMGAP and signal any other blocked threads.
575 575 */
576 576 void
577 577 as_rangeunlock(struct as *as)
578 578 {
579 579 mutex_enter(&as->a_contents);
580 580 AS_CLRCLAIMGAP(as);
581 581 cv_signal(&as->a_cv);
582 582 mutex_exit(&as->a_contents);
583 583 }
584 584
585 585 /*
586 586 * compar segments (or just an address) by segment address range
587 587 */
588 588 static int
589 589 as_segcompar(const void *x, const void *y)
590 590 {
591 591 struct seg *a = (struct seg *)x;
592 592 struct seg *b = (struct seg *)y;
593 593
594 594 if (a->s_base < b->s_base)
595 595 return (-1);
596 596 if (a->s_base >= b->s_base + b->s_size)
597 597 return (1);
598 598 return (0);
599 599 }
600 600
601 601
602 602 void
603 603 as_avlinit(struct as *as)
604 604 {
605 605 avl_create(&as->a_segtree, as_segcompar, sizeof (struct seg),
606 606 offsetof(struct seg, s_tree));
607 607 avl_create(&as->a_wpage, wp_compare, sizeof (struct watched_page),
608 608 offsetof(struct watched_page, wp_link));
609 609 }
610 610
611 611 /*ARGSUSED*/
612 612 static int
613 613 as_constructor(void *buf, void *cdrarg, int kmflags)
614 614 {
615 615 struct as *as = buf;
616 616
617 617 mutex_init(&as->a_contents, NULL, MUTEX_DEFAULT, NULL);
618 618 cv_init(&as->a_cv, NULL, CV_DEFAULT, NULL);
619 619 rw_init(&as->a_lock, NULL, RW_DEFAULT, NULL);
620 620 as_avlinit(as);
621 621 return (0);
622 622 }
623 623
624 624 /*ARGSUSED1*/
625 625 static void
626 626 as_destructor(void *buf, void *cdrarg)
627 627 {
628 628 struct as *as = buf;
629 629
630 630 avl_destroy(&as->a_segtree);
631 631 mutex_destroy(&as->a_contents);
632 632 cv_destroy(&as->a_cv);
633 633 rw_destroy(&as->a_lock);
634 634 }
635 635
636 636 void
637 637 as_init(void)
638 638 {
639 639 as_cache = kmem_cache_create("as_cache", sizeof (struct as), 0,
640 640 as_constructor, as_destructor, NULL, NULL, NULL, 0);
641 641 }
642 642
643 643 /*
644 644 * Allocate and initialize an address space data structure.
645 645 * We call hat_alloc to allow any machine dependent
646 646 * information in the hat structure to be initialized.
647 647 */
648 648 struct as *
649 649 as_alloc(void)
650 650 {
651 651 struct as *as;
652 652
653 653 as = kmem_cache_alloc(as_cache, KM_SLEEP);
654 654
655 655 as->a_flags = 0;
656 656 as->a_vbits = 0;
657 657 as->a_hrm = NULL;
658 658 as->a_seglast = NULL;
659 659 as->a_size = 0;
660 660 as->a_resvsize = 0;
661 661 as->a_updatedir = 0;
662 662 gethrestime(&as->a_updatetime);
663 663 as->a_objectdir = NULL;
664 664 as->a_sizedir = 0;
665 665 as->a_userlimit = (caddr_t)USERLIMIT;
666 666 as->a_lastgap = NULL;
667 667 as->a_lastgaphl = NULL;
668 668 as->a_callbacks = NULL;
669 669
670 670 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
671 671 as->a_hat = hat_alloc(as); /* create hat for default system mmu */
672 672 AS_LOCK_EXIT(as, &as->a_lock);
673 673
674 674 as->a_xhat = NULL;
675 675
676 676 return (as);
677 677 }
678 678
679 679 /*
680 680 * Free an address space data structure.
681 681 * Need to free the hat first and then
682 682 * all the segments on this as and finally
683 683 * the space for the as struct itself.
684 684 */
685 685 void
686 686 as_free(struct as *as)
687 687 {
688 688 struct hat *hat = as->a_hat;
689 689 struct seg *seg, *next;
690 690 int called = 0;
691 691
692 692 top:
693 693 /*
694 694 * Invoke ALL callbacks. as_do_callbacks will do one callback
695 695 * per call, and not return (-1) until the callback has completed.
696 696 * When as_do_callbacks returns zero, all callbacks have completed.
697 697 */
698 698 mutex_enter(&as->a_contents);
699 699 while (as->a_callbacks && as_do_callbacks(as, AS_ALL_EVENT, 0, 0))
700 700 ;
701 701
702 702 /* This will prevent new XHATs from attaching to as */
703 703 if (!called)
704 704 AS_SETBUSY(as);
705 705 mutex_exit(&as->a_contents);
706 706 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
707 707
708 708 if (!called) {
↓ open down ↓ |
708 lines elided |
↑ open up ↑ |
709 709 called = 1;
710 710 hat_free_start(hat);
711 711 if (as->a_xhat != NULL)
712 712 xhat_free_start_all(as);
713 713 }
714 714 for (seg = AS_SEGFIRST(as); seg != NULL; seg = next) {
715 715 int err;
716 716
717 717 next = AS_SEGNEXT(as, seg);
718 718 retry:
719 - err = SEGOP_UNMAP(seg, seg->s_base, seg->s_size);
719 + err = segop_unmap(seg, seg->s_base, seg->s_size);
720 720 if (err == EAGAIN) {
721 721 mutex_enter(&as->a_contents);
722 722 if (as->a_callbacks) {
723 723 AS_LOCK_EXIT(as, &as->a_lock);
724 724 } else if (!AS_ISNOUNMAPWAIT(as)) {
725 725 /*
726 726 * Memory is currently locked. Wait for a
727 727 * cv_signal that it has been unlocked, then
728 728 * try the operation again.
729 729 */
730 730 if (AS_ISUNMAPWAIT(as) == 0)
731 731 cv_broadcast(&as->a_cv);
732 732 AS_SETUNMAPWAIT(as);
733 733 AS_LOCK_EXIT(as, &as->a_lock);
734 734 while (AS_ISUNMAPWAIT(as))
735 735 cv_wait(&as->a_cv, &as->a_contents);
736 736 } else {
737 737 /*
738 738 * We may have raced with
739 739 * segvn_reclaim()/segspt_reclaim(). In this
740 740 * case clean nounmapwait flag and retry since
741 741 * softlockcnt in this segment may be already
742 742 * 0. We don't drop as writer lock so our
743 743 * number of retries without sleeping should
744 744 * be very small. See segvn_reclaim() for
745 745 * more comments.
746 746 */
747 747 AS_CLRNOUNMAPWAIT(as);
748 748 mutex_exit(&as->a_contents);
749 749 goto retry;
750 750 }
751 751 mutex_exit(&as->a_contents);
752 752 goto top;
753 753 } else {
754 754 /*
755 755 * We do not expect any other error return at this
756 756 * time. This is similar to an ASSERT in seg_unmap()
757 757 */
758 758 ASSERT(err == 0);
759 759 }
760 760 }
761 761 hat_free_end(hat);
762 762 if (as->a_xhat != NULL)
763 763 xhat_free_end_all(as);
764 764 AS_LOCK_EXIT(as, &as->a_lock);
765 765
766 766 /* /proc stuff */
767 767 ASSERT(avl_numnodes(&as->a_wpage) == 0);
768 768 if (as->a_objectdir) {
769 769 kmem_free(as->a_objectdir, as->a_sizedir * sizeof (vnode_t *));
770 770 as->a_objectdir = NULL;
771 771 as->a_sizedir = 0;
772 772 }
773 773
774 774 /*
775 775 * Free the struct as back to kmem. Assert it has no segments.
776 776 */
777 777 ASSERT(avl_numnodes(&as->a_segtree) == 0);
778 778 kmem_cache_free(as_cache, as);
779 779 }
780 780
781 781 int
782 782 as_dup(struct as *as, struct proc *forkedproc)
783 783 {
784 784 struct as *newas;
785 785 struct seg *seg, *newseg;
786 786 size_t purgesize = 0;
787 787 int error;
788 788
789 789 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
790 790 as_clearwatch(as);
791 791 newas = as_alloc();
792 792 newas->a_userlimit = as->a_userlimit;
793 793 newas->a_proc = forkedproc;
794 794
795 795 AS_LOCK_ENTER(newas, &newas->a_lock, RW_WRITER);
796 796
797 797 /* This will prevent new XHATs from attaching */
798 798 mutex_enter(&as->a_contents);
799 799 AS_SETBUSY(as);
800 800 mutex_exit(&as->a_contents);
801 801 mutex_enter(&newas->a_contents);
802 802 AS_SETBUSY(newas);
803 803 mutex_exit(&newas->a_contents);
804 804
805 805 (void) hat_dup(as->a_hat, newas->a_hat, NULL, 0, HAT_DUP_SRD);
806 806
807 807 for (seg = AS_SEGFIRST(as); seg != NULL; seg = AS_SEGNEXT(as, seg)) {
808 808
809 809 if (seg->s_flags & S_PURGE) {
810 810 purgesize += seg->s_size;
811 811 continue;
812 812 }
813 813
814 814 newseg = seg_alloc(newas, seg->s_base, seg->s_size);
↓ open down ↓ |
85 lines elided |
↑ open up ↑ |
815 815 if (newseg == NULL) {
816 816 AS_LOCK_EXIT(newas, &newas->a_lock);
817 817 as_setwatch(as);
818 818 mutex_enter(&as->a_contents);
819 819 AS_CLRBUSY(as);
820 820 mutex_exit(&as->a_contents);
821 821 AS_LOCK_EXIT(as, &as->a_lock);
822 822 as_free(newas);
823 823 return (-1);
824 824 }
825 - if ((error = SEGOP_DUP(seg, newseg)) != 0) {
825 + if ((error = segop_dup(seg, newseg)) != 0) {
826 826 /*
827 827 * We call seg_free() on the new seg
828 828 * because the segment is not set up
829 829 * completely; i.e. it has no ops.
830 830 */
831 831 as_setwatch(as);
832 832 mutex_enter(&as->a_contents);
833 833 AS_CLRBUSY(as);
834 834 mutex_exit(&as->a_contents);
835 835 AS_LOCK_EXIT(as, &as->a_lock);
836 836 seg_free(newseg);
837 837 AS_LOCK_EXIT(newas, &newas->a_lock);
838 838 as_free(newas);
839 839 return (error);
840 840 }
841 841 newas->a_size += seg->s_size;
842 842 }
843 843 newas->a_resvsize = as->a_resvsize - purgesize;
844 844
845 845 error = hat_dup(as->a_hat, newas->a_hat, NULL, 0, HAT_DUP_ALL);
846 846 if (as->a_xhat != NULL)
847 847 error |= xhat_dup_all(as, newas, NULL, 0, HAT_DUP_ALL);
848 848
849 849 mutex_enter(&newas->a_contents);
850 850 AS_CLRBUSY(newas);
851 851 mutex_exit(&newas->a_contents);
852 852 AS_LOCK_EXIT(newas, &newas->a_lock);
853 853
854 854 as_setwatch(as);
855 855 mutex_enter(&as->a_contents);
856 856 AS_CLRBUSY(as);
857 857 mutex_exit(&as->a_contents);
858 858 AS_LOCK_EXIT(as, &as->a_lock);
859 859 if (error != 0) {
860 860 as_free(newas);
861 861 return (error);
862 862 }
863 863 forkedproc->p_as = newas;
864 864 return (0);
865 865 }
866 866
867 867 /*
868 868 * Handle a ``fault'' at addr for size bytes.
869 869 */
870 870 faultcode_t
871 871 as_fault(struct hat *hat, struct as *as, caddr_t addr, size_t size,
872 872 enum fault_type type, enum seg_rw rw)
873 873 {
874 874 struct seg *seg;
875 875 caddr_t raddr; /* rounded down addr */
876 876 size_t rsize; /* rounded up size */
877 877 size_t ssize;
878 878 faultcode_t res = 0;
879 879 caddr_t addrsav;
880 880 struct seg *segsav;
881 881 int as_lock_held;
882 882 klwp_t *lwp = ttolwp(curthread);
883 883 int is_xhat = 0;
884 884 int holding_wpage = 0;
885 885 extern struct seg_ops segdev_ops;
886 886
887 887
888 888
889 889 if (as->a_hat != hat) {
890 890 /* This must be an XHAT then */
891 891 is_xhat = 1;
892 892
893 893 if ((type != F_INVAL) || (as == &kas))
894 894 return (FC_NOSUPPORT);
895 895 }
896 896
897 897 retry:
898 898 if (!is_xhat) {
899 899 /*
900 900 * Indicate that the lwp is not to be stopped while waiting
901 901 * for a pagefault. This is to avoid deadlock while debugging
902 902 * a process via /proc over NFS (in particular).
903 903 */
904 904 if (lwp != NULL)
905 905 lwp->lwp_nostop++;
906 906
907 907 /*
908 908 * same length must be used when we softlock and softunlock.
909 909 * We don't support softunlocking lengths less than
910 910 * the original length when there is largepage support.
911 911 * See seg_dev.c for more comments.
912 912 */
913 913 switch (type) {
914 914
915 915 case F_SOFTLOCK:
916 916 CPU_STATS_ADD_K(vm, softlock, 1);
917 917 break;
918 918
919 919 case F_SOFTUNLOCK:
920 920 break;
921 921
922 922 case F_PROT:
923 923 CPU_STATS_ADD_K(vm, prot_fault, 1);
924 924 break;
925 925
926 926 case F_INVAL:
927 927 CPU_STATS_ENTER_K();
928 928 CPU_STATS_ADDQ(CPU, vm, as_fault, 1);
929 929 if (as == &kas)
930 930 CPU_STATS_ADDQ(CPU, vm, kernel_asflt, 1);
931 931 CPU_STATS_EXIT_K();
932 932 break;
933 933 }
934 934 }
935 935
936 936 /* Kernel probe */
937 937 TNF_PROBE_3(address_fault, "vm pagefault", /* CSTYLED */,
938 938 tnf_opaque, address, addr,
939 939 tnf_fault_type, fault_type, type,
940 940 tnf_seg_access, access, rw);
941 941
942 942 raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
943 943 rsize = (((size_t)(addr + size) + PAGEOFFSET) & PAGEMASK) -
944 944 (size_t)raddr;
945 945
946 946 /*
947 947 * XXX -- Don't grab the as lock for segkmap. We should grab it for
948 948 * correctness, but then we could be stuck holding this lock for
949 949 * a LONG time if the fault needs to be resolved on a slow
950 950 * filesystem, and then no-one will be able to exec new commands,
951 951 * as exec'ing requires the write lock on the as.
952 952 */
953 953 if (as == &kas && segkmap && segkmap->s_base <= raddr &&
954 954 raddr + size < segkmap->s_base + segkmap->s_size) {
955 955 /*
956 956 * if (as==&kas), this can't be XHAT: we've already returned
957 957 * FC_NOSUPPORT.
958 958 */
959 959 seg = segkmap;
960 960 as_lock_held = 0;
961 961 } else {
962 962 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
963 963 if (is_xhat && avl_numnodes(&as->a_wpage) != 0) {
964 964 /*
965 965 * Grab and hold the writers' lock on the as
966 966 * if the fault is to a watched page.
967 967 * This will keep CPUs from "peeking" at the
968 968 * address range while we're temporarily boosting
969 969 * the permissions for the XHAT device to
970 970 * resolve the fault in the segment layer.
971 971 *
972 972 * We could check whether faulted address
973 973 * is within a watched page and only then grab
974 974 * the writer lock, but this is simpler.
975 975 */
976 976 AS_LOCK_EXIT(as, &as->a_lock);
977 977 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
978 978 }
979 979
980 980 seg = as_segat(as, raddr);
981 981 if (seg == NULL) {
982 982 AS_LOCK_EXIT(as, &as->a_lock);
983 983 if ((lwp != NULL) && (!is_xhat))
984 984 lwp->lwp_nostop--;
985 985 return (FC_NOMAP);
986 986 }
987 987
988 988 as_lock_held = 1;
989 989 }
990 990
991 991 addrsav = raddr;
992 992 segsav = seg;
993 993
994 994 for (; rsize != 0; rsize -= ssize, raddr += ssize) {
995 995 if (raddr >= seg->s_base + seg->s_size) {
996 996 seg = AS_SEGNEXT(as, seg);
997 997 if (seg == NULL || raddr != seg->s_base) {
998 998 res = FC_NOMAP;
999 999 break;
1000 1000 }
1001 1001 }
1002 1002 if (raddr + rsize > seg->s_base + seg->s_size)
1003 1003 ssize = seg->s_base + seg->s_size - raddr;
1004 1004 else
1005 1005 ssize = rsize;
1006 1006
1007 1007 if (!is_xhat || (seg->s_ops != &segdev_ops)) {
1008 1008
1009 1009 if (is_xhat && avl_numnodes(&as->a_wpage) != 0 &&
1010 1010 pr_is_watchpage_as(raddr, rw, as)) {
↓ open down ↓ |
175 lines elided |
↑ open up ↑ |
1011 1011 /*
1012 1012 * Handle watch pages. If we're faulting on a
1013 1013 * watched page from an X-hat, we have to
1014 1014 * restore the original permissions while we
1015 1015 * handle the fault.
1016 1016 */
1017 1017 as_clearwatch(as);
1018 1018 holding_wpage = 1;
1019 1019 }
1020 1020
1021 - res = SEGOP_FAULT(hat, seg, raddr, ssize, type, rw);
1021 + res = segop_fault(hat, seg, raddr, ssize, type, rw);
1022 1022
1023 1023 /* Restore watchpoints */
1024 1024 if (holding_wpage) {
1025 1025 as_setwatch(as);
1026 1026 holding_wpage = 0;
1027 1027 }
1028 1028
1029 1029 if (res != 0)
1030 1030 break;
1031 1031 } else {
1032 1032 /* XHAT does not support seg_dev */
1033 1033 res = FC_NOSUPPORT;
1034 1034 break;
1035 1035 }
1036 1036 }
1037 1037
1038 1038 /*
1039 1039 * If we were SOFTLOCKing and encountered a failure,
1040 1040 * we must SOFTUNLOCK the range we already did. (Maybe we
1041 1041 * should just panic if we are SOFTLOCKing or even SOFTUNLOCKing
1042 1042 * right here...)
1043 1043 */
1044 1044 if (res != 0 && type == F_SOFTLOCK) {
1045 1045 for (seg = segsav; addrsav < raddr; addrsav += ssize) {
1046 1046 if (addrsav >= seg->s_base + seg->s_size)
1047 1047 seg = AS_SEGNEXT(as, seg);
↓ open down ↓ |
16 lines elided |
↑ open up ↑ |
1048 1048 ASSERT(seg != NULL);
1049 1049 /*
1050 1050 * Now call the fault routine again to perform the
1051 1051 * unlock using S_OTHER instead of the rw variable
1052 1052 * since we never got a chance to touch the pages.
1053 1053 */
1054 1054 if (raddr > seg->s_base + seg->s_size)
1055 1055 ssize = seg->s_base + seg->s_size - addrsav;
1056 1056 else
1057 1057 ssize = raddr - addrsav;
1058 - (void) SEGOP_FAULT(hat, seg, addrsav, ssize,
1058 + (void) segop_fault(hat, seg, addrsav, ssize,
1059 1059 F_SOFTUNLOCK, S_OTHER);
1060 1060 }
1061 1061 }
1062 1062 if (as_lock_held)
1063 1063 AS_LOCK_EXIT(as, &as->a_lock);
1064 1064 if ((lwp != NULL) && (!is_xhat))
1065 1065 lwp->lwp_nostop--;
1066 1066
1067 1067 /*
1068 1068 * If the lower levels returned EDEADLK for a fault,
1069 1069 * It means that we should retry the fault. Let's wait
1070 1070 * a bit also to let the deadlock causing condition clear.
1071 1071 * This is part of a gross hack to work around a design flaw
1072 1072 * in the ufs/sds logging code and should go away when the
1073 1073 * logging code is re-designed to fix the problem. See bug
1074 1074 * 4125102 for details of the problem.
1075 1075 */
1076 1076 if (FC_ERRNO(res) == EDEADLK) {
1077 1077 delay(deadlk_wait);
1078 1078 res = 0;
1079 1079 goto retry;
1080 1080 }
1081 1081 return (res);
1082 1082 }
1083 1083
1084 1084
1085 1085
1086 1086 /*
1087 1087 * Asynchronous ``fault'' at addr for size bytes.
1088 1088 */
1089 1089 faultcode_t
1090 1090 as_faulta(struct as *as, caddr_t addr, size_t size)
1091 1091 {
1092 1092 struct seg *seg;
1093 1093 caddr_t raddr; /* rounded down addr */
1094 1094 size_t rsize; /* rounded up size */
1095 1095 faultcode_t res = 0;
1096 1096 klwp_t *lwp = ttolwp(curthread);
1097 1097
1098 1098 retry:
1099 1099 /*
1100 1100 * Indicate that the lwp is not to be stopped while waiting
1101 1101 * for a pagefault. This is to avoid deadlock while debugging
1102 1102 * a process via /proc over NFS (in particular).
1103 1103 */
1104 1104 if (lwp != NULL)
1105 1105 lwp->lwp_nostop++;
1106 1106
1107 1107 raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
1108 1108 rsize = (((size_t)(addr + size) + PAGEOFFSET) & PAGEMASK) -
1109 1109 (size_t)raddr;
1110 1110
1111 1111 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
1112 1112 seg = as_segat(as, raddr);
1113 1113 if (seg == NULL) {
1114 1114 AS_LOCK_EXIT(as, &as->a_lock);
1115 1115 if (lwp != NULL)
1116 1116 lwp->lwp_nostop--;
1117 1117 return (FC_NOMAP);
↓ open down ↓ |
49 lines elided |
↑ open up ↑ |
1118 1118 }
1119 1119
1120 1120 for (; rsize != 0; rsize -= PAGESIZE, raddr += PAGESIZE) {
1121 1121 if (raddr >= seg->s_base + seg->s_size) {
1122 1122 seg = AS_SEGNEXT(as, seg);
1123 1123 if (seg == NULL || raddr != seg->s_base) {
1124 1124 res = FC_NOMAP;
1125 1125 break;
1126 1126 }
1127 1127 }
1128 - res = SEGOP_FAULTA(seg, raddr);
1128 + res = segop_faulta(seg, raddr);
1129 1129 if (res != 0)
1130 1130 break;
1131 1131 }
1132 1132 AS_LOCK_EXIT(as, &as->a_lock);
1133 1133 if (lwp != NULL)
1134 1134 lwp->lwp_nostop--;
1135 1135 /*
1136 1136 * If the lower levels returned EDEADLK for a fault,
1137 1137 * It means that we should retry the fault. Let's wait
1138 1138 * a bit also to let the deadlock causing condition clear.
1139 1139 * This is part of a gross hack to work around a design flaw
1140 1140 * in the ufs/sds logging code and should go away when the
1141 1141 * logging code is re-designed to fix the problem. See bug
1142 1142 * 4125102 for details of the problem.
1143 1143 */
1144 1144 if (FC_ERRNO(res) == EDEADLK) {
1145 1145 delay(deadlk_wait);
1146 1146 res = 0;
1147 1147 goto retry;
1148 1148 }
1149 1149 return (res);
1150 1150 }
1151 1151
1152 1152 /*
1153 1153 * Set the virtual mapping for the interval from [addr : addr + size)
1154 1154 * in address space `as' to have the specified protection.
1155 1155 * It is ok for the range to cross over several segments,
1156 1156 * as long as they are contiguous.
1157 1157 */
1158 1158 int
1159 1159 as_setprot(struct as *as, caddr_t addr, size_t size, uint_t prot)
1160 1160 {
1161 1161 struct seg *seg;
1162 1162 struct as_callback *cb;
1163 1163 size_t ssize;
1164 1164 caddr_t raddr; /* rounded down addr */
1165 1165 size_t rsize; /* rounded up size */
1166 1166 int error = 0, writer = 0;
1167 1167 caddr_t saveraddr;
1168 1168 size_t saversize;
1169 1169
1170 1170 setprot_top:
1171 1171 raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
1172 1172 rsize = (((size_t)(addr + size) + PAGEOFFSET) & PAGEMASK) -
1173 1173 (size_t)raddr;
1174 1174
1175 1175 if (raddr + rsize < raddr) /* check for wraparound */
1176 1176 return (ENOMEM);
1177 1177
1178 1178 saveraddr = raddr;
1179 1179 saversize = rsize;
1180 1180
1181 1181 /*
1182 1182 * Normally we only lock the as as a reader. But
1183 1183 * if due to setprot the segment driver needs to split
1184 1184 * a segment it will return IE_RETRY. Therefore we re-acquire
1185 1185 * the as lock as a writer so the segment driver can change
1186 1186 * the seg list. Also the segment driver will return IE_RETRY
1187 1187 * after it has changed the segment list so we therefore keep
1188 1188 * locking as a writer. Since these opeartions should be rare
1189 1189 * want to only lock as a writer when necessary.
1190 1190 */
1191 1191 if (writer || avl_numnodes(&as->a_wpage) != 0) {
1192 1192 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
1193 1193 } else {
1194 1194 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
1195 1195 }
1196 1196
1197 1197 as_clearwatchprot(as, raddr, rsize);
1198 1198 seg = as_segat(as, raddr);
1199 1199 if (seg == NULL) {
1200 1200 as_setwatch(as);
1201 1201 AS_LOCK_EXIT(as, &as->a_lock);
1202 1202 return (ENOMEM);
1203 1203 }
1204 1204
1205 1205 for (; rsize != 0; rsize -= ssize, raddr += ssize) {
1206 1206 if (raddr >= seg->s_base + seg->s_size) {
1207 1207 seg = AS_SEGNEXT(as, seg);
↓ open down ↓ |
69 lines elided |
↑ open up ↑ |
1208 1208 if (seg == NULL || raddr != seg->s_base) {
1209 1209 error = ENOMEM;
1210 1210 break;
1211 1211 }
1212 1212 }
1213 1213 if ((raddr + rsize) > (seg->s_base + seg->s_size))
1214 1214 ssize = seg->s_base + seg->s_size - raddr;
1215 1215 else
1216 1216 ssize = rsize;
1217 1217 retry:
1218 - error = SEGOP_SETPROT(seg, raddr, ssize, prot);
1218 + error = segop_setprot(seg, raddr, ssize, prot);
1219 1219
1220 1220 if (error == IE_NOMEM) {
1221 1221 error = EAGAIN;
1222 1222 break;
1223 1223 }
1224 1224
1225 1225 if (error == IE_RETRY) {
1226 1226 AS_LOCK_EXIT(as, &as->a_lock);
1227 1227 writer = 1;
1228 1228 goto setprot_top;
1229 1229 }
1230 1230
1231 1231 if (error == EAGAIN) {
1232 1232 /*
1233 1233 * Make sure we have a_lock as writer.
1234 1234 */
1235 1235 if (writer == 0) {
1236 1236 AS_LOCK_EXIT(as, &as->a_lock);
1237 1237 writer = 1;
1238 1238 goto setprot_top;
1239 1239 }
1240 1240
1241 1241 /*
1242 1242 * Memory is currently locked. It must be unlocked
1243 1243 * before this operation can succeed through a retry.
1244 1244 * The possible reasons for locked memory and
1245 1245 * corresponding strategies for unlocking are:
1246 1246 * (1) Normal I/O
1247 1247 * wait for a signal that the I/O operation
1248 1248 * has completed and the memory is unlocked.
1249 1249 * (2) Asynchronous I/O
1250 1250 * The aio subsystem does not unlock pages when
1251 1251 * the I/O is completed. Those pages are unlocked
1252 1252 * when the application calls aiowait/aioerror.
1253 1253 * So, to prevent blocking forever, cv_broadcast()
1254 1254 * is done to wake up aio_cleanup_thread.
1255 1255 * Subsequently, segvn_reclaim will be called, and
1256 1256 * that will do AS_CLRUNMAPWAIT() and wake us up.
1257 1257 * (3) Long term page locking:
1258 1258 * Drivers intending to have pages locked for a
1259 1259 * period considerably longer than for normal I/O
1260 1260 * (essentially forever) may have registered for a
1261 1261 * callback so they may unlock these pages on
1262 1262 * request. This is needed to allow this operation
1263 1263 * to succeed. Each entry on the callback list is
1264 1264 * examined. If the event or address range pertains
1265 1265 * the callback is invoked (unless it already is in
1266 1266 * progress). The a_contents lock must be dropped
1267 1267 * before the callback, so only one callback can
1268 1268 * be done at a time. Go to the top and do more
1269 1269 * until zero is returned. If zero is returned,
1270 1270 * either there were no callbacks for this event
1271 1271 * or they were already in progress.
1272 1272 */
1273 1273 mutex_enter(&as->a_contents);
1274 1274 if (as->a_callbacks &&
1275 1275 (cb = as_find_callback(as, AS_SETPROT_EVENT,
1276 1276 seg->s_base, seg->s_size))) {
1277 1277 AS_LOCK_EXIT(as, &as->a_lock);
1278 1278 as_execute_callback(as, cb, AS_SETPROT_EVENT);
1279 1279 } else if (!AS_ISNOUNMAPWAIT(as)) {
1280 1280 if (AS_ISUNMAPWAIT(as) == 0)
1281 1281 cv_broadcast(&as->a_cv);
1282 1282 AS_SETUNMAPWAIT(as);
1283 1283 AS_LOCK_EXIT(as, &as->a_lock);
1284 1284 while (AS_ISUNMAPWAIT(as))
1285 1285 cv_wait(&as->a_cv, &as->a_contents);
1286 1286 } else {
1287 1287 /*
1288 1288 * We may have raced with
1289 1289 * segvn_reclaim()/segspt_reclaim(). In this
1290 1290 * case clean nounmapwait flag and retry since
1291 1291 * softlockcnt in this segment may be already
1292 1292 * 0. We don't drop as writer lock so our
1293 1293 * number of retries without sleeping should
1294 1294 * be very small. See segvn_reclaim() for
1295 1295 * more comments.
1296 1296 */
1297 1297 AS_CLRNOUNMAPWAIT(as);
1298 1298 mutex_exit(&as->a_contents);
1299 1299 goto retry;
1300 1300 }
1301 1301 mutex_exit(&as->a_contents);
1302 1302 goto setprot_top;
1303 1303 } else if (error != 0)
1304 1304 break;
1305 1305 }
1306 1306 if (error != 0) {
1307 1307 as_setwatch(as);
1308 1308 } else {
1309 1309 as_setwatchprot(as, saveraddr, saversize, prot);
1310 1310 }
1311 1311 AS_LOCK_EXIT(as, &as->a_lock);
1312 1312 return (error);
1313 1313 }
1314 1314
1315 1315 /*
1316 1316 * Check to make sure that the interval [addr, addr + size)
1317 1317 * in address space `as' has at least the specified protection.
1318 1318 * It is ok for the range to cross over several segments, as long
1319 1319 * as they are contiguous.
1320 1320 */
1321 1321 int
1322 1322 as_checkprot(struct as *as, caddr_t addr, size_t size, uint_t prot)
1323 1323 {
1324 1324 struct seg *seg;
1325 1325 size_t ssize;
1326 1326 caddr_t raddr; /* rounded down addr */
1327 1327 size_t rsize; /* rounded up size */
1328 1328 int error = 0;
1329 1329
1330 1330 raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
1331 1331 rsize = (((size_t)(addr + size) + PAGEOFFSET) & PAGEMASK) -
1332 1332 (size_t)raddr;
1333 1333
1334 1334 if (raddr + rsize < raddr) /* check for wraparound */
1335 1335 return (ENOMEM);
1336 1336
1337 1337 /*
1338 1338 * This is ugly as sin...
1339 1339 * Normally, we only acquire the address space readers lock.
1340 1340 * However, if the address space has watchpoints present,
1341 1341 * we must acquire the writer lock on the address space for
1342 1342 * the benefit of as_clearwatchprot() and as_setwatchprot().
1343 1343 */
1344 1344 if (avl_numnodes(&as->a_wpage) != 0)
1345 1345 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
1346 1346 else
1347 1347 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
1348 1348 as_clearwatchprot(as, raddr, rsize);
1349 1349 seg = as_segat(as, raddr);
1350 1350 if (seg == NULL) {
1351 1351 as_setwatch(as);
1352 1352 AS_LOCK_EXIT(as, &as->a_lock);
1353 1353 return (ENOMEM);
1354 1354 }
1355 1355
1356 1356 for (; rsize != 0; rsize -= ssize, raddr += ssize) {
1357 1357 if (raddr >= seg->s_base + seg->s_size) {
1358 1358 seg = AS_SEGNEXT(as, seg);
↓ open down ↓ |
130 lines elided |
↑ open up ↑ |
1359 1359 if (seg == NULL || raddr != seg->s_base) {
1360 1360 error = ENOMEM;
1361 1361 break;
1362 1362 }
1363 1363 }
1364 1364 if ((raddr + rsize) > (seg->s_base + seg->s_size))
1365 1365 ssize = seg->s_base + seg->s_size - raddr;
1366 1366 else
1367 1367 ssize = rsize;
1368 1368
1369 - error = SEGOP_CHECKPROT(seg, raddr, ssize, prot);
1369 + error = segop_checkprot(seg, raddr, ssize, prot);
1370 1370 if (error != 0)
1371 1371 break;
1372 1372 }
1373 1373 as_setwatch(as);
1374 1374 AS_LOCK_EXIT(as, &as->a_lock);
1375 1375 return (error);
1376 1376 }
1377 1377
1378 1378 int
1379 1379 as_unmap(struct as *as, caddr_t addr, size_t size)
1380 1380 {
1381 1381 struct seg *seg, *seg_next;
1382 1382 struct as_callback *cb;
1383 1383 caddr_t raddr, eaddr;
1384 1384 size_t ssize, rsize = 0;
1385 1385 int err;
1386 1386
1387 1387 top:
1388 1388 raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
1389 1389 eaddr = (caddr_t)(((uintptr_t)(addr + size) + PAGEOFFSET) &
1390 1390 (uintptr_t)PAGEMASK);
1391 1391
1392 1392 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
1393 1393
1394 1394 as->a_updatedir = 1; /* inform /proc */
1395 1395 gethrestime(&as->a_updatetime);
1396 1396
1397 1397 /*
1398 1398 * Use as_findseg to find the first segment in the range, then
1399 1399 * step through the segments in order, following s_next.
1400 1400 */
1401 1401 as_clearwatchprot(as, raddr, eaddr - raddr);
1402 1402
1403 1403 for (seg = as_findseg(as, raddr, 0); seg != NULL; seg = seg_next) {
1404 1404 if (eaddr <= seg->s_base)
1405 1405 break; /* eaddr was in a gap; all done */
1406 1406
1407 1407 /* this is implied by the test above */
1408 1408 ASSERT(raddr < eaddr);
1409 1409
1410 1410 if (raddr < seg->s_base)
1411 1411 raddr = seg->s_base; /* raddr was in a gap */
1412 1412
1413 1413 if (eaddr > (seg->s_base + seg->s_size))
1414 1414 ssize = seg->s_base + seg->s_size - raddr;
1415 1415 else
1416 1416 ssize = eaddr - raddr;
1417 1417
1418 1418 /*
1419 1419 * Save next segment pointer since seg can be
1420 1420 * destroyed during the segment unmap operation.
1421 1421 */
1422 1422 seg_next = AS_SEGNEXT(as, seg);
1423 1423
1424 1424 /*
↓ open down ↓ |
45 lines elided |
↑ open up ↑ |
1425 1425 * We didn't count /dev/null mappings, so ignore them here.
1426 1426 * We'll handle MAP_NORESERVE cases in segvn_unmap(). (Again,
1427 1427 * we have to do this check here while we have seg.)
1428 1428 */
1429 1429 rsize = 0;
1430 1430 if (!SEG_IS_DEVNULL_MAPPING(seg) &&
1431 1431 !SEG_IS_PARTIAL_RESV(seg))
1432 1432 rsize = ssize;
1433 1433
1434 1434 retry:
1435 - err = SEGOP_UNMAP(seg, raddr, ssize);
1435 + err = segop_unmap(seg, raddr, ssize);
1436 1436 if (err == EAGAIN) {
1437 1437 /*
1438 1438 * Memory is currently locked. It must be unlocked
1439 1439 * before this operation can succeed through a retry.
1440 1440 * The possible reasons for locked memory and
1441 1441 * corresponding strategies for unlocking are:
1442 1442 * (1) Normal I/O
1443 1443 * wait for a signal that the I/O operation
1444 1444 * has completed and the memory is unlocked.
1445 1445 * (2) Asynchronous I/O
1446 1446 * The aio subsystem does not unlock pages when
1447 1447 * the I/O is completed. Those pages are unlocked
1448 1448 * when the application calls aiowait/aioerror.
1449 1449 * So, to prevent blocking forever, cv_broadcast()
1450 1450 * is done to wake up aio_cleanup_thread.
1451 1451 * Subsequently, segvn_reclaim will be called, and
1452 1452 * that will do AS_CLRUNMAPWAIT() and wake us up.
1453 1453 * (3) Long term page locking:
1454 1454 * Drivers intending to have pages locked for a
1455 1455 * period considerably longer than for normal I/O
1456 1456 * (essentially forever) may have registered for a
1457 1457 * callback so they may unlock these pages on
1458 1458 * request. This is needed to allow this operation
1459 1459 * to succeed. Each entry on the callback list is
1460 1460 * examined. If the event or address range pertains
1461 1461 * the callback is invoked (unless it already is in
1462 1462 * progress). The a_contents lock must be dropped
1463 1463 * before the callback, so only one callback can
1464 1464 * be done at a time. Go to the top and do more
1465 1465 * until zero is returned. If zero is returned,
1466 1466 * either there were no callbacks for this event
1467 1467 * or they were already in progress.
1468 1468 */
1469 1469 mutex_enter(&as->a_contents);
1470 1470 if (as->a_callbacks &&
1471 1471 (cb = as_find_callback(as, AS_UNMAP_EVENT,
1472 1472 seg->s_base, seg->s_size))) {
1473 1473 AS_LOCK_EXIT(as, &as->a_lock);
1474 1474 as_execute_callback(as, cb, AS_UNMAP_EVENT);
1475 1475 } else if (!AS_ISNOUNMAPWAIT(as)) {
1476 1476 if (AS_ISUNMAPWAIT(as) == 0)
1477 1477 cv_broadcast(&as->a_cv);
1478 1478 AS_SETUNMAPWAIT(as);
1479 1479 AS_LOCK_EXIT(as, &as->a_lock);
1480 1480 while (AS_ISUNMAPWAIT(as))
1481 1481 cv_wait(&as->a_cv, &as->a_contents);
1482 1482 } else {
1483 1483 /*
1484 1484 * We may have raced with
1485 1485 * segvn_reclaim()/segspt_reclaim(). In this
1486 1486 * case clean nounmapwait flag and retry since
1487 1487 * softlockcnt in this segment may be already
1488 1488 * 0. We don't drop as writer lock so our
1489 1489 * number of retries without sleeping should
1490 1490 * be very small. See segvn_reclaim() for
1491 1491 * more comments.
1492 1492 */
1493 1493 AS_CLRNOUNMAPWAIT(as);
1494 1494 mutex_exit(&as->a_contents);
1495 1495 goto retry;
1496 1496 }
1497 1497 mutex_exit(&as->a_contents);
1498 1498 goto top;
1499 1499 } else if (err == IE_RETRY) {
1500 1500 AS_LOCK_EXIT(as, &as->a_lock);
1501 1501 goto top;
1502 1502 } else if (err) {
1503 1503 as_setwatch(as);
1504 1504 AS_LOCK_EXIT(as, &as->a_lock);
1505 1505 return (-1);
1506 1506 }
1507 1507
1508 1508 as->a_size -= ssize;
1509 1509 if (rsize)
1510 1510 as->a_resvsize -= rsize;
1511 1511 raddr += ssize;
1512 1512 }
1513 1513 AS_LOCK_EXIT(as, &as->a_lock);
1514 1514 return (0);
1515 1515 }
1516 1516
1517 1517 static int
1518 1518 as_map_segvn_segs(struct as *as, caddr_t addr, size_t size, uint_t szcvec,
1519 1519 int (*crfp)(), struct segvn_crargs *vn_a, int *segcreated)
1520 1520 {
1521 1521 uint_t szc;
1522 1522 uint_t nszc;
1523 1523 int error;
1524 1524 caddr_t a;
1525 1525 caddr_t eaddr;
1526 1526 size_t segsize;
1527 1527 struct seg *seg;
1528 1528 size_t pgsz;
1529 1529 int do_off = (vn_a->vp != NULL || vn_a->amp != NULL);
1530 1530 uint_t save_szcvec;
1531 1531
1532 1532 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
1533 1533 ASSERT(IS_P2ALIGNED(addr, PAGESIZE));
1534 1534 ASSERT(IS_P2ALIGNED(size, PAGESIZE));
1535 1535 ASSERT(vn_a->vp == NULL || vn_a->amp == NULL);
1536 1536 if (!do_off) {
1537 1537 vn_a->offset = 0;
1538 1538 }
1539 1539
1540 1540 if (szcvec <= 1) {
1541 1541 seg = seg_alloc(as, addr, size);
1542 1542 if (seg == NULL) {
1543 1543 return (ENOMEM);
1544 1544 }
1545 1545 vn_a->szc = 0;
1546 1546 error = (*crfp)(seg, vn_a);
1547 1547 if (error != 0) {
1548 1548 seg_free(seg);
1549 1549 } else {
1550 1550 as->a_size += size;
1551 1551 as->a_resvsize += size;
1552 1552 }
1553 1553 return (error);
1554 1554 }
1555 1555
1556 1556 eaddr = addr + size;
1557 1557 save_szcvec = szcvec;
1558 1558 szcvec >>= 1;
1559 1559 szc = 0;
1560 1560 nszc = 0;
1561 1561 while (szcvec) {
1562 1562 if ((szcvec & 0x1) == 0) {
1563 1563 nszc++;
1564 1564 szcvec >>= 1;
1565 1565 continue;
1566 1566 }
1567 1567 nszc++;
1568 1568 pgsz = page_get_pagesize(nszc);
1569 1569 a = (caddr_t)P2ROUNDUP((uintptr_t)addr, pgsz);
1570 1570 if (a != addr) {
1571 1571 ASSERT(a < eaddr);
1572 1572 segsize = a - addr;
1573 1573 seg = seg_alloc(as, addr, segsize);
1574 1574 if (seg == NULL) {
1575 1575 return (ENOMEM);
1576 1576 }
1577 1577 vn_a->szc = szc;
1578 1578 error = (*crfp)(seg, vn_a);
1579 1579 if (error != 0) {
1580 1580 seg_free(seg);
1581 1581 return (error);
1582 1582 }
1583 1583 as->a_size += segsize;
1584 1584 as->a_resvsize += segsize;
1585 1585 *segcreated = 1;
1586 1586 if (do_off) {
1587 1587 vn_a->offset += segsize;
1588 1588 }
1589 1589 addr = a;
1590 1590 }
1591 1591 szc = nszc;
1592 1592 szcvec >>= 1;
1593 1593 }
1594 1594
1595 1595 ASSERT(addr < eaddr);
1596 1596 szcvec = save_szcvec | 1; /* add 8K pages */
1597 1597 while (szcvec) {
1598 1598 a = (caddr_t)P2ALIGN((uintptr_t)eaddr, pgsz);
1599 1599 ASSERT(a >= addr);
1600 1600 if (a != addr) {
1601 1601 segsize = a - addr;
1602 1602 seg = seg_alloc(as, addr, segsize);
1603 1603 if (seg == NULL) {
1604 1604 return (ENOMEM);
1605 1605 }
1606 1606 vn_a->szc = szc;
1607 1607 error = (*crfp)(seg, vn_a);
1608 1608 if (error != 0) {
1609 1609 seg_free(seg);
1610 1610 return (error);
1611 1611 }
1612 1612 as->a_size += segsize;
1613 1613 as->a_resvsize += segsize;
1614 1614 *segcreated = 1;
1615 1615 if (do_off) {
1616 1616 vn_a->offset += segsize;
1617 1617 }
1618 1618 addr = a;
1619 1619 }
1620 1620 szcvec &= ~(1 << szc);
1621 1621 if (szcvec) {
1622 1622 szc = highbit(szcvec) - 1;
1623 1623 pgsz = page_get_pagesize(szc);
1624 1624 }
1625 1625 }
1626 1626 ASSERT(addr == eaddr);
1627 1627
1628 1628 return (0);
1629 1629 }
1630 1630
1631 1631 static int
1632 1632 as_map_vnsegs(struct as *as, caddr_t addr, size_t size,
1633 1633 int (*crfp)(), struct segvn_crargs *vn_a, int *segcreated)
1634 1634 {
1635 1635 uint_t mapflags = vn_a->flags & (MAP_TEXT | MAP_INITDATA);
1636 1636 int type = (vn_a->type == MAP_SHARED) ? MAPPGSZC_SHM : MAPPGSZC_PRIVM;
1637 1637 uint_t szcvec = map_pgszcvec(addr, size, (uintptr_t)addr, mapflags,
1638 1638 type, 0);
1639 1639 int error;
1640 1640 struct seg *seg;
1641 1641 struct vattr va;
1642 1642 u_offset_t eoff;
1643 1643 size_t save_size = 0;
1644 1644 extern size_t textrepl_size_thresh;
1645 1645
1646 1646 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
1647 1647 ASSERT(IS_P2ALIGNED(addr, PAGESIZE));
1648 1648 ASSERT(IS_P2ALIGNED(size, PAGESIZE));
1649 1649 ASSERT(vn_a->vp != NULL);
1650 1650 ASSERT(vn_a->amp == NULL);
1651 1651
1652 1652 again:
1653 1653 if (szcvec <= 1) {
1654 1654 seg = seg_alloc(as, addr, size);
1655 1655 if (seg == NULL) {
1656 1656 return (ENOMEM);
1657 1657 }
1658 1658 vn_a->szc = 0;
1659 1659 error = (*crfp)(seg, vn_a);
1660 1660 if (error != 0) {
1661 1661 seg_free(seg);
1662 1662 } else {
1663 1663 as->a_size += size;
1664 1664 as->a_resvsize += size;
1665 1665 }
1666 1666 return (error);
1667 1667 }
1668 1668
1669 1669 va.va_mask = AT_SIZE;
1670 1670 if (VOP_GETATTR(vn_a->vp, &va, ATTR_HINT, vn_a->cred, NULL) != 0) {
1671 1671 szcvec = 0;
1672 1672 goto again;
1673 1673 }
1674 1674 eoff = vn_a->offset & PAGEMASK;
1675 1675 if (eoff >= va.va_size) {
1676 1676 szcvec = 0;
1677 1677 goto again;
1678 1678 }
1679 1679 eoff += size;
1680 1680 if (btopr(va.va_size) < btopr(eoff)) {
1681 1681 save_size = size;
1682 1682 size = va.va_size - (vn_a->offset & PAGEMASK);
1683 1683 size = P2ROUNDUP_TYPED(size, PAGESIZE, size_t);
1684 1684 szcvec = map_pgszcvec(addr, size, (uintptr_t)addr, mapflags,
1685 1685 type, 0);
1686 1686 if (szcvec <= 1) {
1687 1687 size = save_size;
1688 1688 goto again;
1689 1689 }
1690 1690 }
1691 1691
1692 1692 if (size > textrepl_size_thresh) {
1693 1693 vn_a->flags |= _MAP_TEXTREPL;
1694 1694 }
1695 1695 error = as_map_segvn_segs(as, addr, size, szcvec, crfp, vn_a,
1696 1696 segcreated);
1697 1697 if (error != 0) {
1698 1698 return (error);
1699 1699 }
1700 1700 if (save_size) {
1701 1701 addr += size;
1702 1702 size = save_size - size;
1703 1703 szcvec = 0;
1704 1704 goto again;
1705 1705 }
1706 1706 return (0);
1707 1707 }
1708 1708
1709 1709 /*
1710 1710 * as_map_ansegs: shared or private anonymous memory. Note that the flags
1711 1711 * passed to map_pgszvec cannot be MAP_INITDATA, for anon.
1712 1712 */
1713 1713 static int
1714 1714 as_map_ansegs(struct as *as, caddr_t addr, size_t size,
1715 1715 int (*crfp)(), struct segvn_crargs *vn_a, int *segcreated)
1716 1716 {
1717 1717 uint_t szcvec;
1718 1718 uchar_t type;
1719 1719
1720 1720 ASSERT(vn_a->type == MAP_SHARED || vn_a->type == MAP_PRIVATE);
1721 1721 if (vn_a->type == MAP_SHARED) {
1722 1722 type = MAPPGSZC_SHM;
1723 1723 } else if (vn_a->type == MAP_PRIVATE) {
1724 1724 if (vn_a->szc == AS_MAP_HEAP) {
1725 1725 type = MAPPGSZC_HEAP;
1726 1726 } else if (vn_a->szc == AS_MAP_STACK) {
1727 1727 type = MAPPGSZC_STACK;
1728 1728 } else {
1729 1729 type = MAPPGSZC_PRIVM;
1730 1730 }
1731 1731 }
1732 1732 szcvec = map_pgszcvec(addr, size, vn_a->amp == NULL ?
1733 1733 (uintptr_t)addr : (uintptr_t)P2ROUNDUP(vn_a->offset, PAGESIZE),
1734 1734 (vn_a->flags & MAP_TEXT), type, 0);
1735 1735 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
1736 1736 ASSERT(IS_P2ALIGNED(addr, PAGESIZE));
1737 1737 ASSERT(IS_P2ALIGNED(size, PAGESIZE));
1738 1738 ASSERT(vn_a->vp == NULL);
1739 1739
1740 1740 return (as_map_segvn_segs(as, addr, size, szcvec,
1741 1741 crfp, vn_a, segcreated));
1742 1742 }
1743 1743
1744 1744 int
1745 1745 as_map(struct as *as, caddr_t addr, size_t size, int (*crfp)(), void *argsp)
1746 1746 {
1747 1747 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
1748 1748 return (as_map_locked(as, addr, size, crfp, argsp));
1749 1749 }
1750 1750
1751 1751 int
1752 1752 as_map_locked(struct as *as, caddr_t addr, size_t size, int (*crfp)(),
1753 1753 void *argsp)
1754 1754 {
1755 1755 struct seg *seg = NULL;
1756 1756 caddr_t raddr; /* rounded down addr */
1757 1757 size_t rsize; /* rounded up size */
1758 1758 int error;
1759 1759 int unmap = 0;
1760 1760 struct proc *p = curproc;
1761 1761 struct segvn_crargs crargs;
1762 1762
1763 1763 raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
1764 1764 rsize = (((size_t)(addr + size) + PAGEOFFSET) & PAGEMASK) -
1765 1765 (size_t)raddr;
1766 1766
1767 1767 /*
1768 1768 * check for wrap around
1769 1769 */
1770 1770 if ((raddr + rsize < raddr) || (as->a_size > (ULONG_MAX - size))) {
1771 1771 AS_LOCK_EXIT(as, &as->a_lock);
1772 1772 return (ENOMEM);
1773 1773 }
1774 1774
1775 1775 as->a_updatedir = 1; /* inform /proc */
1776 1776 gethrestime(&as->a_updatetime);
1777 1777
1778 1778 if (as != &kas && as->a_size + rsize > (size_t)p->p_vmem_ctl) {
1779 1779 AS_LOCK_EXIT(as, &as->a_lock);
1780 1780
1781 1781 (void) rctl_action(rctlproc_legacy[RLIMIT_VMEM], p->p_rctls, p,
1782 1782 RCA_UNSAFE_ALL);
1783 1783
1784 1784 return (ENOMEM);
1785 1785 }
1786 1786
1787 1787 if (AS_MAP_CHECK_VNODE_LPOOB(crfp, argsp)) {
1788 1788 crargs = *(struct segvn_crargs *)argsp;
1789 1789 error = as_map_vnsegs(as, raddr, rsize, crfp, &crargs, &unmap);
1790 1790 if (error != 0) {
1791 1791 AS_LOCK_EXIT(as, &as->a_lock);
1792 1792 if (unmap) {
1793 1793 (void) as_unmap(as, addr, size);
1794 1794 }
1795 1795 return (error);
1796 1796 }
1797 1797 } else if (AS_MAP_CHECK_ANON_LPOOB(crfp, argsp)) {
1798 1798 crargs = *(struct segvn_crargs *)argsp;
1799 1799 error = as_map_ansegs(as, raddr, rsize, crfp, &crargs, &unmap);
1800 1800 if (error != 0) {
1801 1801 AS_LOCK_EXIT(as, &as->a_lock);
1802 1802 if (unmap) {
1803 1803 (void) as_unmap(as, addr, size);
1804 1804 }
1805 1805 return (error);
1806 1806 }
1807 1807 } else {
1808 1808 seg = seg_alloc(as, addr, size);
1809 1809 if (seg == NULL) {
1810 1810 AS_LOCK_EXIT(as, &as->a_lock);
1811 1811 return (ENOMEM);
1812 1812 }
1813 1813
1814 1814 error = (*crfp)(seg, argsp);
1815 1815 if (error != 0) {
1816 1816 seg_free(seg);
1817 1817 AS_LOCK_EXIT(as, &as->a_lock);
1818 1818 return (error);
1819 1819 }
1820 1820 /*
1821 1821 * Add size now so as_unmap will work if as_ctl fails.
1822 1822 */
1823 1823 as->a_size += rsize;
1824 1824 as->a_resvsize += rsize;
1825 1825 }
1826 1826
1827 1827 as_setwatch(as);
1828 1828
1829 1829 /*
1830 1830 * If the address space is locked,
1831 1831 * establish memory locks for the new segment.
1832 1832 */
1833 1833 mutex_enter(&as->a_contents);
1834 1834 if (AS_ISPGLCK(as)) {
1835 1835 mutex_exit(&as->a_contents);
1836 1836 AS_LOCK_EXIT(as, &as->a_lock);
1837 1837 error = as_ctl(as, addr, size, MC_LOCK, 0, 0, NULL, 0);
1838 1838 if (error != 0)
1839 1839 (void) as_unmap(as, addr, size);
1840 1840 } else {
1841 1841 mutex_exit(&as->a_contents);
1842 1842 AS_LOCK_EXIT(as, &as->a_lock);
1843 1843 }
1844 1844 return (error);
1845 1845 }
1846 1846
1847 1847
1848 1848 /*
1849 1849 * Delete all segments in the address space marked with S_PURGE.
1850 1850 * This is currently used for Sparc V9 nofault ASI segments (seg_nf.c).
1851 1851 * These segments are deleted as a first step before calls to as_gap(), so
1852 1852 * that they don't affect mmap() or shmat().
1853 1853 */
1854 1854 void
1855 1855 as_purge(struct as *as)
1856 1856 {
1857 1857 struct seg *seg;
1858 1858 struct seg *next_seg;
1859 1859
1860 1860 /*
1861 1861 * the setting of NEEDSPURGE is protect by as_rangelock(), so
1862 1862 * no need to grab a_contents mutex for this check
↓ open down ↓ |
417 lines elided |
↑ open up ↑ |
1863 1863 */
1864 1864 if ((as->a_flags & AS_NEEDSPURGE) == 0)
1865 1865 return;
1866 1866
1867 1867 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
1868 1868 next_seg = NULL;
1869 1869 seg = AS_SEGFIRST(as);
1870 1870 while (seg != NULL) {
1871 1871 next_seg = AS_SEGNEXT(as, seg);
1872 1872 if (seg->s_flags & S_PURGE)
1873 - SEGOP_UNMAP(seg, seg->s_base, seg->s_size);
1873 + (void) segop_unmap(seg, seg->s_base, seg->s_size);
1874 1874 seg = next_seg;
1875 1875 }
1876 1876 AS_LOCK_EXIT(as, &as->a_lock);
1877 1877
1878 1878 mutex_enter(&as->a_contents);
1879 1879 as->a_flags &= ~AS_NEEDSPURGE;
1880 1880 mutex_exit(&as->a_contents);
1881 1881 }
1882 1882
1883 1883 /*
1884 1884 * Find a hole within [*basep, *basep + *lenp), which contains a mappable
1885 1885 * range of addresses at least "minlen" long, where the base of the range is
1886 1886 * at "off" phase from an "align" boundary and there is space for a
1887 1887 * "redzone"-sized redzone on eithe rside of the range. Thus,
1888 1888 * if align was 4M and off was 16k, the user wants a hole which will start
1889 1889 * 16k into a 4M page.
1890 1890 *
1891 1891 * If flags specifies AH_HI, the hole will have the highest possible address
1892 1892 * in the range. We use the as->a_lastgap field to figure out where to
1893 1893 * start looking for a gap.
1894 1894 *
1895 1895 * Otherwise, the gap will have the lowest possible address.
1896 1896 *
1897 1897 * If flags specifies AH_CONTAIN, the hole will contain the address addr.
1898 1898 *
1899 1899 * If an adequate hole is found, *basep and *lenp are set to reflect the part of
1900 1900 * the hole that is within range, and 0 is returned. On failure, -1 is returned.
1901 1901 *
1902 1902 * NOTE: This routine is not correct when base+len overflows caddr_t.
1903 1903 */
1904 1904 int
1905 1905 as_gap_aligned(struct as *as, size_t minlen, caddr_t *basep, size_t *lenp,
1906 1906 uint_t flags, caddr_t addr, size_t align, size_t redzone, size_t off)
1907 1907 {
1908 1908 caddr_t lobound = *basep;
1909 1909 caddr_t hibound = lobound + *lenp;
1910 1910 struct seg *lseg, *hseg;
1911 1911 caddr_t lo, hi;
1912 1912 int forward;
1913 1913 caddr_t save_base;
1914 1914 size_t save_len;
1915 1915 size_t save_minlen;
1916 1916 size_t save_redzone;
1917 1917 int fast_path = 1;
1918 1918
1919 1919 save_base = *basep;
1920 1920 save_len = *lenp;
1921 1921 save_minlen = minlen;
1922 1922 save_redzone = redzone;
1923 1923
1924 1924 /*
1925 1925 * For the first pass/fast_path, just add align and redzone into
1926 1926 * minlen since if we get an allocation, we can guarantee that it
1927 1927 * will fit the alignment and redzone requested.
1928 1928 * This increases the chance that hibound will be adjusted to
1929 1929 * a_lastgap->s_base which will likely allow us to find an
1930 1930 * acceptable hole in the address space quicker.
1931 1931 * If we can't find a hole with this fast_path, then we look for
1932 1932 * smaller holes in which the alignment and offset may allow
1933 1933 * the allocation to fit.
1934 1934 */
1935 1935 minlen += align;
1936 1936 minlen += 2 * redzone;
1937 1937 redzone = 0;
1938 1938
1939 1939 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
1940 1940 if (AS_SEGFIRST(as) == NULL) {
1941 1941 if (valid_va_range_aligned(basep, lenp, minlen, flags & AH_DIR,
1942 1942 align, redzone, off)) {
1943 1943 AS_LOCK_EXIT(as, &as->a_lock);
1944 1944 return (0);
1945 1945 } else {
1946 1946 AS_LOCK_EXIT(as, &as->a_lock);
1947 1947 *basep = save_base;
1948 1948 *lenp = save_len;
1949 1949 return (-1);
1950 1950 }
1951 1951 }
1952 1952
1953 1953 retry:
1954 1954 /*
1955 1955 * Set up to iterate over all the inter-segment holes in the given
1956 1956 * direction. lseg is NULL for the lowest-addressed hole and hseg is
1957 1957 * NULL for the highest-addressed hole. If moving backwards, we reset
1958 1958 * sseg to denote the highest-addressed segment.
1959 1959 */
1960 1960 forward = (flags & AH_DIR) == AH_LO;
1961 1961 if (forward) {
1962 1962 hseg = as_findseg(as, lobound, 1);
1963 1963 lseg = AS_SEGPREV(as, hseg);
1964 1964 } else {
1965 1965
1966 1966 /*
1967 1967 * If allocating at least as much as the last allocation,
1968 1968 * use a_lastgap's base as a better estimate of hibound.
1969 1969 */
1970 1970 if (as->a_lastgap &&
1971 1971 minlen >= as->a_lastgap->s_size &&
1972 1972 hibound >= as->a_lastgap->s_base)
1973 1973 hibound = as->a_lastgap->s_base;
1974 1974
1975 1975 hseg = as_findseg(as, hibound, 1);
1976 1976 if (hseg->s_base + hseg->s_size < hibound) {
1977 1977 lseg = hseg;
1978 1978 hseg = NULL;
1979 1979 } else {
1980 1980 lseg = AS_SEGPREV(as, hseg);
1981 1981 }
1982 1982 }
1983 1983
1984 1984 for (;;) {
1985 1985 /*
1986 1986 * Set lo and hi to the hole's boundaries. (We should really
1987 1987 * use MAXADDR in place of hibound in the expression below,
1988 1988 * but can't express it easily; using hibound in its place is
1989 1989 * harmless.)
1990 1990 */
1991 1991 lo = (lseg == NULL) ? 0 : lseg->s_base + lseg->s_size;
1992 1992 hi = (hseg == NULL) ? hibound : hseg->s_base;
1993 1993 /*
1994 1994 * If the iteration has moved past the interval from lobound
1995 1995 * to hibound it's pointless to continue.
1996 1996 */
1997 1997 if ((forward && lo > hibound) || (!forward && hi < lobound))
1998 1998 break;
1999 1999 else if (lo > hibound || hi < lobound)
2000 2000 goto cont;
2001 2001 /*
2002 2002 * Candidate hole lies at least partially within the allowable
2003 2003 * range. Restrict it to fall completely within that range,
2004 2004 * i.e., to [max(lo, lobound), min(hi, hibound)].
2005 2005 */
2006 2006 if (lo < lobound)
2007 2007 lo = lobound;
2008 2008 if (hi > hibound)
2009 2009 hi = hibound;
2010 2010 /*
2011 2011 * Verify that the candidate hole is big enough and meets
2012 2012 * hardware constraints. If the hole is too small, no need
2013 2013 * to do the further checks since they will fail.
2014 2014 */
2015 2015 *basep = lo;
2016 2016 *lenp = hi - lo;
2017 2017 if (*lenp >= minlen && valid_va_range_aligned(basep, lenp,
2018 2018 minlen, forward ? AH_LO : AH_HI, align, redzone, off) &&
2019 2019 ((flags & AH_CONTAIN) == 0 ||
2020 2020 (*basep <= addr && *basep + *lenp > addr))) {
2021 2021 if (!forward)
2022 2022 as->a_lastgap = hseg;
2023 2023 if (hseg != NULL)
2024 2024 as->a_lastgaphl = hseg;
2025 2025 else
2026 2026 as->a_lastgaphl = lseg;
2027 2027 AS_LOCK_EXIT(as, &as->a_lock);
2028 2028 return (0);
2029 2029 }
2030 2030 cont:
2031 2031 /*
2032 2032 * Move to the next hole.
2033 2033 */
2034 2034 if (forward) {
2035 2035 lseg = hseg;
2036 2036 if (lseg == NULL)
2037 2037 break;
2038 2038 hseg = AS_SEGNEXT(as, hseg);
2039 2039 } else {
2040 2040 hseg = lseg;
2041 2041 if (hseg == NULL)
2042 2042 break;
2043 2043 lseg = AS_SEGPREV(as, lseg);
2044 2044 }
2045 2045 }
2046 2046 if (fast_path && (align != 0 || save_redzone != 0)) {
2047 2047 fast_path = 0;
2048 2048 minlen = save_minlen;
2049 2049 redzone = save_redzone;
2050 2050 goto retry;
2051 2051 }
2052 2052 *basep = save_base;
2053 2053 *lenp = save_len;
2054 2054 AS_LOCK_EXIT(as, &as->a_lock);
2055 2055 return (-1);
2056 2056 }
2057 2057
2058 2058 /*
2059 2059 * Find a hole of at least size minlen within [*basep, *basep + *lenp).
2060 2060 *
2061 2061 * If flags specifies AH_HI, the hole will have the highest possible address
2062 2062 * in the range. We use the as->a_lastgap field to figure out where to
2063 2063 * start looking for a gap.
2064 2064 *
2065 2065 * Otherwise, the gap will have the lowest possible address.
2066 2066 *
2067 2067 * If flags specifies AH_CONTAIN, the hole will contain the address addr.
2068 2068 *
2069 2069 * If an adequate hole is found, base and len are set to reflect the part of
2070 2070 * the hole that is within range, and 0 is returned, otherwise,
2071 2071 * -1 is returned.
2072 2072 *
2073 2073 * NOTE: This routine is not correct when base+len overflows caddr_t.
2074 2074 */
2075 2075 int
2076 2076 as_gap(struct as *as, size_t minlen, caddr_t *basep, size_t *lenp, uint_t flags,
2077 2077 caddr_t addr)
2078 2078 {
2079 2079
2080 2080 return (as_gap_aligned(as, minlen, basep, lenp, flags, addr, 0, 0, 0));
2081 2081 }
2082 2082
2083 2083 /*
2084 2084 * Return the next range within [base, base + len) that is backed
2085 2085 * with "real memory". Skip holes and non-seg_vn segments.
2086 2086 * We're lazy and only return one segment at a time.
2087 2087 */
2088 2088 int
2089 2089 as_memory(struct as *as, caddr_t *basep, size_t *lenp)
2090 2090 {
2091 2091 extern struct seg_ops segspt_shmops; /* needs a header file */
2092 2092 struct seg *seg;
2093 2093 caddr_t addr, eaddr;
2094 2094 caddr_t segend;
2095 2095
2096 2096 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
2097 2097
2098 2098 addr = *basep;
2099 2099 eaddr = addr + *lenp;
2100 2100
2101 2101 seg = as_findseg(as, addr, 0);
2102 2102 if (seg != NULL)
2103 2103 addr = MAX(seg->s_base, addr);
2104 2104
2105 2105 for (;;) {
2106 2106 if (seg == NULL || addr >= eaddr || eaddr <= seg->s_base) {
2107 2107 AS_LOCK_EXIT(as, &as->a_lock);
2108 2108 return (EINVAL);
2109 2109 }
2110 2110
2111 2111 if (seg->s_ops == &segvn_ops) {
2112 2112 segend = seg->s_base + seg->s_size;
2113 2113 break;
2114 2114 }
2115 2115
2116 2116 /*
2117 2117 * We do ISM by looking into the private data
2118 2118 * to determine the real size of the segment.
2119 2119 */
2120 2120 if (seg->s_ops == &segspt_shmops) {
2121 2121 segend = seg->s_base + spt_realsize(seg);
2122 2122 if (addr < segend)
2123 2123 break;
2124 2124 }
2125 2125
2126 2126 seg = AS_SEGNEXT(as, seg);
2127 2127
2128 2128 if (seg != NULL)
2129 2129 addr = seg->s_base;
2130 2130 }
2131 2131
2132 2132 *basep = addr;
2133 2133
2134 2134 if (segend > eaddr)
2135 2135 *lenp = eaddr - addr;
2136 2136 else
2137 2137 *lenp = segend - addr;
2138 2138
2139 2139 AS_LOCK_EXIT(as, &as->a_lock);
2140 2140 return (0);
2141 2141 }
2142 2142
2143 2143 /*
2144 2144 * Swap the pages associated with the address space as out to
2145 2145 * secondary storage, returning the number of bytes actually
2146 2146 * swapped.
2147 2147 *
2148 2148 * The value returned is intended to correlate well with the process's
2149 2149 * memory requirements. Its usefulness for this purpose depends on
2150 2150 * how well the segment-level routines do at returning accurate
2151 2151 * information.
2152 2152 */
2153 2153 size_t
2154 2154 as_swapout(struct as *as)
2155 2155 {
2156 2156 struct seg *seg;
2157 2157 size_t swpcnt = 0;
2158 2158
2159 2159 /*
2160 2160 * Kernel-only processes have given up their address
2161 2161 * spaces. Of course, we shouldn't be attempting to
2162 2162 * swap out such processes in the first place...
2163 2163 */
2164 2164 if (as == NULL)
2165 2165 return (0);
2166 2166
2167 2167 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
2168 2168
2169 2169 /* Prevent XHATs from attaching */
2170 2170 mutex_enter(&as->a_contents);
2171 2171 AS_SETBUSY(as);
2172 2172 mutex_exit(&as->a_contents);
2173 2173
2174 2174
2175 2175 /*
2176 2176 * Free all mapping resources associated with the address
2177 2177 * space. The segment-level swapout routines capitalize
2178 2178 * on this unmapping by scavanging pages that have become
2179 2179 * unmapped here.
2180 2180 */
2181 2181 hat_swapout(as->a_hat);
2182 2182 if (as->a_xhat != NULL)
2183 2183 xhat_swapout_all(as);
2184 2184
2185 2185 mutex_enter(&as->a_contents);
2186 2186 AS_CLRBUSY(as);
2187 2187 mutex_exit(&as->a_contents);
2188 2188
2189 2189 /*
2190 2190 * Call the swapout routines of all segments in the address
2191 2191 * space to do the actual work, accumulating the amount of
2192 2192 * space reclaimed.
2193 2193 */
↓ open down ↓ |
310 lines elided |
↑ open up ↑ |
2194 2194 for (seg = AS_SEGFIRST(as); seg != NULL; seg = AS_SEGNEXT(as, seg)) {
2195 2195 struct seg_ops *ov = seg->s_ops;
2196 2196
2197 2197 /*
2198 2198 * We have to check to see if the seg has
2199 2199 * an ops vector because the seg may have
2200 2200 * been in the middle of being set up when
2201 2201 * the process was picked for swapout.
2202 2202 */
2203 2203 if ((ov != NULL) && (ov->swapout != NULL))
2204 - swpcnt += SEGOP_SWAPOUT(seg);
2204 + swpcnt += segop_swapout(seg);
2205 2205 }
2206 2206 AS_LOCK_EXIT(as, &as->a_lock);
2207 2207 return (swpcnt);
2208 2208 }
2209 2209
2210 2210 /*
2211 2211 * Determine whether data from the mappings in interval [addr, addr + size)
2212 2212 * are in the primary memory (core) cache.
2213 2213 */
2214 2214 int
2215 2215 as_incore(struct as *as, caddr_t addr,
2216 2216 size_t size, char *vec, size_t *sizep)
2217 2217 {
2218 2218 struct seg *seg;
2219 2219 size_t ssize;
2220 2220 caddr_t raddr; /* rounded down addr */
2221 2221 size_t rsize; /* rounded up size */
2222 2222 size_t isize; /* iteration size */
2223 2223 int error = 0; /* result, assume success */
2224 2224
2225 2225 *sizep = 0;
2226 2226 raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
2227 2227 rsize = ((((size_t)addr + size) + PAGEOFFSET) & PAGEMASK) -
2228 2228 (size_t)raddr;
2229 2229
2230 2230 if (raddr + rsize < raddr) /* check for wraparound */
2231 2231 return (ENOMEM);
2232 2232
2233 2233 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
2234 2234 seg = as_segat(as, raddr);
2235 2235 if (seg == NULL) {
2236 2236 AS_LOCK_EXIT(as, &as->a_lock);
2237 2237 return (-1);
2238 2238 }
2239 2239
2240 2240 for (; rsize != 0; rsize -= ssize, raddr += ssize) {
2241 2241 if (raddr >= seg->s_base + seg->s_size) {
↓ open down ↓ |
27 lines elided |
↑ open up ↑ |
2242 2242 seg = AS_SEGNEXT(as, seg);
2243 2243 if (seg == NULL || raddr != seg->s_base) {
2244 2244 error = -1;
2245 2245 break;
2246 2246 }
2247 2247 }
2248 2248 if ((raddr + rsize) > (seg->s_base + seg->s_size))
2249 2249 ssize = seg->s_base + seg->s_size - raddr;
2250 2250 else
2251 2251 ssize = rsize;
2252 - *sizep += isize = SEGOP_INCORE(seg, raddr, ssize, vec);
2252 + *sizep += isize = segop_incore(seg, raddr, ssize, vec);
2253 2253 if (isize != ssize) {
2254 2254 error = -1;
2255 2255 break;
2256 2256 }
2257 2257 vec += btopr(ssize);
2258 2258 }
2259 2259 AS_LOCK_EXIT(as, &as->a_lock);
2260 2260 return (error);
2261 2261 }
2262 2262
2263 2263 static void
2264 2264 as_segunlock(struct seg *seg, caddr_t addr, int attr,
2265 2265 ulong_t *bitmap, size_t position, size_t npages)
2266 2266 {
2267 2267 caddr_t range_start;
↓ open down ↓ |
5 lines elided |
↑ open up ↑ |
2268 2268 size_t pos1 = position;
2269 2269 size_t pos2;
2270 2270 size_t size;
2271 2271 size_t end_pos = npages + position;
2272 2272
2273 2273 while (bt_range(bitmap, &pos1, &pos2, end_pos)) {
2274 2274 size = ptob((pos2 - pos1));
2275 2275 range_start = (caddr_t)((uintptr_t)addr +
2276 2276 ptob(pos1 - position));
2277 2277
2278 - (void) SEGOP_LOCKOP(seg, range_start, size, attr, MC_UNLOCK,
2278 + (void) segop_lockop(seg, range_start, size, attr, MC_UNLOCK,
2279 2279 (ulong_t *)NULL, (size_t)NULL);
2280 2280 pos1 = pos2;
2281 2281 }
2282 2282 }
2283 2283
2284 2284 static void
2285 2285 as_unlockerr(struct as *as, int attr, ulong_t *mlock_map,
2286 2286 caddr_t raddr, size_t rsize)
2287 2287 {
2288 2288 struct seg *seg = as_segat(as, raddr);
2289 2289 size_t ssize;
2290 2290
2291 2291 while (rsize != 0) {
2292 2292 if (raddr >= seg->s_base + seg->s_size)
2293 2293 seg = AS_SEGNEXT(as, seg);
2294 2294
2295 2295 if ((raddr + rsize) > (seg->s_base + seg->s_size))
2296 2296 ssize = seg->s_base + seg->s_size - raddr;
2297 2297 else
2298 2298 ssize = rsize;
2299 2299
2300 2300 as_segunlock(seg, raddr, attr, mlock_map, 0, btopr(ssize));
2301 2301
2302 2302 rsize -= ssize;
2303 2303 raddr += ssize;
2304 2304 }
2305 2305 }
2306 2306
2307 2307 /*
2308 2308 * Cache control operations over the interval [addr, addr + size) in
2309 2309 * address space "as".
2310 2310 */
2311 2311 /*ARGSUSED*/
2312 2312 int
2313 2313 as_ctl(struct as *as, caddr_t addr, size_t size, int func, int attr,
2314 2314 uintptr_t arg, ulong_t *lock_map, size_t pos)
2315 2315 {
2316 2316 struct seg *seg; /* working segment */
2317 2317 caddr_t raddr; /* rounded down addr */
2318 2318 caddr_t initraddr; /* saved initial rounded down addr */
2319 2319 size_t rsize; /* rounded up size */
2320 2320 size_t initrsize; /* saved initial rounded up size */
2321 2321 size_t ssize; /* size of seg */
2322 2322 int error = 0; /* result */
2323 2323 size_t mlock_size; /* size of bitmap */
2324 2324 ulong_t *mlock_map; /* pointer to bitmap used */
2325 2325 /* to represent the locked */
2326 2326 /* pages. */
2327 2327 retry:
2328 2328 if (error == IE_RETRY)
2329 2329 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
2330 2330 else
2331 2331 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
2332 2332
2333 2333 /*
2334 2334 * If these are address space lock/unlock operations, loop over
2335 2335 * all segments in the address space, as appropriate.
2336 2336 */
2337 2337 if (func == MC_LOCKAS) {
2338 2338 size_t npages, idx;
2339 2339 size_t rlen = 0; /* rounded as length */
2340 2340
2341 2341 idx = pos;
2342 2342
2343 2343 if (arg & MCL_FUTURE) {
2344 2344 mutex_enter(&as->a_contents);
2345 2345 AS_SETPGLCK(as);
2346 2346 mutex_exit(&as->a_contents);
2347 2347 }
2348 2348 if ((arg & MCL_CURRENT) == 0) {
2349 2349 AS_LOCK_EXIT(as, &as->a_lock);
2350 2350 return (0);
2351 2351 }
2352 2352
2353 2353 seg = AS_SEGFIRST(as);
2354 2354 if (seg == NULL) {
2355 2355 AS_LOCK_EXIT(as, &as->a_lock);
2356 2356 return (0);
2357 2357 }
2358 2358
2359 2359 do {
2360 2360 raddr = (caddr_t)((uintptr_t)seg->s_base &
2361 2361 (uintptr_t)PAGEMASK);
2362 2362 rlen += (((uintptr_t)(seg->s_base + seg->s_size) +
2363 2363 PAGEOFFSET) & PAGEMASK) - (uintptr_t)raddr;
↓ open down ↓ |
75 lines elided |
↑ open up ↑ |
2364 2364 } while ((seg = AS_SEGNEXT(as, seg)) != NULL);
2365 2365
2366 2366 mlock_size = BT_BITOUL(btopr(rlen));
2367 2367 if ((mlock_map = (ulong_t *)kmem_zalloc(mlock_size *
2368 2368 sizeof (ulong_t), KM_NOSLEEP)) == NULL) {
2369 2369 AS_LOCK_EXIT(as, &as->a_lock);
2370 2370 return (EAGAIN);
2371 2371 }
2372 2372
2373 2373 for (seg = AS_SEGFIRST(as); seg; seg = AS_SEGNEXT(as, seg)) {
2374 - error = SEGOP_LOCKOP(seg, seg->s_base,
2374 + error = segop_lockop(seg, seg->s_base,
2375 2375 seg->s_size, attr, MC_LOCK, mlock_map, pos);
2376 2376 if (error != 0)
2377 2377 break;
2378 2378 pos += seg_pages(seg);
2379 2379 }
2380 2380
2381 2381 if (error) {
2382 2382 for (seg = AS_SEGFIRST(as); seg != NULL;
2383 2383 seg = AS_SEGNEXT(as, seg)) {
2384 2384
2385 2385 raddr = (caddr_t)((uintptr_t)seg->s_base &
2386 2386 (uintptr_t)PAGEMASK);
2387 2387 npages = seg_pages(seg);
2388 2388 as_segunlock(seg, raddr, attr, mlock_map,
2389 2389 idx, npages);
2390 2390 idx += npages;
2391 2391 }
2392 2392 }
↓ open down ↓ |
8 lines elided |
↑ open up ↑ |
2393 2393
2394 2394 kmem_free(mlock_map, mlock_size * sizeof (ulong_t));
2395 2395 AS_LOCK_EXIT(as, &as->a_lock);
2396 2396 goto lockerr;
2397 2397 } else if (func == MC_UNLOCKAS) {
2398 2398 mutex_enter(&as->a_contents);
2399 2399 AS_CLRPGLCK(as);
2400 2400 mutex_exit(&as->a_contents);
2401 2401
2402 2402 for (seg = AS_SEGFIRST(as); seg; seg = AS_SEGNEXT(as, seg)) {
2403 - error = SEGOP_LOCKOP(seg, seg->s_base,
2403 + error = segop_lockop(seg, seg->s_base,
2404 2404 seg->s_size, attr, MC_UNLOCK, NULL, 0);
2405 2405 if (error != 0)
2406 2406 break;
2407 2407 }
2408 2408
2409 2409 AS_LOCK_EXIT(as, &as->a_lock);
2410 2410 goto lockerr;
2411 2411 }
2412 2412
2413 2413 /*
2414 2414 * Normalize addresses and sizes.
2415 2415 */
2416 2416 initraddr = raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
2417 2417 initrsize = rsize = (((size_t)(addr + size) + PAGEOFFSET) & PAGEMASK) -
2418 2418 (size_t)raddr;
2419 2419
2420 2420 if (raddr + rsize < raddr) { /* check for wraparound */
2421 2421 AS_LOCK_EXIT(as, &as->a_lock);
2422 2422 return (ENOMEM);
2423 2423 }
2424 2424
2425 2425 /*
2426 2426 * Get initial segment.
2427 2427 */
2428 2428 if ((seg = as_segat(as, raddr)) == NULL) {
2429 2429 AS_LOCK_EXIT(as, &as->a_lock);
2430 2430 return (ENOMEM);
2431 2431 }
2432 2432
2433 2433 if (func == MC_LOCK) {
2434 2434 mlock_size = BT_BITOUL(btopr(rsize));
2435 2435 if ((mlock_map = (ulong_t *)kmem_zalloc(mlock_size *
2436 2436 sizeof (ulong_t), KM_NOSLEEP)) == NULL) {
2437 2437 AS_LOCK_EXIT(as, &as->a_lock);
2438 2438 return (EAGAIN);
2439 2439 }
2440 2440 }
2441 2441
2442 2442 /*
2443 2443 * Loop over all segments. If a hole in the address range is
2444 2444 * discovered, then fail. For each segment, perform the appropriate
2445 2445 * control operation.
2446 2446 */
2447 2447 while (rsize != 0) {
2448 2448
2449 2449 /*
2450 2450 * Make sure there's no hole, calculate the portion
2451 2451 * of the next segment to be operated over.
2452 2452 */
2453 2453 if (raddr >= seg->s_base + seg->s_size) {
2454 2454 seg = AS_SEGNEXT(as, seg);
2455 2455 if (seg == NULL || raddr != seg->s_base) {
2456 2456 if (func == MC_LOCK) {
2457 2457 as_unlockerr(as, attr, mlock_map,
2458 2458 initraddr, initrsize - rsize);
2459 2459 kmem_free(mlock_map,
2460 2460 mlock_size * sizeof (ulong_t));
2461 2461 }
2462 2462 AS_LOCK_EXIT(as, &as->a_lock);
2463 2463 return (ENOMEM);
2464 2464 }
2465 2465 }
2466 2466 if ((raddr + rsize) > (seg->s_base + seg->s_size))
2467 2467 ssize = seg->s_base + seg->s_size - raddr;
2468 2468 else
2469 2469 ssize = rsize;
2470 2470
↓ open down ↓ |
57 lines elided |
↑ open up ↑ |
2471 2471 /*
2472 2472 * Dispatch on specific function.
2473 2473 */
2474 2474 switch (func) {
2475 2475
2476 2476 /*
2477 2477 * Synchronize cached data from mappings with backing
2478 2478 * objects.
2479 2479 */
2480 2480 case MC_SYNC:
2481 - if (error = SEGOP_SYNC(seg, raddr, ssize,
2481 + if (error = segop_sync(seg, raddr, ssize,
2482 2482 attr, (uint_t)arg)) {
2483 2483 AS_LOCK_EXIT(as, &as->a_lock);
2484 2484 return (error);
2485 2485 }
2486 2486 break;
2487 2487
2488 2488 /*
2489 2489 * Lock pages in memory.
2490 2490 */
2491 2491 case MC_LOCK:
2492 - if (error = SEGOP_LOCKOP(seg, raddr, ssize,
2492 + if (error = segop_lockop(seg, raddr, ssize,
2493 2493 attr, func, mlock_map, pos)) {
2494 2494 as_unlockerr(as, attr, mlock_map, initraddr,
2495 2495 initrsize - rsize + ssize);
2496 2496 kmem_free(mlock_map, mlock_size *
2497 2497 sizeof (ulong_t));
2498 2498 AS_LOCK_EXIT(as, &as->a_lock);
2499 2499 goto lockerr;
2500 2500 }
2501 2501 break;
2502 2502
2503 2503 /*
2504 2504 * Unlock mapped pages.
2505 2505 */
2506 2506 case MC_UNLOCK:
2507 - (void) SEGOP_LOCKOP(seg, raddr, ssize, attr, func,
2507 + (void) segop_lockop(seg, raddr, ssize, attr, func,
2508 2508 (ulong_t *)NULL, (size_t)NULL);
2509 2509 break;
2510 2510
2511 2511 /*
2512 2512 * Store VM advise for mapped pages in segment layer.
2513 2513 */
2514 2514 case MC_ADVISE:
2515 - error = SEGOP_ADVISE(seg, raddr, ssize, (uint_t)arg);
2515 + error = segop_advise(seg, raddr, ssize, (uint_t)arg);
2516 2516
2517 2517 /*
2518 2518 * Check for regular errors and special retry error
2519 2519 */
2520 2520 if (error) {
2521 2521 if (error == IE_RETRY) {
2522 2522 /*
2523 2523 * Need to acquire writers lock, so
2524 2524 * have to drop readers lock and start
2525 2525 * all over again
2526 2526 */
2527 2527 AS_LOCK_EXIT(as, &as->a_lock);
2528 2528 goto retry;
2529 2529 } else if (error == IE_REATTACH) {
2530 2530 /*
2531 2531 * Find segment for current address
2532 2532 * because current segment just got
2533 2533 * split or concatenated
2534 2534 */
2535 2535 seg = as_segat(as, raddr);
2536 2536 if (seg == NULL) {
2537 2537 AS_LOCK_EXIT(as, &as->a_lock);
2538 2538 return (ENOMEM);
2539 2539 }
2540 2540 } else {
2541 2541 /*
2542 2542 * Regular error
2543 2543 */
↓ open down ↓ |
18 lines elided |
↑ open up ↑ |
2544 2544 AS_LOCK_EXIT(as, &as->a_lock);
2545 2545 return (error);
2546 2546 }
2547 2547 }
2548 2548 break;
2549 2549
2550 2550 case MC_INHERIT_ZERO:
2551 2551 if (seg->s_ops->inherit == NULL) {
2552 2552 error = ENOTSUP;
2553 2553 } else {
2554 - error = SEGOP_INHERIT(seg, raddr, ssize,
2554 + error = segop_inherit(seg, raddr, ssize,
2555 2555 SEGP_INH_ZERO);
2556 2556 }
2557 2557 if (error != 0) {
2558 2558 AS_LOCK_EXIT(as, &as->a_lock);
2559 2559 return (error);
2560 2560 }
2561 2561 break;
2562 2562
2563 2563 /*
2564 2564 * Can't happen.
2565 2565 */
2566 2566 default:
2567 2567 panic("as_ctl: bad operation %d", func);
2568 2568 /*NOTREACHED*/
2569 2569 }
2570 2570
2571 2571 rsize -= ssize;
2572 2572 raddr += ssize;
2573 2573 }
2574 2574
2575 2575 if (func == MC_LOCK)
2576 2576 kmem_free(mlock_map, mlock_size * sizeof (ulong_t));
2577 2577 AS_LOCK_EXIT(as, &as->a_lock);
2578 2578 return (0);
2579 2579 lockerr:
2580 2580
2581 2581 /*
2582 2582 * If the lower levels returned EDEADLK for a segment lockop,
2583 2583 * it means that we should retry the operation. Let's wait
2584 2584 * a bit also to let the deadlock causing condition clear.
2585 2585 * This is part of a gross hack to work around a design flaw
2586 2586 * in the ufs/sds logging code and should go away when the
2587 2587 * logging code is re-designed to fix the problem. See bug
2588 2588 * 4125102 for details of the problem.
2589 2589 */
2590 2590 if (error == EDEADLK) {
2591 2591 delay(deadlk_wait);
2592 2592 error = 0;
2593 2593 goto retry;
2594 2594 }
2595 2595 return (error);
2596 2596 }
2597 2597
2598 2598 int
2599 2599 fc_decode(faultcode_t fault_err)
2600 2600 {
2601 2601 int error = 0;
2602 2602
2603 2603 switch (FC_CODE(fault_err)) {
2604 2604 case FC_OBJERR:
2605 2605 error = FC_ERRNO(fault_err);
2606 2606 break;
2607 2607 case FC_PROT:
2608 2608 error = EACCES;
2609 2609 break;
2610 2610 default:
2611 2611 error = EFAULT;
2612 2612 break;
2613 2613 }
2614 2614 return (error);
2615 2615 }
2616 2616
2617 2617 /*
2618 2618 * Pagelock pages from a range that spans more than 1 segment. Obtain shadow
2619 2619 * lists from each segment and copy them to one contiguous shadow list (plist)
2620 2620 * as expected by the caller. Save pointers to per segment shadow lists at
2621 2621 * the tail of plist so that they can be used during as_pageunlock().
2622 2622 */
2623 2623 static int
2624 2624 as_pagelock_segs(struct as *as, struct seg *seg, struct page ***ppp,
2625 2625 caddr_t addr, size_t size, enum seg_rw rw)
2626 2626 {
2627 2627 caddr_t sv_addr = addr;
2628 2628 size_t sv_size = size;
2629 2629 struct seg *sv_seg = seg;
2630 2630 ulong_t segcnt = 1;
2631 2631 ulong_t cnt;
2632 2632 size_t ssize;
2633 2633 pgcnt_t npages = btop(size);
2634 2634 page_t **plist;
2635 2635 page_t **pl;
2636 2636 int error;
2637 2637 caddr_t eaddr;
2638 2638 faultcode_t fault_err = 0;
2639 2639 pgcnt_t pl_off;
2640 2640 extern struct seg_ops segspt_shmops;
2641 2641
2642 2642 ASSERT(AS_LOCK_HELD(as, &as->a_lock));
2643 2643 ASSERT(seg != NULL);
2644 2644 ASSERT(addr >= seg->s_base && addr < seg->s_base + seg->s_size);
2645 2645 ASSERT(addr + size > seg->s_base + seg->s_size);
2646 2646 ASSERT(IS_P2ALIGNED(size, PAGESIZE));
2647 2647 ASSERT(IS_P2ALIGNED(addr, PAGESIZE));
2648 2648
2649 2649 /*
2650 2650 * Count the number of segments covered by the range we are about to
2651 2651 * lock. The segment count is used to size the shadow list we return
2652 2652 * back to the caller.
2653 2653 */
2654 2654 for (; size != 0; size -= ssize, addr += ssize) {
2655 2655 if (addr >= seg->s_base + seg->s_size) {
2656 2656
2657 2657 seg = AS_SEGNEXT(as, seg);
2658 2658 if (seg == NULL || addr != seg->s_base) {
↓ open down ↓ |
94 lines elided |
↑ open up ↑ |
2659 2659 AS_LOCK_EXIT(as, &as->a_lock);
2660 2660 return (EFAULT);
2661 2661 }
2662 2662 /*
2663 2663 * Do a quick check if subsequent segments
2664 2664 * will most likely support pagelock.
2665 2665 */
2666 2666 if (seg->s_ops == &segvn_ops) {
2667 2667 vnode_t *vp;
2668 2668
2669 - if (SEGOP_GETVP(seg, addr, &vp) != 0 ||
2669 + if (segop_getvp(seg, addr, &vp) != 0 ||
2670 2670 vp != NULL) {
2671 2671 AS_LOCK_EXIT(as, &as->a_lock);
2672 2672 goto slow;
2673 2673 }
2674 2674 } else if (seg->s_ops != &segspt_shmops) {
2675 2675 AS_LOCK_EXIT(as, &as->a_lock);
2676 2676 goto slow;
2677 2677 }
2678 2678 segcnt++;
2679 2679 }
2680 2680 if (addr + size > seg->s_base + seg->s_size) {
2681 2681 ssize = seg->s_base + seg->s_size - addr;
2682 2682 } else {
2683 2683 ssize = size;
2684 2684 }
2685 2685 }
2686 2686 ASSERT(segcnt > 1);
2687 2687
2688 2688 plist = kmem_zalloc((npages + segcnt) * sizeof (page_t *), KM_SLEEP);
2689 2689
2690 2690 addr = sv_addr;
2691 2691 size = sv_size;
2692 2692 seg = sv_seg;
2693 2693
2694 2694 for (cnt = 0, pl_off = 0; size != 0; size -= ssize, addr += ssize) {
2695 2695 if (addr >= seg->s_base + seg->s_size) {
2696 2696 seg = AS_SEGNEXT(as, seg);
↓ open down ↓ |
17 lines elided |
↑ open up ↑ |
2697 2697 ASSERT(seg != NULL && addr == seg->s_base);
2698 2698 cnt++;
2699 2699 ASSERT(cnt < segcnt);
2700 2700 }
2701 2701 if (addr + size > seg->s_base + seg->s_size) {
2702 2702 ssize = seg->s_base + seg->s_size - addr;
2703 2703 } else {
2704 2704 ssize = size;
2705 2705 }
2706 2706 pl = &plist[npages + cnt];
2707 - error = SEGOP_PAGELOCK(seg, addr, ssize, (page_t ***)pl,
2707 + error = segop_pagelock(seg, addr, ssize, (page_t ***)pl,
2708 2708 L_PAGELOCK, rw);
2709 2709 if (error) {
2710 2710 break;
2711 2711 }
2712 2712 ASSERT(plist[npages + cnt] != NULL);
2713 2713 ASSERT(pl_off + btop(ssize) <= npages);
2714 2714 bcopy(plist[npages + cnt], &plist[pl_off],
2715 2715 btop(ssize) * sizeof (page_t *));
2716 2716 pl_off += btop(ssize);
2717 2717 }
2718 2718
2719 2719 if (size == 0) {
2720 2720 AS_LOCK_EXIT(as, &as->a_lock);
2721 2721 ASSERT(cnt == segcnt - 1);
2722 2722 *ppp = plist;
2723 2723 return (0);
2724 2724 }
2725 2725
2726 2726 /*
2727 2727 * one of pagelock calls failed. The error type is in error variable.
2728 2728 * Unlock what we've locked so far and retry with F_SOFTLOCK if error
2729 2729 * type is either EFAULT or ENOTSUP. Otherwise just return the error
2730 2730 * back to the caller.
2731 2731 */
2732 2732
2733 2733 eaddr = addr;
2734 2734 seg = sv_seg;
2735 2735
2736 2736 for (cnt = 0, addr = sv_addr; addr < eaddr; addr += ssize) {
2737 2737 if (addr >= seg->s_base + seg->s_size) {
2738 2738 seg = AS_SEGNEXT(as, seg);
2739 2739 ASSERT(seg != NULL && addr == seg->s_base);
↓ open down ↓ |
22 lines elided |
↑ open up ↑ |
2740 2740 cnt++;
2741 2741 ASSERT(cnt < segcnt);
2742 2742 }
2743 2743 if (eaddr > seg->s_base + seg->s_size) {
2744 2744 ssize = seg->s_base + seg->s_size - addr;
2745 2745 } else {
2746 2746 ssize = eaddr - addr;
2747 2747 }
2748 2748 pl = &plist[npages + cnt];
2749 2749 ASSERT(*pl != NULL);
2750 - (void) SEGOP_PAGELOCK(seg, addr, ssize, (page_t ***)pl,
2750 + (void) segop_pagelock(seg, addr, ssize, (page_t ***)pl,
2751 2751 L_PAGEUNLOCK, rw);
2752 2752 }
2753 2753
2754 2754 AS_LOCK_EXIT(as, &as->a_lock);
2755 2755
2756 2756 kmem_free(plist, (npages + segcnt) * sizeof (page_t *));
2757 2757
2758 2758 if (error != ENOTSUP && error != EFAULT) {
2759 2759 return (error);
2760 2760 }
2761 2761
2762 2762 slow:
2763 2763 /*
2764 2764 * If we are here because pagelock failed due to the need to cow fault
2765 2765 * in the pages we want to lock F_SOFTLOCK will do this job and in
2766 2766 * next as_pagelock() call for this address range pagelock will
2767 2767 * hopefully succeed.
2768 2768 */
2769 2769 fault_err = as_fault(as->a_hat, as, sv_addr, sv_size, F_SOFTLOCK, rw);
2770 2770 if (fault_err != 0) {
2771 2771 return (fc_decode(fault_err));
2772 2772 }
2773 2773 *ppp = NULL;
2774 2774
2775 2775 return (0);
2776 2776 }
2777 2777
2778 2778 /*
2779 2779 * lock pages in a given address space. Return shadow list. If
2780 2780 * the list is NULL, the MMU mapping is also locked.
2781 2781 */
2782 2782 int
2783 2783 as_pagelock(struct as *as, struct page ***ppp, caddr_t addr,
2784 2784 size_t size, enum seg_rw rw)
2785 2785 {
2786 2786 size_t rsize;
2787 2787 caddr_t raddr;
2788 2788 faultcode_t fault_err;
2789 2789 struct seg *seg;
2790 2790 int err;
2791 2791
2792 2792 TRACE_2(TR_FAC_PHYSIO, TR_PHYSIO_AS_LOCK_START,
2793 2793 "as_pagelock_start: addr %p size %ld", addr, size);
2794 2794
2795 2795 raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
2796 2796 rsize = (((size_t)(addr + size) + PAGEOFFSET) & PAGEMASK) -
2797 2797 (size_t)raddr;
2798 2798
2799 2799 /*
2800 2800 * if the request crosses two segments let
2801 2801 * as_fault handle it.
2802 2802 */
2803 2803 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
2804 2804
2805 2805 seg = as_segat(as, raddr);
2806 2806 if (seg == NULL) {
2807 2807 AS_LOCK_EXIT(as, &as->a_lock);
2808 2808 return (EFAULT);
2809 2809 }
2810 2810 ASSERT(raddr >= seg->s_base && raddr < seg->s_base + seg->s_size);
2811 2811 if (raddr + rsize > seg->s_base + seg->s_size) {
2812 2812 return (as_pagelock_segs(as, seg, ppp, raddr, rsize, rw));
2813 2813 }
2814 2814 if (raddr + rsize <= raddr) {
↓ open down ↓ |
54 lines elided |
↑ open up ↑ |
2815 2815 AS_LOCK_EXIT(as, &as->a_lock);
2816 2816 return (EFAULT);
2817 2817 }
2818 2818
2819 2819 TRACE_2(TR_FAC_PHYSIO, TR_PHYSIO_SEG_LOCK_START,
2820 2820 "seg_lock_1_start: raddr %p rsize %ld", raddr, rsize);
2821 2821
2822 2822 /*
2823 2823 * try to lock pages and pass back shadow list
2824 2824 */
2825 - err = SEGOP_PAGELOCK(seg, raddr, rsize, ppp, L_PAGELOCK, rw);
2825 + err = segop_pagelock(seg, raddr, rsize, ppp, L_PAGELOCK, rw);
2826 2826
2827 2827 TRACE_0(TR_FAC_PHYSIO, TR_PHYSIO_SEG_LOCK_END, "seg_lock_1_end");
2828 2828
2829 2829 AS_LOCK_EXIT(as, &as->a_lock);
2830 2830
2831 2831 if (err == 0 || (err != ENOTSUP && err != EFAULT)) {
2832 2832 return (err);
2833 2833 }
2834 2834
2835 2835 /*
2836 2836 * Use F_SOFTLOCK to lock the pages because pagelock failed either due
2837 2837 * to no pagelock support for this segment or pages need to be cow
2838 2838 * faulted in. If fault is needed F_SOFTLOCK will do this job for
2839 2839 * this as_pagelock() call and in the next as_pagelock() call for the
2840 2840 * same address range pagelock call will hopefull succeed.
2841 2841 */
2842 2842 fault_err = as_fault(as->a_hat, as, addr, size, F_SOFTLOCK, rw);
2843 2843 if (fault_err != 0) {
2844 2844 return (fc_decode(fault_err));
2845 2845 }
2846 2846 *ppp = NULL;
2847 2847
2848 2848 TRACE_0(TR_FAC_PHYSIO, TR_PHYSIO_AS_LOCK_END, "as_pagelock_end");
2849 2849 return (0);
2850 2850 }
2851 2851
2852 2852 /*
2853 2853 * unlock pages locked by as_pagelock_segs(). Retrieve per segment shadow
2854 2854 * lists from the end of plist and call pageunlock interface for each segment.
2855 2855 * Drop as lock and free plist.
2856 2856 */
2857 2857 static void
2858 2858 as_pageunlock_segs(struct as *as, struct seg *seg, caddr_t addr, size_t size,
2859 2859 struct page **plist, enum seg_rw rw)
2860 2860 {
2861 2861 ulong_t cnt;
2862 2862 caddr_t eaddr = addr + size;
2863 2863 pgcnt_t npages = btop(size);
2864 2864 size_t ssize;
2865 2865 page_t **pl;
2866 2866
2867 2867 ASSERT(AS_LOCK_HELD(as, &as->a_lock));
2868 2868 ASSERT(seg != NULL);
2869 2869 ASSERT(addr >= seg->s_base && addr < seg->s_base + seg->s_size);
2870 2870 ASSERT(addr + size > seg->s_base + seg->s_size);
2871 2871 ASSERT(IS_P2ALIGNED(size, PAGESIZE));
2872 2872 ASSERT(IS_P2ALIGNED(addr, PAGESIZE));
2873 2873 ASSERT(plist != NULL);
2874 2874
2875 2875 for (cnt = 0; addr < eaddr; addr += ssize) {
2876 2876 if (addr >= seg->s_base + seg->s_size) {
2877 2877 seg = AS_SEGNEXT(as, seg);
↓ open down ↓ |
42 lines elided |
↑ open up ↑ |
2878 2878 ASSERT(seg != NULL && addr == seg->s_base);
2879 2879 cnt++;
2880 2880 }
2881 2881 if (eaddr > seg->s_base + seg->s_size) {
2882 2882 ssize = seg->s_base + seg->s_size - addr;
2883 2883 } else {
2884 2884 ssize = eaddr - addr;
2885 2885 }
2886 2886 pl = &plist[npages + cnt];
2887 2887 ASSERT(*pl != NULL);
2888 - (void) SEGOP_PAGELOCK(seg, addr, ssize, (page_t ***)pl,
2888 + (void) segop_pagelock(seg, addr, ssize, (page_t ***)pl,
2889 2889 L_PAGEUNLOCK, rw);
2890 2890 }
2891 2891 ASSERT(cnt > 0);
2892 2892 AS_LOCK_EXIT(as, &as->a_lock);
2893 2893
2894 2894 cnt++;
2895 2895 kmem_free(plist, (npages + cnt) * sizeof (page_t *));
2896 2896 }
2897 2897
2898 2898 /*
2899 2899 * unlock pages in a given address range
2900 2900 */
2901 2901 void
2902 2902 as_pageunlock(struct as *as, struct page **pp, caddr_t addr, size_t size,
2903 2903 enum seg_rw rw)
2904 2904 {
2905 2905 struct seg *seg;
2906 2906 size_t rsize;
2907 2907 caddr_t raddr;
2908 2908
2909 2909 TRACE_2(TR_FAC_PHYSIO, TR_PHYSIO_AS_UNLOCK_START,
2910 2910 "as_pageunlock_start: addr %p size %ld", addr, size);
2911 2911
2912 2912 /*
2913 2913 * if the shadow list is NULL, as_pagelock was
2914 2914 * falling back to as_fault
2915 2915 */
2916 2916 if (pp == NULL) {
2917 2917 (void) as_fault(as->a_hat, as, addr, size, F_SOFTUNLOCK, rw);
2918 2918 return;
2919 2919 }
2920 2920
2921 2921 raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
2922 2922 rsize = (((size_t)(addr + size) + PAGEOFFSET) & PAGEMASK) -
2923 2923 (size_t)raddr;
↓ open down ↓ |
25 lines elided |
↑ open up ↑ |
2924 2924
2925 2925 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
2926 2926 seg = as_segat(as, raddr);
2927 2927 ASSERT(seg != NULL);
2928 2928
2929 2929 TRACE_2(TR_FAC_PHYSIO, TR_PHYSIO_SEG_UNLOCK_START,
2930 2930 "seg_unlock_start: raddr %p rsize %ld", raddr, rsize);
2931 2931
2932 2932 ASSERT(raddr >= seg->s_base && raddr < seg->s_base + seg->s_size);
2933 2933 if (raddr + rsize <= seg->s_base + seg->s_size) {
2934 - SEGOP_PAGELOCK(seg, raddr, rsize, &pp, L_PAGEUNLOCK, rw);
2934 + (void) segop_pagelock(seg, raddr, rsize, &pp, L_PAGEUNLOCK, rw);
2935 2935 } else {
2936 2936 as_pageunlock_segs(as, seg, raddr, rsize, pp, rw);
2937 2937 return;
2938 2938 }
2939 2939 AS_LOCK_EXIT(as, &as->a_lock);
2940 2940 TRACE_0(TR_FAC_PHYSIO, TR_PHYSIO_AS_UNLOCK_END, "as_pageunlock_end");
2941 2941 }
2942 2942
2943 2943 int
2944 2944 as_setpagesize(struct as *as, caddr_t addr, size_t size, uint_t szc,
2945 2945 boolean_t wait)
2946 2946 {
2947 2947 struct seg *seg;
2948 2948 size_t ssize;
2949 2949 caddr_t raddr; /* rounded down addr */
2950 2950 size_t rsize; /* rounded up size */
2951 2951 int error = 0;
2952 2952 size_t pgsz = page_get_pagesize(szc);
2953 2953
2954 2954 setpgsz_top:
2955 2955 if (!IS_P2ALIGNED(addr, pgsz) || !IS_P2ALIGNED(size, pgsz)) {
2956 2956 return (EINVAL);
2957 2957 }
2958 2958
2959 2959 raddr = addr;
2960 2960 rsize = size;
2961 2961
2962 2962 if (raddr + rsize < raddr) /* check for wraparound */
2963 2963 return (ENOMEM);
2964 2964
2965 2965 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
2966 2966 as_clearwatchprot(as, raddr, rsize);
2967 2967 seg = as_segat(as, raddr);
2968 2968 if (seg == NULL) {
2969 2969 as_setwatch(as);
2970 2970 AS_LOCK_EXIT(as, &as->a_lock);
2971 2971 return (ENOMEM);
2972 2972 }
2973 2973
2974 2974 for (; rsize != 0; rsize -= ssize, raddr += ssize) {
2975 2975 if (raddr >= seg->s_base + seg->s_size) {
2976 2976 seg = AS_SEGNEXT(as, seg);
2977 2977 if (seg == NULL || raddr != seg->s_base) {
2978 2978 error = ENOMEM;
↓ open down ↓ |
34 lines elided |
↑ open up ↑ |
2979 2979 break;
2980 2980 }
2981 2981 }
2982 2982 if ((raddr + rsize) > (seg->s_base + seg->s_size)) {
2983 2983 ssize = seg->s_base + seg->s_size - raddr;
2984 2984 } else {
2985 2985 ssize = rsize;
2986 2986 }
2987 2987
2988 2988 retry:
2989 - error = SEGOP_SETPAGESIZE(seg, raddr, ssize, szc);
2989 + error = segop_setpagesize(seg, raddr, ssize, szc);
2990 2990
2991 2991 if (error == IE_NOMEM) {
2992 2992 error = EAGAIN;
2993 2993 break;
2994 2994 }
2995 2995
2996 2996 if (error == IE_RETRY) {
2997 2997 AS_LOCK_EXIT(as, &as->a_lock);
2998 2998 goto setpgsz_top;
2999 2999 }
3000 3000
3001 3001 if (error == ENOTSUP) {
3002 3002 error = EINVAL;
3003 3003 break;
3004 3004 }
3005 3005
3006 3006 if (wait && (error == EAGAIN)) {
3007 3007 /*
3008 3008 * Memory is currently locked. It must be unlocked
3009 3009 * before this operation can succeed through a retry.
3010 3010 * The possible reasons for locked memory and
3011 3011 * corresponding strategies for unlocking are:
3012 3012 * (1) Normal I/O
3013 3013 * wait for a signal that the I/O operation
3014 3014 * has completed and the memory is unlocked.
3015 3015 * (2) Asynchronous I/O
3016 3016 * The aio subsystem does not unlock pages when
3017 3017 * the I/O is completed. Those pages are unlocked
3018 3018 * when the application calls aiowait/aioerror.
3019 3019 * So, to prevent blocking forever, cv_broadcast()
3020 3020 * is done to wake up aio_cleanup_thread.
3021 3021 * Subsequently, segvn_reclaim will be called, and
3022 3022 * that will do AS_CLRUNMAPWAIT() and wake us up.
3023 3023 * (3) Long term page locking:
3024 3024 * This is not relevant for as_setpagesize()
3025 3025 * because we cannot change the page size for
3026 3026 * driver memory. The attempt to do so will
3027 3027 * fail with a different error than EAGAIN so
3028 3028 * there's no need to trigger as callbacks like
3029 3029 * as_unmap, as_setprot or as_free would do.
3030 3030 */
3031 3031 mutex_enter(&as->a_contents);
3032 3032 if (!AS_ISNOUNMAPWAIT(as)) {
3033 3033 if (AS_ISUNMAPWAIT(as) == 0) {
3034 3034 cv_broadcast(&as->a_cv);
3035 3035 }
3036 3036 AS_SETUNMAPWAIT(as);
3037 3037 AS_LOCK_EXIT(as, &as->a_lock);
3038 3038 while (AS_ISUNMAPWAIT(as)) {
3039 3039 cv_wait(&as->a_cv, &as->a_contents);
3040 3040 }
3041 3041 } else {
3042 3042 /*
3043 3043 * We may have raced with
3044 3044 * segvn_reclaim()/segspt_reclaim(). In this
3045 3045 * case clean nounmapwait flag and retry since
3046 3046 * softlockcnt in this segment may be already
3047 3047 * 0. We don't drop as writer lock so our
3048 3048 * number of retries without sleeping should
3049 3049 * be very small. See segvn_reclaim() for
3050 3050 * more comments.
3051 3051 */
3052 3052 AS_CLRNOUNMAPWAIT(as);
3053 3053 mutex_exit(&as->a_contents);
3054 3054 goto retry;
3055 3055 }
3056 3056 mutex_exit(&as->a_contents);
3057 3057 goto setpgsz_top;
↓ open down ↓ |
58 lines elided |
↑ open up ↑ |
3058 3058 } else if (error != 0) {
3059 3059 break;
3060 3060 }
3061 3061 }
3062 3062 as_setwatch(as);
3063 3063 AS_LOCK_EXIT(as, &as->a_lock);
3064 3064 return (error);
3065 3065 }
3066 3066
3067 3067 /*
3068 - * as_iset3_default_lpsize() just calls SEGOP_SETPAGESIZE() on all segments
3068 + * as_iset3_default_lpsize() just calls segop_setpagesize() on all segments
3069 3069 * in its chunk where s_szc is less than the szc we want to set.
3070 3070 */
3071 3071 static int
3072 3072 as_iset3_default_lpsize(struct as *as, caddr_t raddr, size_t rsize, uint_t szc,
3073 3073 int *retry)
3074 3074 {
3075 3075 struct seg *seg;
3076 3076 size_t ssize;
3077 3077 int error;
3078 3078
3079 3079 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
3080 3080
3081 3081 seg = as_segat(as, raddr);
3082 3082 if (seg == NULL) {
3083 3083 panic("as_iset3_default_lpsize: no seg");
3084 3084 }
3085 3085
3086 3086 for (; rsize != 0; rsize -= ssize, raddr += ssize) {
3087 3087 if (raddr >= seg->s_base + seg->s_size) {
3088 3088 seg = AS_SEGNEXT(as, seg);
3089 3089 if (seg == NULL || raddr != seg->s_base) {
↓ open down ↓ |
11 lines elided |
↑ open up ↑ |
3090 3090 panic("as_iset3_default_lpsize: as changed");
3091 3091 }
3092 3092 }
3093 3093 if ((raddr + rsize) > (seg->s_base + seg->s_size)) {
3094 3094 ssize = seg->s_base + seg->s_size - raddr;
3095 3095 } else {
3096 3096 ssize = rsize;
3097 3097 }
3098 3098
3099 3099 if (szc > seg->s_szc) {
3100 - error = SEGOP_SETPAGESIZE(seg, raddr, ssize, szc);
3100 + error = segop_setpagesize(seg, raddr, ssize, szc);
3101 3101 /* Only retry on EINVAL segments that have no vnode. */
3102 3102 if (error == EINVAL) {
3103 3103 vnode_t *vp = NULL;
3104 - if ((SEGOP_GETTYPE(seg, raddr) & MAP_SHARED) &&
3105 - (SEGOP_GETVP(seg, raddr, &vp) != 0 ||
3104 + if ((segop_gettype(seg, raddr) & MAP_SHARED) &&
3105 + (segop_getvp(seg, raddr, &vp) != 0 ||
3106 3106 vp == NULL)) {
3107 3107 *retry = 1;
3108 3108 } else {
3109 3109 *retry = 0;
3110 3110 }
3111 3111 }
3112 3112 if (error) {
3113 3113 return (error);
3114 3114 }
3115 3115 }
3116 3116 }
3117 3117 return (0);
3118 3118 }
3119 3119
3120 3120 /*
3121 3121 * as_iset2_default_lpsize() calls as_iset3_default_lpsize() to set the
3122 3122 * pagesize on each segment in its range, but if any fails with EINVAL,
3123 3123 * then it reduces the pagesizes to the next size in the bitmap and
3124 3124 * retries as_iset3_default_lpsize(). The reason why the code retries
3125 3125 * smaller allowed sizes on EINVAL is because (a) the anon offset may not
3126 3126 * match the bigger sizes, and (b) it's hard to get this offset (to begin
3127 3127 * with) to pass to map_pgszcvec().
3128 3128 */
3129 3129 static int
3130 3130 as_iset2_default_lpsize(struct as *as, caddr_t addr, size_t size, uint_t szc,
3131 3131 uint_t szcvec)
3132 3132 {
3133 3133 int error;
3134 3134 int retry;
3135 3135
3136 3136 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
3137 3137
3138 3138 for (;;) {
3139 3139 error = as_iset3_default_lpsize(as, addr, size, szc, &retry);
3140 3140 if (error == EINVAL && retry) {
3141 3141 szcvec &= ~(1 << szc);
3142 3142 if (szcvec <= 1) {
3143 3143 return (EINVAL);
3144 3144 }
3145 3145 szc = highbit(szcvec) - 1;
3146 3146 } else {
3147 3147 return (error);
3148 3148 }
3149 3149 }
3150 3150 }
3151 3151
3152 3152 /*
3153 3153 * as_iset1_default_lpsize() breaks its chunk into areas where existing
3154 3154 * segments have a smaller szc than we want to set. For each such area,
3155 3155 * it calls as_iset2_default_lpsize()
3156 3156 */
3157 3157 static int
3158 3158 as_iset1_default_lpsize(struct as *as, caddr_t raddr, size_t rsize, uint_t szc,
3159 3159 uint_t szcvec)
3160 3160 {
3161 3161 struct seg *seg;
3162 3162 size_t ssize;
3163 3163 caddr_t setaddr = raddr;
3164 3164 size_t setsize = 0;
3165 3165 int set;
3166 3166 int error;
3167 3167
3168 3168 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
3169 3169
3170 3170 seg = as_segat(as, raddr);
3171 3171 if (seg == NULL) {
3172 3172 panic("as_iset1_default_lpsize: no seg");
3173 3173 }
3174 3174 if (seg->s_szc < szc) {
3175 3175 set = 1;
3176 3176 } else {
3177 3177 set = 0;
3178 3178 }
3179 3179
3180 3180 for (; rsize != 0; rsize -= ssize, raddr += ssize, setsize += ssize) {
3181 3181 if (raddr >= seg->s_base + seg->s_size) {
3182 3182 seg = AS_SEGNEXT(as, seg);
3183 3183 if (seg == NULL || raddr != seg->s_base) {
3184 3184 panic("as_iset1_default_lpsize: as changed");
3185 3185 }
3186 3186 if (seg->s_szc >= szc && set) {
3187 3187 ASSERT(setsize != 0);
3188 3188 error = as_iset2_default_lpsize(as,
3189 3189 setaddr, setsize, szc, szcvec);
3190 3190 if (error) {
3191 3191 return (error);
3192 3192 }
3193 3193 set = 0;
3194 3194 } else if (seg->s_szc < szc && !set) {
3195 3195 setaddr = raddr;
3196 3196 setsize = 0;
3197 3197 set = 1;
3198 3198 }
3199 3199 }
3200 3200 if ((raddr + rsize) > (seg->s_base + seg->s_size)) {
3201 3201 ssize = seg->s_base + seg->s_size - raddr;
3202 3202 } else {
3203 3203 ssize = rsize;
3204 3204 }
3205 3205 }
3206 3206 error = 0;
3207 3207 if (set) {
3208 3208 ASSERT(setsize != 0);
3209 3209 error = as_iset2_default_lpsize(as, setaddr, setsize,
3210 3210 szc, szcvec);
3211 3211 }
3212 3212 return (error);
3213 3213 }
3214 3214
3215 3215 /*
3216 3216 * as_iset_default_lpsize() breaks its chunk according to the size code bitmap
3217 3217 * returned by map_pgszcvec() (similar to as_map_segvn_segs()), and passes each
3218 3218 * chunk to as_iset1_default_lpsize().
3219 3219 */
3220 3220 static int
3221 3221 as_iset_default_lpsize(struct as *as, caddr_t addr, size_t size, int flags,
3222 3222 int type)
3223 3223 {
3224 3224 int rtype = (type & MAP_SHARED) ? MAPPGSZC_SHM : MAPPGSZC_PRIVM;
3225 3225 uint_t szcvec = map_pgszcvec(addr, size, (uintptr_t)addr,
3226 3226 flags, rtype, 1);
3227 3227 uint_t szc;
3228 3228 uint_t nszc;
3229 3229 int error;
3230 3230 caddr_t a;
3231 3231 caddr_t eaddr;
3232 3232 size_t segsize;
3233 3233 size_t pgsz;
3234 3234 uint_t save_szcvec;
3235 3235
3236 3236 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
3237 3237 ASSERT(IS_P2ALIGNED(addr, PAGESIZE));
3238 3238 ASSERT(IS_P2ALIGNED(size, PAGESIZE));
3239 3239
3240 3240 szcvec &= ~1;
3241 3241 if (szcvec <= 1) { /* skip if base page size */
3242 3242 return (0);
3243 3243 }
3244 3244
3245 3245 /* Get the pagesize of the first larger page size. */
3246 3246 szc = lowbit(szcvec) - 1;
3247 3247 pgsz = page_get_pagesize(szc);
3248 3248 eaddr = addr + size;
3249 3249 addr = (caddr_t)P2ROUNDUP((uintptr_t)addr, pgsz);
3250 3250 eaddr = (caddr_t)P2ALIGN((uintptr_t)eaddr, pgsz);
3251 3251
3252 3252 save_szcvec = szcvec;
3253 3253 szcvec >>= (szc + 1);
3254 3254 nszc = szc;
3255 3255 while (szcvec) {
3256 3256 if ((szcvec & 0x1) == 0) {
3257 3257 nszc++;
3258 3258 szcvec >>= 1;
3259 3259 continue;
3260 3260 }
3261 3261 nszc++;
3262 3262 pgsz = page_get_pagesize(nszc);
3263 3263 a = (caddr_t)P2ROUNDUP((uintptr_t)addr, pgsz);
3264 3264 if (a != addr) {
3265 3265 ASSERT(szc > 0);
3266 3266 ASSERT(a < eaddr);
3267 3267 segsize = a - addr;
3268 3268 error = as_iset1_default_lpsize(as, addr, segsize, szc,
3269 3269 save_szcvec);
3270 3270 if (error) {
3271 3271 return (error);
3272 3272 }
3273 3273 addr = a;
3274 3274 }
3275 3275 szc = nszc;
3276 3276 szcvec >>= 1;
3277 3277 }
3278 3278
3279 3279 ASSERT(addr < eaddr);
3280 3280 szcvec = save_szcvec;
3281 3281 while (szcvec) {
3282 3282 a = (caddr_t)P2ALIGN((uintptr_t)eaddr, pgsz);
3283 3283 ASSERT(a >= addr);
3284 3284 if (a != addr) {
3285 3285 ASSERT(szc > 0);
3286 3286 segsize = a - addr;
3287 3287 error = as_iset1_default_lpsize(as, addr, segsize, szc,
3288 3288 save_szcvec);
3289 3289 if (error) {
3290 3290 return (error);
3291 3291 }
3292 3292 addr = a;
3293 3293 }
3294 3294 szcvec &= ~(1 << szc);
3295 3295 if (szcvec) {
3296 3296 szc = highbit(szcvec) - 1;
3297 3297 pgsz = page_get_pagesize(szc);
3298 3298 }
3299 3299 }
3300 3300 ASSERT(addr == eaddr);
3301 3301
3302 3302 return (0);
3303 3303 }
3304 3304
3305 3305 /*
3306 3306 * Set the default large page size for the range. Called via memcntl with
3307 3307 * page size set to 0. as_set_default_lpsize breaks the range down into
3308 3308 * chunks with the same type/flags, ignores-non segvn segments, and passes
3309 3309 * each chunk to as_iset_default_lpsize().
3310 3310 */
3311 3311 int
3312 3312 as_set_default_lpsize(struct as *as, caddr_t addr, size_t size)
3313 3313 {
3314 3314 struct seg *seg;
3315 3315 caddr_t raddr;
3316 3316 size_t rsize;
3317 3317 size_t ssize;
3318 3318 int rtype, rflags;
3319 3319 int stype, sflags;
3320 3320 int error;
3321 3321 caddr_t setaddr;
3322 3322 size_t setsize;
3323 3323 int segvn;
3324 3324
3325 3325 if (size == 0)
3326 3326 return (0);
3327 3327
3328 3328 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
3329 3329 again:
3330 3330 error = 0;
3331 3331
3332 3332 raddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
3333 3333 rsize = (((size_t)(addr + size) + PAGEOFFSET) & PAGEMASK) -
3334 3334 (size_t)raddr;
3335 3335
3336 3336 if (raddr + rsize < raddr) { /* check for wraparound */
3337 3337 AS_LOCK_EXIT(as, &as->a_lock);
↓ open down ↓ |
222 lines elided |
↑ open up ↑ |
3338 3338 return (ENOMEM);
3339 3339 }
3340 3340 as_clearwatchprot(as, raddr, rsize);
3341 3341 seg = as_segat(as, raddr);
3342 3342 if (seg == NULL) {
3343 3343 as_setwatch(as);
3344 3344 AS_LOCK_EXIT(as, &as->a_lock);
3345 3345 return (ENOMEM);
3346 3346 }
3347 3347 if (seg->s_ops == &segvn_ops) {
3348 - rtype = SEGOP_GETTYPE(seg, addr);
3348 + rtype = segop_gettype(seg, addr);
3349 3349 rflags = rtype & (MAP_TEXT | MAP_INITDATA);
3350 3350 rtype = rtype & (MAP_SHARED | MAP_PRIVATE);
3351 3351 segvn = 1;
3352 3352 } else {
3353 3353 segvn = 0;
3354 3354 }
3355 3355 setaddr = raddr;
3356 3356 setsize = 0;
3357 3357
3358 3358 for (; rsize != 0; rsize -= ssize, raddr += ssize, setsize += ssize) {
3359 3359 if (raddr >= (seg->s_base + seg->s_size)) {
3360 3360 seg = AS_SEGNEXT(as, seg);
3361 3361 if (seg == NULL || raddr != seg->s_base) {
3362 3362 error = ENOMEM;
3363 3363 break;
3364 3364 }
3365 3365 if (seg->s_ops == &segvn_ops) {
3366 - stype = SEGOP_GETTYPE(seg, raddr);
3366 + stype = segop_gettype(seg, raddr);
3367 3367 sflags = stype & (MAP_TEXT | MAP_INITDATA);
3368 3368 stype &= (MAP_SHARED | MAP_PRIVATE);
3369 3369 if (segvn && (rflags != sflags ||
3370 3370 rtype != stype)) {
3371 3371 /*
3372 3372 * The next segment is also segvn but
3373 3373 * has different flags and/or type.
3374 3374 */
3375 3375 ASSERT(setsize != 0);
3376 3376 error = as_iset_default_lpsize(as,
3377 3377 setaddr, setsize, rflags, rtype);
3378 3378 if (error) {
3379 3379 break;
3380 3380 }
3381 3381 rflags = sflags;
3382 3382 rtype = stype;
3383 3383 setaddr = raddr;
3384 3384 setsize = 0;
3385 3385 } else if (!segvn) {
3386 3386 rflags = sflags;
3387 3387 rtype = stype;
3388 3388 setaddr = raddr;
3389 3389 setsize = 0;
3390 3390 segvn = 1;
3391 3391 }
3392 3392 } else if (segvn) {
3393 3393 /* The next segment is not segvn. */
3394 3394 ASSERT(setsize != 0);
3395 3395 error = as_iset_default_lpsize(as,
3396 3396 setaddr, setsize, rflags, rtype);
3397 3397 if (error) {
3398 3398 break;
3399 3399 }
3400 3400 segvn = 0;
3401 3401 }
3402 3402 }
3403 3403 if ((raddr + rsize) > (seg->s_base + seg->s_size)) {
3404 3404 ssize = seg->s_base + seg->s_size - raddr;
3405 3405 } else {
3406 3406 ssize = rsize;
3407 3407 }
3408 3408 }
3409 3409 if (error == 0 && segvn) {
3410 3410 /* The last chunk when rsize == 0. */
3411 3411 ASSERT(setsize != 0);
3412 3412 error = as_iset_default_lpsize(as, setaddr, setsize,
3413 3413 rflags, rtype);
3414 3414 }
3415 3415
3416 3416 if (error == IE_RETRY) {
3417 3417 goto again;
3418 3418 } else if (error == IE_NOMEM) {
3419 3419 error = EAGAIN;
3420 3420 } else if (error == ENOTSUP) {
3421 3421 error = EINVAL;
3422 3422 } else if (error == EAGAIN) {
3423 3423 mutex_enter(&as->a_contents);
3424 3424 if (!AS_ISNOUNMAPWAIT(as)) {
3425 3425 if (AS_ISUNMAPWAIT(as) == 0) {
3426 3426 cv_broadcast(&as->a_cv);
3427 3427 }
3428 3428 AS_SETUNMAPWAIT(as);
3429 3429 AS_LOCK_EXIT(as, &as->a_lock);
3430 3430 while (AS_ISUNMAPWAIT(as)) {
3431 3431 cv_wait(&as->a_cv, &as->a_contents);
3432 3432 }
3433 3433 mutex_exit(&as->a_contents);
3434 3434 AS_LOCK_ENTER(as, &as->a_lock, RW_WRITER);
3435 3435 } else {
3436 3436 /*
3437 3437 * We may have raced with
3438 3438 * segvn_reclaim()/segspt_reclaim(). In this case
3439 3439 * clean nounmapwait flag and retry since softlockcnt
3440 3440 * in this segment may be already 0. We don't drop as
3441 3441 * writer lock so our number of retries without
3442 3442 * sleeping should be very small. See segvn_reclaim()
3443 3443 * for more comments.
3444 3444 */
3445 3445 AS_CLRNOUNMAPWAIT(as);
3446 3446 mutex_exit(&as->a_contents);
3447 3447 }
3448 3448 goto again;
3449 3449 }
3450 3450
3451 3451 as_setwatch(as);
3452 3452 AS_LOCK_EXIT(as, &as->a_lock);
3453 3453 return (error);
3454 3454 }
3455 3455
3456 3456 /*
3457 3457 * Setup all of the uninitialized watched pages that we can.
3458 3458 */
3459 3459 void
3460 3460 as_setwatch(struct as *as)
3461 3461 {
3462 3462 struct watched_page *pwp;
3463 3463 struct seg *seg;
3464 3464 caddr_t vaddr;
3465 3465 uint_t prot;
3466 3466 int err, retrycnt;
3467 3467
3468 3468 if (avl_numnodes(&as->a_wpage) == 0)
3469 3469 return;
↓ open down ↓ |
93 lines elided |
↑ open up ↑ |
3470 3470
3471 3471 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
3472 3472
3473 3473 for (pwp = avl_first(&as->a_wpage); pwp != NULL;
3474 3474 pwp = AVL_NEXT(&as->a_wpage, pwp)) {
3475 3475 retrycnt = 0;
3476 3476 retry:
3477 3477 vaddr = pwp->wp_vaddr;
3478 3478 if (pwp->wp_oprot != 0 || /* already set up */
3479 3479 (seg = as_segat(as, vaddr)) == NULL ||
3480 - SEGOP_GETPROT(seg, vaddr, 0, &prot) != 0)
3480 + segop_getprot(seg, vaddr, 0, &prot) != 0)
3481 3481 continue;
3482 3482
3483 3483 pwp->wp_oprot = prot;
3484 3484 if (pwp->wp_read)
3485 3485 prot &= ~(PROT_READ|PROT_WRITE|PROT_EXEC);
3486 3486 if (pwp->wp_write)
3487 3487 prot &= ~PROT_WRITE;
3488 3488 if (pwp->wp_exec)
3489 3489 prot &= ~(PROT_READ|PROT_WRITE|PROT_EXEC);
3490 3490 if (!(pwp->wp_flags & WP_NOWATCH) && prot != pwp->wp_oprot) {
3491 - err = SEGOP_SETPROT(seg, vaddr, PAGESIZE, prot);
3491 + err = segop_setprot(seg, vaddr, PAGESIZE, prot);
3492 3492 if (err == IE_RETRY) {
3493 3493 pwp->wp_oprot = 0;
3494 3494 ASSERT(retrycnt == 0);
3495 3495 retrycnt++;
3496 3496 goto retry;
3497 3497 }
3498 3498 }
3499 3499 pwp->wp_prot = prot;
3500 3500 }
3501 3501 }
3502 3502
3503 3503 /*
3504 3504 * Clear all of the watched pages in the address space.
3505 3505 */
3506 3506 void
3507 3507 as_clearwatch(struct as *as)
3508 3508 {
3509 3509 struct watched_page *pwp;
3510 3510 struct seg *seg;
3511 3511 caddr_t vaddr;
3512 3512 uint_t prot;
3513 3513 int err, retrycnt;
3514 3514
3515 3515 if (avl_numnodes(&as->a_wpage) == 0)
3516 3516 return;
3517 3517
3518 3518 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
3519 3519
↓ open down ↓ |
18 lines elided |
↑ open up ↑ |
3520 3520 for (pwp = avl_first(&as->a_wpage); pwp != NULL;
3521 3521 pwp = AVL_NEXT(&as->a_wpage, pwp)) {
3522 3522 retrycnt = 0;
3523 3523 retry:
3524 3524 vaddr = pwp->wp_vaddr;
3525 3525 if (pwp->wp_oprot == 0 || /* not set up */
3526 3526 (seg = as_segat(as, vaddr)) == NULL)
3527 3527 continue;
3528 3528
3529 3529 if ((prot = pwp->wp_oprot) != pwp->wp_prot) {
3530 - err = SEGOP_SETPROT(seg, vaddr, PAGESIZE, prot);
3530 + err = segop_setprot(seg, vaddr, PAGESIZE, prot);
3531 3531 if (err == IE_RETRY) {
3532 3532 ASSERT(retrycnt == 0);
3533 3533 retrycnt++;
3534 3534 goto retry;
3535 3535 }
3536 3536 }
3537 3537 pwp->wp_oprot = 0;
3538 3538 pwp->wp_prot = 0;
3539 3539 }
3540 3540 }
3541 3541
3542 3542 /*
3543 3543 * Force a new setup for all the watched pages in the range.
3544 3544 */
3545 3545 static void
3546 3546 as_setwatchprot(struct as *as, caddr_t addr, size_t size, uint_t prot)
3547 3547 {
3548 3548 struct watched_page *pwp;
3549 3549 struct watched_page tpw;
3550 3550 caddr_t eaddr = addr + size;
3551 3551 caddr_t vaddr;
3552 3552 struct seg *seg;
3553 3553 int err, retrycnt;
3554 3554 uint_t wprot;
3555 3555 avl_index_t where;
3556 3556
3557 3557 if (avl_numnodes(&as->a_wpage) == 0)
3558 3558 return;
3559 3559
3560 3560 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
3561 3561
3562 3562 tpw.wp_vaddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
3563 3563 if ((pwp = avl_find(&as->a_wpage, &tpw, &where)) == NULL)
3564 3564 pwp = avl_nearest(&as->a_wpage, where, AVL_AFTER);
3565 3565
3566 3566 while (pwp != NULL && pwp->wp_vaddr < eaddr) {
3567 3567 retrycnt = 0;
3568 3568 vaddr = pwp->wp_vaddr;
3569 3569
3570 3570 wprot = prot;
3571 3571 if (pwp->wp_read)
3572 3572 wprot &= ~(PROT_READ|PROT_WRITE|PROT_EXEC);
3573 3573 if (pwp->wp_write)
↓ open down ↓ |
33 lines elided |
↑ open up ↑ |
3574 3574 wprot &= ~PROT_WRITE;
3575 3575 if (pwp->wp_exec)
3576 3576 wprot &= ~(PROT_READ|PROT_WRITE|PROT_EXEC);
3577 3577 if (!(pwp->wp_flags & WP_NOWATCH) && wprot != pwp->wp_oprot) {
3578 3578 retry:
3579 3579 seg = as_segat(as, vaddr);
3580 3580 if (seg == NULL) {
3581 3581 panic("as_setwatchprot: no seg");
3582 3582 /*NOTREACHED*/
3583 3583 }
3584 - err = SEGOP_SETPROT(seg, vaddr, PAGESIZE, wprot);
3584 + err = segop_setprot(seg, vaddr, PAGESIZE, wprot);
3585 3585 if (err == IE_RETRY) {
3586 3586 ASSERT(retrycnt == 0);
3587 3587 retrycnt++;
3588 3588 goto retry;
3589 3589 }
3590 3590 }
3591 3591 pwp->wp_oprot = prot;
3592 3592 pwp->wp_prot = wprot;
3593 3593
3594 3594 pwp = AVL_NEXT(&as->a_wpage, pwp);
3595 3595 }
3596 3596 }
3597 3597
3598 3598 /*
3599 3599 * Clear all of the watched pages in the range.
3600 3600 */
3601 3601 static void
3602 3602 as_clearwatchprot(struct as *as, caddr_t addr, size_t size)
3603 3603 {
3604 3604 caddr_t eaddr = addr + size;
3605 3605 struct watched_page *pwp;
3606 3606 struct watched_page tpw;
3607 3607 uint_t prot;
3608 3608 struct seg *seg;
3609 3609 int err, retrycnt;
3610 3610 avl_index_t where;
3611 3611
3612 3612 if (avl_numnodes(&as->a_wpage) == 0)
3613 3613 return;
3614 3614
3615 3615 tpw.wp_vaddr = (caddr_t)((uintptr_t)addr & (uintptr_t)PAGEMASK);
3616 3616 if ((pwp = avl_find(&as->a_wpage, &tpw, &where)) == NULL)
3617 3617 pwp = avl_nearest(&as->a_wpage, where, AVL_AFTER);
3618 3618
3619 3619 ASSERT(AS_WRITE_HELD(as, &as->a_lock));
3620 3620
↓ open down ↓ |
26 lines elided |
↑ open up ↑ |
3621 3621 while (pwp != NULL && pwp->wp_vaddr < eaddr) {
3622 3622
3623 3623 if ((prot = pwp->wp_oprot) != 0) {
3624 3624 retrycnt = 0;
3625 3625
3626 3626 if (prot != pwp->wp_prot) {
3627 3627 retry:
3628 3628 seg = as_segat(as, pwp->wp_vaddr);
3629 3629 if (seg == NULL)
3630 3630 continue;
3631 - err = SEGOP_SETPROT(seg, pwp->wp_vaddr,
3631 + err = segop_setprot(seg, pwp->wp_vaddr,
3632 3632 PAGESIZE, prot);
3633 3633 if (err == IE_RETRY) {
3634 3634 ASSERT(retrycnt == 0);
3635 3635 retrycnt++;
3636 3636 goto retry;
3637 3637
3638 3638 }
3639 3639 }
3640 3640 pwp->wp_oprot = 0;
3641 3641 pwp->wp_prot = 0;
3642 3642 }
3643 3643
3644 3644 pwp = AVL_NEXT(&as->a_wpage, pwp);
3645 3645 }
3646 3646 }
3647 3647
3648 3648 void
3649 3649 as_signal_proc(struct as *as, k_siginfo_t *siginfo)
3650 3650 {
3651 3651 struct proc *p;
3652 3652
3653 3653 mutex_enter(&pidlock);
3654 3654 for (p = practive; p; p = p->p_next) {
3655 3655 if (p->p_as == as) {
3656 3656 mutex_enter(&p->p_lock);
3657 3657 if (p->p_as == as)
3658 3658 sigaddq(p, NULL, siginfo, KM_NOSLEEP);
3659 3659 mutex_exit(&p->p_lock);
3660 3660 }
3661 3661 }
3662 3662 mutex_exit(&pidlock);
3663 3663 }
3664 3664
3665 3665 /*
3666 3666 * return memory object ID
3667 3667 */
3668 3668 int
3669 3669 as_getmemid(struct as *as, caddr_t addr, memid_t *memidp)
3670 3670 {
3671 3671 struct seg *seg;
3672 3672 int sts;
3673 3673
3674 3674 AS_LOCK_ENTER(as, &as->a_lock, RW_READER);
3675 3675 seg = as_segat(as, addr);
3676 3676 if (seg == NULL) {
3677 3677 AS_LOCK_EXIT(as, &as->a_lock);
↓ open down ↓ |
36 lines elided |
↑ open up ↑ |
3678 3678 return (EFAULT);
3679 3679 }
3680 3680 /*
3681 3681 * catch old drivers which may not support getmemid
3682 3682 */
3683 3683 if (seg->s_ops->getmemid == NULL) {
3684 3684 AS_LOCK_EXIT(as, &as->a_lock);
3685 3685 return (ENODEV);
3686 3686 }
3687 3687
3688 - sts = SEGOP_GETMEMID(seg, addr, memidp);
3688 + sts = segop_getmemid(seg, addr, memidp);
3689 3689
3690 3690 AS_LOCK_EXIT(as, &as->a_lock);
3691 3691 return (sts);
3692 3692 }
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX