22 PetscErrorCode PetscHeaderCreate_Function(PetscErrorCode ierr, PetscObject *h, PetscClassId classid…  in PetscHeaderCreate_Function()  argument
26   PetscCall(PetscHeaderCreate_Private(*h, classid, class_name, descr, mansec, comm, destroy, view));  in PetscHeaderCreate_Function()
27   PetscCall(PetscLogObjectCreate(*h));  in PetscHeaderCreate_Function()
34 PetscErrorCode PetscHeaderCreate_Private(PetscObject h, PetscClassId classid, const char class_name…  in PetscHeaderCreate_Private()  argument
41   h->classid               = classid;  in PetscHeaderCreate_Private()
42   h->class_name            = (char *)class_name;  in PetscHeaderCreate_Private()
43   h->description           = (char *)descr;  in PetscHeaderCreate_Private()
44   h->mansec                = (char *)mansec;  in PetscHeaderCreate_Private()
45   h->refct                 = 1;  in PetscHeaderCreate_Private()
46   h->non_cyclic_references = NULL;  in PetscHeaderCreate_Private()
47   h->id                    = PetscObjectNewId_Internal();  in PetscHeaderCreate_Private()
48   h->bops->destroy         = destroy;  in PetscHeaderCreate_Private()
49   h->bops->view            = view;  in PetscHeaderCreate_Private()
51   PetscCall(PetscCommDuplicate(comm, &h->comm, &h->tag));  in PetscHeaderCreate_Private()
54   PetscCallMPI(MPI_Comm_get_attr(h->comm, Petsc_CreationIdx_keyval, &get_tmp, &iflg));  in PetscHeaderCreate_Private()
55 …PetscCheck(iflg, h->comm, PETSC_ERR_ARG_CORRUPT, "MPI_Comm does not have an object creation index"…  in PetscHeaderCreate_Private()
57   h->cidx = (*cidx)++;  in PetscHeaderCreate_Private()
67         PetscObjects[i] = h;  in PetscHeaderCreate_Private()
79     PetscObjects[PetscObjectsMaxCounts] = h;  in PetscHeaderCreate_Private()
88 PetscErrorCode PetscHeaderDestroy_Function(PetscObject *h)  in PetscHeaderDestroy_Function()  argument
91   PetscCall(PetscLogObjectDestroy(*h));  in PetscHeaderDestroy_Function()
92   PetscCall(PetscHeaderDestroy_Private(*h, PETSC_FALSE));  in PetscHeaderDestroy_Function()
93   PetscCall(PetscFree(*h));  in PetscHeaderDestroy_Function()
344   PetscObject h;  in PetscObjectsDump()  local
351       if ((h = PetscObjects[i])) {  in PetscObjectsDump()
352         PetscCall(PetscObjectName(h));  in PetscObjectsDump()
358           PetscCall(PetscMallocGetStack(h, &stack));  in PetscObjectsDump()
366               PetscCall(PetscStrstr(stack->function[k], h->class_name, &rclass));  in PetscObjectsDump()
372 …tf(PETSC_COMM_WORLD, fd, "[%d] %s %s %s\n", PetscGlobalRank, h->class_name, h->type_name, h->name)…  in PetscObjectsDump()
374           PetscCall(PetscMallocGetStack(h, &stack));  in PetscObjectsDump()
430   PetscObject h;  in PetscObjectsGetObject()  local
437     if ((h = PetscObjects[i])) {  in PetscObjectsGetObject()
438       PetscCall(PetscObjectName(h));  in PetscObjectsGetObject()
439       PetscCall(PetscStrcmp(h->name, name, &flg));  in PetscObjectsGetObject()
441         if (obj) *obj = h;  in PetscObjectsGetObject()
442         if (classname) *classname = h->class_name;  in PetscObjectsGetObject()