d5a36a868b
- Fix build with glibc 2.17 (clisp-glibc-fix.patch) * rebase patches to -p1 as stated in the patching guidelines * update to libsegsev-2.10 OBS-URL: https://build.opensuse.org/request/show/143477 OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/clisp?expand=0&rev=36
27 lines
1.3 KiB
Plaintext
27 lines
1.3 KiB
Plaintext
---
|
||
modules/clx/new-clx/clx.f | 6 ++++--
|
||
1 file changed, 4 insertions(+), 2 deletions(-)
|
||
|
||
--- a/modules/clx/new-clx/clx.f
|
||
+++ b/modules/clx/new-clx/clx.f
|
||
@@ -1721,7 +1721,8 @@ static void general_lookup (object type)
|
||
DEFUN(XLIB:##L##-ID,xxx) \
|
||
{ VALUES1(make_uint29((XID)get_##c (popSTACK()))); } \
|
||
DEFUN(XLIB:##L##-EQUAL,xxx yyy) \
|
||
- { VALUES_IF(get_##c (popSTACK()) == get_##c (popSTACK())); } \
|
||
+ { object _last = popSTACK(); \
|
||
+ VALUES_IF(get_##c (popSTACK()) == get_##c (_last)); } \
|
||
DEFUN(XLIB:LOOKUP-##L,display xxx) \
|
||
{ general_lookup (`XLIB::##L##`); }
|
||
|
||
@@ -1738,7 +1739,8 @@ static void general_lookup (object type)
|
||
DEFUN(XLIB:##L##-P,xxx) \
|
||
{ VALUES_IF(c##_p (popSTACK())); } \
|
||
DEFUN(XLIB:##L##-EQUAL,xxx yyy) \
|
||
- { VALUES_IF(get_##c (popSTACK()) == get_##c (popSTACK())); }
|
||
+ { object _last = popSTACK(); \
|
||
+ VALUES_IF(get_##c (popSTACK()) == get_##c (_last)); }
|
||
|
||
|
||
/* -----------------------------------------------------------------------
|