diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-12-20 17:43:42 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-12-20 17:44:51 -0800 |
| commit | e9916d8880561cc06b6cb73bafe7257b93ffbf4c (patch) | |
| tree | a74f4ca73a26f18e697592d85f8e03dca4a035b1 /src/lisp.h | |
| parent | 6cd051b31c3440486888f417e028554de7542fb0 (diff) | |
| download | emacs-e9916d8880561cc06b6cb73bafe7257b93ffbf4c.tar.gz | |
Revert some recent emacs-module commentary
Most of the recently-added commentary was incorrect, due to the
possibility of stack overflow.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/lisp.h b/src/lisp.h index bcac4b694b7..995760a5019 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -329,15 +329,11 @@ error !; #define lisp_h_CHECK_TYPE(ok, predicate, x) \ ((ok) ? (void) 0 : (void) wrong_type_argument (predicate, x)) #define lisp_h_CONSP(x) (XTYPE (x) == Lisp_Cons) -/* lisp_h_EQ must never exit non-locally; emacs-module.c relies on - that. */ #define lisp_h_EQ(x, y) (XLI (x) == XLI (y)) #define lisp_h_FLOATP(x) (XTYPE (x) == Lisp_Float) #define lisp_h_INTEGERP(x) ((XTYPE (x) & (Lisp_Int0 | ~Lisp_Int1)) == Lisp_Int0) #define lisp_h_MARKERP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Marker) #define lisp_h_MISCP(x) (XTYPE (x) == Lisp_Misc) -/* lisp_h_NILP must never exit non-locally; emacs-module.c relies on - that. */ #define lisp_h_NILP(x) EQ (x, Qnil) #define lisp_h_SET_SYMBOL_VAL(sym, v) \ (eassert ((sym)->redirect == SYMBOL_PLAINVAL), (sym)->val.value = (v)) @@ -386,14 +382,11 @@ error !; # define CHECK_SYMBOL(x) lisp_h_CHECK_SYMBOL (x) # define CHECK_TYPE(ok, predicate, x) lisp_h_CHECK_TYPE (ok, predicate, x) # define CONSP(x) lisp_h_CONSP (x) -/* EQ must never exit non-locally; emacs-module.c relies on that. */ # define EQ(x, y) lisp_h_EQ (x, y) # define FLOATP(x) lisp_h_FLOATP (x) # define INTEGERP(x) lisp_h_INTEGERP (x) # define MARKERP(x) lisp_h_MARKERP (x) # define MISCP(x) lisp_h_MISCP (x) -/* NILP must never exit non-locally; emacs-module.c relies on - that. */ # define NILP(x) lisp_h_NILP (x) # define SET_SYMBOL_VAL(sym, v) lisp_h_SET_SYMBOL_VAL (sym, v) # define SYMBOL_CONSTANT_P(sym) lisp_h_SYMBOL_CONSTANT_P (sym) @@ -995,8 +988,7 @@ make_natnum (EMACS_INT n) return USE_LSB_TAG ? make_number (n) : XIL (n + (int0 << VALBITS)); } -/* Return true if X and Y are the same object. Must never exit - non-locally; emacs-module.c relies on that. */ +/* Return true if X and Y are the same object. */ INLINE bool (EQ) (Lisp_Object x, Lisp_Object y) @@ -2573,9 +2565,6 @@ enum char_bits /* Data type checking. */ -/* Checks whether X is null. Must never exit non-locally; - emacs-module.c relies on that. */ - INLINE bool (NILP) (Lisp_Object x) { |