runtime/src/kmp_threadprivate.cpp

38   struct private_common *tn;
47   for (tn = tbl->data[KMP_HASH(pc_addr)]; tn; tn = tn->next) {
48     if (tn->gbl_addr == pc_addr) {
54       return tn;
67   struct shared_common *tn;
69   for (tn = tbl->data[KMP_HASH(pc_addr)]; tn; tn = tn->next) {
70     if (tn->gbl_addr == pc_addr) {
77       return tn;
169       struct private_common *tn;
184                   tn = __kmp_threadprivate_find_task_common(
187                   if (tn) {
188                     (*d_tn->dt.dtorv)(tn->par_addr, d_tn->vec_len);
203                   tn = __kmp_threadprivate_find_task_common(
206                   if (tn) {
207                     (*d_tn->dt.dtor)(tn->par_addr);
225   struct private_common *tn;
243       for (tn = __kmp_threads[gtid]->th.th_pri_head; tn; tn = tn->link) {
246                                              tn->gbl_addr);
252             (void)(*d_tn->dt.dtorv)(tn->par_addr, d_tn->vec_len);
259             (void)(*d_tn->dt.dtor)(tn->par_addr);
282         struct private_common *tn;
286         for (tn = __kmp_threads[p]->th.th_pri_common->data[q]; tn;
287              tn = tn->next) {
290                     tn->gbl_addr, tn->par_addr));
338   struct private_common *tn, **tt;
344   tn = (struct private_common *)__kmp_allocate(sizeof(struct private_common));
346   tn->gbl_addr = pc_addr;
406   tn->cmn_size = d_tn->cmn_size;
409     tn->par_addr = (void *)pc_addr;
411     tn->par_addr = (void *)__kmp_allocate(tn->cmn_size);
437   tn->next = *tt;
438   *tt = tn;
449   tn->link = __kmp_threads[gtid]->th.th_pri_head;
450   __kmp_threads[gtid]->th.th_pri_head = tn;
453     return tn;
467       (void)(*d_tn->ct.ctorv)(tn->par_addr, d_tn->vec_len);
469       (void)(*d_tn->cct.cctorv)(tn->par_addr, d_tn->obj_init, d_tn->vec_len);
470     } else if (tn->par_addr != tn->gbl_addr) {
471       __kmp_copy_common_data(tn->par_addr, d_tn->pod_init);
475       (void)(*d_tn->ct.ctor)(tn->par_addr);
477       (void)(*d_tn->cct.cctor)(tn->par_addr, d_tn->obj_init);
478     } else if (tn->par_addr != tn->gbl_addr) {
479       __kmp_copy_common_data(tn->par_addr, d_tn->pod_init);
483       if (tn->par_addr != tn->gbl_addr)
484           __kmp_copy_common_data( tn->par_addr, d_tn->pod_init ); */
486   return tn;
543   struct private_common *tn;
567     tn = __kmp_threadprivate_find_task_common(
570     if (tn) {
573       if ((size_t)size > tn->cmn_size) {
576                       data, size, tn->cmn_size));
585       tn = kmp_threadprivate_insert(global_tid, data, data, size);
588     ret = tn->par_addr;