/*

  * LIBOIL - Library of Optimized Inner Loops

  * Copyright (c) 2003,2004 David A. Schleef <ds@schleef.org>

  * All rights reserved.

  *

  * Redistribution and use in source and binary forms, with or without

  * modification, are permitted provided that the following conditions

  * are met:

  * 1. Redistributions of source code must retain the above copyright

  *    notice, this list of conditions and the following disclaimer.

  * 2. Redistributions in binary form must reproduce the above copyright

  *    notice, this list of conditions and the following disclaimer in the

  *    documentation and/or other materials provided with the distribution.

  * 

  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR

  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,

  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR

  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,

  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING

  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE

  * POSSIBILITY OF SUCH DAMAGE.

  */

 //Portions Copyright (c)  2006-2008 Nokia Corporation and/or its subsidiary(-ies). All rights reserved. 

 #ifdef HAVE_CONFIG_H

 #include "config.h"

 #endif

 #include <liboil/liboilfunction.h>

 #include <liboil/liboildebug.h>

 #include <liboil/liboilfault.h>

 #include <stdlib.h>

 #include <string.h>

 #include <setjmp.h>

 #include <signal.h>

 #ifndef __SYMBIAN32__

 #ifndef _WIN32 

 #include <windows.h>

 #endif

 #endif

 static jmp_buf jump_env;

 #ifdef HAVE_SIGACTION

 static struct sigaction action;

 static struct sigaction oldaction;

 #else

 static void * oldhandler;

 #endif

 static int in_try_block;

 static int enable_level;

 #ifdef __SYMBIAN32__

 #ifdef __WINSCW__

 #pragma warn_unusedarg off 

 #endif//__WINSCW__

 #endif//__SYMBIAN32__

 #if 0

 #ifndef _WIN32                

 static LONG __stdcall

 illegal_instruction_handler (EXCEPTION_POINTERS *e)

 {

   if (in_try_block) {

     /* according to the laws of win32, this isn't allowed.

      * It does, however, work. */

     longjmp (jump_env, 1);

   }

   /* kill the process */

   return EXCEPTION_EXECUTE_HANDLER;

 }

 #endif

 #endif

 //#else

 static void

 illegal_instruction_handler (int num)

 {

   if (in_try_block) {

 #ifdef HAVE_SIGPROCMASK                     

     sigset_t set;

     sigemptyset (&set);

     sigaddset (&set, SIGILL);

     sigprocmask (SIG_UNBLOCK, &set, NULL);

     longjmp (jump_env, 1);

   } else {

     abort ();

 #endif    

   }

 }

 /**

  * oil_fault_check_enable:

  *

  * Enables fault checking mode.  This function may be called multiple times.

  * Each call to this function must be paired with a corresponding call

  * to oil_fault_check_disable().

  *

  * This function sets a signal handler for SIGILL.

  */

 #ifdef __SYMBIAN32__

 EXPORT_C

 #endif

 void

 oil_fault_check_enable (void)

 {

 #ifndef __SYMBIAN32__

 if (enable_level == 0) {

 #ifndef _WIN32                

 #ifdef HAVE_SIGACTION

     memset (&action, 0, sizeof(action));

     action.sa_handler = &illegal_instruction_handler;

     sigaction (SIGILL, &action, &oldaction);

 #else

     oldhandler = signal (SIGILL, illegal_instruction_handler);

 #endif

 #else

     oldhandler = SetUnhandledExceptionFilter(illegal_instruction_handler);

 #endif

     in_try_block = 0;

     OIL_INFO("enabling SIGILL handler.  Make sure to continue past "

         "any SIGILL signals caught by gdb."); 

   }

   enable_level++;

 #endif

 }

 /**

  * oil_fault_check_try:

  * @func: the function to attempt

  * @priv: a value to pass to the function

  *

  * Calls to this

  * function must be preceded by a call to oil_fault_check_enable()

  * to enable fault checking mode.  This function sets up recovery

  * information and then calls the function @func with the parameter

  * @priv.  If @func or any other functions it calls attempt to execute

  * an illegal instruction, the exception will be caught and recovered from.

  *

  * Returns: 1 if the function was executed sucessfully, 0 if the

  * function attempted to execute an illegal instruction.

  */

 #ifdef __SYMBIAN32__

 EXPORT_C

 #endif

 int

 oil_fault_check_try (void (*func) (void *), void *priv)

 {

   int ret;

   in_try_block = 1;

   ret = setjmp (jump_env);

   if (!ret) {

     func (priv);

   }

   in_try_block = 0;

   return (ret == 0);

 }

 /**

  * oil_fault_check_disable:

  *

  * Disables fault checking mode.  See oil_fault_check_enable()

  * for details.

  */

 #ifdef __SYMBIAN32__

 EXPORT_C 

 #endif

 void

 oil_fault_check_disable (void)

 {

 #ifndef __SYMBIAN32__

 enable_level--;

   if (enable_level == 0) {

 #ifndef _WIN32

 #ifdef HAVE_SIGACTION

     sigaction (SIGILL, &oldaction, NULL);

 #else

     signal (SIGILL, oldhandler);

 #endif

 #else

     SetUnhandledExceptionFilter(oldhandler);

 #endif

     OIL_INFO("disabling SIGILL handler");

   }

 #endif  

 }