From: <cli...@li...> - 2009-11-12 20:36:27
|
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/src ChangeLog,1.7198,1.7199 makemake.in,1.893,1.894 (Sam Steingold) 2. clisp/modules/syscalls calls.c,1.289,1.290 (Sam Steingold) 3. clisp/modules/gtk2 gtk.lisp,1.14,1.15 (Sam Steingold) 4. clisp/src ChangeLog,1.7199,1.7200 lispbibl.d,1.897,1.898 (Sam Steingold) 5. clisp/modules/berkeley-db bdb.c,1.131,1.132 (Sam Steingold) 6. clisp/modules/dirkey dirkey.c,1.24,1.25 (Sam Steingold) 7. clisp/src ChangeLog,1.7200,1.7201 (Sam Steingold) 8. clisp/modules/rawsock rawsock.c,1.122,1.123 (Sam Steingold) 9. clisp/modules/clx/new-clx clx.f,2.176,2.177 (Sam Steingold) 10. clisp/src ChangeLog,1.7201,1.7202 (Sam Steingold) 11. clisp/modules/rawsock rawsock.c,1.123,1.124 (Sam Steingold) 12. clisp/src ChangeLog,1.7202,1.7203 (Sam Steingold) 13. clisp/modules/clx/new-clx clx.f,2.177,2.178 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Thu, 12 Nov 2009 14:59:34 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7198,1.7199 makemake.in,1.893,1.894 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv27580/src Modified Files: ChangeLog makemake.in Log Message: (cpu): fallback to ${host_cpu} Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.893 retrieving revision 1.894 diff -u -d -r1.893 -r1.894 --- makemake.in 11 Nov 2009 19:19:41 -0000 1.893 +++ makemake.in 12 Nov 2009 14:59:31 -0000 1.894 @@ -1113,7 +1113,7 @@ # cpu=hppa ;; # esac -test -z "$cpu" && fail "failed to set cpu" +test -z "$cpu" && cpu=${host_cpu} if [ "${verbose}" = true -o "${verbose}" = yes ]; then cat <<EOF >&2 Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7198 retrieving revision 1.7199 diff -u -d -r1.7198 -r1.7199 --- ChangeLog 11 Nov 2009 21:50:02 -0000 1.7198 +++ ChangeLog 12 Nov 2009 14:59:31 -0000 1.7199 @@ -5,7 +5,7 @@ 2009-11-11 Sam Steingold <sd...@gn...> - * makemake.in (cpu): fail when not set + * makemake.in (cpu): fallback to ${host_cpu} (fail): add function, use everywhere 2009-11-10 Sam Steingold <sd...@gn...> ------------------------------ Message: 2 Date: Thu, 12 Nov 2009 15:28:46 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls calls.c,1.289,1.290 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv31183/modules/syscalls Modified Files: calls.c Log Message: * lispbibl.d (unused): do not export to clisp.h, it is never used in any module and causes trouble on some platforms * modules/gtk2/gtk.lisp, modules/syscalls/calls.c: no need to "#under unused" anymore Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.289 retrieving revision 1.290 diff -u -d -r1.289 -r1.290 --- calls.c 11 Nov 2009 21:50:02 -0000 1.289 +++ calls.c 12 Nov 2009 15:28:44 -0000 1.290 @@ -17,12 +17,6 @@ #include "clisp.h" #include "config.h" -/* bug #[ 1507628 ]: #define unused (void) breaks clisp 2.38 on arm - the reason is that <sys/user.h> uses `unused' as a struct field. - it is included by <sys/procfs.h> which is included by <sys/ucontext.h> - which is included by <signal.h> which is included by <sys/wait.h> */ -#undef unused - #if defined(HAVE_SYS_TIME_H) # include <sys/time.h> #endif ------------------------------ Message: 3 Date: Thu, 12 Nov 2009 15:28:46 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/gtk2 gtk.lisp,1.14,1.15 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/modules/gtk2 In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv31183/modules/gtk2 Modified Files: gtk.lisp Log Message: * lispbibl.d (unused): do not export to clisp.h, it is never used in any module and causes trouble on some platforms * modules/gtk2/gtk.lisp, modules/syscalls/calls.c: no need to "#under unused" anymore Index: gtk.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/gtk2/gtk.lisp,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- gtk.lisp 5 Aug 2009 14:57:08 -0000 1.14 +++ gtk.lisp 12 Nov 2009 15:28:43 -0000 1.15 @@ -129,8 +129,7 @@ nil) ;; this must come AFTER all callbacks because they use value1 -;; undefine some clisp definitions used by gtk.h -(c-lines "#undef unused~%") +;; undefine some clisp.h definitions used by gtk.h (c-lines "~{#undef value~d~%~}" '(1 2 3 4 5)) ;; w32api/basetyps.h defines interface to struct ------------------------------ Message: 4 Date: Thu, 12 Nov 2009 15:28:46 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7199,1.7200 lispbibl.d,1.897,1.898 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv31183/src Modified Files: ChangeLog lispbibl.d Log Message: * lispbibl.d (unused): do not export to clisp.h, it is never used in any module and causes trouble on some platforms * modules/gtk2/gtk.lisp, modules/syscalls/calls.c: no need to "#under unused" anymore Index: lispbibl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v retrieving revision 1.897 retrieving revision 1.898 diff -u -d -r1.897 -r1.898 --- lispbibl.d 3 Nov 2009 21:10:31 -0000 1.897 +++ lispbibl.d 12 Nov 2009 15:28:44 -0000 1.898 @@ -2050,7 +2050,6 @@ #define unused #endif #endif -%% export_def(unused); /* Consensys and Solaris: "#define DS 3", "#define SP ESP", "#define EAX 11". Grr... */ Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7199 retrieving revision 1.7200 diff -u -d -r1.7199 -r1.7200 --- ChangeLog 12 Nov 2009 14:59:31 -0000 1.7199 +++ ChangeLog 12 Nov 2009 15:28:44 -0000 1.7200 @@ -1,3 +1,10 @@ +2009-11-12 Sam Steingold <sd...@gn...> + + * lispbibl.d (unused): do not export to clisp.h, it is never used + in any module and causes trouble on some platforms + * modules/gtk2/gtk.lisp, modules/syscalls/calls.c: + no need to "#under unused" anymore + 2009-11-11 Sam Steingold <sd...@gn...> * modules/syscalls/calls.c (unused): undef unused before all the ------------------------------ Message: 5 Date: Thu, 12 Nov 2009 20:31:16 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/berkeley-db bdb.c,1.131,1.132 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/modules/berkeley-db In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv306/modules/berkeley-db Modified Files: bdb.c Log Message: no need to "#under unused" anymore Index: bdb.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/berkeley-db/bdb.c,v retrieving revision 1.131 retrieving revision 1.132 diff -u -d -r1.131 -r1.132 --- bdb.c 2 Oct 2009 10:55:12 -0000 1.131 +++ bdb.c 12 Nov 2009 20:31:14 -0000 1.132 @@ -18,18 +18,13 @@ #if defined(_WIN32) || defined(UNIX_CYGWIN32) # define WIN32_LEAN_AND_MEAN /* avoid including junk */ # if defined(UNIX_CYGWIN32) || defined(__MINGW32__) -/* `unused' is used in function declarations. */ -# undef unused # define ULONGLONG OS_ULONGLONG # define ULONG OS_ULONG # include <windows.h> # undef ULONG # undef ULONGLONG -# define unused (void) # else -# undef unused # include <windows.h> -# define unused # endif #endif ------------------------------ Message: 6 Date: Thu, 12 Nov 2009 20:31:16 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/dirkey dirkey.c,1.24,1.25 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/modules/dirkey In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv306/modules/dirkey Modified Files: dirkey.c Log Message: no need to "#under unused" anymore Index: dirkey.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/dirkey/dirkey.c,v retrieving revision 1.24 retrieving revision 1.25 diff -u -d -r1.24 -r1.25 --- dirkey.c 2 Oct 2009 10:55:13 -0000 1.24 +++ dirkey.c 12 Nov 2009 20:31:14 -0000 1.25 @@ -13,18 +13,13 @@ #define WIN32_LEAN_AND_MEAN /* avoid including junk */ #if defined(UNIX_CYGWIN32) || defined(__MINGW32__) -/* `unused' is used in function declarations. */ -# undef unused # define ULONGLONG OS_ULONGLONG # define ULONG OS_ULONG # include <windows.h> # undef ULONG # undef ULONGLONG -# define unused (void) #else -# undef unused # include <windows.h> -# define unused #endif #if defined(WIN32_NATIVE) || defined(UNIX_CYGWIN32) ------------------------------ Message: 7 Date: Thu, 12 Nov 2009 20:31:17 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7200,1.7201 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv306/src Modified Files: ChangeLog Log Message: no need to "#under unused" anymore Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7200 retrieving revision 1.7201 diff -u -d -r1.7200 -r1.7201 --- ChangeLog 12 Nov 2009 15:28:44 -0000 1.7200 +++ ChangeLog 12 Nov 2009 20:31:14 -0000 1.7201 @@ -2,6 +2,7 @@ * lispbibl.d (unused): do not export to clisp.h, it is never used in any module and causes trouble on some platforms + * modules/berkeley-db/bdb.c, modules/dirkey/dirkey.c: * modules/gtk2/gtk.lisp, modules/syscalls/calls.c: no need to "#under unused" anymore ------------------------------ Message: 8 Date: Thu, 12 Nov 2009 20:31:55 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/rawsock rawsock.c,1.122,1.123 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/modules/rawsock In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv408/modules/rawsock Modified Files: rawsock.c Log Message: use (void*) instead of unused Index: rawsock.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/rawsock.c,v retrieving revision 1.122 retrieving revision 1.123 diff -u -d -r1.122 -r1.123 --- rawsock.c 2 Oct 2009 10:55:13 -0000 1.122 +++ rawsock.c 12 Nov 2009 20:31:53 -0000 1.123 @@ -1550,7 +1550,7 @@ void module__rawsock__init_function_2 (module_t* module); void module__rawsock__init_function_2 (module_t* module) { - unused module; + (void*)module; /* unused */ #if defined(WIN32_NATIVE) HMODULE ws2 = LoadLibrary("ws2_32.dll"); if (ws2 != NULL) { ------------------------------ Message: 9 Date: Thu, 12 Nov 2009 20:31:55 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/new-clx clx.f,2.176,2.177 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/modules/clx/new-clx In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv408/modules/clx/new-clx Modified Files: clx.f Log Message: use (void*) instead of unused Index: clx.f =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/clx.f,v retrieving revision 2.176 retrieving revision 2.177 diff -u -d -r2.176 -r2.177 --- clx.f 2 Oct 2009 10:55:13 -0000 2.176 +++ clx.f 12 Nov 2009 20:31:53 -0000 2.177 @@ -1151,7 +1151,7 @@ } # endif } else if (dpyf) /* caller wants the display, so get it! */ - unused get_font_and_display (STACK_0, dpyf); + (void*) get_font_and_display (STACK_0, dpyf); if (fontf) *fontf = STACK_0; @@ -3193,7 +3193,7 @@ DEFUN(XLIB:GCONTEXT-CACHE-P, context) { Display *dpy; - unused get_gcontext_and_display (STACK_0, &dpy); + (void*) get_gcontext_and_display (STACK_0, &dpy); /* libX seems to cache all GCs */ VALUES1(T); skipSTACK(1); @@ -3202,7 +3202,7 @@ DEFUN(XLIB:SET-GCONTEXT-CACHE-P, arg1 arg2) { Display *dpy; - unused get_gcontext_and_display (STACK_1, &dpy); + (void*) get_gcontext_and_display (STACK_1, &dpy); if (nullp(STACK_0)) { pushSTACK(TheSubr (subr_self)->name); error(error_condition,"~S: This CLX implemenation does not allow uncached graphics contexts."); @@ -3214,7 +3214,7 @@ /* xlib:gcontext-dashes gcontext */ DEFUN(XLIB:GCONTEXT-DASHES, context) { - unused get_gcontext_and_display (STACK_0, 0); /* only type checking here */ + (void*) get_gcontext_and_display (STACK_0, 0); /* only type checking here */ /* Now see if there is a %dashes slot? */ get_slot(STACK_0,`XLIB::%DASHES`); @@ -3280,7 +3280,7 @@ DEFUN(XLIB:GCONTEXT-CLIP-MASK, context) { - unused get_gcontext_and_display (STACK_0, 0); /* only type checking here */ + (void*) get_gcontext_and_display (STACK_0, 0); /* only type checking here */ get_slot(STACK_0,`XLIB::%CLIP-MASK`); if (eq(value1,nullobj)) value1 = `:NONE`; ------------------------------ Message: 10 Date: Thu, 12 Nov 2009 20:31:55 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7201,1.7202 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv408/src Modified Files: ChangeLog Log Message: use (void*) instead of unused Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7201 retrieving revision 1.7202 diff -u -d -r1.7201 -r1.7202 --- ChangeLog 12 Nov 2009 20:31:14 -0000 1.7201 +++ ChangeLog 12 Nov 2009 20:31:53 -0000 1.7202 @@ -5,6 +5,8 @@ * modules/berkeley-db/bdb.c, modules/dirkey/dirkey.c: * modules/gtk2/gtk.lisp, modules/syscalls/calls.c: no need to "#under unused" anymore + * modules/clx/new-clx/clx.f, modules/rawsock/rawsock.c: + use (void*) instead of unused 2009-11-11 Sam Steingold <sd...@gn...> ------------------------------ Message: 11 Date: Thu, 12 Nov 2009 20:36:15 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/rawsock rawsock.c,1.123,1.124 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/modules/rawsock In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv986/modules/rawsock Modified Files: rawsock.c Log Message: define unused which is actually used here a few times, but only _after_ all #include's Index: rawsock.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/rawsock.c,v retrieving revision 1.123 retrieving revision 1.124 diff -u -d -r1.123 -r1.124 --- rawsock.c 12 Nov 2009 20:31:53 -0000 1.123 +++ rawsock.c 12 Nov 2009 20:36:13 -0000 1.124 @@ -1548,9 +1548,15 @@ VALUES1(fixnum(length)); skipSTACK(1); } +#ifdef GNU /* to prevent a gcc-warning "statement with no effect" */ +# define unused (void) +#else +# define unused +#endif + void module__rawsock__init_function_2 (module_t* module); void module__rawsock__init_function_2 (module_t* module) { - (void*)module; /* unused */ + unused module; #if defined(WIN32_NATIVE) HMODULE ws2 = LoadLibrary("ws2_32.dll"); if (ws2 != NULL) { ------------------------------ Message: 12 Date: Thu, 12 Nov 2009 20:36:16 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7202,1.7203 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/src In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv986/src Modified Files: ChangeLog Log Message: define unused which is actually used here a few times, but only _after_ all #include's Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7202 retrieving revision 1.7203 diff -u -d -r1.7202 -r1.7203 --- ChangeLog 12 Nov 2009 20:31:53 -0000 1.7202 +++ ChangeLog 12 Nov 2009 20:36:13 -0000 1.7203 @@ -6,7 +6,8 @@ * modules/gtk2/gtk.lisp, modules/syscalls/calls.c: no need to "#under unused" anymore * modules/clx/new-clx/clx.f, modules/rawsock/rawsock.c: - use (void*) instead of unused + define unused which is actually used here a few times, + but only _after_ all #include's 2009-11-11 Sam Steingold <sd...@gn...> ------------------------------ Message: 13 Date: Thu, 12 Nov 2009 20:36:15 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/new-clx clx.f,2.177,2.178 To: cli...@li... Message-ID: <E1N...@dd...> Update of /cvsroot/clisp/clisp/modules/clx/new-clx In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv986/modules/clx/new-clx Modified Files: clx.f Log Message: define unused which is actually used here a few times, but only _after_ all #include's Index: clx.f =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/clx.f,v retrieving revision 2.177 retrieving revision 2.178 diff -u -d -r2.177 -r2.178 --- clx.f 12 Nov 2009 20:31:53 -0000 2.177 +++ clx.f 12 Nov 2009 20:36:13 -0000 2.178 @@ -442,6 +442,12 @@ #include <X11/extensions/shape.h> ##endif +#ifdef GNU /* to prevent a gcc-warning "statement with no effect" */ +# define unused (void) +#else +# define unused +#endif + #define DEBUG_CLX 0 #ifndef FOREIGN @@ -1151,7 +1157,7 @@ } # endif } else if (dpyf) /* caller wants the display, so get it! */ - (void*) get_font_and_display (STACK_0, dpyf); + unused get_font_and_display (STACK_0, dpyf); if (fontf) *fontf = STACK_0; @@ -3193,7 +3199,7 @@ DEFUN(XLIB:GCONTEXT-CACHE-P, context) { Display *dpy; - (void*) get_gcontext_and_display (STACK_0, &dpy); + unused get_gcontext_and_display (STACK_0, &dpy); /* libX seems to cache all GCs */ VALUES1(T); skipSTACK(1); @@ -3202,7 +3208,7 @@ DEFUN(XLIB:SET-GCONTEXT-CACHE-P, arg1 arg2) { Display *dpy; - (void*) get_gcontext_and_display (STACK_1, &dpy); + unused get_gcontext_and_display (STACK_1, &dpy); if (nullp(STACK_0)) { pushSTACK(TheSubr (subr_self)->name); error(error_condition,"~S: This CLX implemenation does not allow uncached graphics contexts."); @@ -3214,7 +3220,7 @@ /* xlib:gcontext-dashes gcontext */ DEFUN(XLIB:GCONTEXT-DASHES, context) { - (void*) get_gcontext_and_display (STACK_0, 0); /* only type checking here */ + unused get_gcontext_and_display (STACK_0, 0); /* only type checking here */ /* Now see if there is a %dashes slot? */ get_slot(STACK_0,`XLIB::%DASHES`); @@ -3280,7 +3286,7 @@ DEFUN(XLIB:GCONTEXT-CLIP-MASK, context) { - (void*) get_gcontext_and_display (STACK_0, 0); /* only type checking here */ + unused get_gcontext_and_display (STACK_0, 0); /* only type checking here */ get_slot(STACK_0,`XLIB::%CLIP-MASK`); if (eq(value1,nullobj)) value1 = `:NONE`; ------------------------------ ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 43, Issue 9 **************************************** |