diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2023-03-09 11:20:38 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2023-03-09 11:20:38 +0530 |
| commit | af569fa3d90a717983b743eb97adbf869c6d1736 (patch) | |
| tree | 91e9fb3912a8ec7f300c6d9b79685573d7b83133 | |
| parent | 15a32ea199854a2ca975da86d52135c37f92a0e3 (diff) | |
| download | emacs-scratch/comp-static-data.tar.gz | |
src/comp.c: Simplify alloc_class_check.scratch/comp-static-data
| -rw-r--r-- | src/comp.c | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/src/comp.c b/src/comp.c index 54ebcdcfcdb..89708fa8f68 100644 --- a/src/comp.c +++ b/src/comp.c @@ -2605,16 +2605,14 @@ emit_export_const_lisp_obj_var (const char *name, gcc_jit_rvalue *val) static void alloc_class_check (Lisp_Object alloc_class) { - bool valid = EQ (alloc_class, Qd_default) || - EQ (alloc_class, Qd_impure) || - EQ (alloc_class, Qd_ephemeral); - if (!valid) - { - xsignal2 (Qnative_ice, - build_string ("invalid lisp data allocation class"), - alloc_class); - assume (false); - } + if ((EQ (alloc_class, Qd_default) + || EQ (alloc_class, Qd_impure) + || EQ (alloc_class, Qd_ephemeral))) + return; + + xsignal2 (Qnative_ice, + build_string ("invalid lisp data allocation class"), + alloc_class); } static gcc_jit_lvalue * |