From: <cli...@li...> - 2005-07-21 03:16:14
|
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/avcall configure,1.41,1.42 avcall.h.msvc,1.14,1.15 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/ffcall/avcall configure,1.41,1.42 avcall.h.msvc,1.14,1.15 Date: Wed, 20 Jul 2005 23:58:46 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/ffcall/avcall In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20641/ffcall/avcall Modified Files: configure avcall.h.msvc Log Message: clisp 2.34 (2005-07-20) Index: avcall.h.msvc =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/avcall/avcall.h.msvc,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- avcall.h.msvc 26 Jan 2004 15:22:14 -0000 1.14 +++ avcall.h.msvc 20 Jul 2005 23:58:44 -0000 1.15 @@ -3,7 +3,7 @@ /** Copyright 1993 Bill Triggs, <Bil...@in...> - Copyright 1995-2004 Bruno Haible, <br...@cl...> + Copyright 1995-2005 Bruno Haible, <br...@cl...> This is free software distributed under the GNU General Public Licence described in the file COPYING. Contact the author if @@ -78,9 +78,9 @@ /* Define if floating-point results are returned in the integer registers */ #undef __IREG_FLOAT_RETURN__ -/* CL_LONGLONG */ -/* Define if your compiler supports the `long long' type. */ -#undef HAVE_LONGLONG +/* gl_AC_TYPE_LONG_LONG */ +/* Define if your compiler supports the 'long long' type. */ +#undef HAVE_LONG_LONG /* End of definitions adjusted by `configure'. */ @@ -187,12 +187,7 @@ __AV_SUNPROCC_STRUCT_RETURN, #else #if defined(__PCC_STRUCT_RETURN__) /* defined through configure, see above */ - __AV_PCC_STRUCT_RETURN | -#if defined(__sparc__) && !defined(__sparc64__) && defined(sun) && !(defined(__STDC__) || defined(__GNUC__)) /* sun cc */ - __AV_SUNCC_STRUCT_RETURN, -#else - 0, -#endif + __AV_PCC_STRUCT_RETURN, #else #if defined(__SMALL_STRUCT_RETURN__) || defined(__mipsn32__) || defined(__mips64__) /* defined through configure, see above */ __AV_SMALL_STRUCT_RETURN | @@ -268,48 +263,13 @@ /* how to pass floats */ /* ANSI C compilers and GNU gcc pass floats as floats. - * K&R C compilers pass floats as doubles. - * (Except some compilers like SGI MIPS "cc" and "cc -cckr" if a prototype is - * known for the called functions. But to compile a program with prototypes, - * "cc -ansi" is better anyway. - */ - __AV_ANSI_FLOAT_ARGS = 0, /* pass floats as floats */ - __AV_TRADITIONAL_FLOAT_ARGS = 1<<8, /* pass floats as doubles */ - /* the default way to pass floats */ - /* This choice here is based on the assumption that the function you are - * going to call has been compiled with the same compiler you are using to - * include this file. - * If you want to call functions with another float passing convention, - * just #define __AV_FLOAT_ARGS ... - * before or after #including <avcall.h>. + * K&R C compilers pass floats as doubles. We don't support them any more. */ -#ifndef __AV_FLOAT_ARGS -#if defined(__STDC__) || defined(__GNUC__) /* what about hppa "cc -Aa" ?? */ - __AV_FLOAT_ARGS = __AV_ANSI_FLOAT_ARGS, -#else - __AV_FLOAT_ARGS = __AV_TRADITIONAL_FLOAT_ARGS, -#endif -#endif /* how to pass and return small integer arguments */ __AV_ANSI_INTEGERS = 0, /* no promotions */ __AV_TRADITIONAL_INTEGERS = 0, /* promote [u]char, [u]short to [u]int */ /* Fortunately these two methods are compatible. Our macros work with both. */ - /* the default way to pass and return small integer arguments */ - /* This choice here is based on the assumption that the function you are - * going to call has been compiled with the same compiler you are using to - * include this file. - * If you want to call functions with another float passing convention, - * just #define __AV_INTEGERS ... - * before or after #including <avcall.h>. - */ -#ifndef __AV_INTEGERS -#if defined(__STDC__) || defined(__GNUC__) - __AV_INTEGERS = __AV_ANSI_INTEGERS, -#else - __AV_INTEGERS = __AV_TRADITIONAL_INTEGERS, -#endif -#endif /* stack cleanup policy */ __AV_CDECL_CLEANUP = 0, /* caller pops args after return */ @@ -434,7 +394,7 @@ */ #define __AV_START_FLAGS \ - __AV_STRUCT_RETURN | __AV_FLOAT_RETURN | __AV_STRUCT_ARGS | __AV_FLOAT_ARGS | __AV_INTEGERS | __AV_CLEANUP + __AV_STRUCT_RETURN | __AV_FLOAT_RETURN | __AV_STRUCT_ARGS | __AV_CLEANUP #define __av_start(LIST,FUNC,RADDR,RETTYPE) \ ((LIST).func = (__avword(*)())(FUNC), \ @@ -818,14 +778,9 @@ /* floating-point argument types */ -#define av_float(LIST,VAL) \ - ((LIST).flags & __AV_TRADITIONAL_FLOAT_ARGS \ - ? av_double(LIST,(float)(VAL)) \ - : __av_float(LIST,VAL)) - #if defined(__i386__) || defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__arm__) || defined(__convex__) -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ (++(LIST).aptr > __av_eptr(LIST) \ ? -1 : (((float*)(LIST).aptr)[-1] = (float)(VAL), 0)) @@ -847,7 +802,7 @@ * registers in case of varargs. For doubles we need to align the aptr * to an even boundary. */ -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ (++(LIST).aptr > __av_eptr(LIST) \ ? -1 : ((++(LIST).anum == 1 \ ? ((LIST).flags |= __AV_FLOAT_1, \ @@ -878,7 +833,7 @@ * float registers, but we also push them into the corresponding int * registers in case of varargs. */ -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ ((LIST).aptr >= __av_eptr(LIST) \ ? -1 : (((LIST).anum < 8 \ ? ((LIST).farg_mask |= (1 << (LIST).anum), \ @@ -904,7 +859,7 @@ * float registers, but we also push them into the corresponding int * registers in case of varargs. */ -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ ((LIST).aptr >= __av_eptr(LIST) \ ? -1 : (((LIST).anum < 16 && ((LIST).farg_mask |= (1 << (LIST).anum))), \ (*(float*)(LIST).aptr = (float)(VAL)), \ @@ -928,7 +883,7 @@ (++(LIST).aptr > __av_eptr(LIST) \ ? -1 : (((double*)(LIST).aptr)[-1] = (double)(VAL), 0)) -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ (++(LIST).aptr > __av_eptr(LIST) \ ? -1 \ : (((LIST).aptr > &(LIST).args[6] \ @@ -945,7 +900,7 @@ #if defined(__hppa__) -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ (--(LIST).aptr < __av_eptr(LIST) \ ? -1 : (*(float*)(LIST).aptr = (float)(VAL), 0)) @@ -963,7 +918,7 @@ * registers in case of varargs. */ -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ (++(LIST).aptr > __av_eptr(LIST) \ ? -1 : (((float*)(LIST).aptr)[-1] = (float)(VAL), \ (LIST).faptr < &(LIST).fargs[13] && \ @@ -988,7 +943,7 @@ * float registers, without occupying space in the general registers. */ -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ ((LIST).faptr < &(LIST).fargs[8] \ ? ((*(LIST).faptr++ = (double)(float)(VAL)), 0) \ : (++(LIST).aptr > __av_eptr(LIST) \ @@ -1012,7 +967,7 @@ * float registers, without occupying space in the general registers. */ -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ ((LIST).faptr < &(LIST).fargs[2] \ ? (LIST).daptr++, *(LIST).fargsusedptr++ = 1, *(LIST).dargsusedptr++ = 0, ((*(LIST).faptr++ = (float)(VAL)), 0) \ : (++(LIST).aptr > __av_eptr(LIST) \ @@ -1032,7 +987,7 @@ #if defined(__m88k__) -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ (++(LIST).aptr > __av_eptr(LIST) \ ? -1 : (((float*)(LIST).aptr)[-1] = (float)(VAL), 0)) @@ -1049,7 +1004,7 @@ * float registers, but we also push them into the corresponding int * registers in case of varargs. */ -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ ((LIST).aptr >= __av_eptr(LIST) \ ? -1 : ((*(float*)(LIST).aptr = (float)(VAL)), \ ((LIST).faptr < &(LIST).fargs[8] && (*(LIST).faptr = *(float*)(LIST).aptr, (LIST).faptr++)), \ @@ -1069,7 +1024,7 @@ /* Up to 8 leading float or double args can be passed in float registers. */ -#define __av_float(LIST,VAL) \ +#define av_float(LIST,VAL) \ ((LIST).faptr < &(LIST).fargs[8] \ ? (*(LIST).faptr = 0.0, *(float*)(LIST).faptr = (float)(VAL), \ (LIST).faptr++, \ @@ -1394,12 +1349,7 @@ * Miscellaneous declarations. */ -#if defined(__STDC__) || defined(__GNUC__) || defined(__cplusplus) extern int __builtin_avcall (av_alist* l); -extern void __structcpy (void* dest, void* src, unsigned long size, unsigned long alignment); -#else -extern int __builtin_avcall (); -extern void __structcpy (); -#endif +extern void __structcpy (void* dest, const void* src, unsigned long size, unsigned long alignment); #endif /*_avcall_h */ Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/avcall/configure,v retrieving revision 1.41 retrieving revision 1.42 diff -u -d -r1.41 -r1.42 --- configure 13 Jul 2005 19:12:05 -0000 1.41 +++ configure 20 Jul 2005 23:58:43 -0000 1.42 @@ -5156,6 +5156,7 @@ fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` + lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure @@ -5446,7 +5447,7 @@ # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. [...1777 lines suppressed...] + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac +done +cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` + lt_cv_prog_compiler_c_o_RC=yes # The else clause should only fire when bootstrapping the @@ -18739,7 +19014,7 @@ # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o_RC -# Must we lock files when doing compilation ? +# Must we lock files when doing compilation? need_locks=$lt_need_locks # Do we need the lib prefix for modules? --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |