Re: w32 port, patch 3: misc declarations

[Lars J. Aas]

        * sort.c, eval.c: include <malloc.h> for `alloca' declaration on
          the w32 architecture.
        * random.c: fallback for M_PI (w32s math.h doesn't define it).

Index: libguile/sort.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/sort.c,v
retrieving revision 1.27
diff -u -r1.27 sort.c
--- libguile/sort.c     2000/11/17 16:25:04     1.27
+++ libguile/sort.c     2000/11/18 17:25:00
@@ -61,6 +61,10 @@
 /* We need this to get the definitions for HAVE_ALLOCA_H, etc.  */
 #include "libguile/scmconfig.h"
 
+#ifdef _WIN32
+#include <malloc.h>
+#endif
+
 /* AIX requires this to be the first thing in the file.  The #pragma
    directive is indented so pre-ANSI compilers will ignore it, rather
    than choke on it.  */
Index: libguile/random.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/random.c,v
retrieving revision 1.34
diff -u -r1.34 random.c
--- libguile/random.c   2000/11/17 16:25:04     1.34
+++ libguile/random.c   2000/11/18 17:25:00
@@ -59,6 +59,10 @@
 #include "libguile/validate.h"
 #include "libguile/random.h"
 
+#ifndef M_PI
+#define M_PI 3.141592653579f
+#endif
+
 
 /*
  * A plugin interface for RNGs
Index: libguile/eval.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/eval.c,v
retrieving revision 1.179
diff -u -r1.179 eval.c
--- libguile/eval.c     2000/11/17 16:25:03     1.179
+++ libguile/eval.c     2000/11/18 17:25:04
@@ -61,6 +61,10 @@
 /* We need this to get the definitions for HAVE_ALLOCA_H, etc.  */
 #include "libguile/scmconfig.h"
 
+#ifdef _WIN32
+#include <malloc.h>
+#endif
+
 /* AIX requires this to be the first thing in the file.  The #pragma
    directive is indented so pre-ANSI compilers will ignore it, rather
    than choke on it.  */