From 386baf65b6538cd316167f70c96a6f7d71107cfed85547c57a773a03f49e3e9b Mon Sep 17 00:00:00 2001 From: OBS User unknown Date: Mon, 15 Jan 2007 23:07:22 +0000 Subject: [PATCH] OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/clisp?expand=0&rev=1 --- .gitattributes | 23 + .gitignore | 1 + check-build.sh | 43 ++ clisp-2.31-map_private.patch | 11 + clisp-2.31-map_variable.patch | 12 + clisp-2.31-personality.patch | 27 + clisp-2.36-alloca.patch | 11 + clisp-2.39-dump.dif | 14 + clisp-2.39-ia64-wooh.dif | 24 + clisp-2.39-ia64.dif | 1359 +++++++++++++++++++++++++++++++++ clisp-2.39.dif | 494 ++++++++++++ clisp-2.39.tar.bz2 | 3 + clisp.changes | 305 ++++++++ clisp.spec | 407 ++++++++++ ready | 0 15 files changed, 2734 insertions(+) create mode 100644 .gitattributes create mode 100644 .gitignore create mode 100644 check-build.sh create mode 100644 clisp-2.31-map_private.patch create mode 100644 clisp-2.31-map_variable.patch create mode 100644 clisp-2.31-personality.patch create mode 100644 clisp-2.36-alloca.patch create mode 100644 clisp-2.39-dump.dif create mode 100644 clisp-2.39-ia64-wooh.dif create mode 100644 clisp-2.39-ia64.dif create mode 100644 clisp-2.39.dif create mode 100644 clisp-2.39.tar.bz2 create mode 100644 clisp.changes create mode 100644 clisp.spec create mode 100644 ready diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..9b03811 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,23 @@ +## Default LFS +*.7z filter=lfs diff=lfs merge=lfs -text +*.bsp filter=lfs diff=lfs merge=lfs -text +*.bz2 filter=lfs diff=lfs merge=lfs -text +*.gem filter=lfs diff=lfs merge=lfs -text +*.gz filter=lfs diff=lfs merge=lfs -text +*.jar filter=lfs diff=lfs merge=lfs -text +*.lz filter=lfs diff=lfs merge=lfs -text +*.lzma filter=lfs diff=lfs merge=lfs -text +*.obscpio filter=lfs diff=lfs merge=lfs -text +*.oxt filter=lfs diff=lfs merge=lfs -text +*.pdf filter=lfs diff=lfs merge=lfs -text +*.png filter=lfs diff=lfs merge=lfs -text +*.rpm filter=lfs diff=lfs merge=lfs -text +*.tbz filter=lfs diff=lfs merge=lfs -text +*.tbz2 filter=lfs diff=lfs merge=lfs -text +*.tgz filter=lfs diff=lfs merge=lfs -text +*.ttf filter=lfs diff=lfs merge=lfs -text +*.txz filter=lfs diff=lfs merge=lfs -text +*.whl filter=lfs diff=lfs merge=lfs -text +*.xz filter=lfs diff=lfs merge=lfs -text +*.zip filter=lfs diff=lfs merge=lfs -text +*.zst filter=lfs diff=lfs merge=lfs -text diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..57affb6 --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +.osc diff --git a/check-build.sh b/check-build.sh new file mode 100644 index 0000000..edf1c5c --- /dev/null +++ b/check-build.sh @@ -0,0 +1,43 @@ +#!/bin/bash +# +# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. +# This file and all modifications and additions to the pristine +# package are under the same license as the package itself. +# +# This script use the following variable(s): +# +# - $BUILD_BASENAME +# + +case $BUILD_BASENAME in + *ia64) + read -t 10 name dummy version rest < /proc/version + if test -z "$version" ; then + echo "FATAL: can not read /proc/version" 1>&2 + exit 1 + fi + OIFS="$IFS" + IFS='.-' + version=($version) + IFS="$OIFS" + if test ${version[0]} -lt 2 -o ${version[1]} -lt 6 -o ${version[2]} -lt 16 ; then + echo "FATAL: kernel too old, need kernel >= 2.6.16 for this package" 1>&2 + exit 1 + fi + ;; + *) + ;; +esac + +# +# XEN kernel may use different stack addresse range +# +if test -e /proc/xen; then + echo "FATAL: kernel contains xen support!" 1>&2 + exit 1 +fi + +# +# Success +# +exit 0 diff --git a/clisp-2.31-map_private.patch b/clisp-2.31-map_private.patch new file mode 100644 index 0000000..5323feb --- /dev/null +++ b/clisp-2.31-map_private.patch @@ -0,0 +1,11 @@ +--- ffcall/callback/trampoline_r/trampoline.c ++++ ffcall/callback/trampoline_r/trampoline.c 2003-12-10 23:14:50.000000000 -0800 +@@ -452,7 +452,7 @@ + { /* Get a new page. */ + char* page; + #ifdef EXECUTABLE_VIA_MMAP_ANONYMOUS +- page = mmap(0, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); ++ page = mmap(0, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); + #endif + #ifdef EXECUTABLE_VIA_MMAP_DEVZERO + page = mmap(0, pagesize, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE, zero_fd, 0); diff --git a/clisp-2.31-map_variable.patch b/clisp-2.31-map_variable.patch new file mode 100644 index 0000000..8c5ae57 --- /dev/null +++ b/clisp-2.31-map_variable.patch @@ -0,0 +1,12 @@ +--- ffcall/callback/trampoline_r/trampoline_r.h.in ++++ ffcall/callback/trampoline_r/trampoline_r.h.in 2003-12-10 22:04:30.000000000 -0800 +@@ -31,4 +31,9 @@ + extern void* trampoline_r_data1 (); + #endif + ++/* http://article.gmane.org/gmane.lisp.clisp.general/7485 */ ++#ifndef MAP_VARIABLE ++# define MAP_VARIABLE 0 ++#endif ++ + #endif /* _TRAMPOLINE_R_H */ diff --git a/clisp-2.31-personality.patch b/clisp-2.31-personality.patch new file mode 100644 index 0000000..ab52255 --- /dev/null +++ b/clisp-2.31-personality.patch @@ -0,0 +1,27 @@ +--- src/_clisp.c ++++ src/_clisp.c 2003-12-11 22:22:29.000000000 -0800 +@@ -45,6 +45,11 @@ + /* Declare stderr. */ + # include + ++#if defined(HAS_PERSONALITY) && (HAS_PERSONALITY > 0) ++/* Declare syscall, PER_LINUX32. */ ++# include ++#endif ++ + #if defined(WIN32_NATIVE) + # undef UNICODE + # include +@@ -347,6 +353,12 @@ + return 1; + } + #else ++#if defined(HAS_PERSONALITY) && (HAS_PERSONALITY > 0) ++ if (personality(PER_LINUX32)) { ++ perror(program_name); ++ return 1; ++ } ++#endif /* FEDORA */ + execv(executable,new_argv); + { /* execv() returns only if there was an error. */ + int saved_errno = errno; diff --git a/clisp-2.36-alloca.patch b/clisp-2.36-alloca.patch new file mode 100644 index 0000000..76bed84 --- /dev/null +++ b/clisp-2.36-alloca.patch @@ -0,0 +1,11 @@ +--- src/spvw.d ++++ src/spvw.d 2005-12-15 14:47:54.000000000 +0100 +@@ -3546,7 +3546,7 @@ + returns: non-NULL pointer to the symbol in the library */ + local void* get_module_symbol (const char* format, const char* modname, + void* libhandle) { +- var char * symbolbuf = alloca(strlen(format)+strlen(modname)); ++ var char * symbolbuf = (char *)alloca(strlen(format)+strlen(modname)); + sprintf(symbolbuf,format,modname); + var void * ret = find_name(libhandle,symbolbuf); + if (ret == NULL) fehler_dlerror("dlsym",symbolbuf,dlerror()); diff --git a/clisp-2.39-dump.dif b/clisp-2.39-dump.dif new file mode 100644 index 0000000..6f0f708 --- /dev/null +++ b/clisp-2.39-dump.dif @@ -0,0 +1,14 @@ +--- src/spvw_memfile.d ++++ src/spvw_memfile.d 2006-07-25 12:16:42.342971403 +0000 +@@ -969,7 +969,10 @@ + } \ + } while(0) + begin_read: +- set_file_offset(0); ++ if (mem_searched) ++ set_file_offset(mem_start); ++ else ++ set_file_offset(0); + /* read basic information: */ + READ(&header,sizeof(header)); + if (header._magic != memdump_magic) { diff --git a/clisp-2.39-ia64-wooh.dif b/clisp-2.39-ia64-wooh.dif new file mode 100644 index 0000000..1e5276d --- /dev/null +++ b/clisp-2.39-ia64-wooh.dif @@ -0,0 +1,24 @@ +--- src/makemake.in ++++ src/makemake.in 2006-07-25 17:46:01.000000000 +0200 +@@ -1143,7 +1143,7 @@ if [ $XCC_GCC = true ] ; then + XCFLAGS=$XCFLAGS' -O' + elif [ "$cpu" = ia64 ] ; then + # gcc-2.96 and gcc-4.1 (bug 1506857) produce incorrect code with -O2 +- XCFLAGS=$XCFLAGS' -O0' ++ XCFLAGS=$XCFLAGS' -O2' + else + XCFLAGS=$XCFLAGS' -O2' + fi +--- tests/streams.tst ++++ tests/streams.tst 2006-07-25 17:58:55.000000000 +0200 +@@ -1022,8 +1022,8 @@ T + (describe (make-array nil :element-type nil) s))) + T + +-(stringp (with-output-to-string (s) (describe nil s))) +-T ++;(stringp (with-output-to-string (s) (describe nil s))) ++;T + + (WITH-INPUT-FROM-STRING (*S* "abcde") + (DECLARE (SPECIAL *S*)) diff --git a/clisp-2.39-ia64.dif b/clisp-2.39-ia64.dif new file mode 100644 index 0000000..79c4821 --- /dev/null +++ b/clisp-2.39-ia64.dif @@ -0,0 +1,1359 @@ +--- ffcall/avcall/avcall-ia64.s ++++ ffcall/avcall/avcall-ia64.s 2006-07-21 16:24:20.000000000 +0200 +@@ -1,739 +1,822 @@ + .file "avcall-ia64.c" +- .version "01.01" +- .global __divdi3# +-.text ++ .pred.safe_across_calls p1-p5,p16-p63 ++ .text + .align 16 + .global __builtin_avcall# + .proc __builtin_avcall# + __builtin_avcall: +- alloc r37 = ar.pfs, 1, 5, 8, 0 +- mov r34 = r32 +- adds r12 = -16, r12 +- mov r33 = r1 +- ;; +- adds r15 = 40, r34 +- adds r12 = -2048, r12 +- mov r36 = b0 ++ .prologue 12, 34 ++ .save ar.pfs, r35 ++ alloc r35 = ar.pfs, 1, 5, 8, 0 ++ .save ar.lc, r37 ++ mov r37 = ar.lc ++ mov r36 = r1 ++ .save rp, r34 ++ mov r34 = b0 ++ .body ++ adds r18 = -2032, r12 ++ adds r14 = 48, r32 ++ adds r15 = 56, r32 + ;; +- ld8 r14 = [r15] +- adds r35 = 16, r12 +- addl r39 = 8, r0 ++ ld8 r14 = [r14] + ;; +- sub r14 = r14, r34 ++ sub r14 = r14, r15 + ;; +- adds r38 = -120, r14 +- br.call.sptk.many b0 = __divdi3# ;; +- adds r15 = 48, r34 +- mov r1 = r33 +- addl r39 = 8, r0 ++ shr.u r17 = r14, 3 ++ adds r14 = 40, r32 ++ adds r15 = 120, r32 + ;; +- ld8 r14 = [r15] +- sxt4 r33 = r8 ++ ld8 r14 = [r14] + ;; +- sub r14 = r14, r34 ++ sub r14 = r14, r15 + ;; +- adds r38 = -56, r14 +- br.call.sptk.many b0 = __divdi3# ;; +- addl r18 = 8, r0 +- sxt4 r17 = r8 +- ;; +- cmp.gt p6, p7 = r33, r18 +- (p7) br.cond.dpnt .L97 +- adds r23 = 120, r34 +- ;; +- mov r19 = r23 +-.L6: +- shl r14 = r18, 3 +- ;; +- add r16 = r19, r14 +- adds r18 = 1, r18 +- add r14 = r35, r14 ++ extr r14 = r14, 3, 32 + ;; +- ld8 r15 = [r16] +- cmp.gt p6, p7 = r33, r18 +- adds r14 = -64, r14 ++ cmp.ge p6, p7 = 8, r14 ++ (p6) br.cond.dpnt .L2 ++ adds r16 = 184, r32 ++ mov r15 = r18 ++ sub r14 = 8, r14 + ;; +- st8 [r14] = r15 +- (p6) br.cond.dptk .L6 +- br .L96 +-.L97: +- adds r23 = 120, r34 +-.L96: +- adds r33 = 24, r34 ++ andcm r14 = -1, r14 ++ ;; ++ mov ar.lc = r14 ++.L4: ++ ld8 r14 = [r16], 8 + ;; +- ld4 r14 = [r33] ++ st8 [r15] = r14, 8 ++ br.cloop.sptk.few .L4 ++.L2: ++ adds r14 = 24, r32 ++ ;; ++ ld4 r14 = [r14] + ;; + cmp4.ne p6, p7 = 16, r14 +- (p6) br.cond.dptk .L8 +- adds r14 = 16, r34 + ;; +- ld8 r8 = [r14] +-.L8: ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r8 = [r14] + cmp4.ge p6, p7 = 0, r17 +- (p6) br.cond.dptk .L9 +- adds r14 = 56, r34 ++ (p6) br.cond.dpnt .L7 ++ adds r14 = 56, r32 + ;; +- cmp4.ge p6, p7 = 1, r17 + ldfd f8 = [r14] +- (p6) br.cond.dptk .L9 +- adds r14 = 64, r34 ++ cmp4.ge p6, p7 = 1, r17 ++ (p6) br.cond.dpnt .L7 ++ adds r14 = 64, r32 + ;; +- cmp4.ge p6, p7 = 2, r17 + ldfd f9 = [r14] +- (p6) br.cond.dptk .L9 +- adds r14 = 72, r34 ++ cmp4.ge p6, p7 = 2, r17 ++ (p6) br.cond.dptk .L7 ++ adds r14 = 72, r32 + ;; +- cmp4.ge p6, p7 = 3, r17 + ldfd f10 = [r14] +- (p6) br.cond.dptk .L9 +- adds r14 = 80, r34 ++ cmp4.ge p6, p7 = 3, r17 ++ (p6) br.cond.dptk .L7 ++ adds r14 = 80, r32 + ;; +- cmp4.ge p6, p7 = 4, r17 + ldfd f11 = [r14] +- (p6) br.cond.dptk .L9 +- adds r14 = 88, r34 ++ cmp4.ge p6, p7 = 4, r17 ++ (p6) br.cond.dptk .L7 ++ adds r14 = 88, r32 + ;; +- cmp4.ge p6, p7 = 5, r17 + ldfd f12 = [r14] +- (p6) br.cond.dptk .L9 +- adds r14 = 96, r34 ++ cmp4.ge p6, p7 = 5, r17 ++ (p6) br.cond.dptk .L7 ++ adds r14 = 96, r32 + ;; +- cmp4.ge p6, p7 = 6, r17 + ldfd f13 = [r14] +- (p6) br.cond.dptk .L9 +- adds r14 = 104, r34 ++ cmp4.ge p6, p7 = 6, r17 ++ (p6) br.cond.dptk .L7 ++ adds r14 = 104, r32 + ;; +- cmp4.ge p6, p7 = 7, r17 + ldfd f14 = [r14] +- (p6) br.cond.dptk .L9 +- adds r14 = 112, r34 ++ cmp4.ge p6, p7 = 7, r17 + ;; +- ldfd f15 = [r14] +-.L9: +- ld4 r14 = [r33] ++ (p7) adds r14 = 112, r32 + ;; +- cmp4.ne p6, p7 = 13, r14 +- (p6) br.cond.dptk .L17 +- ld8 r21 = [r34] +- adds r14 = 144, r34 +- adds r15 = 152, r34 +- ;; +- ld8 r22 = [r21], 8 +- adds r19 = 128, r34 +- adds r20 = 136, r34 +- adds r16 = 160, r34 +- adds r17 = 168, r34 +- adds r18 = 176, r34 +- ld8 r41 = [r14] +- ld8 r42 = [r15] +- ld8 r38 = [r23] +- ;; +- ld8 r39 = [r19] +- ld8 r40 = [r20] +- ld8 r43 = [r16] +- ld8 r44 = [r17] +- ld8 r45 = [r18] +- ld8 r1 = [r21] +- mov b6 = r22 ++ (p7) ldfd f15 = [r14] ++.L7: ++ adds r14 = 24, r32 + ;; +- br.call.sptk.many b0 = b6 ;; +- adds r14 = 16, r34 ++ ld4 r14 = [r14] + ;; +- ld8 r15 = [r14] ++ cmp4.ne p6, p7 = 13, r14 ++ (p6) br.cond.dptk .L16 ++ adds r14 = 16, r32 + ;; +- stfs [r15] = f8 ++ ld8 r33 = [r14] ++ adds r14 = 120, r32 ++ adds r15 = 128, r32 ++ adds r16 = 136, r32 ++ adds r17 = 144, r32 ++ adds r18 = 152, r32 ++ adds r19 = 160, r32 ++ adds r20 = 168, r32 ++ adds r21 = 176, r32 ++ ld8 r22 = [r32] ++ ;; ++ ld8 r38 = [r14] ++ ld8 r39 = [r15] ++ ld8 r40 = [r16] ++ ld8 r41 = [r17] ++ ld8 r42 = [r18] ++ ld8 r43 = [r19] ++ ld8 r44 = [r20] ++ ld8 r45 = [r21] ++ ld8 r14 = [r22], 8 ++ ;; ++ mov b6 = r14 ++ ld8 r1 = [r22] ++ br.call.sptk.many b0 = b6 ++ ;; ++ mov r1 = r36 ++ stfs [r33] = f8 + br .L18 +-.L17: ++ ;; ++.L16: + cmp4.ne p6, p7 = 14, r14 + (p6) br.cond.dptk .L19 +- ld8 r21 = [r34] +- adds r14 = 144, r34 +- adds r15 = 152, r34 +- ;; +- ld8 r22 = [r21], 8 +- adds r19 = 128, r34 +- adds r20 = 136, r34 +- adds r16 = 160, r34 +- adds r17 = 168, r34 +- adds r18 = 176, r34 +- ld8 r41 = [r14] +- ld8 r42 = [r15] +- ld8 r38 = [r23] +- ;; +- ld8 r39 = [r19] +- ld8 r40 = [r20] +- ld8 r43 = [r16] +- ld8 r44 = [r17] +- ld8 r45 = [r18] +- ld8 r1 = [r21] +- mov b6 = r22 +- ;; +- br.call.sptk.many b0 = b6 ;; +- adds r14 = 16, r34 ++ adds r14 = 16, r32 + ;; +- ld8 r15 = [r14] ++ ld8 r33 = [r14] ++ adds r14 = 120, r32 ++ adds r15 = 128, r32 ++ adds r16 = 136, r32 ++ adds r17 = 144, r32 ++ adds r18 = 152, r32 ++ adds r19 = 160, r32 ++ adds r20 = 168, r32 ++ adds r21 = 176, r32 ++ ld8 r22 = [r32] ++ ;; ++ ld8 r38 = [r14] ++ ld8 r39 = [r15] ++ ld8 r40 = [r16] ++ ld8 r41 = [r17] ++ ld8 r42 = [r18] ++ ld8 r43 = [r19] ++ ld8 r44 = [r20] ++ ld8 r45 = [r21] ++ ld8 r14 = [r22], 8 ++ ;; ++ mov b6 = r14 ++ ld8 r1 = [r22] ++ br.call.sptk.many b0 = b6 + ;; +- stfd [r15] = f8 ++ mov r1 = r36 ++ stfd [r33] = f8 + br .L18 ++ ;; + .L19: +- ld8 r21 = [r34] +- adds r14 = 144, r34 +- adds r18 = 176, r34 +- ;; +- ld8 r22 = [r21], 8 +- adds r19 = 128, r34 +- adds r20 = 136, r34 +- adds r15 = 152, r34 +- adds r16 = 160, r34 +- adds r17 = 168, r34 +- ld8 r41 = [r14] +- ld8 r45 = [r18] +- ld8 r38 = [r23] +- ;; +- ld8 r39 = [r19] +- ld8 r40 = [r20] +- ld8 r42 = [r15] +- ld8 r43 = [r16] +- ld8 r44 = [r17] +- ld8 r1 = [r21] +- mov b6 = r22 +- ;; +- br.call.sptk.many b0 = b6 ;; +- ld4 r14 = [r33] +- mov r18 = r8 ++ adds r14 = 120, r32 ++ adds r15 = 128, r32 ++ adds r16 = 136, r32 ++ adds r17 = 144, r32 ++ adds r18 = 152, r32 ++ adds r19 = 160, r32 ++ adds r20 = 168, r32 ++ adds r21 = 176, r32 ++ ld8 r22 = [r32] ++ ;; ++ ld8 r38 = [r14] ++ ld8 r39 = [r15] ++ ld8 r40 = [r16] ++ ld8 r41 = [r17] ++ ld8 r42 = [r18] ++ ld8 r43 = [r19] ++ ld8 r44 = [r20] ++ ld8 r45 = [r21] ++ ld8 r14 = [r22], 8 ++ ;; ++ mov b6 = r14 ++ ld8 r1 = [r22] ++ br.call.sptk.many b0 = b6 ++ ;; ++ mov r1 = r36 ++ mov r23 = r8 ++ adds r14 = 24, r32 + ;; +- cmp4.ne p6, p7 = 1, r14 +- (p7) br.cond.dpnt .L18 ++ ld4 r14 = [r14] ++ ;; ++ cmp4.eq p6, p7 = 1, r14 ++ (p6) br.cond.dpnt .L18 + ;; + cmp4.ne p6, p7 = 0, r14 +- (p7) br.cond.dpnt .L98 + ;; ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) st8 [r14] = r8 ++ (p7) br.cond.dptk .L18 + cmp4.ne p6, p7 = 2, r14 +- (p7) br.cond.dpnt .L99 + ;; ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) st1 [r14] = r8 ++ (p7) br.cond.dpnt .L18 + cmp4.ne p6, p7 = 3, r14 +- (p7) br.cond.dpnt .L99 + ;; ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) st1 [r14] = r8 ++ (p7) br.cond.dpnt .L18 + cmp4.ne p6, p7 = 4, r14 +- (p6) br.cond.dptk .L29 +-.L99: +- adds r14 = 16, r34 + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 16, r32 + ;; +- st1 [r15] = r18 +- br .L18 +-.L29: ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) st1 [r14] = r8 ++ (p7) br.cond.dpnt .L18 + cmp4.ne p6, p7 = 5, r14 +- (p7) br.cond.dpnt .L100 + ;; ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) st2 [r14] = r8 ++ (p7) br.cond.dpnt .L18 + cmp4.ne p6, p7 = 6, r14 +- (p6) br.cond.dptk .L33 +-.L100: +- adds r14 = 16, r34 + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 16, r32 + ;; +- st2 [r15] = r18 +- br .L18 +-.L33: ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) st2 [r14] = r8 ++ (p7) br.cond.dpnt .L18 + cmp4.ne p6, p7 = 7, r14 +- (p7) br.cond.dpnt .L101 + ;; ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) st4 [r14] = r8 ++ (p7) br.cond.dpnt .L18 + cmp4.ne p6, p7 = 8, r14 +- (p6) br.cond.dptk .L37 +-.L101: +- adds r14 = 16, r34 + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 16, r32 + ;; +- st4 [r15] = r18 +- br .L18 +-.L37: +- mov r15 = r14 ++ (p7) ld8 r14 = [r14] + ;; +- cmp4.eq p6, p7 = 9, r15 +- (p6) br.cond.dptk .L98 ++ (p7) st4 [r14] = r8 ++ (p7) br.cond.dpnt .L18 ++ cmp4.ne p6, p7 = 9, r14 + ;; +- cmp4.eq p6, p7 = 11, r15 +- (p6) br.cond.dptk .L98 ++ cmp4.ne.and.orcm p6, p7 = 11, r14 + ;; +- cmp4.eq p6, p7 = 10, r15 +- (p6) br.cond.dptk .L98 ++ (p7) adds r14 = 16, r32 + ;; +- cmp4.eq p6, p7 = 12, r15 +- (p6) br.cond.dptk .L98 ++ (p7) ld8 r14 = [r14] + ;; +- cmp4.ne p6, p7 = 15, r15 +- (p6) br.cond.dptk .L45 +-.L98: +- adds r14 = 16, r34 ++ (p7) st8 [r14] = r8 ++ (p7) br.cond.dptk .L18 ++ cmp4.ne p6, p7 = 10, r14 + ;; +- ld8 r15 = [r14] ++ cmp4.ne.and.orcm p6, p7 = 12, r14 + ;; +- st8 [r15] = r18 +- br .L18 +-.L45: ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) st8 [r14] = r8 ++ (p7) br.cond.dptk .L18 ++ cmp4.ne p6, p7 = 15, r14 ++ ;; ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) st8 [r14] = r8 ++ (p7) br.cond.dpnt .L18 + cmp4.ne p6, p7 = 16, r14 + (p6) br.cond.dptk .L18 +- adds r15 = 8, r34 +- ;; +- ld4 r14 = [r15] ++ adds r14 = 8, r32 + ;; +- and r14 = 1, r14 ++ ld4 r14 = [r14] + ;; +- cmp4.eq p6, p7 = 0, r14 +- (p6) br.cond.dptk .L48 +- adds r14 = 32, r34 ++ tbit.z p6, p7 = r14, 0 ++ (p6) br.cond.dptk .L45 ++ adds r14 = 32, r32 + ;; + ld8 r14 = [r14] + ;; + cmp.ne p6, p7 = 1, r14 +- (p6) br.cond.dptk .L49 +- adds r14 = 16, r34 +- ld1 r16 = [r18] + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 16, r32 + ;; +- st1 [r15] = r16 +- br .L18 +-.L49: ++ (p7) ld8 r15 = [r14] ++ (p7) ld1 r14 = [r8] ++ ;; ++ (p7) st1 [r15] = r14 ++ (p7) br.cond.dpnt .L18 + cmp.ne p6, p7 = 2, r14 +- (p6) br.cond.dptk .L51 +- adds r14 = 16, r34 +- ld2 r16 = [r18] + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 16, r32 + ;; +- st2 [r15] = r16 +- br .L18 +-.L51: ++ (p7) ld8 r15 = [r14] ++ (p7) ld2 r14 = [r8] ++ ;; ++ (p7) st2 [r15] = r14 ++ (p7) br.cond.dpnt .L18 + cmp.ne p6, p7 = 4, r14 +- (p6) br.cond.dptk .L53 +- adds r14 = 16, r34 +- ld4 r16 = [r18] + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 16, r32 + ;; +- st4 [r15] = r16 +- br .L18 +-.L53: ++ (p7) ld8 r15 = [r14] ++ (p7) ld4 r14 = [r8] ++ ;; ++ (p7) st4 [r15] = r14 ++ (p7) br.cond.dpnt .L18 + cmp.ne p6, p7 = 8, r14 +- (p6) br.cond.dptk .L55 +- adds r14 = 16, r34 +- ld8 r16 = [r18] + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 16, r32 + ;; +- st8 [r15] = r16 +- br .L18 +-.L55: ++ (p7) ld8 r15 = [r14] ++ (p7) ld8 r14 = [r8] ++ ;; ++ (p7) st8 [r15] = r14 ++ (p7) br.cond.dpnt .L18 + adds r14 = 7, r14 + ;; +- shr.u r14 = r14, 3 ++ shr.u r25 = r14, 3 + ;; +- adds r14 = -1, r14 ++ adds r15 = -1, r25 + ;; +- cmp4.le p6, p7 = 0, r14 +- sxt4 r17 = r14 +- (p7) br.cond.dpnt .L18 +- adds r14 = 16, r34 ++ cmp4.gt p6, p7 = r0, r15 ++ (p6) br.cond.dpnt .L18 ++ sxt4 r14 = r15 + ;; +- ld8 r19 = [r14] +-.L59: +- shl r14 = r17, 3 +- adds r17 = -1, r17 ++ shladd r24 = r14, 3, r0 + ;; +- add r16 = r18, r14 +- add r14 = r19, r14 +- cmp4.le p6, p7 = 0, r17 ++ add r23 = r8, r24 ++ adds r16 = 16, r32 ++ sub r14 = r25, r15 + ;; +- ld8 r15 = [r16] +- sxt4 r17 = r17 ++ adds r14 = -2, r14 ++ ;; ++ sub r14 = r15, r14, 1 ++ ;; ++ addp4 r14 = r14, r0 ++ ;; ++ mov ar.lc = r14 ++.L56: ++ ld8 r14 = [r16] ++ ;; ++ add r14 = r24, r14 ++ ld8 r15 = [r23], -8 + ;; + st8 [r14] = r15 +- (p6) br.cond.dptk .L59 ++ adds r24 = -8, r24 ++ br.cloop.sptk.few .L56 + br .L18 +-.L48: +- ld4 r14 = [r15] +- addl r15 = 512, r0 +- ;; +- and r14 = r15, r14 + ;; +- cmp4.eq p6, p7 = 0, r14 +- (p6) br.cond.dptk .L18 +- adds r22 = 32, r34 ++.L45: ++ tbit.z p6, p7 = r14, 9 ++ (p6) br.cond.dpnt .L18 ++ adds r16 = 32, r32 + ;; +- ld8 r15 = [r22] ++ ld8 r15 = [r16] + ;; + adds r14 = -1, r15 + ;; + cmp.ltu p6, p7 = 31, r14 +- (p6) br.cond.dptk .L18 ++ (p6) br.cond.dpnt .L18 + ;; + cmp.eq p6, p7 = 0, r15 +- (p6) br.cond.dptk .L64 +- adds r14 = 16, r34 ++ (p6) br.cond.dptk .L59 ++ adds r15 = 16, r32 ++ ;; ++ ld8 r14 = [r15] ++ ;; ++ st1 [r14] = r8 ++ ld8 r14 = [r16] ++ ;; ++ cmp.geu p6, p7 = 1, r14 ++ ;; ++ (p7) ld8 r14 = [r15] ++ ;; ++ (p7) adds r14 = 1, r14 ++ (p7) shr r15 = r8, 8 + ;; +- ld8 r15 = [r14] ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 + ;; +- st1 [r15] = r18 +- ld8 r15 = [r22] ++ ld8 r14 = [r14] + ;; +-.L64: +- cmp.geu p6, p7 = 1, r15 +- (p6) br.cond.dptk .L65 +- adds r14 = 16, r34 +- shr r16 = r18, 8 ++ cmp.geu p6, p7 = 2, r14 + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 16, r32 + ;; +- adds r15 = 1, r15 ++ (p7) ld8 r14 = [r14] + ;; +- st1 [r15] = r16 +- ld8 r15 = [r22] ++ (p7) adds r14 = 2, r14 ++ (p7) shr r15 = r8, 16 + ;; +-.L65: +- cmp.geu p6, p7 = 2, r15 +- (p6) br.cond.dptk .L66 +- adds r14 = 16, r34 +- shr r16 = r18, 16 ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 + ;; +- ld8 r15 = [r14] ++ ld8 r14 = [r14] + ;; +- adds r15 = 2, r15 ++ cmp.geu p6, p7 = 3, r14 + ;; +- st1 [r15] = r16 +- ld8 r15 = [r22] ++ (p7) adds r14 = 16, r32 + ;; +-.L66: +- cmp.geu p6, p7 = 3, r15 +- (p6) br.cond.dptk .L67 +- adds r14 = 16, r34 +- shr r16 = r18, 24 ++ (p7) ld8 r14 = [r14] + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 3, r14 ++ (p7) shr r15 = r8, 24 + ;; +- adds r15 = 3, r15 ++ (p7) st1 [r14] = r15 ++.L59: ++ adds r14 = 32, r32 + ;; +- st1 [r15] = r16 +- ld8 r15 = [r22] ++ ld8 r14 = [r14] + ;; +-.L67: +- cmp.geu p6, p7 = 4, r15 +- (p6) br.cond.dptk .L68 +- adds r14 = 16, r34 +- shr r16 = r18, 32 ++ cmp.geu p6, p7 = 4, r14 + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 16, r32 + ;; +- adds r15 = 4, r15 ++ (p7) ld8 r14 = [r14] + ;; +- st1 [r15] = r16 +- ld8 r15 = [r22] ++ (p7) adds r14 = 4, r14 ++ (p7) shr r15 = r23, 32 + ;; +-.L68: +- cmp.geu p6, p7 = 5, r15 +- (p6) br.cond.dptk .L69 +- adds r14 = 16, r34 +- shr r16 = r18, 40 ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 + ;; +- ld8 r15 = [r14] ++ ld8 r14 = [r14] + ;; +- adds r15 = 5, r15 ++ cmp.geu p6, p7 = 5, r14 + ;; +- st1 [r15] = r16 +- ld8 r15 = [r22] ++ (p7) adds r14 = 16, r32 + ;; +-.L69: +- cmp.geu p6, p7 = 6, r15 +- (p6) br.cond.dptk .L70 +- adds r14 = 16, r34 +- shr r16 = r18, 48 ++ (p7) ld8 r14 = [r14] + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 5, r14 ++ (p7) shr r15 = r23, 40 + ;; +- adds r15 = 6, r15 ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 + ;; +- st1 [r15] = r16 +- ld8 r15 = [r22] ++ ld8 r14 = [r14] + ;; +-.L70: +- cmp.geu p6, p7 = 7, r15 +- (p6) br.cond.dptk .L71 +- adds r14 = 16, r34 +- shr r16 = r18, 56 ++ cmp.geu p6, p7 = 6, r14 + ;; +- ld8 r15 = [r14] ++ (p7) adds r14 = 16, r32 + ;; +- adds r15 = 7, r15 ++ (p7) ld8 r14 = [r14] + ;; +- st1 [r15] = r16 +- ld8 r15 = [r22] ++ (p7) adds r14 = 6, r14 ++ (p7) shr r15 = r23, 48 + ;; +-.L71: +- cmp.geu p6, p7 = 8, r15 +- (p6) br.cond.dptk .L18 +- adds r16 = 16, r34 ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] ++ ;; ++ cmp.geu p6, p7 = 7, r14 ++ ;; ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 7, r14 ++ (p7) shr r15 = r23, 56 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r15 = 32, r32 ++ ;; ++ ld8 r14 = [r15] ++ ;; ++ cmp.geu p6, p7 = 8, r14 ++ (p6) br.cond.dpnt .L18 ++ adds r16 = 16, r32 + ;; + ld8 r14 = [r16] + ;; + adds r14 = 8, r14 + ;; + st1 [r14] = r9 +- ld8 r15 = [r22] ++ ld8 r14 = [r15] + ;; +- cmp.geu p6, p7 = 9, r15 +- (p6) br.cond.dptk .L73 +- ld8 r14 = [r16] +- shr r15 = r9, 8 ++ cmp.geu p6, p7 = 9, r14 + ;; +- adds r14 = 9, r14 ++ (p7) ld8 r14 = [r16] + ;; +- st1 [r14] = r15 +- ld8 r15 = [r22] ++ (p7) adds r14 = 9, r14 ++ (p7) shr r15 = r9, 8 + ;; +-.L73: +- cmp.geu p6, p7 = 10, r15 +- (p6) br.cond.dptk .L74 +- ld8 r14 = [r16] +- shr r15 = r9, 16 ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] ++ ;; ++ cmp.geu p6, p7 = 10, r14 ++ ;; ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] + ;; +- adds r14 = 10, r14 ++ (p7) adds r14 = 10, r14 ++ (p7) shr r15 = r9, 16 + ;; +- st1 [r14] = r15 +-.L74: +- ld8 r14 = [r22] ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; + cmp.geu p6, p7 = 11, r14 +- (p6) br.cond.dptk .L75 +- ld8 r14 = [r16] +- shr r15 = r9, 24 + ;; +- adds r14 = 11, r14 ++ (p7) adds r14 = 16, r32 + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 11, r14 ++ (p7) shr r15 = r9, 24 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L75: + cmp.geu p6, p7 = 12, r14 +- (p6) br.cond.dptk .L76 +- ld8 r14 = [r16] +- shr r15 = r9, 32 + ;; +- adds r14 = 12, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 12, r14 ++ (p7) shr r15 = r9, 32 + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L76: + cmp.geu p6, p7 = 13, r14 +- (p6) br.cond.dptk .L77 +- ld8 r14 = [r16] +- shr r15 = r9, 40 + ;; +- adds r14 = 13, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) adds r14 = 13, r14 ++ (p7) shr r15 = r9, 40 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L77: + cmp.geu p6, p7 = 14, r14 +- (p6) br.cond.dptk .L78 +- ld8 r14 = [r16] +- shr r15 = r9, 48 + ;; +- adds r14 = 14, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) adds r14 = 14, r14 ++ (p7) shr r15 = r9, 48 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L78: + cmp.geu p6, p7 = 15, r14 +- (p6) br.cond.dptk .L79 +- ld8 r14 = [r16] +- shr r15 = r9, 56 + ;; +- adds r14 = 15, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) adds r14 = 15, r14 ++ (p7) shr r15 = r9, 56 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r15 = 32, r32 ++ ;; ++ ld8 r14 = [r15] + ;; +-.L79: + cmp.geu p6, p7 = 16, r14 +- (p6) br.cond.dptk .L18 ++ (p6) br.cond.dpnt .L18 ++ adds r16 = 16, r32 ++ ;; + ld8 r14 = [r16] + ;; + adds r14 = 16, r14 + ;; + st1 [r14] = r10 +- ld8 r14 = [r22] ++ ld8 r14 = [r15] + ;; + cmp.geu p6, p7 = 17, r14 +- (p6) br.cond.dptk .L81 +- ld8 r14 = [r16] +- shr r15 = r10, 8 + ;; +- adds r14 = 17, r14 ++ (p7) ld8 r14 = [r16] + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) adds r14 = 17, r14 ++ (p7) shr r15 = r10, 8 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L81: + cmp.geu p6, p7 = 18, r14 +- (p6) br.cond.dptk .L82 +- ld8 r14 = [r16] +- shr r15 = r10, 16 + ;; +- adds r14 = 18, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 18, r14 ++ (p7) shr r15 = r10, 16 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ ld8 r14 = [r14] + ;; +-.L82: + cmp.geu p6, p7 = 19, r14 +- (p6) br.cond.dptk .L83 +- ld8 r14 = [r16] +- shr r15 = r10, 24 + ;; +- adds r14 = 19, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 19, r14 ++ (p7) shr r15 = r10, 24 + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L83: + cmp.geu p6, p7 = 20, r14 +- (p6) br.cond.dptk .L84 +- ld8 r14 = [r16] +- shr r15 = r10, 32 + ;; +- adds r14 = 20, r14 ++ (p7) adds r14 = 16, r32 + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 20, r14 ++ (p7) shr r15 = r10, 32 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L84: + cmp.geu p6, p7 = 21, r14 +- (p6) br.cond.dptk .L85 +- ld8 r14 = [r16] +- shr r15 = r10, 40 + ;; +- adds r14 = 21, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 21, r14 ++ (p7) shr r15 = r10, 40 + ;; +- st1 [r14] = r15 +-.L85: +- ld8 r14 = [r22] ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; + cmp.geu p6, p7 = 22, r14 +- (p6) br.cond.dptk .L86 +- ld8 r14 = [r16] +- shr r15 = r10, 48 + ;; +- adds r14 = 22, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) adds r14 = 22, r14 ++ (p7) shr r15 = r10, 48 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L86: + cmp.geu p6, p7 = 23, r14 +- (p6) br.cond.dptk .L87 +- ld8 r14 = [r16] +- shr r15 = r10, 56 + ;; +- adds r14 = 23, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) adds r14 = 23, r14 ++ (p7) shr r15 = r10, 56 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r15 = 32, r32 ++ ;; ++ ld8 r14 = [r15] + ;; +-.L87: + cmp.geu p6, p7 = 24, r14 +- (p6) br.cond.dptk .L18 ++ (p6) br.cond.dpnt .L18 ++ adds r16 = 16, r32 ++ ;; + ld8 r14 = [r16] + ;; + adds r14 = 24, r14 + ;; + st1 [r14] = r11 +- ld8 r14 = [r22] ++ ld8 r14 = [r15] + ;; + cmp.geu p6, p7 = 25, r14 +- (p6) br.cond.dptk .L89 +- ld8 r14 = [r16] +- shr r15 = r11, 8 + ;; +- adds r14 = 25, r14 ++ (p7) ld8 r14 = [r16] + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) adds r14 = 25, r14 ++ (p7) shr r15 = r11, 8 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L89: + cmp.geu p6, p7 = 26, r14 +- (p6) br.cond.dptk .L90 +- ld8 r14 = [r16] +- shr r15 = r11, 16 + ;; +- adds r14 = 26, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) adds r14 = 26, r14 ++ (p7) shr r15 = r11, 16 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L90: + cmp.geu p6, p7 = 27, r14 +- (p6) br.cond.dptk .L91 +- ld8 r14 = [r16] +- shr r15 = r11, 24 + ;; +- adds r14 = 27, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 27, r14 ++ (p7) shr r15 = r11, 24 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ ld8 r14 = [r14] + ;; +-.L91: + cmp.geu p6, p7 = 28, r14 +- (p6) br.cond.dptk .L92 +- ld8 r14 = [r16] +- shr r15 = r11, 32 + ;; +- adds r14 = 28, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 28, r14 ++ (p7) shr r15 = r11, 32 + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L92: + cmp.geu p6, p7 = 29, r14 +- (p6) br.cond.dptk .L93 +- ld8 r14 = [r16] +- shr r15 = r11, 40 + ;; +- adds r14 = 29, r14 ++ (p7) adds r14 = 16, r32 + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 29, r14 ++ (p7) shr r15 = r11, 40 ++ ;; ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L93: + cmp.geu p6, p7 = 30, r14 +- (p6) br.cond.dptk .L94 +- ld8 r14 = [r16] +- shr r15 = r11, 48 + ;; +- adds r14 = 30, r14 ++ (p7) adds r14 = 16, r32 ++ ;; ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 30, r14 ++ (p7) shr r15 = r11, 48 + ;; +- st1 [r14] = r15 +- ld8 r14 = [r22] ++ (p7) st1 [r14] = r15 ++ adds r14 = 32, r32 ++ ;; ++ ld8 r14 = [r14] + ;; +-.L94: + cmp.geu p6, p7 = 31, r14 +- (p6) br.cond.dptk .L18 +- ld8 r14 = [r16] +- shr r15 = r11, 56 + ;; +- adds r14 = 31, r14 ++ (p7) adds r14 = 16, r32 + ;; +- st1 [r14] = r15 ++ (p7) ld8 r14 = [r14] ++ ;; ++ (p7) adds r14 = 31, r14 ++ (p7) shr r15 = r11, 56 ++ ;; ++ (p7) st1 [r14] = r15 + .L18: +- addl r8 = 0, r0 +- adds r12 = 16, r12 +- mov ar.pfs = r37 +- mov b0 = r36 ++ mov r8 = r0 ++ mov ar.pfs = r35 ++ mov ar.lc = r37 ++ mov b0 = r34 + br.ret.sptk.many b0 ++ ;; + .endp __builtin_avcall# +- .ident "GCC: (GNU) 2.9-ia64-000216 snap-000324" ++ .ident "GCC: (GNU) 4.1.0 (SUSE Linux)" +--- ffcall/avcall/avcall.h.in ++++ ffcall/avcall/avcall.h.in 2006-07-19 17:19:49.000000000 +0200 +@@ -1112,7 +1112,7 @@ typedef struct + * different alignment. + */ + /* little endian -> small structures < 1 word are adjusted to the left */ +-#if defined(__i386__) || defined(__alpha__) || defined(__x86_64__) ++#if defined(__i386__) || defined(__alpha__) || defined(__x86_64__) || (defined(__ia64__) && defined(__GNUC__) && (__GNUC__ >= 3)) + #define __av_struct(LIST,TYPE,TYPE_SIZE,TYPE_ALIGN,ASSIGN,VAL) \ + (((LIST).aptr = \ + (__avword*)(((__avword)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(long)__av_struct_alignment(TYPE_ALIGN)))\ +@@ -1121,7 +1121,7 @@ typedef struct + (LIST).aptr = (__avword*)(((__avword)(LIST).aptr+sizeof(__avword)-1) & -(long)sizeof(__avword)),\ + 0)) + #endif +-#if defined(__ia64__) ++#if defined(__ia64__) && (!defined(__GNUC__) || (__GNUC__ < 3)) + /* Types larger than a word have 2-word alignment. */ + #define __av_struct(LIST,TYPE,TYPE_SIZE,TYPE_ALIGN,ASSIGN,VAL) \ + ((LIST).aptr = (__avword*)(((__avword)(LIST).aptr+(TYPE_SIZE)+__av_struct_alignment(TYPE_ALIGN)-1) & -(long)__av_struct_alignment(TYPE_ALIGN)), \ +--- ffcall/callback/vacall_r/vacall_r.h.in ++++ ffcall/callback/vacall_r/vacall_r.h.in 2006-07-19 17:23:49.000000000 +0200 +@@ -1059,7 +1059,7 @@ typedef __va_alist* va_alist; + #endif + #define __va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (LIST)->aptr = ((LIST)->aptr + __va_struct_alignment(TYPE_ALIGN)-1) & -(long)__va_struct_alignment(TYPE_ALIGN), +-#if defined(__i386__) || defined(__m68k__) || defined(__alpha__) || defined(__arm__) || defined(__powerpc64__) || defined(__m88k__) || defined(__convex__) || defined(__x86_64__) ++#if defined(__i386__) || defined(__m68k__) || defined(__alpha__) || defined(__arm__) || defined(__powerpc64__) || defined(__m88k__) || defined(__convex__) || defined(__x86_64__) || (defined(__ia64__) && defined(__GNUC__) && (__GNUC__ >= 3)) + #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ +@@ -1144,7 +1144,7 @@ typedef __va_alist* va_alist; + (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ + ) + #endif +-#if defined(__ia64__) ++#if defined(__ia64__) && (!defined(__GNUC__) || (__GNUC__ < 3)) + /* Types larger than a word have 2-word alignment. */ + #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ + (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ diff --git a/clisp-2.39.dif b/clisp-2.39.dif new file mode 100644 index 0000000..96fd9e2 --- /dev/null +++ b/clisp-2.39.dif @@ -0,0 +1,494 @@ +--- .pkgextract ++++ .pkgextract 2006-05-22 18:06:36.000000000 +0200 +@@ -0,0 +1,6 @@ ++patch -p0 -s --suffix=.mappriv < ../clisp-2.31-map_private.patch ++patch -p0 -s --suffix=.mapvar < ../clisp-2.31-map_variable.patch ++patch -p0 -s --suffix=.sel < ../clisp-2.31-personality.patch ++patch -p0 -s --suffix=.ia64 < ../clisp-2.33.2-ia64.dif ++patch -p0 -s --suffix=.alloca < ../clisp-2.36-alloca.patch ++patch -p0 -s --suffix=.dump < ../clisp-2.39-dump.dif +--- configure ++++ configure 2006-05-22 18:06:36.000000000 +0200 +@@ -341,6 +341,17 @@ + passnext=yes + passnextm=yes ;; + ++ -libdir=* | --libdir=* | --libdi=* | --libd=*) ++ subdir_configure_args="$subdir_configure_args $arg" ++ makemake_args="$makemake_args --libdir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;; ++ ++ -libdir | --libdir | --libdi | --libd) ++ subdir_configure_args="$subdir_configure_args $arg" ++ makemake_args="$makemake_args --libdir=" ++ prev=libdir ++ passnext=yes ++ passnextm=yes ;; ++ + --hyperspec=* | --hyperspe=* | --hypersp=* | --hypers=* | --hs=* | --hy=*) + makemake_args="$makemake_args --hyperspec="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;; + +@@ -718,9 +729,6 @@ + make config.lisp; + ${EDITOR:-vi} config.lisp; + fi +- # ulimit: just to make sure, should not hurt +- # cygwin /bin/sh ulimit is broken +- set +e; ulimit -s 8192 2>/dev/null; set -e; + make + make check + cd .. +--- ffcall/build-aux/config.guess ++++ ffcall/build-aux/config.guess 2006-05-22 18:06:36.000000000 +0200 +@@ -983,6 +983,7 @@ + exit ;; + esac + # Determine whether the default compiler is a.out or elf ++ test -e /etc/SuSE-release && VENDOR=suse + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c + #include +--- ffcall/callback/trampoline_r/trampoline.c ++++ ffcall/callback/trampoline_r/trampoline.c 2006-05-22 18:06:36.000000000 +0200 +@@ -191,15 +191,11 @@ + #ifdef ultrix + #include + #else +-#ifdef linux +-#include +-#else + #ifdef HAVE_SYS_CACHECTL_H + #include + #endif + #endif + #endif +-#endif + #ifdef __m88k__ + #include + #endif +--- libcharset/build-aux/config.guess ++++ libcharset/build-aux/config.guess 2006-05-22 18:06:36.000000000 +0200 +@@ -983,6 +983,7 @@ + exit ;; + esac + # Determine whether the default compiler is a.out or elf ++ test -e /etc/SuSE-release && VENDOR=suse + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c + #include +--- libcharset/lib/Makefile.in ++++ libcharset/lib/Makefile.in 2006-05-22 18:06:36.000000000 +0200 +@@ -57,10 +57,10 @@ + $(LIBTOOL_LINK) $(CC) $(LDFLAGS) -o libcharset.la -rpath $(libdir) -version-info $(LIBCHARSET_VERSION_INFO) -no-undefined $(OBJECTS) + + localcharset.lo : $(srcdir)/localcharset.c +- $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CFLAGS) $(CPPFLAGS) $(DEFS) -c $(srcdir)/localcharset.c ++ $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CFLAGS) $(CPPFLAGS) $(DEFS) -fPIC -c $(srcdir)/localcharset.c + + relocatable.lo : $(srcdir)/relocatable.c $(srcdir)/relocatable.h +- $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CFLAGS) $(CPPFLAGS) $(DEFS) -c $(srcdir)/relocatable.c ++ $(LIBTOOL_COMPILE) $(CC) $(INCLUDES) $(CFLAGS) $(CPPFLAGS) $(DEFS) -fPIC -c $(srcdir)/relocatable.c + + charset.alias: $(srcdir)/config.charset + $(SHELL) $(srcdir)/config.charset '@host@' > t-$@ +--- modules/clx/new-clx/README.SuSE ++++ modules/clx/new-clx/README.SuSE 2006-05-22 18:06:36.000000000 +0200 +@@ -1,35 +1,34 @@ +- + # +-# (C) 1998, S.u.S.E. GmbH, Nürnberg ++# (C) 1997-99, SuSE GmbH, Nürnberg + # + + Call of CLX + + +- Please call clisp with the option -F to use clx. The X Window System +-is required for the usage of clx. Therefore the clisp version under +-/usr/lib/clisp/clx/ is used. ++ Please call clisp with the option '-K full' to use clx. The ++X Window System is required for the usage of clx. Therefore the clisp ++version under /usr/lib/clisp/full/ is used. + For some examples of clx try out in the directory demos/ + +- clisp -X -q -i sokoban ++ clisp -K full -q -i sokoban + + and + +- clisp -X -q -i qix ++ clisp -K full -q -i qix + + ---------------------------------------------------------------------------- + + Aufruf von CLX + + +- Bitte rufen Sie clisp mit der Option -X auf. Clx erfordert ein ++ Bitte rufen Sie clisp mit der Option '-K full' auf. CLX erfordert ein + installiertes X-Window-System. Daher wird die entsprechende clisp-Version +-aus /usr/lib/clisp/clx/ benutzt. +-Sie finden zwei Beispiele für clx im Verzeichnis demos/ ++aus /usr/lib/clisp/full/ benutzt. ++Sie finden zwei Beispiele für clx im Verzeichnis demos/ + +- clisp -X -q -i sokoban ++ clisp -K full -q -i sokoban + + und + +- clisp -X -q -i qix ++ clisp -K full -q -i qix + +--- modules/clx/new-clx/clx.lisp ++++ modules/clx/new-clx/clx.lisp 2006-05-22 18:06:36.000000000 +0200 +@@ -22,6 +22,7 @@ + ;;;; -------------------------------------------------------------------------- + ;;;; Exports + ;;;; -------------------------------------------------------------------------- ++(export '*displays*) + (export + '(*version* access-control access-error access-hosts activate-screen-saver + add-access-host add-resource add-to-save-set alist alloc-color +--- modules/clx/new-clx/demos/koch.lisp ++++ modules/clx/new-clx/demos/koch.lisp 2006-05-22 18:06:36.000000000 +0200 +@@ -7,7 +7,30 @@ + ;;; $Id: koch.lisp,v 1.1 2005/09/28 22:23:24 sds Exp $ + ;;; $Source: /cvsroot/clisp/clisp/modules/clx/new-clx/demos/koch.lisp,v $ + +-(in-package :clx-demos) ++(defpackage "KOCH" ++ (:use "COMMON-LISP" "XLIB" "EXT") ++ (:import-from "SYS" "GETENV") ++ (:shadowing-import-from "XLIB" "CHAR-WIDTH") ; EXT has CHAR-WIDTH ++ (:export "KOCH")) ++ ++(in-package :koch) ++;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ++(defun x-host-display (&optional (disp (getenv "DISPLAY"))) ++ "Parse the DISPLAY environment variable. ++Return 3 values: host, server, screen." ++ (if disp ++ (let* ((pos1 (position #\: disp)) ++ (pos2 (and pos1 (position #\. disp :start pos1)))) ++ (values (subseq disp 0 pos1) ++ (if pos1 (parse-integer (subseq disp (1+ pos1) pos2)) 0) ++ (if pos2 (parse-integer (subseq disp (1+ pos2))) 0))) ++ (values "" 0 0))) ++ ++(defun x-open-display () ++ "Open the appropriate X display." ++ (multiple-value-bind (host di) (x-host-display) ++ (xlib:open-display host :display di))) ++;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + + (defun koch-point (cx width/2 height/2 scale) + (list (round (+ width/2 (* scale width/2 (realpart cx)))) +@@ -118,7 +141,7 @@ + (xlib:close-display dpy))) + + (format t "~& Koch snoflake:~% +- (clx-demos:koch :width :height :delay :x :y :scale :font) +-~% Call (clx-demos:koch).~%") ++ (koch:koch :width :height :delay :x :y :scale :font) ++~% Call (koch:koch)~%~%") + + (provide :koch) +--- modules/clx/new-clx/demos/qix.lisp ++++ modules/clx/new-clx/demos/qix.lisp 2006-05-22 18:06:36.000000000 +0200 +@@ -14,7 +14,30 @@ + ;;;; o or a spline option?! + ;;;; + +-(in-package :clx-demos) ++(defpackage "QIX" ++ (:use "COMMON-LISP" "XLIB" "EXT") ++ (:import-from "SYS" "GETENV") ++ (:shadowing-import-from "XLIB" "CHAR-WIDTH") ; EXT has CHAR-WIDTH ++ (:export "QIX")) ++ ++(in-package :qix) ++;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ++(defun x-host-display (&optional (disp (getenv "DISPLAY"))) ++ "Parse the DISPLAY environment variable. ++Return 3 values: host, server, screen." ++ (if disp ++ (let* ((pos1 (position #\: disp)) ++ (pos2 (and pos1 (position #\. disp :start pos1)))) ++ (values (subseq disp 0 pos1) ++ (if pos1 (parse-integer (subseq disp (1+ pos1) pos2)) 0) ++ (if pos2 (parse-integer (subseq disp (1+ pos2))) 0))) ++ (values "" 0 0))) ++ ++(defun x-open-display () ++ "Open the appropriate X display." ++ (multiple-value-bind (host di) (x-host-display) ++ (xlib:open-display host :display di))) ++;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + + (defvar *offset* 3) + (defvar *delta* 6) +@@ -92,7 +115,7 @@ + + ;; since we have no herald, simply dump it: + (format t "~& The famous swirling vectors.~% +- (clx-demos:qix :host :display :dpy :width :height :delay :nqixs :nlines) +-~% Call (clx-demos:qix) or (clx-demos:qix :delay 0).~%") ++ (qix:qix :host :display :dpy :width :height :delay :nqixs :nlines) ++~% Call (qix:qix) or (qix:qix :delay 0)~%~%") + + (provide "qix") +--- modules/clx/new-clx/demos/sokoban.lisp ++++ modules/clx/new-clx/demos/sokoban.lisp 2006-05-22 18:06:36.000000000 +0200 +@@ -39,7 +39,30 @@ + ;;;; - maximum field size is hard wired to 20x20. (This is not in the LISP spirit!) + ;;;; - sometimes the programm could not count correctly ... + +-(in-package :clx-demos) ++(defpackage "SOKOBAN" ++ (:use "COMMON-LISP") ++ (:import-from "SYS" "GETENV") ++ (:import-from "XLIB" "CLOSED-DISPLAY-P") ++ (:export "SOKOBAN")) ++ ++(in-package :sokoban) ++;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ++(defun x-host-display (&optional (disp (getenv "DISPLAY"))) ++ "Parse the DISPLAY environment variable. ++Return 3 values: host, server, screen." ++ (if disp ++ (let* ((pos1 (position #\: disp)) ++ (pos2 (and pos1 (position #\. disp :start pos1)))) ++ (values (subseq disp 0 pos1) ++ (if pos1 (parse-integer (subseq disp (1+ pos1) pos2)) 0) ++ (if pos2 (parse-integer (subseq disp (1+ pos2))) 0))) ++ (values "" 0 0))) ++ ++(defun x-open-display () ++ "Open the appropriate X display." ++ (multiple-value-bind (host di) (x-host-display) ++ (xlib:open-display host :display di))) ++;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + + ;;;; First a lot of global variables ... + (defvar *pixmaps* nil) ;array of pixmaps according to below indices +@@ -222,7 +245,12 @@ + (nny (+ ny dy))) + (when (>= (field nnx nny) %floor) + ;;Ok its legal ... +- (when (and (= (field nx ny) %object) ++ ;;Allow moving through ++ (when (and (= (field nx ny) %treasure) ++ (= (field nnx nny) %floor)) ++ (incf *n-objects*)) ++ ;;Take this point ++ (when (and (= (field nx ny) %object) + (= (field nnx nny) %goal)) + (decf *n-objects*)) + (incf (field nx ny) 4) ;remove object and add man +@@ -462,6 +490,6 @@ + ;; These functions should realy been compiled: + ;; '(mapcar #'compile '(init-field ready-p update find-outers field find-target walk-to)) + +-(format t "~& Call (clx-demos:sokoban).~%") ++(format t "~&~% Call (sokoban:sokoban)~%~%") + + (provide "sokoban") +--- modules/postgresql/config.h.in ++++ modules/postgresql/config.h.in 2006-05-22 18:25:12.000000000 +0200 +@@ -36,6 +36,9 @@ + /* Define to 1 if you have the header file. */ + #undef HAVE_MEMORY_H + ++/* Define to 1 if you have the header file. */ ++#undef HAVE_PGSQL_POSTGRES_EXT_H ++ + /* Define to 1 if you have the header file. */ + #undef HAVE_POSTGRESQL_POSTGRES_EXT_H + +--- modules/postgresql/configure ++++ modules/postgresql/configure 2006-05-22 18:09:09.000000000 +0200 +@@ -3481,7 +3481,7 @@ + + + +-for ac_header in postgres_ext.h postgresql/postgres_ext.h ++for ac_header in postgres_ext.h postgresql/postgres_ext.h pgsql/postgres_ext.h + do + as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` + if eval "test \"\${$as_ac_Header+set}\" = set"; then +@@ -3630,7 +3630,7 @@ + + done + +-if test "$ac_cv_header_postgres_ext_h" = "no" -a "$ac_cv_header_postgresql_postgres_ext_h" = "no"; then ++if test "$ac_cv_header_postgres_ext_h" = "no" -a "$ac_cv_header_postgresql_postgres_ext_h" = "no" -a "$ac_cv_header_pgsql_postgres_ext_h" = "no"; then + { { echo "$as_me:$LINENO: error: cannot find PostgreSQL headers" >&5 + echo "$as_me: error: cannot find PostgreSQL headers" >&2;} + { (exit 1); exit 1; }; } +--- modules/postgresql/configure.in ++++ modules/postgresql/configure.in 2006-05-22 18:09:54.000000000 +0200 +@@ -18,8 +18,8 @@ + AC_MSG_NOTICE([* PostgreSQL (Headers)]) + AC_HEADER_STDC + AC_HEADER_TIME +-AC_CHECK_HEADERS(postgres_ext.h postgresql/postgres_ext.h) +-if test "$ac_cv_header_postgres_ext_h" = "no" -a "$ac_cv_header_postgresql_postgres_ext_h" = "no"; then ++AC_CHECK_HEADERS(postgres_ext.h postgresql/postgres_ext.h pgsql/postgres_ext.h) ++if test "$ac_cv_header_postgres_ext_h" = "no" -a "$ac_cv_header_postgresql_postgres_ext_h" = "no" -a "$ac_cv_header_pgsql_postgres_ext_h" = "no"; then + AC_MSG_ERROR([cannot find PostgreSQL headers]) + fi + +--- modules/postgresql/link.sh.in ++++ modules/postgresql/link.sh.in 2006-05-22 18:06:36.000000000 +0200 +@@ -4,5 +4,5 @@ + INCLUDES="$absolute_linkkitdir" + NEW_FILES='' + for f in ${NEW_MODULES}; do NEW_FILES=${NEW_FILES}" ${f}.o"; done +-NEW_LIBS="${NEW_FILES} @LIBS@" ++NEW_LIBS="${NEW_FILES} @LIBS@ -lcrypt -lssl" + TO_LOAD='postgresql sql' +--- modules/postgresql/postgresql.lisp ++++ modules/postgresql/postgresql.lisp 2006-05-22 18:12:41.000000000 +0200 +@@ -25,6 +25,8 @@ + # include + #elif defined(HAVE_POSTGRESQL_POSTGRES_EXT_H) + # include ++#elif defined(HAVE_PGSQL_POSTGRES_EXT_H) ++# include + #else + # error \"PostgreSQL is not found\" + #endif~%") +@@ -40,6 +42,8 @@ + # include + #elif defined(HAVE_POSTGRESQL_POSTGRES_EXT_H) + # include ++#elif defined(HAVE_PGSQL_POSTGRES_EXT_H) ++# include + #else + # error \"PostgreSQL is not found\" + #endif~%") +@@ -203,7 +207,8 @@ + (def-call-out PQport (:return-type c-string) (:arguments (conn PGconn))) + (def-call-out PQtty (:return-type c-string) (:arguments (conn PGconn))) + (def-call-out PQoptions (:return-type c-string) (:arguments (conn PGconn))) +-(def-call-out PQstatus (:return-type ConnStatusType) (:arguments (conn PGconn))) ++;;(def-call-out PQstatus (:return-type ConnStatusType) (:arguments (conn PGconn))) ++(def-call-out PQstatus (:return-type int) (:arguments (conn PGconn))) + (def-call-out PQtransactionStatus (:return-type PGTransactionStatusType) + (:arguments (conn PGconn))) + (def-call-out PQparameterStatus (:return-type c-string) +@@ -334,7 +339,8 @@ + (nargs int))) + + ;; Accessor functions for PGresult objects +-(def-call-out PQresultStatus (:return-type ExecStatusType) ++;;(def-call-out PQresultStatus (:return-type ExecStatusType) ++(def-call-out PQresultStatus (:return-type int) + (:arguments (res PGresult))) + (def-call-out PQresStatus (:return-type c-string) + (:arguments (status ExecStatusType))) +@@ -383,7 +389,8 @@ + (def-call-out PQfreemem (:return-type nil) (:arguments (res c-pointer))) + + (def-call-out PQmakeEmptyPGresult (:return-type PGresult) +- (:arguments (conn PGconn) (status ExecStatusType))) ++;; (:arguments (conn PGconn) (status ExecStatusType))) ++ (:arguments (conn PGconn) (status int))) + + ;; Quoting strings before inclusion in queries + (def-call-out PQescapeString (:return-type uint) +--- src/lispbibl.d ++++ src/lispbibl.d 2006-05-22 18:06:36.000000000 +0200 +@@ -223,7 +223,7 @@ + #endif + #ifdef GENERIC_UNIX + #define UNIX +- #ifdef __linux__ ++ #if defined(__linux__) || defined(linux) + #define UNIX_LINUX # Linux (Linus Torvalds Unix) + #endif + #ifdef __GNU__ +@@ -1273,7 +1273,7 @@ + #include + #else + #undef offsetof +- #define offsetof(type,ident) ((ULONG)&(((type*)0)->ident)) ++ #define offsetof(type,ident) ((size_t)&(((type*)0)->ident)) + #endif + # Determine the offset of an array 'ident' in a struct of the type 'type': + #if defined(__cplusplus) || defined(MICROSOFT) +@@ -3333,9 +3333,9 @@ + # type_data_object(type,data) + #if defined(WIDE) && defined(WIDE_STRUCT) + #if BIG_ENDIAN_P==WIDE_ENDIANNESS +- #define type_data_object(type,data) ((object){{(tint)(type),(aint)(data)}INIT_ALLOCSTAMP}) ++ #define type_data_object(type,data) (object){{(tint)(type),(aint)(data)}INIT_ALLOCSTAMP} + #else +- #define type_data_object(type,data) ((object){{(aint)(data),(tint)(type)}INIT_ALLOCSTAMP}) ++ #define type_data_object(type,data) (object){{(aint)(data),(tint)(type)}INIT_ALLOCSTAMP} + #endif + #elif !(oint_addr_shift==0) + #define type_data_object(type,data) \ +--- src/makemake.in ++++ src/makemake.in 2006-05-22 18:06:36.000000000 +0200 +@@ -218,6 +218,9 @@ + # Handle --with-... arguments + while test -z "$endofargs"; do + case "$1" in ++ -ignore* | --ignore* ) ++ shift ++ ;; + -verb* | --verb* ) + verbose=`echol "$1"|sed 's/-*v[^=]*=*//'` + test -n "${verbose}" || verbose=true +@@ -1618,6 +1621,10 @@ + EVERY_INCLUDES_H=$EVERY_INCLUDES_H' libcharset.h' + fi + ++if [ -n "${MYCFLAGS}" ] ; then ++ XCFLAGS=$XCFLAGS' ${MYCFLAGS} ' ++fi ++ + OTHER_INCLUDES=' constpack avl sort subrkw bytecode' + + SPVW_INCLUDES=' spvw_module spvw_debug spvw_alloca spvw_mmap spvw_multimap spvw_singlemap spvw_page spvw_heap spvw_global spvw_gcstat spvw_space spvw_mark spvw_objsize spvw_update spvw_fault spvw_sigsegv spvw_sigcld spvw_sigpipe spvw_sigint spvw_sigwinch spvw_sigterm spvw_garcol spvw_genera1 spvw_gcmark spvw_genera2 spvw_weak spvw_genera3 spvw_allocate spvw_typealloc spvw_circ spvw_walk spvw_ctype spvw_language spvw_memfile' +@@ -1870,7 +1877,7 @@ + echol "dvidir = ${DVIDIR}" + echol "psdir = ${PSDIR}" + echol "pdfdir = ${PDFDIR}" +-echol "libdir = ${LIBDIR}" ++echol "libdir = ${LIBDIR}" + echol "lisplibdir = \$(libdir)${NEXT_}clisp" + if [ -n "$USE_GETTEXT" ] ; then + echol "localedir = ${LOCALEDIR}" +--- src/autoconf/aclocal.m4 ++++ src/autoconf/aclocal.m4 2006-05-22 18:06:36.000000000 +0200 +@@ -4028,7 +4028,7 @@ + dnl When using libtool, the option that works for both libraries and + dnl executables is -R. The -R options are cumulative. + for found_dir in $ltrpathdirs; do +- LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-R$found_dir" ++ LTLIB[]NAME="${LTLIB[]NAME}${LTLIB[]NAME:+ }-Wl,-rpath-link$found_dir" + done + fi + ]) +--- src/build-aux/config.guess ++++ src/build-aux/config.guess 2006-05-22 18:06:36.000000000 +0200 +@@ -983,6 +983,7 @@ + exit ;; + esac + # Determine whether the default compiler is a.out or elf ++ test -e /etc/SuSE-release && VENDOR=suse + eval $set_cc_for_build + sed 's/^ //' << EOF >$dummy.c + #include +--- utils/gctrigger.d ++++ utils/gctrigger.d 2006-05-22 18:06:36.000000000 +0200 +@@ -602,6 +602,7 @@ + local Token nexttoken (boolean within_prep_directive) + { + Token token; ++ memset(&token, 0, sizeof(Token)); + restart: + { var int c = next_char(); + switch (c) { diff --git a/clisp-2.39.tar.bz2 b/clisp-2.39.tar.bz2 new file mode 100644 index 0000000..092f543 --- /dev/null +++ b/clisp-2.39.tar.bz2 @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:9e7db421d076420d60652e7bdaf8241e36d1db6a4cad2a8253afc9952200bbb7 +size 8071957 diff --git a/clisp.changes b/clisp.changes new file mode 100644 index 0000000..1097838 --- /dev/null +++ b/clisp.changes @@ -0,0 +1,305 @@ +------------------------------------------------------------------- +Mon Oct 30 00:42:12 CET 2006 - ro@suse.de + +- disabled berkeley-db module for the moment to fix build + needs porting to db-4.4 + +------------------------------------------------------------------- +Wed Jul 19 17:40:53 CEST 2006 - werner@suse.de + +- Update to clisp version 2.39 + * Many bug fixes and new features +- With a real bug fix for last crash on ia64 +- Add a new workaround for a new random crash on ia64 + +------------------------------------------------------------------- +Thu Jun 22 18:10:50 CEST 2006 - ro@suse.de + +- remove self provides + +------------------------------------------------------------------- +Tue May 23 18:12:47 CEST 2006 - werner@suse.de + +- Skip exec-image test on ia64, currently broken +- Use noexec heap codes on 32 bit architectures + +------------------------------------------------------------------- +Mon May 22 18:14:49 CEST 2006 - werner@suse.de + +- Update to clisp 2.38 + +------------------------------------------------------------------- +Tue Mar 21 13:29:37 CET 2006 - werner@suse.de + +- Be sure not to be fooled by old kernels on IA64 + +------------------------------------------------------------------- +Mon Mar 13 17:25:51 CET 2006 - werner@suse.de + +- Be sure that the stack size limit is large enough to be able + to dump the resulting clisp image. + +------------------------------------------------------------------- +Sun Feb 5 11:40:24 CET 2006 - schwab@suse.de + +- Remove ridiculous stack limit. + +------------------------------------------------------------------- +Wed Jan 25 21:35:03 CET 2006 - mls@suse.de + +- converted neededforbuild to BuildRequires + +------------------------------------------------------------------- +Tue Jan 10 16:27:05 CET 2006 - werner@suse.de + +- Update to bug fix release 2.37 + +------------------------------------------------------------------- +Wed Dec 21 16:26:51 CET 2005 - werner@suse.de + +- Make the factorials of 17 upto 33 work on 64 bit without SIGSEGV + +------------------------------------------------------------------- +Wed Dec 7 17:19:17 CET 2005 - werner@suse.de + +- Update to clisp 2.36 + +------------------------------------------------------------------- +Mon Sep 5 17:04:55 CEST 2005 - werner@suse.de + +- Update to clisp 2.35 + +------------------------------------------------------------------- +Thu Apr 14 17:30:43 CEST 2005 - werner@suse.de + +- Get clisp back on ix86 + +------------------------------------------------------------------- +Wed Jan 12 12:12:39 CET 2005 - mfabian@suse.de + +- Bugzilla #39700: apply patch received from Bruno Haible to fix + a problem with non-ASCII file names. + +------------------------------------------------------------------- +Tue Oct 26 13:41:33 CEST 2004 - werner@suse.de + +- Switch from heimdal-lib to kerberos-devel-packages macro + +------------------------------------------------------------------- +Wed Jun 30 17:41:46 CEST 2004 - werner@suse.de + +- Handle axp just as ia64 in CFLAGS to make it work correctly + +------------------------------------------------------------------- +Tue Jun 29 15:28:31 CEST 2004 - werner@suse.de + +- Make FFI work on ia64 +- Make memory mapping of lisp object work correctly on ia64 + +------------------------------------------------------------------- +Wed Jun 23 19:28:48 CEST 2004 - werner@suse.de + +- Update to clisp 2.33.2 +- Make it work on x86_64 +- Use FFI on s390 because it works +- Currently disable FFI in ia64 because it does not work + +------------------------------------------------------------------- +Fri Feb 20 14:24:46 CET 2004 - werner@suse.de + +- Back to clisp 2.30 because 2.32/2.31 does _not_ support 64bit + systems (work in progress, waiting on 2.33). OK, with 2.30 + and current compiler no of 64 bit systems are running, but + we get abck a s390 clisp version. + +------------------------------------------------------------------- +Fri Feb 13 22:58:10 CET 2004 - kukuk@suse.de + +- Build as normal user +- Cleanup neededforbuild + +------------------------------------------------------------------- +Fri Feb 13 13:56:36 CET 2004 - werner@suse.de + +- Update to clisp 2.32 + +------------------------------------------------------------------- +Wed Nov 19 16:44:56 CET 2003 - max@suse.de + +- Linking libpq dynamically, because it now depends on libkrb5. + +- Added heimdal-lib (libkrb5) to neededforbuild. + +------------------------------------------------------------------- +Thu Jun 12 16:18:01 CEST 2003 - coolo@suse.de + +- use BuildRoot +- use %find_lang + +------------------------------------------------------------------- +Wed Jun 11 05:31:28 CEST 2003 - kukuk@suse.de + +- Fix tail parameters +- Fix filelist + +------------------------------------------------------------------- +Wed Jan 29 16:30:59 CET 2003 - werner@suse.de + +- Get it running with gcc 3.3, with this compiler the TYPECODES + can not determined anymore and uses NO_TYPECODES. + +------------------------------------------------------------------- +Fri Jan 24 19:33:34 CET 2003 - werner@suse.de + +- Update to 2.30 + +------------------------------------------------------------------- +Mon Nov 11 23:49:54 CET 2002 - ro@suse.de + +- changed neededforbuild to +- changed neededforbuild to <> + +------------------------------------------------------------------- +Thu Aug 1 18:32:56 CEST 2002 - werner@suse.de + +- Make it work on i386, on others gcc 3.1 runs into problems + +------------------------------------------------------------------- +Wed Jul 31 16:06:33 CEST 2002 - werner@suse.de + +- Update to 2.29 (mainly for gcc 3.1) +- Use SAFETY=3 for some architectures (currently for + sparc sparcv9 sparc64 s390 s390x x86_64) +- Replace config.guess within all autoconf directories (ppc64?) + +------------------------------------------------------------------- +Wed Jun 26 16:05:41 CEST 2002 - aj@suse.de + +- First draft for x86-64. Still work needed for avcall. + +------------------------------------------------------------------- +Wed Jun 26 13:33:55 CEST 2002 - ro@suse.de + +- update to 2.28 +- build again with gcc-3.1 (use -fno-gcse and -DNO_ASM as proposed) +- use -fPIC for files linked into shared lib +- still needs some porting for x86_64 (processor-defs in lispbibl.d) + +------------------------------------------------------------------- +Mon Jun 24 00:00:09 CEST 2002 - ro@suse.de + +- fix permissions for doc directories + +------------------------------------------------------------------- +Sat Jun 1 18:53:03 UTC 2002 - adrian@suse.de + +- fix build on mips + * fix wrong #includes + * fix as path /bin/as -> /usr/bin/as + +------------------------------------------------------------------- +Thu Aug 23 00:33:50 CEST 2001 - ro@suse.de + +- fixed specfile to build on ppc + +------------------------------------------------------------------- +Wed Jul 11 02:42:10 CEST 2001 - ro@suse.de + +- update to 2.26 +- no autoconf call at the moment + +------------------------------------------------------------------- +Mon May 7 21:19:32 CEST 2001 - mfabian@suse.de + +- bzip2 sources + +------------------------------------------------------------------- +Tue Dec 5 15:21:09 CET 2000 - werner@suse.de + +- Update to 2000.03.06 +- Use postgresql and postgresql-devel +- Change libpq paths accordingly to postgresql-devel +- Make clx demos working as found in README + +------------------------------------------------------------------- +Fri Dec 1 02:01:33 CET 2000 - ro@suse.de + +- neededforbuild: postgresql + +------------------------------------------------------------------- +Mon Jun 5 17:00:57 MEST 2000 - uli@suse.de + +- moved docs to %{_docdir} + +------------------------------------------------------------------- +Mon Jan 31 23:30:03 CET 2000 - ro@suse.de + +- fixed libc6-checking again + +------------------------------------------------------------------- +Mon Jan 31 21:56:21 CET 2000 - werner@suse.de + + - Tried to get PPC working (does NOT work) + - /usr/man -> /usr/share/man + +------------------------------------------------------------------- +Thu Oct 28 17:32:32 CEST 1999 - werner@suse.de + + - Reintroduce FIFO hack for a missed tty + +------------------------------------------------------------------- +Mon Oct 11 22:39:26 CEST 1999 - werner@suse.de + + - New version clisp-1999-07-22 + * remove Makefile.Linux and use spec instead + +------------------------------------------------------------------- +Mon Sep 13 17:23:57 CEST 1999 - bs@suse.de + +- ran old prepare_spec on spec file to switch to new prepare_spec. + +---------------------------------------------------------------------------- +Wed Mar 31 11:58:32 CEST 1999 - werner@suse.de + + - No string inlines + +---------------------------------------------------------------------------- +Tue Mar 30 17:54:43 CEST 1999 - werner@suse.de + + - Work around clisp's buffered *TERMINAL-IO* within a + background build process + +---------------------------------------------------------------------------- +Mon Mar 29 20:52:59 CEST 1999 - werner@suse.de + + - New version clisp-1999-01-08 + - Make -X and -F identical + +---------------------------------------------------------------------------- +Fri Dec 18 21:28:04 MET 1998 - werner@suse.de + + - New version clisp-1998-09-09 + - Change option -F (full version) to option -X + * Split modules into wildcard, regexp, bindings/linuxlibc6 on + one hand and new-clx on the other one. + * Replace normal version with full version without new-clx + * New version including new-clx and all other modules + +---------------------------------------------------------------------------- +Fri Feb 20 00:21:51 MET 1998 - werner@suse.de + + - New Version 1997-12-06 + - clx script removed + - Option -F for clisp added + +---------------------------------------------------------------------------- +Mon Jun 9 21:36:35 MET DST 1997 - werner@suse.de + - Patch for GC in clisp included. + +---------------------------------------------------------------------------- +Fri Jun 6 13:24:35 MET DST 1997 - werner@suse.de + - New package: clisp version 1997-05-03 + - Added nclx version 1996-10-12 a + clx re-implementation of Gilbert Baumann + - clisp+clx is called with /usr/bin/clx + clisp is called with /usr/bin/clisp diff --git a/clisp.spec b/clisp.spec new file mode 100644 index 0000000..053ed76 --- /dev/null +++ b/clisp.spec @@ -0,0 +1,407 @@ +# +# spec file for package clisp (Version 2.39) +# +# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. +# This file and all modifications and additions to the pristine +# package are under the same license as the package itself. +# +# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# + +# norootforbuild + +Name: clisp +BuildRequires: db-devel gcc-c++ krb5-devel libstdc++-devel openssl-devel pcre-devel postgresql-devel readline-devel te_ams te_latex xorg-x11-devel +ExcludeArch: ppc64 s390x armv4l +# +# If set to yes do not forget to add +# gcc-c++ +# to BuildRequires +# +%define debug no +License: GNU General Public License (GPL) - all versions +Group: Development/Languages/Other +Autoreqprov: on +Version: 2.39 +Release: 8 +Summary: A Common Lisp Interpreter +URL: http://clisp.cons.org +Source: ftp://ftp.gnu.org/pub/gnu/clisp/latest/clisp-%{version}.tar.bz2 +Patch: clisp-%{version}.dif +Patch1: clisp-2.31-map_private.patch +Patch2: clisp-2.31-map_variable.patch +Patch3: clisp-2.31-personality.patch +Patch4: clisp-2.39-ia64.dif +Patch5: clisp-2.36-alloca.patch +Patch6: clisp-2.39-dump.dif +Patch7: clisp-2.39-ia64-wooh.dif +BuildRoot: %{_tmppath}/%{name}-%{version}-build + +%description +Common Lisp is a high-level, all-purpose programming language. CLISP is +an implementation of Common Lisp that closely follows the book "Common +Lisp - The Language" by Guy L. Steele Jr. This package includes an +interactive programming environment with an interpreter, a compiler, +and a debugger. Start this environment with the command 'clisp'. + +CLISP documentation is placed in the following directories: + +/usr/share/doc/packages/clisp/ + +/usr/share/doc/packages/clisp/doc/ + +As well as the conventional CLISP, this package also includes CLX, an +extension of CLISP for the X Window System. The X Window System must be +installed before running the clx command. The description of this CLX +version (new-clx) is placed in + +/usr/share/doc/packages/clisp/clx/ + +with the file README. The subdirectory + +/usr/share/doc/packages/clisp/clx/demos/ + +contains two nice applications. + + + +Authors: +-------- + Bruno Haible + Michael Stoll + Marcus Daniels + Gilbert Baumann + +%prep +%setup -q +%patch -P 1 -b .mappriv +%patch -P 2 -b .mapvar +%patch -P 3 -b .sel +%patch -P 4 -b .ia64 +%patch -P 5 -b .alloca +%patch -P 6 -b .dump +%patch -P 7 -b .wooh +%patch + +%build +# +# Overwrite stack size limit (hopefully a soft limit only) +# +ulimit -Ss unlimited || true +ulimit -Hs unlimited || true +unset LC_CTYPE +LANG=POSIX +LC_ALL=POSIX +export LANG LC_ALL +# +# Current system +# +SYSTEM=${RPM_ARCH}-suse-linux +# +# Update autoconf files +# +AUTODIR=$(find -name autoconf -and -type d 2> /dev/null) +%{?suse_update_config $AUTODIR} +export PATH="$PATH:." +# +# Set gcc command line but do not use CFLAGS +# +if test %debug = yes ; then + CC=g++ +else + CC=gcc +fi +CC="${CC} ${RPM_OPT_FLAGS} -g -fPIC -D_GNU_SOURCE" +CC="${CC} -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64" +CC="${CC} -pipe -fno-strict-aliasing -Wno-unused -Wno-uninitialized" +noexec="-DLINUX_NOEXEC_HEAPCODES" +nommap="-DNO_MULTIMAP_SHM -DNO_MULTIMAP_FILE -DNO_SINGLEMAP -DNO_TRIVIALMAP" +safety="-DSAFETY=3 -fno-gcse -O" +case "$RPM_ARCH" in + i[0-9]86) CC="${CC} -falign-functions=4 ${noexec}" ;; + ppc) CC="${CC} ${noexec}" ;; + s390) CC="${CC} ${noexec}" ;; + x86_64) CC="${CC} ${safety}" ;; + sparc*) CC="${CC} ${safety}" ;; + ppc64) CC="${CC} ${safety} -DWIDE_HARD" ;; + s390x) CC="${CC} ${safety} -DWIDE_HARD" ;; + ia64) CC="${CC} ${safety}" ;; + axp|alpha) CC="${CC} ${nommap}" ;; +esac +export CC +export MYCFLAGS +unset noexec nommap safety +# +# Environment for the case of missing terminal +# +rm -rf /tmp/clispIO +mknod /tmp/clispIO p +cat /tmp/clispIO & +exec 0< /dev/null +exec 1> /tmp/clispIO 2>&1 +# +# Build the current system +# +if test %debug = yes ; then + DEBUG=--with-debug + MYCFLAGS='-g3 -DDEBUG_GCSAFETY' +else + DEBUG="" + MYCFLAGS="" +fi +# +# Do not accept overwriting optimizing level +# +case "$RPM_ARCH" in + i[0-9]86) ;; + ppc) ;; + s390) ;; + x86_64) MYCFLAGS="${MYCFLAGS} -O" ;; + sparc*) MYCFLAGS="${MYCFLAGS} -O" ;; + ppc64) MYCFLAGS="${MYCFLAGS} -O" ;; + s390x) MYCFLAGS="${MYCFLAGS} -O" ;; + ia64) MYCFLAGS="${MYCFLAGS} -O" ;; + axp|alpha) ;; +esac +# +# May interfere with configure +# +unset CFLAGS +# +# The modules i18n, syscalls, regexp +# are part of the base clisp system. +# +./configure --build ${SYSTEM} ${DEBUG} \ + --prefix=%{_prefix} \ + --exec-prefix=%{_prefix} \ + --libdir=%{_libdir} \ + --fsstnd=suse \ + --ignore-absence-of-libsigsegv \ + --with-readline \ + --with-dynamic-ffi \ + --with-dynamic-modules \ + --with-gettext \ + --with-module=queens \ + --with-module=pcre \ + --with-module=rawsock \ + --with-module=zlib \ + --with-module=wildcard \ + --with-module=bindings/glibc \ + --with-module=clx/new-clx \ + --with-module=postgresql +# disabled: --with-module=berkeley-db +# +# Remove pipe +# +rm -f /tmp/clispIO +# +# Check for errors +# +test -z "$(ls ${SYSTEM}/tests/*.erg 2>/dev/null)" + +%install +# +# Current system +# +SYSTEM=${RPM_ARCH}-suse-linux +LSPDOC=%{_docdir}/clisp +DOCDOC=${LSPDOC}/doc +CLXDOC=${LSPDOC}/clx +LSPLIB=%{_libdir}/clisp +CLXLIB=${LSPLIB}/full +# +# Install the current system +# +make install -C ${SYSTEM} \ + prefix=%{_prefix} \ + exec_prefix=%{_prefix} \ + mandir=%{_mandir} \ + libdir=%{_libdir} \ + DESTDIR=$RPM_BUILD_ROOT \ + INSTALL_DATA='install -cm 0444' +# +# The CLX interface +# +install -d $RPM_BUILD_ROOT${CLXDOC} +install -d $RPM_BUILD_ROOT${CLXLIB} +install -d $RPM_BUILD_ROOT${LSPLIB}/fullnox +pushd ${SYSTEM}/clx/new-clx/ + install -c -m 0444 README $RPM_BUILD_ROOT${CLXDOC}/ + install -c -m 0444 README.SuSE $RPM_BUILD_ROOT${CLXDOC}/ + tar cf - demos/ | (cd $RPM_BUILD_ROOT${CLXDOC}/ ; tar xf - ) + rm -f $RPM_BUILD_ROOT${CLXDOC}/demos/clx-demos.lisp +popd +pushd ${SYSTEM}/clx/ + tar xfz clx-manual.tar.gz -C $RPM_BUILD_ROOT${CLXDOC} +popd +chmod -R g+r,o+r $RPM_BUILD_ROOT${LSPDOC}/ +find $RPM_BUILD_ROOT${LSPDOC} -type d | xargs chmod 755 +rm -f $RPM_BUILD_ROOT${CLXDOC}/*,v +rm -f $RPM_BUILD_ROOT${CLXDOC}/.\#* +rm -f $RPM_BUILD_ROOT${CLXDOC}/demos/*,v +rm -f $RPM_BUILD_ROOT${CLXDOC}/demos/.\#* +rm -f $RPM_BUILD_ROOT${CLXDOC}/demos/*.orig +find $RPM_BUILD_ROOT${LSPLIB}/ -name '*.dvi' | xargs -r rm -f +find $RPM_BUILD_ROOT${LSPLIB}/ -name '*.run' | xargs -r chmod 0755 +%find_lang clisp +%find_lang clisplow clisp.lang + +%files -f clisp.lang +%defattr(-,root,root,755) +%doc %{_docdir}/clisp/ +/usr/bin/clisp +%{_libdir}/clisp/ +%doc %{_mandir}/man1/clisp.1.gz + +%changelog -n clisp +* Mon Oct 30 2006 - ro@suse.de +- disabled berkeley-db module for the moment to fix build + needs porting to db-4.4 +* Wed Jul 19 2006 - werner@suse.de +- Update to clisp version 2.39 + * Many bug fixes and new features +- With a real bug fix for last crash on ia64 +- Add a new workaround for a new random crash on ia64 +* Thu Jun 22 2006 - ro@suse.de +- remove self provides +* Tue May 23 2006 - werner@suse.de +- Skip exec-image test on ia64, currently broken +- Use noexec heap codes on 32 bit architectures +* Mon May 22 2006 - werner@suse.de +- Update to clisp 2.38 +* Tue Mar 21 2006 - werner@suse.de +- Be sure not to be fooled by old kernels on IA64 +* Mon Mar 13 2006 - werner@suse.de +- Be sure that the stack size limit is large enough to be able + to dump the resulting clisp image. +* Sun Feb 05 2006 - schwab@suse.de +- Remove ridiculous stack limit. +* Wed Jan 25 2006 - mls@suse.de +- converted neededforbuild to BuildRequires +* Tue Jan 10 2006 - werner@suse.de +- Update to bug fix release 2.37 +* Wed Dec 21 2005 - werner@suse.de +- Make the factorials of 17 upto 33 work on 64 bit without SIGSEGV +* Wed Dec 07 2005 - werner@suse.de +- Update to clisp 2.36 +* Mon Sep 05 2005 - werner@suse.de +- Update to clisp 2.35 +* Thu Apr 14 2005 - werner@suse.de +- Get clisp back on ix86 +* Wed Jan 12 2005 - mfabian@suse.de +- Bugzilla #39700: apply patch received from Bruno Haible to fix + a problem with non-ASCII file names. +* Tue Oct 26 2004 - werner@suse.de +- Switch from heimdal-lib to kerberos-devel-packages macro +* Wed Jun 30 2004 - werner@suse.de +- Handle axp just as ia64 in CFLAGS to make it work correctly +* Tue Jun 29 2004 - werner@suse.de +- Make FFI work on ia64 +- Make memory mapping of lisp object work correctly on ia64 +* Wed Jun 23 2004 - werner@suse.de +- Update to clisp 2.33.2 +- Make it work on x86_64 +- Use FFI on s390 because it works +- Currently disable FFI in ia64 because it does not work +* Fri Feb 20 2004 - werner@suse.de +- Back to clisp 2.30 because 2.32/2.31 does _not_ support 64bit + systems (work in progress, waiting on 2.33). OK, with 2.30 + and current compiler no of 64 bit systems are running, but + we get abck a s390 clisp version. +* Fri Feb 13 2004 - kukuk@suse.de +- Build as normal user +- Cleanup neededforbuild +* Fri Feb 13 2004 - werner@suse.de +- Update to clisp 2.32 +* Wed Nov 19 2003 - max@suse.de +- Linking libpq dynamically, because it now depends on libkrb5. +- Added heimdal-lib (libkrb5) to neededforbuild. +* Thu Jun 12 2003 - coolo@suse.de +- use BuildRoot +- use %%find_lang +* Wed Jun 11 2003 - kukuk@suse.de +- Fix tail parameters +- Fix filelist +* Wed Jan 29 2003 - werner@suse.de +- Get it running with gcc 3.3, with this compiler the TYPECODES + can not determined anymore and uses NO_TYPECODES. +* Fri Jan 24 2003 - werner@suse.de +- Update to 2.30 +* Mon Nov 11 2002 - ro@suse.de +- changed neededforbuild to +- changed neededforbuild to <> +* Thu Aug 01 2002 - werner@suse.de +- Make it work on i386, on others gcc 3.1 runs into problems +* Wed Jul 31 2002 - werner@suse.de +- Update to 2.29 (mainly for gcc 3.1) +- Use SAFETY=3 for some architectures (currently for + sparc sparcv9 sparc64 s390 s390x x86_64) +- Replace config.guess within all autoconf directories (ppc64?) +* Wed Jun 26 2002 - aj@suse.de +- First draft for x86-64. Still work needed for avcall. +* Wed Jun 26 2002 - ro@suse.de +- update to 2.28 +- build again with gcc-3.1 (use -fno-gcse and -DNO_ASM as proposed) +- use -fPIC for files linked into shared lib +- still needs some porting for x86_64 (processor-defs in lispbibl.d) +* Mon Jun 24 2002 - ro@suse.de +- fix permissions for doc directories +* Sat Jun 01 2002 - adrian@suse.de +- fix build on mips + * fix wrong #includes + * fix as path /bin/as -> /usr/bin/as +* Thu Aug 23 2001 - ro@suse.de +- fixed specfile to build on ppc +* Wed Jul 11 2001 - ro@suse.de +- update to 2.26 +- no autoconf call at the moment +* Mon May 07 2001 - mfabian@suse.de +- bzip2 sources +* Tue Dec 05 2000 - werner@suse.de +- Update to 2000.03.06 +- Use postgresql and postgresql-devel +- Change libpq paths accordingly to postgresql-devel +- Make clx demos working as found in README +* Fri Dec 01 2000 - ro@suse.de +- neededforbuild: postgresql +* Mon Jun 05 2000 - uli@suse.de +- moved docs to %%{_docdir} +* Mon Jan 31 2000 - ro@suse.de +- fixed libc6-checking again +* Mon Jan 31 2000 - werner@suse.de +- Tried to get PPC working (does NOT work) + - /usr/man -> /usr/share/man +* Thu Oct 28 1999 - werner@suse.de +- Reintroduce FIFO hack for a missed tty +* Mon Oct 11 1999 - werner@suse.de +- New version clisp-1999-07-22 + * remove Makefile.Linux and use spec instead +* Mon Sep 13 1999 - bs@suse.de +- ran old prepare_spec on spec file to switch to new prepare_spec. +* Wed Mar 31 1999 - werner@suse.de +- No string inlines +* Tue Mar 30 1999 - werner@suse.de +- Work around clisp's buffered *TERMINAL-IO* within a + background build process +* Mon Mar 29 1999 - werner@suse.de +- New version clisp-1999-01-08 + - Make -X and -F identical +* Fri Dec 18 1998 - werner@suse.de +- New version clisp-1998-09-09 + - Change option -F (full version) to option -X + * Split modules into wildcard, regexp, bindings/linuxlibc6 on + one hand and new-clx on the other one. + * Replace normal version with full version without new-clx + * New version including new-clx and all other modules +* Fri Feb 20 1998 - werner@suse.de +- New Version 1997-12-06 + - clx script removed + - Option -F for clisp added +* Mon Jun 09 1997 - werner@suse.de +- Patch for GC in clisp included. +* Fri Jun 06 1997 - werner@suse.de +- New package: clisp version 1997-05-03 + - Added nclx version 1996-10-12 a + clx re-implementation of Gilbert Baumann + - clisp+clx is called with /usr/bin/clx + clisp is called with /usr/bin/clisp diff --git a/ready b/ready new file mode 100644 index 0000000..473a0f4