Menu
▾
▴
clisp-cvs digest, Vol 1 #1411 - 4 msgs
|
From: <cli...@li...> - 2006-02-03 04:11:21
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/ffcall/callback tests.c,1.9,1.10 (Jörg Höhle) 2. clisp/ffcall/callback/vacall_r Makefile.devel,1.15,1.16 vacall_r.h.in,1.19,1.20 vacall_r.h.mingw32,1.5,1.6 vacall_r.h.msvc,1.14,1.15 (Jörg Höhle) 3. clisp/ffcall/avcall avcall.h.in,1.20,1.21 avcall.h.mingw32,1.5,1.6 avcall.h.msvc,1.15,1.16 tests.c,1.8,1.9 (Jörg Höhle) 4. clisp/ffcall/vacall Makefile.devel,1.15,1.16 tests.c,1.9,1.10 vacall.h.in,1.20,1.21 vacall.h.mingw32,1.6,1.7 vacall.h.msvc,1.15,1.16 (Jörg Höhle) --__--__-- Message: 1 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/ffcall/callback tests.c,1.9,1.10 Date: Thu, 02 Feb 2006 16:28:42 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/ffcall/callback In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14588/callback Modified Files: tests.c Log Message: ffcall uses HAVE_LONG_LONG. Execute long long tests Index: tests.c =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/callback/tests.c,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- tests.c 14 Mar 2005 12:22:56 -0000 1.9 +++ tests.c 2 Feb 2006 16:28:40 -0000 1.10 @@ -82,7 +82,7 @@ int i1=1, i2=2, i3=3, i4=4, i5=5, i6=6, i7=7, i8=8, i9=9, i10=11, i11=12, i12=13, i13=14, i14=15, i15=16, i16=17; long l1=1, l2=2, l3=3, l4=4, l5=5, l6=6, l7=7, l8=8, l9=9; -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG long long ll1 = 3875056143130689530LL; #endif float f1=0.1, f2=0.2, f3=0.3, f4=0.4, f5=0.5, f6=0.6, f7=0.7, f8=0.8, f9=0.9, @@ -279,7 +279,7 @@ return r; } -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG long long ll_flli (float a, long long b, int c) { long long r = (long long)(int)a + b + (long long)c; @@ -675,7 +675,7 @@ fflush(out); va_return_ushort(alist, r); }} -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG void ll_flli_simulator (void* data, va_alist alist) { if (data != (void*)&ll_flli) { fprintf(out,"wrong data for ll_flli\n"); exit(1); } @@ -1027,7 +1027,7 @@ { uchar ucr; ushort usr; double dr; -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG long long llr; #endif @@ -1067,7 +1067,7 @@ fprintf(out,"->%u\n",usr); fflush(out); -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG llr = ll_flli(f13,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); --__--__-- Message: 2 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/ffcall/callback/vacall_r Makefile.devel,1.15,1.16 vacall_r.h.in,1.19,1.20 vacall_r.h.mingw32,1.5,1.6 vacall_r.h.msvc,1.14,1.15 Date: Thu, 02 Feb 2006 16:28:42 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/ffcall/callback/vacall_r In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14588/callback/vacall_r Modified Files: Makefile.devel vacall_r.h.in vacall_r.h.mingw32 vacall_r.h.msvc Log Message: ffcall uses HAVE_LONG_LONG. Execute long long tests Index: Makefile.devel =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/callback/vacall_r/Makefile.devel,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- Makefile.devel 25 Jan 2004 15:24:22 -0000 1.15 +++ Makefile.devel 2 Feb 2006 16:28:40 -0000 1.16 @@ -3,7 +3,7 @@ HOST = i486-linux CPU = i386 GCC = gcc -GCCFLAGS = -O2 -fomit-frame-pointer -DHAVE_LONGLONG -DREENTRANT +GCCFLAGS = -O2 -fomit-frame-pointer -DHAVE_LONG_LONG -DREENTRANT LN = ln -s RM = rm -f SED = sed Index: vacall_r.h.in =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/callback/vacall_r/vacall_r.h.in,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- vacall_r.h.in 15 Mar 2005 13:55:24 -0000 1.19 +++ vacall_r.h.in 2 Feb 2006 16:28:40 -0000 1.20 @@ -328,7 +328,7 @@ unsigned int _uint; long _long; unsigned long _ulong; -#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONGLONG) +#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONG_LONG) long long _longlong; unsigned long long _ulonglong; #endif Index: vacall_r.h.msvc =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/callback/vacall_r/vacall_r.h.msvc,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- vacall_r.h.msvc 20 Jul 2005 23:58:40 -0000 1.14 +++ vacall_r.h.msvc 2 Feb 2006 16:28:40 -0000 1.15 @@ -328,7 +328,7 @@ unsigned int _uint; long _long; unsigned long _ulong; -#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONGLONG) +#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONG_LONG) long long _longlong; unsigned long long _ulonglong; #endif Index: vacall_r.h.mingw32 =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/callback/vacall_r/vacall_r.h.mingw32,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- vacall_r.h.mingw32 26 Jan 2004 15:22:15 -0000 1.5 +++ vacall_r.h.mingw32 2 Feb 2006 16:28:40 -0000 1.6 @@ -73,8 +73,8 @@ /* CL_LONGLONG */ /* Define if your compiler supports the `long long' type. */ -#ifndef HAVE_LONGLONG -#undef HAVE_LONGLONG +#ifndef HAVE_LONG_LONG +#undef HAVE_LONG_LONG #endif /* AC_C_CHAR_UNSIGNED */ @@ -374,7 +374,7 @@ unsigned int _uint; long _long; unsigned long _ulong; -#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONGLONG) +#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONG_LONG) long long _longlong; unsigned long long _ulonglong; #endif --__--__-- Message: 3 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/ffcall/avcall avcall.h.in,1.20,1.21 avcall.h.mingw32,1.5,1.6 avcall.h.msvc,1.15,1.16 tests.c,1.8,1.9 Date: Thu, 02 Feb 2006 16:28:42 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/ffcall/avcall In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14588/avcall Modified Files: avcall.h.in avcall.h.mingw32 avcall.h.msvc tests.c Log Message: ffcall uses HAVE_LONG_LONG. Execute long long tests Index: avcall.h.mingw32 =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/avcall/avcall.h.mingw32,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- avcall.h.mingw32 26 Jan 2004 15:22:14 -0000 1.5 +++ avcall.h.mingw32 2 Feb 2006 16:28:39 -0000 1.6 @@ -80,7 +80,7 @@ /* CL_LONGLONG */ /* Define if your compiler supports the `long long' type. */ -#undef HAVE_LONGLONG +#undef HAVE_LONG_LONG /* End of definitions adjusted by `configure'. */ @@ -356,7 +356,7 @@ /* temporary storage, used to split doubles into two words */ union { double _double; -#if defined(__sparc__) && !defined(__sparc64__) && defined(HAVE_LONGLONG) +#if defined(__sparc__) && !defined(__sparc64__) && defined(HAVE_LONG_LONG) long long _longlong; #endif __avword words[2]; Index: avcall.h.in =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/avcall/avcall.h.in,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- avcall.h.in 15 Mar 2005 13:55:23 -0000 1.20 +++ avcall.h.in 2 Feb 2006 16:28:39 -0000 1.21 @@ -316,7 +316,7 @@ /* temporary storage, used to split doubles into two words */ union { double _double; -#if defined(__sparc__) && !defined(__sparc64__) && defined(HAVE_LONGLONG) +#if defined(__sparc__) && !defined(__sparc64__) && defined(HAVE_LONG_LONG) long long _longlong; #endif __avword words[2]; Index: avcall.h.msvc =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/avcall/avcall.h.msvc,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- avcall.h.msvc 20 Jul 2005 23:58:44 -0000 1.15 +++ avcall.h.msvc 2 Feb 2006 16:28:39 -0000 1.16 @@ -316,7 +316,7 @@ /* temporary storage, used to split doubles into two words */ union { double _double; -#if defined(__sparc__) && !defined(__sparc64__) && defined(HAVE_LONGLONG) +#if defined(__sparc__) && !defined(__sparc64__) && defined(HAVE_LONG_LONG) long long _longlong; #endif __avword words[2]; Index: tests.c =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/avcall/tests.c,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- tests.c 14 Mar 2005 12:22:56 -0000 1.8 +++ tests.c 2 Feb 2006 16:28:39 -0000 1.9 @@ -68,7 +68,7 @@ int i1=1, i2=2, i3=3, i4=4, i5=5, i6=6, i7=7, i8=8, i9=9, i10=11, i11=12, i12=13, i13=14, i14=15, i15=16, i16=17; long l1=1, l2=2, l3=3, l4=4, l5=5, l6=6, l7=7, l8=8, l9=9; -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG long long ll1 = 3875056143130689530LL; #endif float f1=0.1, f2=0.2, f3=0.3, f4=0.4, f5=0.5, f6=0.6, f7=0.7, f8=0.8, f9=0.9, @@ -259,7 +259,7 @@ return r; } -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG long long ll_flli (float a, long long b, int c) { long long r = (long long)(int)a + b + (long long)c; @@ -636,7 +636,7 @@ uchar ucr; ushort usr; double dr; -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG long long llr; #endif @@ -696,7 +696,7 @@ fprintf(out,"->%u\n",usr); fflush(out); -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG /* Long long types. */ llr = ll_flli(f13,ll1,i13); --__--__-- Message: 4 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/ffcall/vacall Makefile.devel,1.15,1.16 tests.c,1.9,1.10 vacall.h.in,1.20,1.21 vacall.h.mingw32,1.6,1.7 vacall.h.msvc,1.15,1.16 Date: Thu, 02 Feb 2006 16:28:42 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/ffcall/vacall In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14588/vacall Modified Files: Makefile.devel tests.c vacall.h.in vacall.h.mingw32 vacall.h.msvc Log Message: ffcall uses HAVE_LONG_LONG. Execute long long tests Index: tests.c =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/vacall/tests.c,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- tests.c 14 Mar 2005 12:23:01 -0000 1.9 +++ tests.c 2 Feb 2006 16:28:40 -0000 1.10 @@ -82,7 +82,7 @@ int i1=1, i2=2, i3=3, i4=4, i5=5, i6=6, i7=7, i8=8, i9=9, i10=11, i11=12, i12=13, i13=14, i14=15, i15=16, i16=17; long l1=1, l2=2, l3=3, l4=4, l5=5, l6=6, l7=7, l8=8, l9=9; -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG long long ll1 = 3875056143130689530LL; #endif float f1=0.1, f2=0.2, f3=0.3, f4=0.4, f5=0.5, f6=0.6, f7=0.7, f8=0.8, f9=0.9, @@ -279,7 +279,7 @@ return r; } -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG long long ll_flli (float a, long long b, int c) { long long r = (long long)(int)a + b + (long long)c; @@ -656,7 +656,7 @@ fflush(out); va_return_ushort(alist, r); }} -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG else if (current_function == (void*)&ll_flli) { va_start_longlong(alist); @@ -989,7 +989,7 @@ { uchar ucr; ushort usr; double dr; -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG long long llr; #endif @@ -1025,7 +1025,7 @@ fprintf(out,"->%u\n",usr); fflush(out); -#ifdef HAVE_LONGLONG +#ifdef HAVE_LONG_LONG llr = ll_flli(f13,ll1,i13); fprintf(out,"->0x%lx%08lx\n",(long)(llr>>32),(long)(llr&0xffffffff)); fflush(out); Index: Makefile.devel =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/vacall/Makefile.devel,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- Makefile.devel 25 Jan 2004 15:24:23 -0000 1.15 +++ Makefile.devel 2 Feb 2006 16:28:40 -0000 1.16 @@ -3,7 +3,7 @@ HOST = i486-linux CPU = i386 GCC = gcc -GCCFLAGS = -O2 -fomit-frame-pointer -DHAVE_LONGLONG +GCCFLAGS = -O2 -fomit-frame-pointer -DHAVE_LONG_LONG LN = ln -s RM = rm -f SED = sed Index: vacall.h.msvc =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/vacall/vacall.h.msvc,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- vacall.h.msvc 20 Jul 2005 23:58:40 -0000 1.15 +++ vacall.h.msvc 2 Feb 2006 16:28:40 -0000 1.16 @@ -329,7 +329,7 @@ unsigned int _uint; long _long; unsigned long _ulong; -#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONGLONG) +#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONG_LONG) long long _longlong; unsigned long long _ulonglong; #endif Index: vacall.h.mingw32 =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/vacall/vacall.h.mingw32,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- vacall.h.mingw32 2 Jun 2004 19:23:13 -0000 1.6 +++ vacall.h.mingw32 2 Feb 2006 16:28:40 -0000 1.7 @@ -73,8 +73,8 @@ /* CL_LONGLONG */ /* Define if your compiler supports the `long long' type. */ -#ifndef HAVE_LONGLONG -#undef HAVE_LONGLONG +#ifndef HAVE_LONG_LONG +#undef HAVE_LONG_LONG #endif /* AC_C_CHAR_UNSIGNED */ @@ -374,7 +374,7 @@ unsigned int _uint; long _long; unsigned long _ulong; -#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONGLONG) +#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONG_LONG) long long _longlong; unsigned long long _ulonglong; #endif Index: vacall.h.in =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/vacall/vacall.h.in,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- vacall.h.in 15 Mar 2005 13:55:25 -0000 1.20 +++ vacall.h.in 2 Feb 2006 16:28:40 -0000 1.21 @@ -329,7 +329,7 @@ unsigned int _uint; long _long; unsigned long _ulong; -#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONGLONG) +#if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONG_LONG) long long _longlong; unsigned long long _ulonglong; #endif --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |