130 lines
3.9 KiB
C
130 lines
3.9 KiB
C
/* Invalid parameter handler for MSVC runtime libraries.
|
|
Copyright (C) 2011-2022 Free Software Foundation, Inc.
|
|
|
|
This file is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU Lesser General Public License as
|
|
published by the Free Software Foundation; either version 2.1 of the
|
|
License, or (at your option) any later version.
|
|
|
|
This file is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public License
|
|
along with this program. If not, see <https://www.gnu.org/licenses/>. */
|
|
|
|
#include <config.h>
|
|
|
|
/* Specification. */
|
|
#include "msvc-inval.h"
|
|
|
|
#if HAVE_MSVC_INVALID_PARAMETER_HANDLER \
|
|
&& !(MSVC_INVALID_PARAMETER_HANDLING == SANE_LIBRARY_HANDLING)
|
|
|
|
/* Get _invalid_parameter_handler type and _set_invalid_parameter_handler
|
|
declaration. */
|
|
# include <stdlib.h>
|
|
|
|
# if MSVC_INVALID_PARAMETER_HANDLING == DEFAULT_HANDLING
|
|
|
|
static void __cdecl
|
|
gl_msvc_invalid_parameter_handler (const wchar_t *expression,
|
|
const wchar_t *function,
|
|
const wchar_t *file,
|
|
unsigned int line,
|
|
uintptr_t dummy)
|
|
{
|
|
}
|
|
|
|
# else
|
|
|
|
/* Get declarations of the native Windows API functions. */
|
|
# define WIN32_LEAN_AND_MEAN
|
|
# include <windows.h>
|
|
|
|
# if defined _MSC_VER
|
|
|
|
static void __cdecl
|
|
gl_msvc_invalid_parameter_handler (const wchar_t *expression,
|
|
const wchar_t *function,
|
|
const wchar_t *file,
|
|
unsigned int line,
|
|
uintptr_t dummy)
|
|
{
|
|
RaiseException (STATUS_GNULIB_INVALID_PARAMETER, 0, 0, NULL);
|
|
}
|
|
|
|
# else
|
|
|
|
/* An index to thread-local storage. */
|
|
static DWORD tls_index;
|
|
static int tls_initialized /* = 0 */;
|
|
|
|
/* Used as a fallback only. */
|
|
static struct gl_msvc_inval_per_thread not_per_thread;
|
|
|
|
struct gl_msvc_inval_per_thread *
|
|
gl_msvc_inval_current (void)
|
|
{
|
|
if (!tls_initialized)
|
|
{
|
|
tls_index = TlsAlloc ();
|
|
tls_initialized = 1;
|
|
}
|
|
if (tls_index == TLS_OUT_OF_INDEXES)
|
|
/* TlsAlloc had failed. */
|
|
return ¬_per_thread;
|
|
else
|
|
{
|
|
struct gl_msvc_inval_per_thread *pointer =
|
|
(struct gl_msvc_inval_per_thread *) TlsGetValue (tls_index);
|
|
if (pointer == NULL)
|
|
{
|
|
/* First call. Allocate a new 'struct gl_msvc_inval_per_thread'. */
|
|
pointer =
|
|
(struct gl_msvc_inval_per_thread *)
|
|
malloc (sizeof (struct gl_msvc_inval_per_thread));
|
|
if (pointer == NULL)
|
|
/* Could not allocate memory. Use the global storage. */
|
|
pointer = ¬_per_thread;
|
|
TlsSetValue (tls_index, pointer);
|
|
}
|
|
return pointer;
|
|
}
|
|
}
|
|
|
|
static void __cdecl
|
|
gl_msvc_invalid_parameter_handler (const wchar_t *expression,
|
|
const wchar_t *function,
|
|
const wchar_t *file,
|
|
unsigned int line,
|
|
uintptr_t dummy)
|
|
{
|
|
struct gl_msvc_inval_per_thread *current = gl_msvc_inval_current ();
|
|
if (current->restart_valid)
|
|
longjmp (current->restart, 1);
|
|
else
|
|
/* An invalid parameter notification from outside the gnulib code.
|
|
Give the caller a chance to intervene. */
|
|
RaiseException (STATUS_GNULIB_INVALID_PARAMETER, 0, 0, NULL);
|
|
}
|
|
|
|
# endif
|
|
|
|
# endif
|
|
|
|
static int gl_msvc_inval_initialized /* = 0 */;
|
|
|
|
void
|
|
gl_msvc_inval_ensure_handler (void)
|
|
{
|
|
if (gl_msvc_inval_initialized == 0)
|
|
{
|
|
_set_invalid_parameter_handler (gl_msvc_invalid_parameter_handler);
|
|
gl_msvc_inval_initialized = 1;
|
|
}
|
|
}
|
|
|
|
#endif
|