ext/XS-APItest/exception.c

43003dfeSmillert#include "EXTERN.h"
43003dfeSmillert#include "perl.h"
43003dfeSmillert
43003dfeSmillert#define NO_XSLOCKS
43003dfeSmillert#include "XSUB.h"
43003dfeSmillert
43003dfeSmillertstatic void throws_exception(int throw_e)
43003dfeSmillert{
43003dfeSmillert  if (throw_e)
43003dfeSmillert    croak("boo\n");
43003dfeSmillert}
43003dfeSmillert
*898184e3Ssthen/* Don't give this the same name as execution() in ext/Devel/PPPort/module3.c
*898184e3Ssthen   as otherwise building entirely statically will cause a test to fail, as
43003dfeSmillert   PPPort's execption() gets used in place of this one.  */
43003dfeSmillert
43003dfeSmillertint apitest_exception(int throw_e)
43003dfeSmillert{
43003dfeSmillert  dTHR;
43003dfeSmillert  dXCPT;
43003dfeSmillert  SV *caught = get_sv("XS::APItest::exception_caught", 0);
43003dfeSmillert
43003dfeSmillert  XCPT_TRY_START {
43003dfeSmillert    throws_exception(throw_e);
43003dfeSmillert  } XCPT_TRY_END
43003dfeSmillert
43003dfeSmillert  XCPT_CATCH
43003dfeSmillert  {
43003dfeSmillert    sv_setiv(caught, 1);
43003dfeSmillert    XCPT_RETHROW;
43003dfeSmillert  }
43003dfeSmillert
43003dfeSmillert  sv_setiv(caught, 0);
43003dfeSmillert
43003dfeSmillert  return 42;
43003dfeSmillert}
43003dfeSmillert