From 806f1ded951f92cdd3ed243daad5d97754568480 Mon Sep 17 00:00:00 2001 From: Michael Gran Date: Sat, 22 Aug 2009 06:30:34 -0700 Subject: Avoid type-punning warning in scm_gentemp Int and size_t may not have the same storage size * libguile/deprecated.c (scm_gentemp): use size_t for string length --- libguile/deprecated.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'libguile/deprecated.c') diff --git a/libguile/deprecated.c b/libguile/deprecated.c index 496bc2292..ed3a11eed 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -1075,7 +1075,8 @@ SCM_DEFINE (scm_gentemp, "gentemp", 0, 2, 0, { char buf[MAX_PREFIX_LENGTH + SCM_INTBUFLEN]; char *name = buf; - int len, n_digits; + int n_digits; + size_t len; scm_c_issue_deprecation_warning ("`gentemp' is deprecated. " "Use `gensym' instead."); @@ -1089,7 +1090,7 @@ SCM_DEFINE (scm_gentemp, "gentemp", 0, 2, 0, { SCM_VALIDATE_STRING (1, prefix); len = scm_i_string_length (prefix); - name = scm_to_locale_stringn (prefix, (size_t *)(&len)); + name = scm_to_locale_stringn (prefix, &len); name = scm_realloc (name, len + SCM_INTBUFLEN); } -- cgit v1.2.3