Lines Matching defs:ul
327 user_lock *ul = (user_lock *) mg->mg_ptr;
330 if (ul) {
331 recursive_lock_destroy(aTHX_ &ul->lock);
332 COND_DESTROY(&ul->user_cond);
333 PerlMemShared_free(ul);
402 user_lock *ul = NULL;
419 ul = (user_lock*)(mg->mg_ptr);
423 ul = (user_lock *) PerlMemShared_malloc(sizeof(user_lock));
424 Zero(ul, 1, user_lock);
427 (char *)ul, 0);
429 recursive_lock_init(aTHX_ &ul->lock);
430 COND_INIT(&ul->user_cond);
434 return (ul);
1229 user_lock *ul;
1232 ul = S_get_userlock(aTHX_ ssv, 1);
1233 recursive_lock_acquire(aTHX_ &ul->lock, __FILE__, __LINE__);
1587 user_lock *ul;
1597 ul = S_get_userlock(aTHX_ ssv, 1);
1599 user_condition = &ul->user_cond;
1608 ul = S_get_userlock(aTHX_ ssv, 1);
1610 if (ul->lock.owner != aTHX)
1614 MUTEX_LOCK(&ul->lock.mutex);
1615 ul->lock.owner = NULL;
1616 locks = ul->lock.locks;
1617 ul->lock.locks = 0;
1621 COND_SIGNAL(&ul->lock.cond);
1622 COND_WAIT(user_condition, &ul->lock.mutex);
1623 while (ul->lock.owner != NULL) {
1625 COND_WAIT(&ul->lock.cond, &ul->lock.mutex);
1627 ul->lock.owner = aTHX;
1628 ul->lock.locks = locks;
1629 MUTEX_UNLOCK(&ul->lock.mutex);
1639 user_lock *ul;
1649 ul = S_get_userlock(aTHX_ ssv, 1);
1651 user_condition = &ul->user_cond;
1660 ul = S_get_userlock(aTHX_ ssv, 1);
1662 if (ul->lock.owner != aTHX)
1665 MUTEX_LOCK(&ul->lock.mutex);
1666 ul->lock.owner = NULL;
1667 locks = ul->lock.locks;
1668 ul->lock.locks = 0;
1671 COND_SIGNAL(&ul->lock.cond);
1672 RETVAL = Perl_sharedsv_cond_timedwait(user_condition, &ul->lock.mutex, abs);
1673 while (ul->lock.owner != NULL) {
1675 COND_WAIT(&ul->lock.cond, &ul->lock.mutex);
1677 ul->lock.owner = aTHX;
1678 ul->lock.locks = locks;
1679 MUTEX_UNLOCK(&ul->lock.mutex);
1692 user_lock *ul;
1702 ul = S_get_userlock(aTHX_ ssv, 1);
1703 if (ckWARN(WARN_THREADS) && ul->lock.owner != aTHX) {
1707 COND_SIGNAL(&ul->user_cond);
1715 user_lock *ul;
1725 ul = S_get_userlock(aTHX_ ssv, 1);
1726 if (ckWARN(WARN_THREADS) && ul->lock.owner != aTHX) {
1730 COND_BROADCAST(&ul->user_cond);