1 /* Invalid parameter handler for MSVC runtime libraries.
2 Copyright (C) 2011 Free Software Foundation, Inc.
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)
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.
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. */
21 #include "msvc-inval.h"
23 #if HAVE_MSVC_INVALID_PARAMETER_HANDLER \
24 && !(MSVC_INVALID_PARAMETER_HANDLING == SANE_LIBRARY_HANDLING)
26 /* Get _invalid_parameter_handler type and _set_invalid_parameter_handler
30 # if MSVC_INVALID_PARAMETER_HANDLING == DEFAULT_HANDLING
33 gl_msvc_invalid_parameter_handler (const wchar_t *expression
,
34 const wchar_t *function
,
43 /* Get declarations of the Win32 API functions. */
44 # define WIN32_LEAN_AND_MEAN
50 gl_msvc_invalid_parameter_handler (const wchar_t *expression
,
51 const wchar_t *function
,
56 RaiseException (STATUS_GNULIB_INVALID_PARAMETER
, 0, 0, NULL
);
61 /* An index to thread-local storage. */
62 static DWORD tls_index
;
63 static int tls_initialized
/* = 0 */;
65 /* Used as a fallback only. */
66 static struct gl_msvc_inval_per_thread not_per_thread
;
68 struct gl_msvc_inval_per_thread
*
69 gl_msvc_inval_current (void)
73 tls_index
= TlsAlloc ();
76 if (tls_index
== TLS_OUT_OF_INDEXES
)
77 /* TlsAlloc had failed. */
78 return ¬_per_thread
;
81 struct gl_msvc_inval_per_thread
*pointer
=
82 (struct gl_msvc_inval_per_thread
*) TlsGetValue (tls_index
);
85 /* First call. Allocate a new 'struct gl_msvc_inval_per_thread'. */
87 (struct gl_msvc_inval_per_thread
*)
88 malloc (sizeof (struct gl_msvc_inval_per_thread
));
90 /* Could not allocate memory. Use the global storage. */
91 pointer
= ¬_per_thread
;
92 TlsSetValue (tls_index
, pointer
);
99 gl_msvc_invalid_parameter_handler (const wchar_t *expression
,
100 const wchar_t *function
,
105 struct gl_msvc_inval_per_thread
*current
= gl_msvc_inval_current ();
106 if (current
->restart_valid
)
107 longjmp (current
->restart
, 1);
109 /* An invalid parameter notification from outside the gnulib code.
110 Give the caller a chance to intervene. */
111 RaiseException (STATUS_GNULIB_INVALID_PARAMETER
, 0, 0, NULL
);
118 static int gl_msvc_inval_initialized
/* = 0 */;
121 gl_msvc_inval_ensure_handler (void)
123 if (gl_msvc_inval_initialized
== 0)
125 _set_invalid_parameter_handler (gl_msvc_invalid_parameter_handler
);
126 gl_msvc_inval_initialized
= 1;