diff options
| author | Paul Eggert | 2016-11-29 08:38:17 -0800 |
|---|---|---|
| committer | Paul Eggert | 2016-11-29 08:38:51 -0800 |
| commit | 074d5cd873014d97bf84a993ea711b39368810fe (patch) | |
| tree | 2b960487c99e30bbb7b0ccecb1907118bf899c38 /src | |
| parent | bb4212d10b7023bb52d3acd141f785b75ffa2f2c (diff) | |
| download | emacs-074d5cd873014d97bf84a993ea711b39368810fe.tar.gz emacs-074d5cd873014d97bf84a993ea711b39368810fe.zip | |
* src/eval.c (clobbered_eassert): Check E's syntax.
Diffstat (limited to 'src')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index 884e1ebfb89..bbc1518be54 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1057,11 +1057,11 @@ usage: (catch TAG BODY...) */) | |||
| 1057 | return internal_catch (tag, Fprogn, XCDR (args)); | 1057 | return internal_catch (tag, Fprogn, XCDR (args)); |
| 1058 | } | 1058 | } |
| 1059 | 1059 | ||
| 1060 | /* Assert that E is true, as a comment only. Use this instead of | 1060 | /* Assert that E is true, but do not evaluate E. Use this instead of |
| 1061 | eassert (E) when E contains variables that might be clobbered by a | 1061 | eassert (E) when E contains variables that might be clobbered by a |
| 1062 | longjmp. */ | 1062 | longjmp. */ |
| 1063 | 1063 | ||
| 1064 | #define clobbered_eassert(E) ((void) 0) | 1064 | #define clobbered_eassert(E) verify (sizeof (E) != 0) |
| 1065 | 1065 | ||
| 1066 | /* Set up a catch, then call C function FUNC on argument ARG. | 1066 | /* Set up a catch, then call C function FUNC on argument ARG. |
| 1067 | FUNC should return a Lisp_Object. | 1067 | FUNC should return a Lisp_Object. |