diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-01-02 11:15:41 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-01-24 11:41:46 +0100 |
| commit | 4ff1fb8eb475a540c094878db1811797e2ca2368 (patch) | |
| tree | 12f43f5452514af85349f610965a7ae27f2b6b57 /src/bytecode.c | |
| parent | b3377e67a7b20a9a53aa2129b2c3951be67ad102 (diff) | |
Move a runtime interpreter check to debug mode
* src/bytecode.c (exec_byte_code): Perform bytecode unwinding error
check only when building with debugging (NDEBUG not defined, checking
enabled, or BYTE_CODE_SAFE enabled). This improves speed in several
ways.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 8e0f3d3e4b2..75f1a6b43e5 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -1564,15 +1564,17 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, exit: - eassert (SDATA (bytestr) == bytestr_data); - - /* Binds and unbinds are supposed to be compiled balanced. */ +#if BYTE_CODE_SAFE || !defined NDEBUG if (SPECPDL_INDEX () != count) { + /* Binds and unbinds are supposed to be compiled balanced. */ if (SPECPDL_INDEX () > count) unbind_to (count, Qnil); error ("binding stack not balanced (serious byte compiler bug)"); } +#endif + /* The byte code should have been properly pinned. */ + eassert (SDATA (bytestr) == bytestr_data); Lisp_Object result = TOP; SAFE_FREE (); |