suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mark functions that never return as NORETURN

Browse Source 
@pmatos did all the work here in racket/ChezScheme#8 and
racket/racket#2344.

original commit: 2e3a618b0072d547b6c5abe6dd8dbac36a98c10e
This commit is contained in:
Matthew Flatt 2019-06-21 14:24:22 -06:00
parent 1116287328
commit a043c4b3a8
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
c/externs.h
View File

@ -45,6 +45,16 @@ off64_t lseek64(int,off64_t,int);
#include <setjmp.h> #include <setjmp.h>
#endif #endif
#if !defined(NORETURN)
# if defined(__GNUC__) || defined(__clang__)
# define NORETURN __attribute__((noreturn))
# elif defined(_MSC_VER)
# define NORETURN __declspec(noreturn)
# else
# define NORETURN
# endif /* defined(__GNUC__) || defined(__clang__) */
#endif /* !defined(NORETURN) */
/* external procedure declarations */ /* external procedure declarations */
/* prototypes gen. by ProtoGen Version 0.31 (Haydn Huntley) 1/18/93 */ /* prototypes gen. by ProtoGen Version 0.31 (Haydn Huntley) 1/18/93 */
@ -321,13 +331,13 @@ extern void S_handle_overflood PROTO((void));
extern void S_handle_apply_overflood PROTO((void)); extern void S_handle_apply_overflood PROTO((void));
extern void S_overflow PROTO((ptr tc, iptr frame_request)); extern void S_overflow PROTO((ptr tc, iptr frame_request));
extern void S_error_reset PROTO((const char *s)); extern void S_error_reset PROTO((const char *s));
extern void S_error_abort PROTO((const char *s)); extern void S_error_abort PROTO((const char *s)) NORETURN;
extern void S_abnormal_exit PROTO((void)); extern void S_abnormal_exit PROTO((void)) NORETURN;
extern void S_error PROTO((const char *who, const char *s)); extern void S_error PROTO((const char *who, const char *s));
extern void S_error1 PROTO((const char *who, const char *s, ptr x)); extern void S_error1 PROTO((const char *who, const char *s, ptr x));
extern void S_error2 PROTO((const char *who, const char *s, ptr x, ptr y)); extern void S_error2 PROTO((const char *who, const char *s, ptr x, ptr y));
extern void S_error3 PROTO((const char *who, const char *s, ptr x, ptr y, ptr z)); extern void S_error3 PROTO((const char *who, const char *s, ptr x, ptr y, ptr z));
extern void S_boot_error PROTO((const ptr who, ptr s, ptr args)); extern void S_boot_error PROTO((const ptr who, ptr s, ptr args)) NORETURN;
extern void S_handle_docall_error PROTO((void)); extern void S_handle_docall_error PROTO((void));
extern void S_handle_arg_error PROTO((void)); extern void S_handle_arg_error PROTO((void));
extern void S_handle_nonprocedure_symbol PROTO((void)); extern void S_handle_nonprocedure_symbol PROTO((void));