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

Fixed some SCM/scm_bits_t mixups.

Browse source
This commit is contained in:
Dirk Herrmann 2000-04-18 14:12:07 +00:00
parent 9d0633a8a6
commit fee7ef83a3
10 changed files with 83 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/strings.c
View file

@ -117,18 +117,19 @@ SCM
scm_makstr (long len, int slots)
{
SCM s;
SCM * mem;
scm_bits_t * mem;
SCM_NEWCELL (s);
--slots;
SCM_REDEFER_INTS;
mem = (SCM *)scm_must_malloc (sizeof (SCM) * (slots + 1) + len + 1,
"scm_makstr");
mem = (scm_bits_t *) scm_must_malloc (sizeof (scm_bits_t) * (slots + 1)
+ len + 1, "scm_makstr");
if (slots >= 0)
{
int x;
mem[slots] = (SCM)mem;
mem[slots] = (scm_bits_t) mem;
for (x = 0; x < slots; ++x)
mem[x] = SCM_BOOL_F;
mem[x] = SCM_UNPACK (SCM_BOOL_F);
}
SCM_SETCHARS (s, (char *) (mem + slots + 1));
SCM_SETLENGTH (s, len, scm_tc7_string);