Author: yamakenz Date: Sat Aug 11 08:49:31 2007 New Revision: 4827 Modified: trunk/uim/uim-scm.c
Log: * uim/uim-scm.c - (uim_scm_error): Suppress warning - (uim_scm_c_str, uim_scm_c_symbol): Replace strdup() with scm_strdup() Modified: trunk/uim/uim-scm.c ============================================================================== --- trunk/uim/uim-scm.c (original) +++ trunk/uim/uim-scm.c Sat Aug 11 08:49:31 2007 @@ -133,7 +133,7 @@ assert(uim_scm_gc_any_contextp()); assert(msg); - uim_scm_call_with_gc_ready_stack((uim_gc_gate_func_ptr)uim_scm_error_internal, msg); + uim_scm_call_with_gc_ready_stack((uim_gc_gate_func_ptr)uim_scm_error_internal, (char *)msg); } static void * @@ -239,7 +239,7 @@ c_str = uim_scm_refer_c_str(str); - return (c_str) ? strdup(c_str) : NULL; + return (c_str) ? scm_strdup(c_str) : NULL; } const char * @@ -308,7 +308,7 @@ assert(uim_scm_gc_any_contextp()); assert(uim_scm_gc_protectedp(symbol)); - return strdup((char *)SCM_SYMBOL_NAME((ScmObj)symbol)); + return scm_strdup((char *)SCM_SYMBOL_NAME((ScmObj)symbol)); } uim_lisp
