mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

We have to export _ecl_w32_exception_filter() for users of CL_CATCH_ALL.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-09-25 08:42:20 +02:00
parent ac8b96db2b
commit 8edb94230e
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/h/stacks.h
View file

@ -310,6 +310,7 @@ extern ECL_API ecl_frame_ptr _ecl_frs_push(register cl_env_ptr, register cl_obje
ecl_frs_pop(__the_env); } while (0)
#if defined(_MSC_VER)
extern LONG ECL_API _ecl_w32_exception_filter(struct _EXCEPTION_POINTERS *);
# define CL_CATCH_ALL_BEGIN(the_env) do { \
const cl_env_ptr __the_env = (the_env); \
_try { \