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 +- 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
+++ src/clisp-link.in 2016-11-29 12:56:40.625559126 +0000 +++ src/clisp-link.in 2016-11-29 12:56:40.625559126 +0000
@ -24,3 +25,12 @@
#endif #endif
/* Use 'uintX' and 'sintX' for Integers with approximately given width /* Use 'uintX' and 'sintX' for Integers with approximately given width
and a minumum of storage space. */ 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: gtk2-devel
BuildRequires: libglade2-devel BuildRequires: libglade2-devel
BuildRequires: libsigsegv-devel BuildRequires: libsigsegv-devel
BuildRequires: net-tools
BuildRequires: openssl-devel BuildRequires: openssl-devel
BuildRequires: pcre-devel BuildRequires: pcre-devel
BuildRequires: postgresql-devel BuildRequires: postgresql-devel
BuildRequires: readline-devel BuildRequires: readline-devel
BuildRequires: screen BuildRequires: screen
BuildRequires: systemd
BuildRequires: vim-data BuildRequires: vim-data
%if 0%{?suse_version} >= %min_suse_ver %if 0%{?suse_version} >= %min_suse_ver
BuildRequires: dbus-1-devel BuildRequires: dbus-1-devel
@ -131,10 +133,12 @@ contains two nice applications.
# Collect some informations on the build system for debugging # Collect some informations on the build system for debugging
# a random error on sockets during test suite # a random error on sockets during test suite
# #
type -p systemd-detect-virt > /dev/null 2>&1 && systemd-detect-virt type -p systemd-detect-virt > /dev/null 2>&1 && systemd-detect-virt || :
type -p uname > /dev/null 2>&1 && uname -a 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 -i || :
type -p netstat > /dev/null 2>&1 && netstat -x 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 %setup -qT -b0 -n clisp-%uuid
%patch1 -p1 -b .sel %patch1 -p1 -b .sel