diff -dur gcl-2.6.8.ORIG/acconfig.h gcl-2.6.8/acconfig.h

--- gcl-2.6.8.ORIG/acconfig.h	2009-02-23 12:39:42.000000000 -0700

+++ gcl-2.6.8/acconfig.h	2009-08-11 10:55:32.525471470 -0600

@@ -53,11 +53,10 @@

 #undef HAVE_ALLOCA 

 #endif

-

 /* define if need alloca.h */

-#undef NEED_ALLOCA_H

+#undef HAVE_ALLOCA_H

-#ifdef NEED_ALLOCA_H

+#ifdef HAVE_ALLOCA_H

 #include <alloca.h>

 #endif

diff -dur gcl-2.6.8.ORIG/configure gcl-2.6.8/configure

--- gcl-2.6.8.ORIG/configure	2009-08-11 10:55:12.612470012 -0600

+++ gcl-2.6.8/configure	2009-08-11 10:55:32.540470956 -0600

@@ -645,6 +645,7 @@

 NIFLAGS

 FINAL_CFLAGS

 BROKEN_O4_OPT

+ALLOCA

 NOTIFY

 TCL_LIBS

 TCL_DL_LIBS

@@ -14045,10 +14046,12 @@

 # alloca

-{ $as_echo "$as_me:$LINENO: checking for alloca" >&5

-$as_echo_n "checking for alloca... " >&6; }

-if test "$cross_compiling" = yes; then

-  gcl_ok=no

+# The Ultrix 4.2 mips builtin alloca declared by alloca.h only works

+# for constant arguments.  Useless!

+{ $as_echo "$as_me:$LINENO: checking for working alloca.h" >&5

+$as_echo_n "checking for working alloca.h... " >&6; }

+if test "${ac_cv_working_alloca_h+set}" = set; then

+  $as_echo_n "(cached) " >&6

 else

   cat >conftest.$ac_ext <<_ACEOF

 /* confdefs.h.  */

@@ -14056,16 +14059,17 @@

 cat confdefs.h >>conftest.$ac_ext

 cat >>conftest.$ac_ext <<_ACEOF

 /* end confdefs.h.  */

-

+#include <alloca.h>

 int

 main ()

 {

-exit(alloca(500) != NULL ? 0 : 1);

+char *p = (char *) alloca (2 * sizeof (int));

+			  if (p) return 0;

   ;

   return 0;

 }

 _ACEOF

-rm -f conftest$ac_exeext

+rm -f conftest.$ac_objext conftest$ac_exeext

 if { (ac_try="$ac_link"

 case "(($ac_try" in

   *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;

@@ -14073,44 +14077,141 @@

 esac

 eval ac_try_echo="\"\$as_me:$LINENO: $ac_try_echo\""

 $as_echo "$ac_try_echo") >&5

-  (eval "$ac_link") 2>&5

+  (eval "$ac_link") 2>conftest.er1

   ac_status=$?

+  grep -v '^ *+' conftest.er1 >conftest.err

+  rm -f conftest.er1

+  cat conftest.err >&5

   $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5

-  (exit $ac_status); } && { ac_try='./conftest$ac_exeext'

-  { (case "(($ac_try" in

+  (exit $ac_status); } && {

+	 test -z "$ac_c_werror_flag" ||

+	 test ! -s conftest.err

+       } && test -s conftest$ac_exeext && {

+	 test "$cross_compiling" = yes ||

+	 $as_test_x conftest$ac_exeext

+       }; then

+  ac_cv_working_alloca_h=yes

+else

+  $as_echo "$as_me: failed program was:" >&5

+sed 's/^/| /' conftest.$ac_ext >&5

+

+	ac_cv_working_alloca_h=no

+fi

+

+rm -rf conftest.dSYM

+rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \

+      conftest$ac_exeext conftest.$ac_ext

+fi

+{ $as_echo "$as_me:$LINENO: result: $ac_cv_working_alloca_h" >&5

+$as_echo "$ac_cv_working_alloca_h" >&6; }

+if test $ac_cv_working_alloca_h = yes; then

+

+cat >>confdefs.h <<\_ACEOF

+#define HAVE_ALLOCA_H 1

+_ACEOF

+

+fi

+

+{ $as_echo "$as_me:$LINENO: checking for alloca" >&5

+$as_echo_n "checking for alloca... " >&6; }

+if test "${ac_cv_func_alloca_works+set}" = set; then

+  $as_echo_n "(cached) " >&6

+else

+  cat >conftest.$ac_ext <<_ACEOF

+/* confdefs.h.  */

+_ACEOF

+cat confdefs.h >>conftest.$ac_ext

+cat >>conftest.$ac_ext <<_ACEOF

+/* end confdefs.h.  */

+#ifdef __GNUC__

+# define alloca __builtin_alloca

+#else

+# ifdef _MSC_VER

+#  include <malloc.h>

+#  define alloca _alloca

+# else

+#  ifdef HAVE_ALLOCA_H

+#   include <alloca.h>

+#  else

+#   ifdef _AIX

+ #pragma alloca

+#   else

+#    ifndef alloca /* predefined by HP cc +Olibcalls */

+char *alloca ();

+#    endif

+#   endif

+#  endif

+# endif

+#endif

+

+int

+main ()

+{

+char *p = (char *) alloca (1);

+				    if (p) return 0;

+  ;

+  return 0;

+}

+_ACEOF

+rm -f conftest.$ac_objext conftest$ac_exeext

+if { (ac_try="$ac_link"

+case "(($ac_try" in

   *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;

   *) ac_try_echo=$ac_try;;

 esac

 eval ac_try_echo="\"\$as_me:$LINENO: $ac_try_echo\""

 $as_echo "$ac_try_echo") >&5

-  (eval "$ac_try") 2>&5

+  (eval "$ac_link") 2>conftest.er1

   ac_status=$?

+  grep -v '^ *+' conftest.er1 >conftest.err

+  rm -f conftest.er1

+  cat conftest.err >&5

   $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5

-  (exit $ac_status); }; }; then

-  :

+  (exit $ac_status); } && {

+	 test -z "$ac_c_werror_flag" ||

+	 test ! -s conftest.err

+       } && test -s conftest$ac_exeext && {

+	 test "$cross_compiling" = yes ||

+	 $as_test_x conftest$ac_exeext

+       }; then

+  ac_cv_func_alloca_works=yes

 else

-  $as_echo "$as_me: program exited with status $ac_status" >&5

-$as_echo "$as_me: failed program was:" >&5

+  $as_echo "$as_me: failed program was:" >&5

 sed 's/^/| /' conftest.$ac_ext >&5

-( exit $ac_status )

-gcl_ok=yes

+	ac_cv_func_alloca_works=no

 fi

+

 rm -rf conftest.dSYM

-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext

+rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \

+      conftest$ac_exeext conftest.$ac_ext

 fi

+{ $as_echo "$as_me:$LINENO: result: $ac_cv_func_alloca_works" >&5

+$as_echo "$ac_cv_func_alloca_works" >&6; }

+if test $ac_cv_func_alloca_works = yes; then

-if test $gcl_ok = yes ; then

-    { $as_echo "$as_me:$LINENO: result: yes" >&5

-$as_echo "yes" >&6; }

-    cat >>confdefs.h <<\_ACEOF

+cat >>confdefs.h <<\_ACEOF

 #define HAVE_ALLOCA 1

 _ACEOF

 else

-  if test "$cross_compiling" = yes; then

-  gcl_ok=no

+  # The SVR3 libPW and SVR4 libucb both contain incompatible functions

+# that cause trouble.  Some versions do not even contain alloca or

+# contain a buggy version.  If you still want to use their alloca,

+# use ar to extract alloca.o from them instead of compiling alloca.c.

+

+ALLOCA=\${LIBOBJDIR}alloca.$ac_objext

+

+cat >>confdefs.h <<\_ACEOF

+#define C_ALLOCA 1

+_ACEOF

+

+

+{ $as_echo "$as_me:$LINENO: checking whether \`alloca.c' needs Cray hooks" >&5

+$as_echo_n "checking whether \`alloca.c' needs Cray hooks... " >&6; }

+if test "${ac_cv_os_cray+set}" = set; then

+  $as_echo_n "(cached) " >&6

 else

   cat >conftest.$ac_ext <<_ACEOF

 /* confdefs.h.  */

@@ -14118,17 +14219,163 @@

 cat confdefs.h >>conftest.$ac_ext

 cat >>conftest.$ac_ext <<_ACEOF

 /* end confdefs.h.  */

+#if defined CRAY && ! defined CRAY2

+webecray

+#else

+wenotbecray

+#endif

-  #include <alloca.h>

+_ACEOF

+if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |

+  $EGREP "webecray" >/dev/null 2>&1; then

+  ac_cv_os_cray=yes

+else

+  ac_cv_os_cray=no

+fi

+rm -f conftest*

+

+fi

+{ $as_echo "$as_me:$LINENO: result: $ac_cv_os_cray" >&5

+$as_echo "$ac_cv_os_cray" >&6; }

+if test $ac_cv_os_cray = yes; then

+  for ac_func in _getb67 GETB67 getb67; do

+    as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`

+{ $as_echo "$as_me:$LINENO: checking for $ac_func" >&5

+$as_echo_n "checking for $ac_func... " >&6; }

+if { as_var=$as_ac_var; eval "test \"\${$as_var+set}\" = set"; }; then

+  $as_echo_n "(cached) " >&6

+else

+  cat >conftest.$ac_ext <<_ACEOF

+/* confdefs.h.  */

+_ACEOF

+cat confdefs.h >>conftest.$ac_ext

+cat >>conftest.$ac_ext <<_ACEOF

+/* end confdefs.h.  */

+/* Define $ac_func to an innocuous variant, in case <limits.h> declares $ac_func.

+   For example, HP-UX 11i <limits.h> declares gettimeofday.  */

+#define $ac_func innocuous_$ac_func

+

+/* System header to define __stub macros and hopefully few prototypes,

+    which can conflict with char $ac_func (); below.

+    Prefer <limits.h> to <assert.h> if __STDC__ is defined, since

+    <limits.h> exists even on freestanding compilers.  */

+

+#ifdef __STDC__

+# include <limits.h>

+#else

+# include <assert.h>

+#endif

+

+#undef $ac_func

+

+/* Override any GCC internal prototype to avoid an error.

+   Use char because int might match the return type of a GCC

+   builtin and then its argument prototype would still apply.  */

+#ifdef __cplusplus

+extern "C"

+#endif

+char $ac_func ();

+/* The GNU C library defines this for functions which it implements

+    to always fail with ENOSYS.  Some functions are actually named

+    something starting with __ and the normal name is an alias.  */

+#if defined __stub_$ac_func || defined __stub___$ac_func

+choke me

+#endif

 int

 main ()

 {

-exit(alloca(500) != NULL ? 0 : 1);

+return $ac_func ();

   ;

   return 0;

 }

 _ACEOF

+rm -f conftest.$ac_objext conftest$ac_exeext

+if { (ac_try="$ac_link"

+case "(($ac_try" in

+  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;

+  *) ac_try_echo=$ac_try;;

+esac

+eval ac_try_echo="\"\$as_me:$LINENO: $ac_try_echo\""

+$as_echo "$ac_try_echo") >&5

+  (eval "$ac_link") 2>conftest.er1

+  ac_status=$?

+  grep -v '^ *+' conftest.er1 >conftest.err

+  rm -f conftest.er1

+  cat conftest.err >&5

+  $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5

+  (exit $ac_status); } && {

+	 test -z "$ac_c_werror_flag" ||

+	 test ! -s conftest.err

+       } && test -s conftest$ac_exeext && {

+	 test "$cross_compiling" = yes ||

+	 $as_test_x conftest$ac_exeext

+       }; then

+  eval "$as_ac_var=yes"

+else

+  $as_echo "$as_me: failed program was:" >&5

+sed 's/^/| /' conftest.$ac_ext >&5

+

+	eval "$as_ac_var=no"

+fi

+

+rm -rf conftest.dSYM

+rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \

+      conftest$ac_exeext conftest.$ac_ext

+fi

+ac_res=`eval 'as_val=${'$as_ac_var'}

+		 $as_echo "$as_val"'`

+	       { $as_echo "$as_me:$LINENO: result: $ac_res" >&5

+$as_echo "$ac_res" >&6; }

+as_val=`eval 'as_val=${'$as_ac_var'}

+		 $as_echo "$as_val"'`

+   if test "x$as_val" = x""yes; then

+

+cat >>confdefs.h <<_ACEOF

+#define CRAY_STACKSEG_END $ac_func

+_ACEOF

+

+    break

+fi

+

+  done

+fi

+

+{ $as_echo "$as_me:$LINENO: checking stack direction for C alloca" >&5

+$as_echo_n "checking stack direction for C alloca... " >&6; }

+if test "${ac_cv_c_stack_direction+set}" = set; then

+  $as_echo_n "(cached) " >&6

+else

+  if test "$cross_compiling" = yes; then

+  ac_cv_c_stack_direction=0

+else

+  cat >conftest.$ac_ext <<_ACEOF

+/* confdefs.h.  */

+_ACEOF

+cat confdefs.h >>conftest.$ac_ext

+cat >>conftest.$ac_ext <<_ACEOF

+/* end confdefs.h.  */

+$ac_includes_default

+int

+find_stack_direction ()

+{

+  static char *addr = 0;

+  auto char dummy;

+  if (addr == 0)

+    {

+      addr = &dummy;

+      return find_stack_direction ();

+    }

+  else

+    return (&dummy > addr) ? 1 : -1;

+}

+

+int

+main ()

+{

+  return find_stack_direction () < 0;

+}

+_ACEOF

 rm -f conftest$ac_exeext

 if { (ac_try="$ac_link"

 case "(($ac_try" in

@@ -14151,43 +14398,30 @@

   ac_status=$?

   $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5

   (exit $ac_status); }; }; then

-  :

+  ac_cv_c_stack_direction=1

 else

   $as_echo "$as_me: program exited with status $ac_status" >&5

 $as_echo "$as_me: failed program was:" >&5

 sed 's/^/| /' conftest.$ac_ext >&5

 ( exit $ac_status )

-gcl_ok=yes

+ac_cv_c_stack_direction=-1

 fi

 rm -rf conftest.dSYM

 rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext

 fi

- if test $gcl_ok = yes ; then

-    { $as_echo "$as_me:$LINENO: result: yes" >&5

-$as_echo "yes" >&6; }

-    cat >>confdefs.h <<\_ACEOF

-#define HAVE_ALLOCA 1

-_ACEOF

-

-    cat >>confdefs.h <<\_ACEOF

-#define NEED_ALLOCA_H 1

-_ACEOF

-

- fi

 fi

-if test $gcl_ok = no ; then     { $as_echo "$as_me:$LINENO: result: no" >&5

-$as_echo "no" >&6; } ; fi

-

-

-

-

-

+{ $as_echo "$as_me:$LINENO: result: $ac_cv_c_stack_direction" >&5

+$as_echo "$ac_cv_c_stack_direction" >&6; }

+cat >>confdefs.h <<_ACEOF

+#define STACK_DIRECTION $ac_cv_c_stack_direction

+_ACEOF

+fi

 # dlopen etc

diff -dur gcl-2.6.8.ORIG/configure.in gcl-2.6.8/configure.in

--- gcl-2.6.8.ORIG/configure.in	2009-08-11 10:55:12.621467749 -0600

+++ gcl-2.6.8/configure.in	2009-08-11 10:55:32.543471585 -0600

@@ -1869,33 +1869,7 @@

 # alloca

-AC_MSG_CHECKING([for alloca])

-AC_RUN_IFELSE([AC_LANG_PROGRAM([],[[exit(alloca(500) != NULL ? 0 : 1);]])],

-  ,gcl_ok=yes, gcl_ok=no,gcl_ok=no)

-if test $gcl_ok = yes ; then

-    AC_MSG_RESULT(yes)

-    AC_DEFINE(HAVE_ALLOCA)

-else

-  AC_RUN_IFELSE([AC_LANG_PROGRAM([[

-  #include <alloca.h>

-  ]],[[exit(alloca(500) != NULL ? 0 : 1);]])],

-  ,gcl_ok=yes, gcl_ok=no,gcl_ok=no)

- if test $gcl_ok = yes ; then

-    AC_MSG_RESULT(yes)

-    AC_DEFINE(HAVE_ALLOCA)

-    AC_DEFINE(NEED_ALLOCA_H)

- fi

-fi

-if test $gcl_ok = no ; then     AC_MSG_RESULT(no) ; fi

-

-

-

-

-

-

-

-

-

+AC_FUNC_ALLOCA

 # dlopen etc

 # idea make it so you do something dlopen(libX.so,RTLD_GLOBAL)

diff -dur gcl-2.6.8.ORIG/h/gclincl.h.in gcl-2.6.8/h/gclincl.h.in

--- gcl-2.6.8.ORIG/h/gclincl.h.in	2009-08-11 10:55:12.622464351 -0600

+++ gcl-2.6.8/h/gclincl.h.in	2009-08-11 10:55:32.545474389 -0600

@@ -54,11 +54,10 @@

 #undef HAVE_ALLOCA 

 #endif

-

 /* define if need alloca.h */

-#undef NEED_ALLOCA_H

+#undef HAVE_ALLOCA_H

-#ifdef NEED_ALLOCA_H

+#ifdef HAVE_ALLOCA_H

 #include <alloca.h>

 #endif

@@ -260,6 +259,21 @@

 #undef HAVE_OBJC_MALLOC_H

 #undef HAVE_OUTPUT_BFD

+/* Define to one of `_getb67', `GETB67', `getb67' for Cray-2 and Cray-YMP

+   systems. This function is required for `alloca.c' support on those systems.

+   */

+#undef CRAY_STACKSEG_END

+

+/* Define to 1 if using `alloca.c'. */

+#undef C_ALLOCA

+

+/* Define to 1 if you have `alloca', as a function or macro. */

+#undef HAVE_ALLOCA

+

+/* Define to 1 if you have <alloca.h> and it should be used (not on Ultrix).

+   */

+#undef HAVE_ALLOCA_H

+

 /* Define to 1 if you have the <asm/sigcontext.h> header file. */

 #undef HAVE_ASM_SIGCONTEXT_H

@@ -347,6 +361,14 @@

 /* The size of `long', as computed by sizeof. */

 #undef SIZEOF_LONG

+/* If using the C implementation of alloca, define if you know the

+   direction of stack growth for your system; otherwise it will be

+   automatically deduced at runtime.

+	STACK_DIRECTION > 0 => grows toward higher addresses

+	STACK_DIRECTION < 0 => grows toward lower addresses

+	STACK_DIRECTION = 0 => direction of growth unknown */

+#undef STACK_DIRECTION

+

 /* Define to 1 if you have the ANSI C header files. */

 #undef STDC_HEADERS