mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* ports.c (scm_c_read): pointer arithmetic on void pointers isn't

Browse source 
portable.

* deprecation.c (s_scm_include_deprecated_features): ANSI'fied the
docstring.
This commit is contained in:
Michael Livshin 2001-05-09 16:32:06 +00:00
parent adcd97c8bf
commit 910d1e40f9
3 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/ChangeLog
View file

@ -1,3 +1,13 @@
2001-05-09 Michael Livshin <mlivshin@bigfoot.com>
from Matthias Köppe (thanks!):
* ports.c (scm_c_read): pointer arithmetic on void pointers isn't
portable.
* deprecation.c (s_scm_include_deprecated_features): ANSI'fied the
docstring.
2001-04-21 Dirk Herrmann <D.Herrmann@tu-bs.de> 2001-04-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.c (scm_init_gc): Added FIXME comment. * gc.c (scm_init_gc): Added FIXME comment.

4
libguile/deprecation.c
View file

@ -116,8 +116,8 @@ print_deprecation_summary (void)
SCM_DEFINE(scm_include_deprecated_features, SCM_DEFINE(scm_include_deprecated_features,
"include-deprecated-features", 0, 0, 0, "include-deprecated-features", 0, 0, 0,
(), (),
"Return @code{#t} iff deprecated features should be included "Return @code{#t} iff deprecated features should be included\n"
in public interfaces.") "in public interfaces.")
#define FUNC_NAME s_scm_include_deprecated_features #define FUNC_NAME s_scm_include_deprecated_features
{ {
#if SCM_DEBUG_DEPRECATED == 0 #if SCM_DEBUG_DEPRECATED == 0

2
libguile/ports.c
View file

@ -1027,7 +1027,7 @@ scm_c_read (SCM port, void *buffer, scm_sizet size)
while (n_available < size) while (n_available < size)
{ {
memcpy (buffer, pt->read_pos, n_available); memcpy (buffer, pt->read_pos, n_available);
buffer += n_available; buffer = (char *) buffer + n_available;
pt->read_pos += n_available; pt->read_pos += n_available;
n_read += n_available; n_read += n_available;