Method code for $mutex._del_from_lock()

[Turn on line numbering]

---

arg tid, val;
var i, l;

if ((| (l = locks[val]) |)[1] != tid)
    return;
if (l[2] == 1) {
    (| (locks = locks.del(val)) |);
    ._del_from_queue(val);
} else {
    locks = locks.add(val, [tid, l[2] - 1]);
}

// $#Edited: 15 Jul 97 02:50 $user_bruce

---

["// Created 11-Mar-1997 as a part of ColdCore, see: @help Credit"]