Return to msvc-inval.c CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / libiconv / srclib

libiconv 1.16

    1: /* Invalid parameter handler for MSVC runtime libraries.
    2:    Copyright (C) 2011-2019 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 3, 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, see <https://www.gnu.org/licenses/>.  */
   16: 
   17: #include <config.h>
   18: 
   19: /* Specification.  */
   20: #include "msvc-inval.h"
   21: 
   22: #if HAVE_MSVC_INVALID_PARAMETER_HANDLER \
   23:     && !(MSVC_INVALID_PARAMETER_HANDLING == SANE_LIBRARY_HANDLING)
   24: 
   25: /* Get _invalid_parameter_handler type and _set_invalid_parameter_handler
   26:    declaration.  */
   27: # include <stdlib.h>
   28: 
   29: # if MSVC_INVALID_PARAMETER_HANDLING == DEFAULT_HANDLING
   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: }
   39: 
   40: # else
   41: 
   42: /* Get declarations of the native Windows API functions.  */
   43: #  define WIN32_LEAN_AND_MEAN
   44: #  include <windows.h>
   45: 
   46: #  if defined _MSC_VER
   47: 
   48: static void __cdecl
   49: gl_msvc_invalid_parameter_handler (const wchar_t *expression,
   50:                                    const wchar_t *function,
   51:                                    const wchar_t *file,
   52:                                    unsigned int line,
   53:                                    uintptr_t dummy)
   54: {
   55:   RaiseException (STATUS_GNULIB_INVALID_PARAMETER, 0, 0, NULL);
   56: }
   57: 
   58: #  else
   59: 
   60: /* An index to thread-local storage.  */
   61: static DWORD tls_index;
   62: static int tls_initialized /* = 0 */;
   63: 
   64: /* Used as a fallback only.  */
   65: static struct gl_msvc_inval_per_thread not_per_thread;
   66: 
   67: struct gl_msvc_inval_per_thread *
   68: gl_msvc_inval_current (void)
   69: {
   70:   if (!tls_initialized)
   71:     {
   72:       tls_index = TlsAlloc ();
   73:       tls_initialized = 1;
   74:     }
   75:   if (tls_index == TLS_OUT_OF_INDEXES)
   76:     /* TlsAlloc had failed.  */
   77:     return &not_per_thread;
   78:   else
   79:     {
   80:       struct gl_msvc_inval_per_thread *pointer =
   81:         (struct gl_msvc_inval_per_thread *) TlsGetValue (tls_index);
   82:       if (pointer == NULL)
   83:         {
   84:           /* First call.  Allocate a new 'struct gl_msvc_inval_per_thread'.  */
   85:           pointer =
   86:             (struct gl_msvc_inval_per_thread *)
   87:             malloc (sizeof (struct gl_msvc_inval_per_thread));
   88:           if (pointer == NULL)
   89:             /* Could not allocate memory.  Use the global storage.  */
   90:             pointer = &not_per_thread;
   91:           TlsSetValue (tls_index, pointer);
   92:         }
   93:       return pointer;
   94:     }
   95: }
   96: 
   97: static void __cdecl
   98: gl_msvc_invalid_parameter_handler (const wchar_t *expression,
   99:                                    const wchar_t *function,
  100:                                    const wchar_t *file,
  101:                                    unsigned int line,
  102:                                    uintptr_t dummy)
  103: {
  104:   struct gl_msvc_inval_per_thread *current = gl_msvc_inval_current ();
  105:   if (current->restart_valid)
  106:     longjmp (current->restart, 1);
  107:   else
  108:     /* An invalid parameter notification from outside the gnulib code.
  109:        Give the caller a chance to intervene.  */
  110:     RaiseException (STATUS_GNULIB_INVALID_PARAMETER, 0, 0, NULL);
  111: }
  112: 
  113: #  endif
  114: 
  115: # endif
  116: 
  117: static int gl_msvc_inval_initialized /* = 0 */;
  118: 
  119: void
  120: gl_msvc_inval_ensure_handler (void)
  121: {
  122:   if (gl_msvc_inval_initialized == 0)
  123:     {
  124:       _set_invalid_parameter_handler (gl_msvc_invalid_parameter_handler);
  125:       gl_msvc_inval_initialized = 1;
  126:     }
  127: }
  128: 
  129: #endif