[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)
- fix to get numbers.c to compile,
Thamer Al-Harbash <=