unofficial mirror of bug-guile@gnu.org 
 help / color / mirror / Atom feed
From: hyperdivision@sleepynyago.dyndns.org (Hyperdivision)
Subject: (no subject)
Date: Fri, 23 Apr 2004 10:36:49 -0500	[thread overview]
Message-ID: <40893811.mailNWN1WP2KH@localhost> (raw)

Subject: guile-core (cvs) patch

patch to get guile-cvs to build with gcc-cvs

diff -Naur guile-core.orig/libguile/num2integral.i.c guile-core/libguile/num2integral.i.c
--- guile-core.orig/libguile/num2integral.i.c	2004-02-17 18:25:39.000000000 -0600
+++ guile-core/libguile/num2integral.i.c	2004-04-16 08:25:43.000000000 -0500
@@ -79,14 +79,14 @@
       else
         {
           /* make sure the result will fit */
-          if (BIGMPZ_FITSP)
+#ifdef BIGMPZ_FITSP
             {
               int fits_p = BIGMPZ_FITSP (SCM_I_BIG_MPZ (num));
               scm_remember_upto_here_1 (num);
               if (!fits_p)
                 scm_out_of_range (s_caller, num);
             }
-          else
+#else
             {
               size_t numbits;
               if (UNSIGNED)
@@ -102,6 +102,7 @@
               if (numbits > (sizeof (ITYPE) * SCM_CHAR_BIT))
                 scm_out_of_range (s_caller, num);
             }
+#endif
           
           if (UNSIGNED && (SIZEOF_ITYPE <= SIZEOF_UNSIGNED_LONG))
             {
diff -Naur guile-core.orig/libguile/socket.c guile-core/libguile/socket.c
--- guile-core.orig/libguile/socket.c	2003-04-16 14:45:01.000000000 -0500
+++ guile-core/libguile/socket.c	2004-04-16 09:31:45.000000000 -0500
@@ -408,7 +408,7 @@
    else\
    {\
       SCM_VALIDATE_BIGINT (which_arg, address);\
-      SCM_ASSERT_RANGE (which_arg, address, bignum_in_ipv6_range_p);\
+      SCM_ASSERT_RANGE (which_arg, address, bignum_in_ipv6_range_p(address));\
    }
 
 #ifdef HAVE_INET_PTON
diff -Naur guile-core.orig/libguile/threads.c guile-core/libguile/threads.c
--- guile-core.orig/libguile/threads.c	2004-03-03 10:53:13.000000000 -0600
+++ guile-core/libguile/threads.c	2004-04-16 08:33:04.000000000 -0500
@@ -443,7 +443,7 @@
 "Move the calling thread to the end of the scheduling queue.")
 #define FUNC_NAME s_scm_yield
 {
-  return SCM_BOOL (scm_thread_yield);
+  return SCM_BOOL (scm_thread_yield());
 }
 #undef FUNC_NAME
 
diff -Naur guile-core.orig/libguile/unif.c guile-core/libguile/unif.c
--- guile-core.orig/libguile/unif.c	2004-02-13 17:15:37.000000000 -0600
+++ guile-core/libguile/unif.c	2004-04-16 08:33:52.000000000 -0500
@@ -137,7 +137,7 @@
     }
 }
 
-static const char s_scm_make_uve[];
+/*static const char s_scm_make_uve[];*/
 
 static SCM
 make_uve (long type, long k, size_t size)


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


             reply	other threads:[~2004-04-23 15:36 UTC|newest]

Thread overview: 69+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2004-04-23 15:36 Hyperdivision [this message]
2004-04-24 20:59 ` guile-core (cvs) patch Kevin Ryde
2004-04-24 22:30   ` Hyperdivision
  -- strict thread matches above, loose matches on Subject: below --
2011-03-29 13:03 (no subject) dsmich
     [not found] <d8b4d5651003051311i648ad3bds882a20dc874f10ce@mail.gmail.com>
     [not found] ` <87bpezwysj.fsf@ossau.uklinux.net>
     [not found]   ` <d8b4d5651003081312t25eb980dw4de7d7c100c8b8d@mail.gmail.com>
     [not found]     ` <87mxyiz9vv.fsf@ossau.uklinux.net>
     [not found]       ` <d8b4d5651003090751i5957a352y74404f027ae19e@mail.gmail.com>
     [not found]         ` <d8b4d5651003090756m223d37eawae1c5476cbcb797c@mail.gmail.com>
     [not found]           ` <87hbon24sg.fsf@ossau.uklinux.net>
     [not found]             ` <d8b4d5651003171405o13a2d661xb5071baa98c8b91@mail.gmail.com>
2010-03-29 20:17               ` Neil Jerram
2008-06-01 11:25 Gregory Marton
2006-03-11  5:01 深圳物资集团有限公司
2005-05-26 19:35 ff
2005-05-26 16:50 dave
2005-05-24  0:58 any_cao
2005-05-18 15:38 haiqi1818
2005-05-13  2:07 
2005-05-12 12:21 s1ssy6
2005-05-08  6:31 jackyhuang
2005-05-07 13:01 r7e1q5u2
2005-05-04  1:46 nancy
2005-04-27  7:08 google超特价推广
2005-04-25 17:19 CoWiz
2005-04-25  8:58 深 圳 市 菲 程 信 息 技 术 有 限 公 司
2005-04-20 15:11 中华书画名人网
2005-04-14 19:41 刘生
2005-04-14 13:39 info
2005-04-10  1:25 polyresin
2005-04-08  2:03 didiq
2005-04-07 12:46 刘生
2005-04-07  1:35 货到付款
2005-04-06 14:19 hpd8
2005-04-03  9:32 ykkwhr
2005-01-28  1:04 Marisa P. Gamble
2005-01-26  8:59 Google
2005-01-20 10:08 Google
2005-01-16  2:59 滔滔
2005-01-13  8:24 11
2004-12-16 14:37 Ashley
2004-12-01  7:49 Julie
2004-11-26 16:12 刘小姐
     [not found] <%RNDDIGIT13-%RNDUCCHAR13%RNDDIGIT13%RNDUCCHAR13%RNDLCCHAR13%RNDUCCHAR13%RNDLCCHAR13%RNDUCCHAR13%RNDDIGIT13%RNDUCCHAR13%RNDDIGIT15%RNDLCCHAR12%RNDDIGIT13@>
2004-11-22 21:22 ` New antidote found
2004-11-19 12:34 Ashley
2004-11-19  9:18 Brian
2004-10-21  9:15 Ginger Hogan
2004-10-20  0:36 New BizOpportunity Alerts
2004-10-18 17:40 New BizOpportunity Alerts
2004-10-15 16:06 Laura Donahue
2004-10-14 19:23 Mary Elliott
2004-10-09 13:36 Liza Fitch
2004-10-03 18:39 Nathan Scott
2004-10-03 12:55 bug-guile
2004-10-03 12:35 bug-guile
2004-10-03 12:19 Jesse Thompson
2004-10-03  5:27 garrett d. elliott
2004-10-02 13:16 Isabella Jordan
2004-09-14  2:03 Aracelis
2004-08-10  3:28 Larry.jones
2004-07-16  9:24 深圳群力科技
2004-07-14  5:35 深圳群力科技
2004-07-13 18:05 xwobpytof
2004-06-10  2:42 dginfo4
2004-05-31  9:34 微软双认证技术支持中心
2004-05-29 23:37 qjclove2
2004-05-19  1:14 adams
2004-04-25 11:09 Andreas Vögele
2004-04-25  9:56 Hyperdivision
2004-04-27 22:15 ` Kevin Ryde
2003-11-02  9:36 Koppány Gordos
2002-07-25  4:14 Free Concert Tickets!
2002-07-02 22:27 Fairhand
2002-06-20  8:09 (No Subject) moses mabuza
2002-06-18 22:32 (no subject) SANDRA SAVIMBI
2002-04-21  5:34 bug-guile-admin

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=40893811.mailNWN1WP2KH@localhost \
    --to=hyperdivision@sleepynyago.dyndns.org \
    /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).