edeb62eb5f
OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/clisp?expand=0&rev=130
37 lines
1.8 KiB
Plaintext
37 lines
1.8 KiB
Plaintext
---
|
|
src/clisp-link.in | 2 +-
|
|
src/lispbibl.d | 4 +++-
|
|
2 files changed, 4 insertions(+), 2 deletions(-)
|
|
|
|
--- src/clisp-link.in
|
|
+++ src/clisp-link.in 2018-02-19 09:30:11.548748097 +0000
|
|
@@ -579,7 +579,7 @@ case "$1" in
|
|
# when running "CLISP=./clisp ./clisp-link install <modname>"
|
|
# in the build directory, avoid "cp: `...' and `...' are the same file"
|
|
if [ "${absolute_moduledir}" != "${absdestdir}/$moduledir" ]; then
|
|
- make clisp-module-distrib LN=${INSTALL_DATA-cp} distribdir="${absdestdir}/$moduledir"
|
|
+ make clisp-module-distrib LN="${INSTALL_DATA-cp}" distribdir="${absdestdir}/$moduledir"
|
|
mkdir -p ${absdestdir}/${DYNMOD};
|
|
for f in ${DYNDIR_FILES}; do
|
|
cp ${f} ${absdestdir}/${DYNMOD}/
|
|
--- src/lispbibl.d
|
|
+++ src/lispbibl.d 2018-02-19 09:30:11.552748021 +0000
|
|
@@ -1631,6 +1631,8 @@ typedef SLONG sint32; /* signed 32 bi
|
|
/* Emulate 64-Bit-numbers using two 32-Bit-numbers. */
|
|
typedef struct { sintL hi; uintL lo; } sintL2; /* signed 64 Bit integer */
|
|
typedef struct { uintL hi; uintL lo; } uintL2; /* unsigned 64 Bit integer */
|
|
+ #define bitQ(n) bit(n)
|
|
+ #define bitQm(n) bitm(n)
|
|
#endif
|
|
/* Use 'uintX' and 'sintX' for Integers with approximately given width
|
|
and a minumum of storage space. */
|
|
@@ -14397,7 +14399,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)
|