mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

ecl_miscompilation_error: fix declaration

Browse source 
Add ECL_API and move to external.h so that things also work on MSVC.
This commit is contained in:
Marius Gerbershagen 2023-07-15 14:20:55 +02:00
parent 850ffa54d0
commit 8a86cabc7d
2 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/h/ecl-cmp.h
View file

@ -62,8 +62,6 @@ struct ecl_var_debug_info {
uint8_t type;
};
extern void ecl_miscompilation_error() ecl_attr_noreturn;
#define _ecl_check_narg(n) \
do { if (ecl_unlikely(narg != (n))) FEwrong_num_arguments_anonym();} while(0)

1
src/h/external.h
View file

@ -555,6 +555,7 @@ extern ECL_API void ecl_internal_error(const char *s) ecl_attr_noreturn;
extern ECL_API void ecl_thread_internal_error(const char *s) ecl_attr_noreturn;
#endif
extern ECL_API void ecl_unrecoverable_error(cl_env_ptr the_env, const char *message) ecl_attr_noreturn;
extern ECL_API void ecl_miscompilation_error(void) ecl_attr_noreturn;
extern ECL_API void ecl_cs_overflow(void) /*ecl_attr_noreturn*/;
extern ECL_API void FEprogram_error(const char *s, int narg, ...) ecl_attr_noreturn;
extern ECL_API void FEcontrol_error(const char *s, int narg, ...) ecl_attr_noreturn;