[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[SCM] GNU Mailutils branch, master, updated. rel-2_1-54-g42f9e9d
From: |
Sergey Poznyakoff |
Subject: |
[SCM] GNU Mailutils branch, master, updated. rel-2_1-54-g42f9e9d |
Date: |
Thu, 01 Apr 2010 13:39:15 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Mailutils".
http://git.savannah.gnu.org/cgit/mailutils.git/commit/?id=42f9e9d0e3c73059048934e385074d78a023e6e4
The branch, master has been updated
via 42f9e9d0e3c73059048934e385074d78a023e6e4 (commit)
from 43a43a758881ae1294b73696175bc066e9257aa2 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 42f9e9d0e3c73059048934e385074d78a023e6e4
Author: Sergey Poznyakoff <address@hidden>
Date: Thu Apr 1 16:37:28 2010 +0300
Fix the use of deprecated Guile interfaces in port code.
* am/guile.m4 (MU_CHECK_GUILE): Check for SCM_DEVAL_P et al.
* libmu_scm/mu_guile.c (mu_guile_init): Protect calls to
SCM_DEVAL_P &c. by #ifdef GUILE_DEBUG_MACROS
* libmu_scm/mu_port.c [!HAVE_SCM_T_OFF](scm_t_off): New typedef.
(mu_port_make_from_stream): Use scm_new_port_table_entry instead
of the deprecated scm_add_to_port_table
-----------------------------------------------------------------------
Summary of changes:
am/guile.m4 | 11 +++++++++++
libmu_scm/mu_guile.c | 2 ++
libmu_scm/mu_port.c | 15 ++++++++-------
3 files changed, 21 insertions(+), 7 deletions(-)
diff --git a/am/guile.m4 b/am/guile.m4
index f049037..64b5cac 100644
--- a/am/guile.m4
+++ b/am/guile.m4
@@ -63,6 +63,17 @@ AC_DEFUN([MU_CHECK_GUILE],
GUILE_VERSION_NUMBER=
m4_if($3,,[AC_MSG_ERROR(required library libguile not found)], [$3])
else
+ AC_COMPILE_IFELSE([AC_LANG_PROGRAM([[#include <libguile.h>]],
+ [SCM_DEVAL_P = 1;
+ SCM_BACKTRACE_P = 1;
+ SCM_RECORD_POSITIONS_P = 1;
+ SCM_RESET_DEBUG_MODE;])],
+ [mu_cv_guile_debug=yes],
+ [mu_cv_guile_debug=no])
+ if test $mu_cv_guile_debug = yes; then
+ AC_DEFINE_UNQUOTED(GUILE_DEBUG_MACROS, 1,
+ [Define to 1 if SCM_DEVAL_P, SCM_BACKTRACE_P,
SCM_RECORD_POSITIONS_P and SCM_RESET_DEBUG_MODE are defined])
+ fi
AC_CHECK_TYPES([scm_t_off],[],[],[#include <libguile.h>])
AC_DEFINE_UNQUOTED(GUILE_VERSION, "$GUILE_VERSION",
[Guile version number])
diff --git a/libmu_scm/mu_guile.c b/libmu_scm/mu_guile.c
index b5cd261..26dc2a7 100644
--- a/libmu_scm/mu_guile.c
+++ b/libmu_scm/mu_guile.c
@@ -109,10 +109,12 @@ mu_guile_init (int debug)
if (debug)
{
+#ifdef GUILE_DEBUG_MACROS
SCM_DEVAL_P = 1;
SCM_BACKTRACE_P = 1;
SCM_RECORD_POSITIONS_P = 1;
SCM_RESET_DEBUG_MODE;
+#endif
}
mu_scm_init ();
}
diff --git a/libmu_scm/mu_port.c b/libmu_scm/mu_port.c
index 8b2906c..6f3e452 100644
--- a/libmu_scm/mu_port.c
+++ b/libmu_scm/mu_port.c
@@ -20,6 +20,10 @@
#include "mu_scm.h"
#include <mailutils/io.h>
+#ifndef HAVE_SCM_T_OFF
+typedef off_t scm_t_off;
+#endif
+
struct mu_port
{
mu_stream_t stream; /* Associated stream */
@@ -87,16 +91,13 @@ mu_port_make_from_stream (SCM msg, mu_stream_t stream, long
mode)
mp->stream = stream;
mp->offset = 0;
- port = scm_cell (scm_tc16_smuport | mode, 0);
-
- pt = scm_add_to_port_table (port);
- SCM_SETPTAB_ENTRY (port, pt);
+ port = scm_new_port_table_entry (scm_tc16_smuport | mode);
+ pt = SCM_PTAB_ENTRY (port);
pt->rw_random = mu_stream_is_seekable (stream);
-
SCM_SETSTREAM (port, mp);
mu_port_alloc_buffer (port, 0, 0);
-
- /* SCM_PTAB_ENTRY (port)->file_name = "name";FIXME*/
+ /* FIXME:
+ SCM_PTAB_ENTRY (port)->file_name = "name";*/
return port;
}
hooks/post-receive
--
GNU Mailutils
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [SCM] GNU Mailutils branch, master, updated. rel-2_1-54-g42f9e9d,
Sergey Poznyakoff <=