[uim-commit] r1569 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-24 06:43:32 -0700 (Sat, 24 Sep 2005)
New Revision: 1569

Modified:
   branches/r5rs/sigscheme/sigscheme.h
   branches/r5rs/sigscheme/storage-protection.c
Log:
* sigscheme/sigscheme.h
  - (scm_gc_protect_stack): Fix return type
* sigscheme/storage-protection.c
  - (scm_gc_protect_stack): Ditto


Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-09-24 13:10:53 UTC (rev 1568)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-09-24 13:43:32 UTC (rev 1569)
@@ -160,7 +160,7 @@
  * For ensuring that these function calls be uninlined. Dont' access these
  * variables directly.
  */
-extern ScmObj (*scm_gc_protect_stack)(ScmObj *);
+extern ScmObj *(*scm_gc_protect_stack)(ScmObj *);
 extern ScmCFunc (*scm_gc_ensure_uninlined_func)(ScmCFunc);
 #endif /* SCM_GCC4_READY_GC */
 

Modified: branches/r5rs/sigscheme/storage-protection.c
===================================================================
--- branches/r5rs/sigscheme/storage-protection.c	2005-09-24 13:10:53 UTC (rev 1568)
+++ branches/r5rs/sigscheme/storage-protection.c	2005-09-24 13:43:32 UTC (rev 1569)
@@ -222,7 +222,7 @@
  * libsscm. Therefore, be avoid making the variables static by combining
  * libsscm into other codes which enables function inlining for them.
  */
-ScmObj (*scm_gc_protect_stack)(ScmObj *) = &SigScm_GC_ProtectStackInternal;
+ScmObj *(*scm_gc_protect_stack)(ScmObj *) = &SigScm_GC_ProtectStackInternal;
 ScmCFunc (*scm_gc_ensure_uninlined_func)(ScmCFunc) = &SigScm_GC_EnsureUninlinedFuncInternal;
 #endif /* SCM_GCC4_READY_GC */