gentoo/dev-lisp/gcl/files/gcl-2.6.13_pre99-assertion.patch
Jakov Smolić 4605bfd24b
dev-lisp/gcl: Apply assertion patch (thanks to MaxKarlErnstPlanck)
Thanks-to: MaxKarlErnstPlanck <Giovanni.Antonio.Carl.Friedrich@protonmail.com>
Closes: https://bugs.gentoo.org/778770
Signed-off-by: Jakov Smolić <jsmolic@gentoo.org>
2022-01-12 21:10:10 +01:00

13 lines
534 B
Diff

https://bugs.gentoo.org/778770
--- a/h/notcomp.h
+++ b/h/notcomp.h
@@ -299,7 +299,7 @@
#define coerce_to_filename(a_,b_) coerce_to_filename1(a_,b_,sizeof(b_))
#include <errno.h>
-#define massert(a_) ({errno=0;if (!(a_)||errno) assert_error(#a_,__LINE__,__FILE__,__FUNCTION__);})
+#define massert(a_) ({errno=0;if (!(a_)) assert_error(#a_,__LINE__,__FILE__,__FUNCTION__);})
extern bool writable_malloc;
#define writable_malloc_wrap(f_,rt_,a_...) ({rt_ v;bool w=writable_malloc;writable_malloc=1;v=f_(a_);writable_malloc=w;v;})