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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-26 13:22:04 -0700 (Wed, 26 Oct 2005)
New Revision: 1887

Modified:
   branches/r5rs/sigscheme/storage-protection.c
Log:
* sigscheme/storage-protection.c
  - Add a comment about file removal
  - (scm_gc_protect_stack, scm_gc_ensure_uninlined_func,
    SigScm_GC_ProtectStackInternal, SigScm_GC_UnprotectStack,
    SigScm_GC_EnsureUninlinedFuncInternal): Removed


Modified: branches/r5rs/sigscheme/storage-protection.c
===================================================================
--- branches/r5rs/sigscheme/storage-protection.c	2005-10-26 20:06:09 UTC (rev 1886)
+++ branches/r5rs/sigscheme/storage-protection.c	2005-10-26 20:22:04 UTC (rev 1887)
@@ -32,6 +32,8 @@
  *  ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  *  =========================================================================*/
 
+/* This file will be removed soon */
+
 /* CAUTION: following description is obsoleted. It will be rewritten soon. */
 
 /*
@@ -212,19 +214,6 @@
 /*=======================================
   Variable Declarations
 =======================================*/
-#if SCM_GCC4_READY_GC
-/*
- * For ensuring that these function calls be uninlined. Don't access these
- * variables directly.
- *
- * Exporting the variables ensures that a expression (*f)() is certainly real
- * function call since the variables can be updated from outside of
- * 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;
-ScmCFunc (*scm_gc_ensure_uninlined_func)(ScmCFunc) = &SigScm_GC_EnsureUninlinedFuncInternal;
-#endif /* SCM_GCC4_READY_GC */
 
 /*=======================================
   File Local Function Declarations
@@ -237,33 +226,3 @@
 /*=======================================
   Function Implementations
 =======================================*/
-#if SCM_GCC4_READY_GC
-ScmObj *SigScm_GC_ProtectStackInternal(ScmObj *designated_stack_start)
-{
-    /*
-     * &stack_start will be relocated to start of the frame of subsequent
-     * function call
-     */
-    ScmObj stack_start;
-
-    if (!designated_stack_start)
-        designated_stack_start = &stack_start;
-
-    if (!scm_stack_start_pointer)
-        scm_stack_start_pointer = designated_stack_start;
-
-    /* may intentionally be an invalidated local address */
-    return designated_stack_start;
-}
-
-void SigScm_GC_UnprotectStack(ScmObj *stack_start)
-{
-    if (scm_stack_start_pointer == stack_start)
-        scm_stack_start_pointer = NULL;
-}
-
-ScmCFunc SigScm_GC_EnsureUninlinedFuncInternal(ScmCFunc func)
-{
-    return func;
-}
-#endif /* SCM_GCC4_READY_GC */