From: Ken Raeburn <raeburn@raeburn.org>
Subject: Re: built with SCM_DEBUG=1 lately?
Date: Fri, 01 Jul 2005 02:18:43 -0400 [thread overview]
Message-ID: <tx18y0r9hh8.fsf@raeburn.org> (raw)
[-- Attachment #1: Type: text/plain, Size: 464 bytes --]
The attached patch allows me to compile after configuring with
CPPFLAGS=-DSCM_DEBUG. The build still dies in the snarf phase, as I
described a few days ago.
Ken
2005-07-01 Ken Raeburn <raeburn@raeburn.org>
* eval.c (s_scm_dbg_make_iloc): Fix spelling of SCM_IFRAMEMAX and
SCM_IDISTMAX. Cast scm_to_unsigned_integer result down to
scm_t_bits.
* pairs.c (scm_error_pair_access): Use scm_from_locale_string
instead of the discouraged scm_makfrom0str.
[-- Attachment #2: guile patch for SCM_DEBUG=1 compilation --]
[-- Type: application/octet-stream, Size: 1344 bytes --]
Index: eval.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/eval.c,v
retrieving revision 1.397
diff -p -u -r1.397 eval.c
--- eval.c 6 Jun 2005 18:49:55 -0000 1.397
+++ eval.c 1 Jul 2005 06:09:59 -0000
@@ -372,8 +372,8 @@ SCM_DEFINE (scm_dbg_make_iloc, "dbg-make
"offset @var{binding} and the cdr flag @var{cdrp}.")
#define FUNC_NAME s_scm_dbg_make_iloc
{
- return SCM_MAKE_ILOC (scm_to_unsigned_integer (frame, 0, SCM_IFRAME_MAX),
- scm_to_unsigned_integer (binding, 0, SCM_IDIST_MAX),
+ return SCM_MAKE_ILOC ((scm_t_bits) scm_to_unsigned_integer (frame, 0, SCM_IFRAMEMAX),
+ (scm_t_bits) scm_to_unsigned_integer (binding, 0, SCM_IDISTMAX),
scm_is_true (cdrp));
}
#undef FUNC_NAME
Index: pairs.c
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/libguile/pairs.c,v
retrieving revision 1.37
diff -p -u -r1.37 pairs.c
--- pairs.c 23 May 2005 19:57:21 -0000 1.37
+++ pairs.c 1 Jul 2005 06:09:59 -0000
@@ -36,7 +36,7 @@
void scm_error_pair_access (SCM non_pair)
{
static unsigned int running = 0;
- SCM message = scm_makfrom0str ("Non-pair accessed with SCM_C[AD]R: `~S´\n");
+ SCM message = scm_from_locale_string ("Non-pair accessed with SCM_C[AD]R: `~S´\n");
if (!running)
{
[-- Attachment #3: Type: text/plain, Size: 143 bytes --]
_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel
next reply other threads:[~2005-07-01 6:18 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-07-01 6:18 Ken Raeburn [this message]
2005-07-11 23:55 ` built with SCM_DEBUG=1 lately? Kevin Ryde
-- strict thread matches above, loose matches on Subject: below --
2005-07-01 6:44 Ken Raeburn
2005-07-12 0:53 ` Kevin Ryde
2005-06-24 2:50 Ken Raeburn
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=tx18y0r9hh8.fsf@raeburn.org \
--to=raeburn@raeburn.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).