Skip to content

GitLab

Commit fca99116 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(wrong_type_argument, Fthrow, Fsignal, error): Declare 

NO_RETURN.
parent 86014a26
Hide whitespace changes
Inline Side-by-side
Showing with 10 additions and 4 deletions
src/ChangeLog
View file @ fca99116
2000-09-21 Gerd Moellmann <gerd@gnu.org> 2000-09-21 Gerd Moellmann <gerd@gnu.org>
* 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, * window.c, term.c, xmenu.c, xrdb.c, emacs.c, macros.c,
* keymap.c, insdel.c, marker.c, minibuf.c, fileio.c, dired.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 * indent.c, search.c, alloc.c, data.c: Avoid some more compiler
......
src/lisp.h
View file @ fca99116
...@@ -1889,7 +1889,7 @@ extern Lisp_Object long_to_cons P_ ((unsigned long)); ...@@ -1889,7 +1889,7 @@ extern Lisp_Object long_to_cons P_ ((unsigned long));
extern unsigned long cons_to_long P_ ((Lisp_Object)); 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 P_ ((Lisp_Object, Lisp_Object));
extern void args_out_of_range_3 P_ ((Lisp_Object, 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 void store_symval_forwarding P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
extern Lisp_Object do_symval_forwarding P_ ((Lisp_Object)); extern Lisp_Object do_symval_forwarding P_ ((Lisp_Object));
extern Lisp_Object set_internal P_ ((Lisp_Object, Lisp_Object, struct buffer *, int)); extern Lisp_Object set_internal P_ ((Lisp_Object, Lisp_Object, struct buffer *, int));
...@@ -2288,10 +2288,10 @@ EXFUN (Flet, UNEVALLED); ...@@ -2288,10 +2288,10 @@ EXFUN (Flet, UNEVALLED);
EXFUN (FletX, UNEVALLED); EXFUN (FletX, UNEVALLED);
EXFUN (Fwhile, UNEVALLED); EXFUN (Fwhile, UNEVALLED);
EXFUN (Fcatch, UNEVALLED); EXFUN (Fcatch, UNEVALLED);
EXFUN (Fthrow, 2); EXFUN (Fthrow, 2) NO_RETURN;
EXFUN (Funwind_protect, UNEVALLED); EXFUN (Funwind_protect, UNEVALLED);
EXFUN (Fcondition_case, UNEVALLED); EXFUN (Fcondition_case, UNEVALLED);
EXFUN (Fsignal, 2); EXFUN (Fsignal, 2) NO_RETURN;
EXFUN (Fautoload, 5); EXFUN (Fautoload, 5);
EXFUN (Fcommandp, 1); EXFUN (Fcommandp, 1);
EXFUN (Feval, 1); EXFUN (Feval, 1);
...@@ -2315,7 +2315,7 @@ extern Lisp_Object internal_condition_case_2 P_ ((Lisp_Object (*) (int, Lisp_Obj ...@@ -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 specbind P_ ((Lisp_Object, Lisp_Object));
extern void record_unwind_protect P_ ((Lisp_Object (*) (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 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 void do_autoload P_ ((Lisp_Object, Lisp_Object));
extern Lisp_Object un_autoload P_ ((Lisp_Object)); extern Lisp_Object un_autoload P_ ((Lisp_Object));
EXFUN (Ffetch_bytecode, 1); EXFUN (Ffetch_bytecode, 1);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment