mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* unif.c (scm_uniform_vector_ref, scm_cvref, scm_array_set_x,

Browse source 
rapr1): Use SCM_UCHARS instead of SCM_CHARS for strings.  (Thanks
to Ole Myren Röhne.)
This commit is contained in:
Mikael Djurfeldt 1998-04-12 23:36:54 +00:00
parent 360fc44c98
commit fc1d67c47b
2 changed files with 19 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/ChangeLog
View file

@ -1,3 +1,17 @@
1998-04-13 Mikael Djurfeldt <mdj@kenneth>
* ports.c (scm_port_line, scm_set_port_line_x, scm_port_column,
scm_set_port_column_x, scm_port_filename,
scm_set_port_filename_x): Removed optional arguments. Added
proper argument checking.
* eval.c, eval.h, coop.c (scm_eval_stack, SCM_EVAL_STACK): Measure
stack size in machine words.
* unif.c (scm_uniform_vector_ref, scm_cvref, scm_array_set_x,
rapr1): Use SCM_UCHARS instead of SCM_CHARS for strings. (Thanks
to Ole Myren Röhne.)
1998-04-12 Mikael Djurfeldt <mdj@kenneth> 1998-04-12 Mikael Djurfeldt <mdj@kenneth>
* socket.c: Check for HAVE_UNIX_DOMAIN_SOCKETS instead of * socket.c: Check for HAVE_UNIX_DOMAIN_SOCKETS instead of

10
libguile/unif.c
View file

@ -1113,7 +1113,7 @@ scm_uniform_vector_ref (v, args)
else else
return SCM_BOOL_F; return SCM_BOOL_F;
case scm_tc7_string: case scm_tc7_string:
return SCM_MAKICHR (SCM_CHARS (v)[pos]); return SCM_MAKICHR (SCM_UCHARS (v)[pos]);
case scm_tc7_byvect: case scm_tc7_byvect:
return SCM_MAKINUM (((char *)SCM_CHARS (v))[pos]); return SCM_MAKINUM (((char *)SCM_CHARS (v))[pos]);
# ifdef SCM_INUMS_ONLY # ifdef SCM_INUMS_ONLY
@ -1171,7 +1171,7 @@ scm_cvref (v, pos, last)
else else
return SCM_BOOL_F; return SCM_BOOL_F;
case scm_tc7_string: case scm_tc7_string:
return SCM_MAKICHR (SCM_CHARS (v)[pos]); return SCM_MAKICHR (SCM_UCHARS (v)[pos]);
case scm_tc7_byvect: case scm_tc7_byvect:
return SCM_MAKINUM (((char *)SCM_CHARS (v))[pos]); return SCM_MAKINUM (((char *)SCM_CHARS (v))[pos]);
# ifdef SCM_INUMS_ONLY # ifdef SCM_INUMS_ONLY
@ -1294,7 +1294,7 @@ scm_array_set_x (v, obj, args)
break; break;
case scm_tc7_string: case scm_tc7_string:
SCM_ASRTGO (SCM_ICHRP (obj), badobj); SCM_ASRTGO (SCM_ICHRP (obj), badobj);
SCM_CHARS (v)[pos] = SCM_ICHR (obj); SCM_UCHARS (v)[pos] = SCM_ICHR (obj);
break; break;
case scm_tc7_byvect: case scm_tc7_byvect:
if (SCM_ICHRP (obj)) if (SCM_ICHRP (obj))
@ -2277,12 +2277,12 @@ tail:
break; break;
case scm_tc7_string: case scm_tc7_string:
if (n-- > 0) if (n-- > 0)
scm_iprin1 (SCM_MAKICHR (SCM_CHARS (ra)[j]), port, pstate); scm_iprin1 (SCM_MAKICHR (SCM_UCHARS (ra)[j]), port, pstate);
if (SCM_WRITINGP (pstate)) if (SCM_WRITINGP (pstate))
for (j += inc; n-- > 0; j += inc) for (j += inc; n-- > 0; j += inc)
{ {
scm_putc (' ', port); scm_putc (' ', port);
scm_iprin1 (SCM_MAKICHR (SCM_CHARS (ra)[j]), port, pstate); scm_iprin1 (SCM_MAKICHR (SCM_UCHARS (ra)[j]), port, pstate);
} }
else else
for (j += inc; n-- > 0; j += inc) for (j += inc; n-- > 0; j += inc)