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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-24 04:31:14 -0700 (Sat, 24 Sep 2005)
New Revision: 1564

Modified:
   branches/r5rs/uim/uim-scm-gc.c
   branches/r5rs/uim/uim-scm.h
Log:
* uim/uim-scm-gc.c
* uim/uim-scm.h
  - Port r1562-1563 from trunk


Modified: branches/r5rs/uim/uim-scm-gc.c
===================================================================
--- branches/r5rs/uim/uim-scm-gc.c	2005-09-24 11:27:49 UTC (rev 1563)
+++ branches/r5rs/uim/uim-scm-gc.c	2005-09-24 11:31:14 UTC (rev 1564)
@@ -50,6 +50,10 @@
 uim_lisp *
 uim_scm_gc_protect_stack(void)
 {
+  /*
+   * &stack_start will be relocated to start of the frame of subsequent
+   * function call
+   */
   ScmObj stack_start;
 
   return (uim_lisp *)SigScm_GC_ProtectStack(&stack_start);

Modified: branches/r5rs/uim/uim-scm.h
===================================================================
--- branches/r5rs/uim/uim-scm.h	2005-09-24 11:27:49 UTC (rev 1563)
+++ branches/r5rs/uim/uim-scm.h	2005-09-24 11:31:14 UTC (rev 1564)
@@ -134,11 +134,11 @@
 void
 uim_scm_gc_protect(uim_lisp *location);
 uim_lisp *
-uim_scm_gc_protect_stack(void);
+uim_scm_gc_protect_stack(void) UIM_SCM_NOINLINE;
 void
 uim_scm_gc_unprotect_stack(uim_lisp *stack_start);
 uim_func_ptr
-uim_scm_gc_ensure_uninlined_func(uim_func_ptr func);
+uim_scm_gc_ensure_uninlined_func(uim_func_ptr func) UIM_SCM_NOINLINE;
 #else /* UIM_SCM_GCC4_READY_GC */
 void
 uim_scm_gc_protect(uim_lisp *location);