Author: yamakenz
Date: Wed Aug 8 19:57:18 2007
New Revision: 4809
Modified:
sigscheme-trunk/QALog
sigscheme-trunk/TODO
sigscheme-trunk/src/storage-gc.c
sigscheme-trunk/test-c/sscm-test.h
sigscheme-trunk/test-c/test-minishell.c
Log:
* src/storage-gc.c
- (scm_gc_protectedp): Make storage-compact case efficient
* test-c/sscm-test.h
- (main): Follow the argument addition of scm_initialize()
* test-c/test-minishell.c
- (main): Ditto
* QALog
* TODO
- Update
Modified: sigscheme-trunk/QALog
==============================================================================
--- sigscheme-trunk/QALog (original)
+++ sigscheme-trunk/QALog Wed Aug 8 19:57:18 2007
@@ -542,7 +542,7 @@
file: storage-common.h
category: core
-spec by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]
+spec by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED]
spec by tests:
general review: [EMAIL PROTECTED]
64-bit by eyes: [EMAIL PROTECTED]
@@ -553,7 +553,7 @@
file: storage-fatty.h
category: core
-spec by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]
+spec by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED]
spec by tests:
general review: [EMAIL PROTECTED]
64-bit by eyes: [EMAIL PROTECTED]
@@ -564,18 +564,18 @@
file: storage-compact.h
category: core
-spec by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]
+spec by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED]
spec by tests:
general review: [EMAIL PROTECTED]
64-bit by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED]
64-bit by tests:
coding style: [EMAIL PROTECTED]
-normal case tests: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]
+normal case tests: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED]
corner case tests:
file: storage.c
category: core
-spec by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED]
+spec by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED]
spec by tests:
general review: [EMAIL PROTECTED]
64-bit by eyes: [EMAIL PROTECTED]
@@ -586,7 +586,7 @@
file: storage-gc.c
category: core
-spec by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED]
+spec by eyes: [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED], [EMAIL PROTECTED]
spec by tests:
general review: [EMAIL PROTECTED]
64-bit by eyes: [EMAIL PROTECTED]
@@ -1093,6 +1093,14 @@
Log
---
+2007-08-09 YamaKen <yamaken AT bp.iij4u.or.jp>
+ * storage-gc.c
+ * storage-compact.h
+ * storage-fatty.h
+ * storage-common.h
+ * storage.c
+ - QA done again @r4809 for GC around freecell and scm_gc_protectedp()
+
2007-08-07 YamaKen <yamaken AT bp.iij4u.or.jp>
* write.c
- Fix misinitialized hash table and QA done again @r4800 for hash
Modified: sigscheme-trunk/TODO
==============================================================================
--- sigscheme-trunk/TODO (original)
+++ sigscheme-trunk/TODO Wed Aug 8 19:57:18 2007
@@ -50,6 +50,8 @@
==============================================================================
Performance improvements:
+* %%identity-hash, %%string-hash, %%symbol-hash, %%string-ci-hash for SRFI-69
+
* (not required for now) Introduce SCM_QNULL for (quote ()) to reduce cons cell
consumption, and support shortcuts for it in read.c and eval.c
Modified: sigscheme-trunk/src/storage-gc.c
==============================================================================
--- sigscheme-trunk/src/storage-gc.c (original)
+++ sigscheme-trunk/src/storage-gc.c Wed Aug 8 19:57:18 2007
@@ -42,7 +42,7 @@
* - gc_mark_locations()
* marks Scheme objects that held in the registers.
*
- * - gc_mark_locations()
+ * - gc_mark_locations_n()
* marks Scheme objects that located on the stack.
*
* - gc_mark_protected_var()
@@ -333,7 +333,13 @@
ScmObj **slot;
/* constants or objects referred from registers or stack */
- if (SCM_CONSTANTP(obj) || GCROOTS_is_protected(l_gcroots_ctx, (void *)obj))
+ if (
+#if SCM_USE_STORAGE_COMPACT
+ SCM_IMMP(obj)
+#else
+ SCM_CONSTANTP(obj)
+#endif
+ || GCROOTS_is_protected(l_gcroots_ctx, (void *)obj))
return scm_true;
/* referred from static variables */
Modified: sigscheme-trunk/test-c/sscm-test.h
==============================================================================
--- sigscheme-trunk/test-c/sscm-test.h (original)
+++ sigscheme-trunk/test-c/sscm-test.h Wed Aug 8 19:57:18 2007
@@ -244,7 +244,7 @@
main(int argc, char *argv[]) \
{ \
tst_suite_info suite = TST_DEFAULT_SUITE_SETUP; \
- scm_initialize(NULL); \
+ scm_initialize(NULL, NULL); \
tst_main(&suite); \
scm_finalize(); \
TST_DEFAULT_SUITE_CLEANUP(suite); \
Modified: sigscheme-trunk/test-c/test-minishell.c
==============================================================================
--- sigscheme-trunk/test-c/test-minishell.c (original)
+++ sigscheme-trunk/test-c/test-minishell.c Wed Aug 8 19:57:18 2007
@@ -41,7 +41,7 @@
main ()
{
ScmObj sexp;
- scm_initialize(NULL);
+ scm_initialize(NULL, NULL);
for (;;) {
ScmObj in = scm_p_current_input_port();
ScmObj out = scm_p_current_output_port();
