Lines Matching refs:link
24 FortranCallbackLink next, link = base->subtypes; in PetscFortranCallbackFinalize() local
25 for (; link; link = next) { in PetscFortranCallbackFinalize()
26 next = link->next; in PetscFortranCallbackFinalize()
27 PetscCall(PetscFree(link->type_name)); in PetscFortranCallbackFinalize()
28 PetscCall(PetscFree(link)); in PetscFortranCallbackFinalize()
56 FortranCallbackLink link; in PetscFortranCallbackRegister() local
77 …for (link = base->subtypes; link; link = link->next) { /* look for either both NULL or matching va… in PetscFortranCallbackRegister()
79 PetscCall(PetscStrcmp(subtype, link->type_name, &match)); in PetscFortranCallbackRegister()
85 PetscCall(PetscNew(&link)); in PetscFortranCallbackRegister()
86 PetscCall(PetscStrallocpy(subtype, &link->type_name)); in PetscFortranCallbackRegister()
88 link->max = PETSC_SMALLEST_FORTRAN_CALLBACK; in PetscFortranCallbackRegister()
89 link->next = base->subtypes; in PetscFortranCallbackRegister()
90 base->subtypes = link; in PetscFortranCallbackRegister()
93 *id = link->max++; in PetscFortranCallbackRegister()
95 …base->maxsubtypecount = PetscMax(base->maxsubtypecount, link->max - PETSC_SMALLEST_FORTRAN_CALLBAC… in PetscFortranCallbackRegister()