Actual source code: err.h

      1: #pragma once

      3: #include <petscsys.h>

      5: static inline PetscErrorCode PetscErrorMemoryMessage(PetscErrorCode n)
      6: {
      7:   PetscLogDouble mem, rss;
      8:   PetscErrorCode ierr;
      9:   PetscBool      flg1 = PETSC_FALSE, flg2 = PETSC_FALSE, flg3 = PETSC_FALSE;

     11:   if (n == PETSC_ERR_MEM) {
     12:     ierr = (*PetscErrorPrintf)("Out of memory. This could be due to allocating\n");
     13:     ierr = (*PetscErrorPrintf)("too large an object or bleeding by not properly\n");
     14:     ierr = (*PetscErrorPrintf)("destroying unneeded objects.\n");
     15:   } else {
     16:     ierr = (*PetscErrorPrintf)("Memory leaked due to not properly destroying\n");
     17:     ierr = (*PetscErrorPrintf)("unneeded objects.\n");
     18:   }
     19:   ierr = PetscMallocGetCurrentUsage(&mem);
     20:   ierr = PetscMemoryGetCurrentUsage(&rss);
     21:   ierr = PetscOptionsGetBool(NULL, NULL, "-on_error_malloc_dump", &flg1, NULL);
     22:   ierr = PetscOptionsGetBool(NULL, NULL, "-malloc_view", &flg2, NULL);
     23:   ierr = PetscOptionsHasName(NULL, NULL, "-malloc_view_threshold", &flg3);
     24:   if (flg2 || flg3) ierr = PetscMallocView(stdout);
     25:   else {
     26:     ierr = (*PetscErrorPrintf)("Memory allocated %.0f Memory used by process %.0f\n", mem, rss);
     27:     if (flg1) ierr = PetscMallocDump(stdout);
     28:     else ierr = (*PetscErrorPrintf)("Try running with -on_error_malloc_dump or -malloc_view for info.\n");
     29:   }
     30:   return ierr;
     31: }