Actual source code: errstop.c


  2: #include <petscsys.h>

  4: /*@C
  5:    PetscMPIAbortErrorHandler - Calls PETSCABORT and exits.

  7:    Not Collective

  9:    Input Parameters:
 10: +  comm - communicator over which error occurred
 11: .  line - the line number of the error (indicated by __LINE__)
 12: .  file - the file in which the error was detected (indicated by __FILE__)
 13: .  mess - an error text string, usually just printed to the screen
 14: .  n - the generic error number
 15: .  p - `PETSC_ERROR_INITIAL` if error just detected, otherwise `PETSC_ERROR_REPEAT`
 16: -  ctx - error handler context

 18:    Level: developer

 20:    Note:
 21:    Users do not directly call this routine

 23:    Use `PetscPushErrorHandler()` to set the desired error handler.  The
 24:    currently available PETSc error handlers include `PetscTraceBackErrorHandler()`,
 25:    `PetscMPIAbortErrorHandler()`, `PetscAttachDebuggerErrorHandler()`, and `PetscAbortErrorHandler()`.

 27: .seealso: `PetscError()`, `PetscPushErrorHandler()`, `PetscPopErrorHandler()`, `PetscAttachDebuggerErrorHandler()`,
 28:           `PetscAbortErrorHandler()`, `PetscMPIAbortErrorHandler()`, `PetscTraceBackErrorHandler()`, `PetscEmacsClientErrorHandler()`, `PetscReturnErrorHandler()`
 29:  @*/
 30: PetscErrorCode PetscMPIAbortErrorHandler(MPI_Comm comm, int line, const char *fun, const char *file, PetscErrorCode n, PetscErrorType p, const char *mess, void *ctx)
 31: {
 32:   PetscErrorCode ierr;
 33:   PetscBool      flg1 = PETSC_FALSE, flg2 = PETSC_FALSE, flg3 = PETSC_FALSE;
 34:   PetscLogDouble mem, rss;

 36:   PetscFunctionBegin;
 37:   if (!mess) mess = " ";

 39:   if (n == PETSC_ERR_MEM) {
 40:     ierr = (*PetscErrorPrintf)("%s() at %s:%d\n", fun, file, line);
 41:     ierr = (*PetscErrorPrintf)("Out of memory. This could be due to allocating\n");
 42:     ierr = (*PetscErrorPrintf)("too large an object or bleeding by not properly\n");
 43:     ierr = (*PetscErrorPrintf)("destroying unneeded objects.\n");
 44:     ierr = PetscMallocGetCurrentUsage(&mem);
 45:     ierr = PetscMemoryGetCurrentUsage(&rss);
 46:     ierr = PetscOptionsGetBool(NULL, NULL, "-malloc_dump", &flg1, NULL);
 47:     ierr = PetscOptionsGetBool(NULL, NULL, "-malloc_view", &flg2, NULL);
 48:     ierr = PetscOptionsHasName(NULL, NULL, "-malloc_view_threshold", &flg3);
 49:     if (flg2 || flg3) ierr = PetscMallocView(stdout);
 50:     else {
 51:       ierr = (*PetscErrorPrintf)("Memory allocated %.0f Memory used by process %.0f\n", mem, rss);
 52:       if (flg1) ierr = PetscMallocDump(stdout);
 53:       else ierr = (*PetscErrorPrintf)("Try running with -malloc_dump or -malloc_view for info.\n");
 54:     }
 55:   } else if (n == PETSC_ERR_SUP) {
 56:     ierr = (*PetscErrorPrintf)("%s() at %s:%d\n", fun, file, line);
 57:     ierr = (*PetscErrorPrintf)("No support for this operation for this object type!\n");
 58:     ierr = (*PetscErrorPrintf)("%s\n", mess);
 59:   } else if (n == PETSC_ERR_SIG) ierr = (*PetscErrorPrintf)("%s() at %s:%d %s\n", fun, file, line, mess);
 60:   else ierr = (*PetscErrorPrintf)("%s() at %s:%d\n    %s\n", fun, file, line, mess);

 62:   (void)ierr;
 63:   PETSCABORT(PETSC_COMM_WORLD, n);
 64:   PetscFunctionReturn(PETSC_SUCCESS);
 65: }