mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

Make things compile neatly under Sun's C compiler.

Browse source 
* 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.
This commit is contained in:
Jim Blandy 1997-06-21 05:53:39 +00:00
parent e3173f937c
commit cdbadcacc1
9 changed files with 11 additions and 800 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/genio.c
View file

@ -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");