57     int *ptr, shift;  in PetscMallocAlign()  local
62       ptr = (int *)calloc(1 + (mem + 2 * PETSC_MEMALIGN) / sizeof(int), sizeof(int));  in PetscMallocAlign()
64       ptr = (int *)malloc(mem + 2 * PETSC_MEMALIGN);  in PetscMallocAlign()
66     PetscCheck(ptr, PETSC_COMM_SELF, PETSC_ERR_MEM, "Memory requested %.0f", (PetscLogDouble)mem);  in PetscMallocAlign()
67     shift          = (int)(((PETSC_UINTPTR_T)ptr) % PETSC_MEMALIGN);  in PetscMallocAlign()
69     ptr[shift - 1] = shift + SHIFT_CLASSID;  in PetscMallocAlign()
70     ptr += shift;  in PetscMallocAlign()
71     *result = (void *)ptr;  in PetscMallocAlign()
79 PETSC_EXTERN PetscErrorCode PetscFreeAlign(void *ptr, int line, const char func[], const char file[…  in PetscFreeAlign()  argument
81   if (!ptr) return PETSC_SUCCESS;  in PetscFreeAlign()
83   memkind_free(0, ptr); /* specify the kind to 0 so that memkind will look up for the right type */  in PetscFreeAlign()
91     const int shift = *((int *)ptr - 1) - SHIFT_CLASSID;  in PetscFreeAlign()
95     ptr = (void *)((int *)ptr - shift);  in PetscFreeAlign()
100   int err = free(ptr);  in PetscFreeAlign()
103   free(ptr);  in PetscFreeAlign()
139     int *ptr = (int *)realloc(*result, mem + 2 * PETSC_MEMALIGN);  in PetscReallocAlign()  local
140     if (ptr) {  in PetscReallocAlign()
141       int shift      = (int)(((PETSC_UINTPTR_T)ptr) % PETSC_MEMALIGN);  in PetscReallocAlign()
143       ptr[shift - 1] = shift + SHIFT_CLASSID;  in PetscReallocAlign()
144       ptr += shift;  in PetscReallocAlign()
145       *result = (void *)ptr;  in PetscReallocAlign()
389   void  **ptr[8];  in PetscMallocA()  local
395   ptr[0]   = (void **)ptr0;  in PetscMallocA()
400     ptr[i]   = va_arg(Argp, void **);  in PetscMallocA()
408       for (i = 0; i < n; i++) *ptr[i] = NULL;  in PetscMallocA()
411         *ptr[i] = bytes[i] ? p : NULL;  in PetscMallocA()
416 … = 0; i < n; i++) PetscCall((*PetscTrMalloc)(bytes[i], clear, lineno, function, filename, ptr[i]));  in PetscMallocA()
447   void  **ptr[8];  in PetscFreeA()  local
452   ptr[0] = (void **)ptr0;  in PetscFreeA()
454   for (i = 1; i < n; i++) ptr[i] = va_arg(Argp, void **);  in PetscFreeA()
458       if (*ptr[i]) break;  in PetscFreeA()
460     while (--n > i) *ptr[n] = NULL;  in PetscFreeA()
461     PetscCall((*PetscTrFree)(*ptr[n], lineno, function, filename));  in PetscFreeA()
462     *ptr[n] = NULL;  in PetscFreeA()
465       PetscCall((*PetscTrFree)(*ptr[n], lineno, function, filename));  in PetscFreeA()
466       *ptr[n] = NULL;  in PetscFreeA()