Parent Directory | Revision Log | Patch
revision 1.24 by ossau, Sun Nov 11 15:01:52 2001 UTC | revision 1.25 by mvo, Mon Feb 11 18:09:15 2002 UTC | |
---|---|---|
# | Line 99 make_char_set (const char * func_name) | Line 99 make_char_set (const char * func_name) |
99 | { | { |
100 | long * p; | long * p; |
101 | ||
102 | p = scm_must_malloc (BYTES_PER_CHARSET, func_name); | p = scm_gc_malloc (BYTES_PER_CHARSET, "character-set"); |
103 | memset (p, 0, BYTES_PER_CHARSET); | memset (p, 0, BYTES_PER_CHARSET); |
104 | SCM_RETURN_NEWSMOB (scm_tc16_charset, p); | SCM_RETURN_NEWSMOB (scm_tc16_charset, p); |
105 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |