/[guile]/guile/guile-core/libguile/strings.c
ViewVC logotype

Diff of /guile/guile-core/libguile/strings.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.71 by mvo, Mon Feb 11 18:06:49 2002 UTC revision 1.72 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 132  scm_take_str (char *s, size_t len) Line 132  scm_take_str (char *s, size_t len)
132    
133    SCM_ASSERT_RANGE (2, scm_ulong2num (len), len <= SCM_STRING_MAX_LENGTH);    SCM_ASSERT_RANGE (2, scm_ulong2num (len), len <= SCM_STRING_MAX_LENGTH);
134    
135    answer = scm_alloc_cell (SCM_MAKE_STRING_TAG (len), (scm_t_bits) s);    answer = scm_cell (SCM_MAKE_STRING_TAG (len), (scm_t_bits) s);
136    scm_gc_register_collectable_memory (s, len+1, "string");    scm_gc_register_collectable_memory (s, len+1, "string");
137    
138    return answer;    return answer;
# Line 194  scm_allocate_string (size_t len) Line 194  scm_allocate_string (size_t len)
194    mem = (char *) scm_gc_malloc (len + 1, "string");    mem = (char *) scm_gc_malloc (len + 1, "string");
195    mem[len] = 0;    mem[len] = 0;
196    
197    s = scm_alloc_cell (SCM_MAKE_STRING_TAG (len), (scm_t_bits) mem);    s = scm_cell (SCM_MAKE_STRING_TAG (len), (scm_t_bits) mem);
198    
199    return s;    return s;
200  }  }

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26