lib/msvc-inval.c

   1 /* Invalid parameter handler for MSVC runtime libraries.
   2    Copyright (C) 2011 Free Software Foundation, Inc.
   3
   4    This program is free software; you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation; either version 2, or (at your option)
   7    any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License along
  15    with this program; if not, write to the Free Software Foundation,
  16    Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
  17
  18 #include <config.h>
  19
  20 /* Specification.  */
  21 #include "msvc-inval.h"
  22
  23 #if HAVE_MSVC_INVALID_PARAMETER_HANDLER
  24
  25 /* Get declarations of the Win32 API functions.  */
  26 # define WIN32_LEAN_AND_MEAN
  27 # include <windows.h>
  28
  29 # if defined _MSC_VER
  30
  31 static void cdecl
  32 gl_msvc_invalid_parameter_handler (const wchar_t *expression,
  33                                    const wchar_t *function,
  34                                    const wchar_t *file,
  35                                    unsigned int line,
  36                                    uintptr_t dummy)
  37 {
  38   RaiseException (STATUS_GNULIB_INVALID_PARAMETER, 0, 0, NULL);
  39 }
  40
  41 # else
  42
  43 jmp_buf gl_msvc_inval_restart;
  44 int gl_msvc_inval_restart_valid;
  45
  46 static void cdecl
  47 gl_msvc_invalid_parameter_handler (const wchar_t *expression,
  48                                    const wchar_t *function,
  49                                    const wchar_t *file,
  50                                    unsigned int line,
  51                                    uintptr_t dummy)
  52 {
  53   if (gl_msvc_inval_restart_valid)
  54     longjmp (gl_msvc_inval_restart, 1);
  55   else
  56     /* An invalid parameter notification from outside the gnulib code.
  57        Give the caller a chance to intervene.  */
  58     RaiseException (STATUS_GNULIB_INVALID_PARAMETER, 0, 0, NULL);
  59 }
  60
  61 # endif
  62
  63 static int gl_msvc_inval_initialized /* = 0 */;
  64
  65 void
  66 gl_msvc_inval_ensure_handler (void)
  67 {
  68   if (gl_msvc_inval_initialized == 0)
  69     {
  70       _set_invalid_parameter_handler (gl_msvc_invalid_parameter_handler);
  71       gl_msvc_inval_initialized = 1;
  72     }
  73 }
  74
  75 #endif