bug-guile
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

fix to get numbers.c to compile


From: Thamer Al-Harbash
Subject: fix to get numbers.c to compile
Date: Thu, 17 Apr 2003 14:03:31 -0400 (EDT)

This is a fix to get numbers.c to get it to compile with gcc
2.95.3:

Small fix to put declarations before code. This may have compiled
on gcc 3, but it's a no go for gcc 2.

Index: libguile/numbers.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/numbers.c,v
retrieving revision 1.179
diff -u -r1.179 numbers.c
--- libguile/numbers.c  16 Apr 2003 19:44:02 -0000      1.179
+++ libguile/numbers.c  17 Apr 2003 18:00:54 -0000
@@ -1150,6 +1150,10 @@
            "@end lisp")
 #define FUNC_NAME s_scm_integer_expt
 {
+  long i2 = 0;
+  SCM z_i2 = SCM_BOOL_F;
+  int i2_is_big = 0;
+
   SCM acc = SCM_MAKINUM (1L);

   /* 0^0 == 1 according to R5RS */
@@ -1158,10 +1162,6 @@
   else if (SCM_EQ_P (n, SCM_MAKINUM (-1L)))
     return SCM_FALSEP (scm_even_p (k)) ? n : acc;

-  long i2 = 0;
-  SCM z_i2 = SCM_BOOL_F;
-  int i2_is_big = 0;
-
   if (SCM_INUMP (k))
     i2 = SCM_INUM (k);
   else if (SCM_BIGP (k))

-- 
Thamer Al-Harbash            http://www.whitefang.com/
        (if (> pressure too-much-pressure)
                'flame 'work)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]