/[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.70 by ela, Mon Jan 28 21:15:55 2002 UTC revision 1.71 by mvo, Mon Feb 11 18:06:49 2002 UTC
# Line 133  scm_take_str (char *s, size_t len) Line 133  scm_take_str (char *s, size_t len)
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_alloc_cell (SCM_MAKE_STRING_TAG (len), (scm_t_bits) s);
136    scm_done_malloc (len + 1);    scm_gc_register_collectable_memory (s, len+1, "string");
137    
138    return answer;    return answer;
139  }  }
# Line 191  scm_allocate_string (size_t len) Line 191  scm_allocate_string (size_t len)
191    
192    SCM_ASSERT_RANGE (1, scm_long2num (len), len <= SCM_STRING_MAX_LENGTH);    SCM_ASSERT_RANGE (1, scm_long2num (len), len <= SCM_STRING_MAX_LENGTH);
193    
194    mem = (char *) scm_must_malloc (len + 1, FUNC_NAME);    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_alloc_cell (SCM_MAKE_STRING_TAG (len), (scm_t_bits) mem);

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

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