From fca99116372ddd63cbcde108657a962274431a4d Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 21 Sep 2000 21:50:10 +0000 Subject: [PATCH] (wrong_type_argument, Fthrow, Fsignal, error): Declare NO_RETURN. --- src/ChangeLog | 6 ++++++ src/lisp.h | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index a1a56209a05..7d41c02513e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,11 @@ 2000-09-21 Gerd Moellmann + * config.in (NO_RETURN): Define.as `__attribute__((__noreturn__))' + for GCC >= 2.5. + + * lisp.h (wrong_type_argument, Fthrow, Fsignal, error): Declare + NO_RETURN. + * window.c, term.c, xmenu.c, xrdb.c, emacs.c, macros.c, * keymap.c, insdel.c, marker.c, minibuf.c, fileio.c, dired.c, * indent.c, search.c, alloc.c, data.c: Avoid some more compiler diff --git a/src/lisp.h b/src/lisp.h index e8283e1a5b6..4a9fe8139e9 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -1889,7 +1889,7 @@ extern Lisp_Object long_to_cons P_ ((unsigned long)); extern unsigned long cons_to_long P_ ((Lisp_Object)); extern void args_out_of_range P_ ((Lisp_Object, Lisp_Object)); extern void args_out_of_range_3 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); -extern Lisp_Object wrong_type_argument P_ ((Lisp_Object, Lisp_Object)); +extern Lisp_Object wrong_type_argument P_ ((Lisp_Object, Lisp_Object)) NO_RETURN; extern void store_symval_forwarding P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); extern Lisp_Object do_symval_forwarding P_ ((Lisp_Object)); extern Lisp_Object set_internal P_ ((Lisp_Object, Lisp_Object, struct buffer *, int)); @@ -2288,10 +2288,10 @@ EXFUN (Flet, UNEVALLED); EXFUN (FletX, UNEVALLED); EXFUN (Fwhile, UNEVALLED); EXFUN (Fcatch, UNEVALLED); -EXFUN (Fthrow, 2); +EXFUN (Fthrow, 2) NO_RETURN; EXFUN (Funwind_protect, UNEVALLED); EXFUN (Fcondition_case, UNEVALLED); -EXFUN (Fsignal, 2); +EXFUN (Fsignal, 2) NO_RETURN; EXFUN (Fautoload, 5); EXFUN (Fcommandp, 1); EXFUN (Feval, 1); @@ -2315,7 +2315,7 @@ extern Lisp_Object internal_condition_case_2 P_ ((Lisp_Object (*) (int, Lisp_Obj extern void specbind P_ ((Lisp_Object, Lisp_Object)); extern void record_unwind_protect P_ ((Lisp_Object (*) (Lisp_Object), Lisp_Object)); extern Lisp_Object unbind_to P_ ((int, Lisp_Object)); -extern void error P_ ((/* char *, ... */)); +extern void error P_ ((/* char *, ... */)) NO_RETURN; extern void do_autoload P_ ((Lisp_Object, Lisp_Object)); extern Lisp_Object un_autoload P_ ((Lisp_Object)); EXFUN (Ffetch_bytecode, 1); -- 2.39.5