Dr. Werner Fink 2017-02-10 10:35:14 +00:00 committed by Git OBS Bridge
parent 58f7f67c7f
commit 3b4c3241a9
2 changed files with 19 additions and 5 deletions

View File

@ -1,6 +1,7 @@
---
src/clisp-link.in | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
src/lispbibl.d | 4 +++-
2 files changed, 4 insertions(+), 2 deletions(-)
--- src/clisp-link.in
+++ src/clisp-link.in 2016-11-29 12:56:40.625559126 +0000
@ -24,3 +25,12 @@
#endif
/* Use 'uintX' and 'sintX' for Integers with approximately given width
and a minumum of storage space. */
@@ -11622,7 +11622,7 @@ re-enters the corresponding top-level lo
#define pushSTACK(obj) (STACK_(-1) = (obj), STACK skipSTACKop -1)
/* Almost equivalent with *--STACK = obj resp. *STACK++ = obj , but
Careful: first enter the object into STACK_(-1), THEN modify the STACK! */
-#define popSTACK() (STACK skipSTACKop 1, STACK_(-1))
+#define popSTACK() ({STACK skipSTACKop 1; STACK_(-1);})
#define skipSTACK(n) (STACK skipSTACKop (sintP)(n))
#if defined(GNU) && defined(M68K) && !defined(NO_ASM) && !defined(WIDE) && defined(STACK_register)

View File

@ -67,11 +67,13 @@ BuildRequires: gdbm-devel
BuildRequires: gtk2-devel
BuildRequires: libglade2-devel
BuildRequires: libsigsegv-devel
BuildRequires: net-tools
BuildRequires: openssl-devel
BuildRequires: pcre-devel
BuildRequires: postgresql-devel
BuildRequires: readline-devel
BuildRequires: screen
BuildRequires: systemd
BuildRequires: vim-data
%if 0%{?suse_version} >= %min_suse_ver
BuildRequires: dbus-1-devel
@ -131,10 +133,12 @@ contains two nice applications.
# Collect some informations on the build system for debugging
# a random error on sockets during test suite
#
type -p systemd-detect-virt > /dev/null 2>&1 && systemd-detect-virt
type -p uname > /dev/null 2>&1 && uname -a
type -p netstat > /dev/null 2>&1 && netstat -i
type -p netstat > /dev/null 2>&1 && netstat -x
type -p systemd-detect-virt > /dev/null 2>&1 && systemd-detect-virt || :
type -p uname > /dev/null 2>&1 && uname -a || :
type -p netstat > /dev/null 2>&1 && netstat -i || :
type -p netstat > /dev/null 2>&1 && netstat -x || :
type -p ip > /dev/null 2>&1 && ip link || :
type -p ss > /dev/null 2>&1 && ss -x || :
#
%setup -qT -b0 -n clisp-%uuid
%patch1 -p1 -b .sel