summaryrefslogtreecommitdiff
path: root/libguile/genio.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1997-06-21 05:53:39 +0000
committerJim Blandy <jimb@red-bean.com>1997-06-21 05:53:39 +0000
commitcdbadcacc18fbe6fb74263171796a9d0700deb5c (patch)
tree3fd6f93852c31de2d395946c2bd7534523deadf0 /libguile/genio.c
parente3173f937c5ccd113bc22741ddde029908cc4dce (diff)
downloadguile-cdbadcacc18fbe6fb74263171796a9d0700deb5c.tar.gz
Make things compile neatly under Sun's C compiler.
* dynl.c (scm_dynamic_func): Cast return value from sysdep_dynl_func. * extchrs.c (xmbtowc): Make the second arg a normal char, not unsigned, because that's what the ANSI function takes. * extchrs.h (xmbtowc): Corresponding change to prototype. * genio.c (scm_gen_getc): Make buf plain chars. Nobody wants uchars here. * mbstrings.c (scm_mb_ilength): Use ANSI arg syntax. Make DATA argument plain char *. * strings.c (scm_string): Use SCM_ROCHARS, since c is a plain char. * tag.c (scm_tag): Remove unreachable statement. * unif.c (scm_array_to_list): If we want to shift a 1 bit to the top of the word, it should be unsigned.
Diffstat (limited to 'libguile/genio.c')
-rw-r--r--libguile/genio.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/genio.c b/libguile/genio.c
index 61a2d9f23..a29e02378 100644
--- a/libguile/genio.c
+++ b/libguile/genio.c
@@ -204,7 +204,8 @@ scm_gen_puts (rep, str_data, port)
while (size)
{
len = xmbtowc (&output, str_data, size);
- SCM_ASSERT ((len > 0), SCM_MAKINUM (*str_data), "bogus character", "scm_gen_puts");
+ SCM_ASSERT ((len > 0), SCM_MAKINUM (*str_data),
+ "bogus character", "scm_gen_puts");
scm_putc ((output >> 8) & 0xff, port);
scm_putc (output & 0xff, port);
size -= len;
@@ -437,7 +438,7 @@ scm_gen_getc (port)
case scm_mb_port:
{
int x;
- unsigned char buf[256];
+ char buf[256];
SCM_ASSERT (XMB_CUR_MAX < sizeof (buf), SCM_BOOL_F,
"huge translation", "scm_gen_puts");