unofficial mirror of bug-guile@gnu.org 
 help / color / mirror / Atom feed
From: Thamer Al-Harbash <tmh@whitefang.com>
Subject: fix to get numbers.c to compile
Date: Thu, 17 Apr 2003 14:03:31 -0400 (EDT)	[thread overview]
Message-ID: <Pine.BSF.4.51.0304171356400.1229@helena.whitefang.com> (raw)

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)


_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-guile


             reply	other threads:[~2003-04-17 18:03 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-04-17 18:03 Thamer Al-Harbash [this message]
2003-04-17 22:16 ` fix to get numbers.c to compile Rob Browning

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/guile/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=Pine.BSF.4.51.0304171356400.1229@helena.whitefang.com \
    --to=tmh@whitefang.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).