iOS 中weak的实现代码示例

struct sidetable {
  // 自旋锁，用来保证线程安全
  spinlock_t slock;
  // 引用计数表
  refcountmap refcnts;
  // weak 表
  weak_table_t weak_table;

  ...
};

struct weak_table_t {
  // 保存了所有指向指定对象的 weak 指针
  weak_entry_t *weak_entries;
  // 存储空间，即 entries 的数目
  size_t  num_entries;
  // 参与判断引用计数辅助量
  uintptr_t mask;
  // hash key 最大偏移量
  uintptr_t max_hash_displacement;
};

// 存储在弱引用表中的一个内部结构体
#define weak_inline_count 4
struct weak_entry_t {
  disguisedptr<objc_object> referent;         // 封装 objc_object 指针，即 weak 修饰的变量指向的对象
  union {
    struct {
      weak_referrer_t *referrers;
      uintptr_t    out_of_line : 1;      // lsb 最低有效元 当标志位为0时，增加引用表指针纬度，
                            // 当其为0的时候， weak_referrer_t 成员将扩展为静态数组型的 hash table
      uintptr_t    num_refs : ptr_minus_1;  // 引用数值，这里记录弱引用表中引用有效数字，即里面元素的数量
      uintptr_t    mask;
      uintptr_t    max_hash_displacement;   // hash 元素上限阀值
    };
    struct {
      // out_of_line=0 is lsb of one of these (don't care which)
      weak_referrer_t inline_referrers[weak_inline_count];   
    };
  };
};

{
  id obj1 = [[nsobject alloc] init];
  id __weak obj2 = obj1;
}

id objc_initweak(id *location, id newobj)
{
  // 查看对象实例是否有效
  // 无效对象直接导致指针释放
  if (!newobj) {
    *location = nil;
    return nil;
  }
  // 这里传递了三个 bool 数值
  // 使用 template 进行常量参数传递是为了优化性能
  return storeweak<false/*old*/, true/*new*/, true/*crash*/>
    (location, (objc_object*)newobj);
}

void objc_destroyweak(id *location)
{
  (void)storeweak<true/*old*/, false/*new*/, false/*crash*/>
    (location, nil);
}

// 更新一个弱引用变量
// 如果 haveold 是 true, 变量是个有效值，需要被及时清理。变量可以为 nil。
// 如果 havenew 是 true, 需要一个新的 value 来替换变量。变量可以为 nil
// 如果crashifdeallocation 是 ture ，那么如果 newobj 是 deallocating，或者 newobj 的类不支持弱引用，则该进程就会停止。
// 如果crashifdeallocation 是 false，那么 nil 会被存储。

template <bool haveold, bool havenew, bool crashifdeallocating>
static id storeweak(id *location, objc_object *newobj)
{
  assert(haveold || havenew);
  if (!havenew) assert(newobj == nil);

  class previouslyinitializedclass = nil;
  id oldobj;
  
  // 创建新旧散列表
  sidetable *oldtable;
  sidetable *newtable;

  // acquire locks for old and new values.
  // 获得新值和旧值的锁存位置 (用地址作为唯一标示)
  // order by lock address to prevent lock ordering problems.
  // 通过地址来建立索引标志，防止桶重复
  // retry if the old value changes underneath us.
  // 下面指向的操作会改变旧值
 retry:
  if (haveold) {
  // 如果 haveold 为 true ，更改指针，获得以 oldobj 为索引所存储的值地址
    oldobj = *location;
    oldtable = &sidetables()[oldobj];
  } else {
    oldtable = nil;
  }
  if (havenew) {
  // 获得以 newobj 为索引所存储的值对象
    newtable = &sidetables()[newobj];
  } else {
    newtable = nil;
  }
  
// 对两个 table 进行加锁操作，防止多线程中竞争冲突
  sidetable::locktwo<haveold, havenew>(oldtable, newtable);

// location 应该与 oldobj 保持一致，如果不同，说明当前的 location 已经处理过 oldobj 可是又被其他线程所修改, 保证线程安全，这个判断用来避免线程冲突重处理问题
  if (haveold && *location != oldobj) {
    sidetable::unlocktwo<haveold, havenew>(oldtable, newtable);
    goto retry;
  }

  // prevent a deadlock between the weak reference machinery
  // and the +initialize machinery by ensuring that no 
  // weakly-referenced object has an un-+initialized isa.
  // 防止弱引用之间发生死锁，并且通过 +initialize 初始化构造器保证所有弱引用的 isa 非空指向
  if (havenew && newobj) {
    // 获得新对象的 isa 指针
    class cls = newobj->getisa();
    // 判断 isa 非空且已经初始化
    if (cls != previouslyinitializedclass && 
      !((objc_class *)cls)->isinitialized()) 
    {
      // 对两个表解锁
      sidetable::unlocktwo<haveold, havenew>(oldtable, newtable);
      _class_initialize(_class_getnonmetaclass(cls, (id)newobj));

      // if this class is finished with +initialize then we're good.
      // if this class is still running +initialize on this thread 
      // (i.e. +initialize called storeweak on an instance of itself)
      // then we may proceed but it will appear initializing and 
      // not yet initialized to the check above.
      // instead set previouslyinitializedclass to recognize it on retry.
      // 如果该类已经完成执行 +initialize 方法是最好的，如果该类 + initialize 在线程中，例如 +initialize 正在调用storeweak 方法，那么则需要手动对其增加保护策略，并设置 previouslyinitializedclass 指针进行标记然后重新尝试
      previouslyinitializedclass = cls;

      goto retry;
    }
  }

  // clean up old value, if any. 清除旧值
  if (haveold) {
    weak_unregister_no_lock(&oldtable->weak_table, oldobj, location);
  }

  // assign new value, if any. 分配新值
  if (havenew) {
    newobj = (objc_object *)weak_register_no_lock(&newtable->weak_table, 
                           (id)newobj, location, 
                           crashifdeallocating);
    // weak_register_no_lock returns nil if weak store should be rejected
    // 如果弱引用被释放则该方法返回 nil
    // set is-weakly-referenced bit in refcount table.
    // 在引用计数表中设置弱引用标记位
    if (newobj && !newobj->istaggedpointer()) {
      newobj->setweaklyreferenced_nolock();
    }

    // do not set *location anywhere else. that would introduce a race.
    *location = (id)newobj;
  }
  else {
    // no new value. the storage is not changed.
  }
  
  sidetable::unlocktwo<haveold, havenew>(oldtable, newtable);

  return (id)newobj;
}

void weak_unregister_no_lock(weak_table_t *weak_table, id referent_id, 
            id *referrer_id)
{
  objc_object *referent = (objc_object *)referent_id;
  objc_object **referrer = (objc_object **)referrer_id;

  weak_entry_t *entry;

  if (!referent) return;

  if ((entry = weak_entry_for_referent(weak_table, referent))) {
    remove_referrer(entry, referrer);
    bool empty = true;
    if (entry->out_of_line && entry->num_refs != 0) {
      empty = false;
    }
    else {
      for (size_t i = 0; i < weak_inline_count; i++) {
        if (entry->inline_referrers[i]) {
          empty = false; 
          break;
        }
      }
    }

    if (empty) {
      weak_entry_remove(weak_table, entry);
    }
  }

  // do not set *referrer = nil. objc_storeweak() requires that the 
  // value not change.
}

static weak_entry_t *weak_entry_for_referent(weak_table_t *weak_table, objc_object *referent)
{
  assert(referent);

  weak_entry_t *weak_entries = weak_table->weak_entries;

  if (!weak_entries) return nil;

  size_t index = hash_pointer(referent) & weak_table->mask;
  size_t hash_displacement = 0;
  while (weak_table->weak_entries[index].referent != referent) {
    index = (index+1) & weak_table->mask;
    hash_displacement++;
    if (hash_displacement > weak_table->max_hash_displacement) {
      return nil;
    }
  }

  return &weak_table->weak_entries[index];
}

static void remove_referrer(weak_entry_t *entry, objc_object **old_referrer)
{
  if (! entry->out_of_line) {
    for (size_t i = 0; i < weak_inline_count; i++) {
      if (entry->inline_referrers[i] == old_referrer) {
        entry->inline_referrers[i] = nil;
        return;
      }
    }
    _objc_inform("attempted to unregister unknown __weak variable "
           "at %p. this is probably incorrect use of "
           "objc_storeweak() and objc_loadweak(). "
           "break on objc_weak_error to debug.\n", 
           old_referrer);
    objc_weak_error();
    return;
  }

  size_t index = w_hash_pointer(old_referrer) & (entry->mask);
  size_t hash_displacement = 0;
  while (entry->referrers[index] != old_referrer) {
    index = (index+1) & entry->mask;
    hash_displacement++;
    if (hash_displacement > entry->max_hash_displacement) {
      _objc_inform("attempted to unregister unknown __weak variable "
             "at %p. this is probably incorrect use of "
             "objc_storeweak() and objc_loadweak(). "
             "break on objc_weak_error to debug.\n", 
             old_referrer);
      objc_weak_error();
      return;
    }
  }
  entry->referrers[index] = nil;
  entry->num_refs--;
}

id weak_register_no_lock(weak_table_t *weak_table, id referent_id, 
           id *referrer_id, bool crashifdeallocating)
{
  objc_object *referent = (objc_object *)referent_id;
  objc_object **referrer = (objc_object **)referrer_id;

  if (!referent || referent->istaggedpointer()) return referent_id;

  // ensure that the referenced object is viable
  bool deallocating;
  if (!referent->isa()->hascustomrr()) {
    deallocating = referent->rootisdeallocating();
  }
  else {
    bool (*allowsweakreference)(objc_object *, sel) = 
      (bool(*)(objc_object *, sel))
      object_getmethodimplementation((id)referent, 
                      sel_allowsweakreference);
    if ((imp)allowsweakreference == _objc_msgforward) {
      return nil;
    }
    deallocating =
      ! (*allowsweakreference)(referent, sel_allowsweakreference);
  }

  if (deallocating) {
    if (crashifdeallocating) {
      _objc_fatal("cannot form weak reference to instance (%p) of "
            "class %s. it is possible that this object was "
            "over-released, or is in the process of deallocation.",
            (void*)referent, object_getclassname((id)referent));
    } else {
      return nil;
    }
  }

  // now remember it and where it is being stored
  weak_entry_t *entry;
  if ((entry = weak_entry_for_referent(weak_table, referent))) {
    append_referrer(entry, referrer);
  } 
  else {
    weak_entry_t new_entry;
    new_entry.referent = referent;
    new_entry.out_of_line = 0;
    new_entry.inline_referrers[0] = referrer;
    for (size_t i = 1; i < weak_inline_count; i++) {
      new_entry.inline_referrers[i] = nil;
    }

    weak_grow_maybe(weak_table);
    weak_entry_insert(weak_table, &new_entry);
  }

  // do not set *referrer. objc_storeweak() requires that the 
  // value not change.

  return referent_id;
}

static void append_referrer(weak_entry_t *entry, objc_object **new_referrer)
{
  if (! entry->out_of_line) {
    // try to insert inline.
    for (size_t i = 0; i < weak_inline_count; i++) {
      if (entry->inline_referrers[i] == nil) {
        entry->inline_referrers[i] = new_referrer;
        return;
      }
    }

    // couldn't insert inline. allocate out of line.
    weak_referrer_t *new_referrers = (weak_referrer_t *)
      calloc(weak_inline_count, sizeof(weak_referrer_t));
    // this constructed table is invalid, but grow_refs_and_insert
    // will fix it and rehash it.
    for (size_t i = 0; i < weak_inline_count; i++) {
      new_referrers[i] = entry->inline_referrers[i];
    }
    entry->referrers = new_referrers;
    entry->num_refs = weak_inline_count;
    entry->out_of_line = 1;
    entry->mask = weak_inline_count-1;
    entry->max_hash_displacement = 0;
  }

  assert(entry->out_of_line);

  if (entry->num_refs >= table_size(entry) * 3/4) {
    return grow_refs_and_insert(entry, new_referrer);
  }
  size_t index = w_hash_pointer(new_referrer) & (entry->mask);
  size_t hash_displacement = 0;
  while (entry->referrers[index] != null) {
    index = (index+1) & entry->mask;
    hash_displacement++;
  }
  if (hash_displacement > entry->max_hash_displacement) {
    entry->max_hash_displacement = hash_displacement;
  }
  weak_referrer_t &ref = entry->referrers[index];
  ref = new_referrer;
  entry->num_refs++;
}

void objc_clear_deallocating(id obj) 
{
  assert(obj);
  assert(!usegc);

  if (obj->istaggedpointer()) return;
  obj->cleardeallocating();
}

void objc_object::sidetable_cleardeallocating()
{
  sidetable& table = sidetables()[this];

  // clear any weak table items
  // clear extra retain count and deallocating bit
  // (fixme warn or abort if extra retain count == 0 ?)
  table.lock();
  // 迭代器
  refcountmap::iterator it = table.refcnts.find(this);
  if (it != table.refcnts.end()) {
    if (it->second & side_table_weakly_referenced) {
      weak_clear_no_lock(&table.weak_table, (id)this);
    }
    table.refcnts.erase(it);
  }
  table.unlock();
}

void weak_clear_no_lock(weak_table_t *weak_table, id referent_id) 
{
  objc_object *referent = (objc_object *)referent_id;

  weak_entry_t *entry = weak_entry_for_referent(weak_table, referent);
  if (entry == nil) {
    /// xxx shouldn't happen, but does with mismatched cf/objc
    //printf("xxx no entry for clear deallocating %p\n", referent);
    return;
  }

  // zero out references
  weak_referrer_t *referrers;
  size_t count;

  if (entry->out_of_line) {
    referrers = entry->referrers;
    count = table_size(entry);
  } 
  else {
    referrers = entry->inline_referrers;
    count = weak_inline_count;
  }

  for (size_t i = 0; i < count; ++i) {
    objc_object **referrer = referrers[i];
    if (referrer) {
      if (*referrer == referent) {
        *referrer = nil;
      }
      else if (*referrer) {
        _objc_inform("__weak variable at %p holds %p instead of %p. "
               "this is probably incorrect use of "
               "objc_storeweak() and objc_loadweak(). "
               "break on objc_weak_error to debug.\n", 
               referrer, (void*)*referrer, (void*)referent);
        objc_weak_error();
      }
    }
  }

  weak_entry_remove(weak_table, entry);
}