mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +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

7
libguile/tag.c
View file

@ -175,16 +175,17 @@ scm_tag (x)
{
int tag;
tag = (SCM_TYP16 (x) >> 8) & 0xff;
return SCM_MAKINUM (SCM_INUM (SCM_CDR (scm_utag_smob_base)) | (tag << 8));
return SCM_MAKINUM (SCM_INUM (SCM_CDR (scm_utag_smob_base))
| (tag << 8));
}
case scm_tcs_cons_gloc:
/* must be a struct */
{
int tag;
tag = SCM_STRUCT_VTABLE_DATA (x)[scm_struct_i_tag];
return SCM_MAKINUM (SCM_INUM (SCM_CDR (scm_utag_struct_base)) | (tag << 8));
return SCM_MAKINUM (SCM_INUM (SCM_CDR (scm_utag_struct_base))
| (tag << 8));
}
return SCM_CDR (scm_utag_struct_base) ;
default:
if (SCM_CONSP (x))