diff options
| author | Paul Eggert | 2013-06-03 11:29:30 -0700 |
|---|---|---|
| committer | Paul Eggert | 2013-06-03 11:29:30 -0700 |
| commit | 3d5ee10aa258a500e0b70b5eabe9d58cb3ab051e (patch) | |
| tree | 37d030ec632685a294eb351851fdad8ce41800b0 /src/data.c | |
| parent | 068922a2973033ea826b458a17f3e06cf6b44299 (diff) | |
| download | emacs-3d5ee10aa258a500e0b70b5eabe9d58cb3ab051e.tar.gz emacs-3d5ee10aa258a500e0b70b5eabe9d58cb3ab051e.zip | |
Fix minor problems found by static checking.
* data.c (pure_write_error):
Use xsignal2, not Fsignal, as Fsignal might return.
* eval.c (set_backtrace_debug_on_exit): Now static.
(backtrace_p, backtrace_top, backtrace_next, record_in_backtrace):
No longer inline. EXTERN_INLINE is needed only for functions
defined in .h files. Reindent function header as per GNU style.
(backtrace_p, backtrace_top, backtrace_next):
Mark EXTERNALLY_VISIBLE so they don't get optimized away by the
compiler or linker. Add extern decls to pacify gcc -Wall.
* frame.c, frame.h (Qgeometry, Qworkarea, Qmm_size, Qframes, Qsource):
Now static.
* frame.c (free_monitors): Define only on platforms that need it.
* nsterm.m (ns_term_init):
* process.c (catch_child_signal):
Don't worry about whether SIGCHLD is defined, as SIGCHLD is
defined on all porting targets these days.
* process.c, process.h (catch_child_signal):
Make it extern only if NS_IMPL_GNUSTEP is defined.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index fc66cea6497..9f756de014a 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -102,8 +102,7 @@ wrong_type_argument (register Lisp_Object predicate, register Lisp_Object value) | |||
| 102 | void | 102 | void |
| 103 | pure_write_error (Lisp_Object obj) | 103 | pure_write_error (Lisp_Object obj) |
| 104 | { | 104 | { |
| 105 | Fsignal (Qerror, Fcons (build_string ("Attempt to modify read-only object"), | 105 | xsignal2 (Qerror, build_string ("Attempt to modify read-only object"), obj); |
| 106 | Fcons (obj, Qnil))); | ||
| 107 | } | 106 | } |
| 108 | 107 | ||
| 109 | void | 108 | void |