1*e118a51fSLisandro Dalcin #include <../src/sys/classes/draw/impls/x/ximpl.h> /*I "petscsys.h" I*/ 2*e118a51fSLisandro Dalcin 3*e118a51fSLisandro Dalcin #if defined(PETSC_HAVE_SETJMP_H) 4*e118a51fSLisandro Dalcin 5*e118a51fSLisandro Dalcin jmp_buf PetscXIOErrorHandlerJumpBuf; 6*e118a51fSLisandro Dalcin 7*e118a51fSLisandro Dalcin void PetscXIOErrorHandlerJump(PETSC_UNUSED void *ctx) 8*e118a51fSLisandro Dalcin { 9*e118a51fSLisandro Dalcin longjmp(PetscXIOErrorHandlerJumpBuf, 1); 10*e118a51fSLisandro Dalcin } 11*e118a51fSLisandro Dalcin 12*e118a51fSLisandro Dalcin PetscXIOErrorHandler PetscSetXIOErrorHandler(PetscXIOErrorHandler xioerrhdl) 13*e118a51fSLisandro Dalcin { 14*e118a51fSLisandro Dalcin return (PetscXIOErrorHandler)XSetIOErrorHandler((XIOErrorHandler)xioerrhdl); 15*e118a51fSLisandro Dalcin } 16*e118a51fSLisandro Dalcin 17*e118a51fSLisandro Dalcin 18*e118a51fSLisandro Dalcin #endif 19