[uim-commit] r1566 - branches/r5rs/uim

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-24 04:52:21 -0700 (Sat, 24 Sep 2005)
New Revision: 1566

Modified:
   branches/r5rs/uim/uim-compat-scm.c
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c
  - (uim_scm_init_subr_0, uim_scm_init_subr_1, uim_scm_init_subr_2,
    uim_scm_init_subr_3, uim_scm_init_subr_4, uim_scm_init_subr_5):
    Add missing type-casting
* uim/uim-compat-scm.c
  - (uim_scm_init_fsubr): Ditto


Modified: branches/r5rs/uim/uim-compat-scm.c
===================================================================
--- branches/r5rs/uim/uim-compat-scm.c	2005-09-24 11:34:34 UTC (rev 1565)
+++ branches/r5rs/uim/uim-compat-scm.c	2005-09-24 11:52:21 UTC (rev 1566)
@@ -293,7 +293,7 @@
 void
 uim_scm_init_fsubr(char *name, uim_lisp (*fcn)(uim_lisp, uim_lisp))
 {
-  Scm_RegisterFuncRawList(name, fcn);
+  Scm_RegisterFuncRawList(name, (ScmFuncTypeRawList)fcn);
 }
 
 void

Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-09-24 11:34:34 UTC (rev 1565)
+++ branches/r5rs/uim/uim-scm.c	2005-09-24 11:52:21 UTC (rev 1566)
@@ -564,39 +564,39 @@
 void
 uim_scm_init_subr_0(const char *name, uim_lisp (*func)(void))
 {
-  Scm_RegisterFunc0(name, func);
+  Scm_RegisterFunc0(name, (ScmFuncType0)func);
 }
 
 void
 uim_scm_init_subr_1(const char *name, uim_lisp (*func)(uim_lisp))
 {
-  Scm_RegisterFunc1(name, func);
+  Scm_RegisterFunc1(name, (ScmFuncType1)func);
 }
 
 void
 uim_scm_init_subr_2(const char *name, uim_lisp (*func)(uim_lisp, uim_lisp))
 {
-  Scm_RegisterFunc2(name, func);
+  Scm_RegisterFunc2(name, (ScmFuncType2)func);
 }
 
 void
 uim_scm_init_subr_3(const char *name, uim_lisp (*func)(uim_lisp, uim_lisp, uim_lisp))
 {
-  Scm_RegisterFunc3(name, func);
+  Scm_RegisterFunc3(name, (ScmFuncType3)func);
 }
 
 void
 uim_scm_init_subr_4(const char *name, uim_lisp (*func)(uim_lisp, uim_lisp, uim_lisp,
 						uim_lisp))
 {
-  Scm_RegisterFunc4(name, func);
+  Scm_RegisterFunc4(name, (ScmFuncType4)func);
 }
 
 void
 uim_scm_init_subr_5(const char *name, uim_lisp (*func)(uim_lisp, uim_lisp, uim_lisp,
 						uim_lisp, uim_lisp))
 {
-  Scm_RegisterFunc5(name, func);
+  Scm_RegisterFunc5(name, (ScmFuncType5)func);
 }
 
 static void