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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-07-19 02:22:20 -0700 (Tue, 19 Jul 2005)
New Revision: 979

Modified:
   branches/r5rs/sigscheme/Makefile.am
   branches/r5rs/sigscheme/datas.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/Makefile.am 
  - change to create libsscm.la

* sigscheme/sigscheme.h
* sigscheme/sigscheme.c
  - (SigScm_gc_protect_stack, SigScm_gc_unprotect_stack)
	: new func


Modified: branches/r5rs/sigscheme/Makefile.am
===================================================================
--- branches/r5rs/sigscheme/Makefile.am	2005-07-19 08:13:51 UTC (rev 978)
+++ branches/r5rs/sigscheme/Makefile.am	2005-07-19 09:22:20 UTC (rev 979)
@@ -1,12 +1,17 @@
+lib_LTLIBRARIES  = libsscm.la
+libsscm_la_SOURCES = \
+		datas.c debug.c \
+		encoding.c error.c \
+		eval.c io.c \
+		operations.c \
+		read.c sigscheme.c  \
+		sigscheme.h sigschemetype.h
+ 
+libsscm_la_CFLAGS   = @X_CFLAGS@ -Wall
+libsscm_la_CXXFLAGS = @X_CFLAGS@ -Wall
+
 bin_PROGRAMS  = sscm
+sscm_SOURCES  = main.c
 sscm_CFLAGS   = @X_CFLAGS@ -Wall
 sscm_CXXFLAGS = @X_CFLAGS@ -Wall
-
-
-sscm_SOURCES = \
-	datas.c debug.c \
-	encoding.c error.c \
-	eval.c io.c \
-	main.c operations.c \
-	read.c sigscheme.c  \
-	sigscheme.h sigschemetype.h 
+sscm_LDADD    = libsscm.la

Modified: branches/r5rs/sigscheme/datas.c
===================================================================
--- branches/r5rs/sigscheme/datas.c	2005-07-19 08:13:51 UTC (rev 978)
+++ branches/r5rs/sigscheme/datas.c	2005-07-19 09:22:20 UTC (rev 979)
@@ -473,7 +473,18 @@
     scm_freelist = scm_new_freelist;
 }
 
+void SigScm_gc_protect_stack(ScmObj *stack_start)
+{
+    if (!stack_start_pointer)
+	stack_start_pointer = stack_start;
+}
 
+void SigScm_gc_unprotect_stack(ScmObj *stack_start)
+{
+    if (stack_start_pointer == stack_start)
+	stack_start_pointer = NULL;
+}
+
 /*===========================================================================
   Allocate Structure Functions
 ===========================================================================*/

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-07-19 08:13:51 UTC (rev 978)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-07-19 09:22:20 UTC (rev 979)
@@ -107,6 +107,8 @@
 void   SigScm_InitStorage(void);
 void   SigScm_FinalizeStorage(void);
 void   SigScm_gc_protect(ScmObj obj);
+void   SigScm_gc_protect_stack(ScmObj *stack_start);
+void   SigScm_gc_unprotect_stack(ScmObj *stack_start);
 ScmObj Scm_NewCons(ScmObj a, ScmObj b);
 ScmObj Scm_NewInt(int val);
 ScmObj Scm_NewSymbol(char *name, ScmObj v_cell);