Changeset 12838 in project for chicken/trunk

Timestamp:

12/17/08 09:43:11 (12 years ago)

Author:

felix winkelmann

Message:

removed bogus compiler-check from foreign and compiler import libs; possible fix for finalizer bug; documented -repository option for setup tools in manual

Location:

chicken/trunk

Files:

• TODO (modified) (1 diff)
• compiler.import.scm (modified) (1 diff)
• foreign.import.scm (modified) (1 diff)
• manual/Extensions (modified) (2 diffs)
• runtime.c (modified) (3 diffs)
• setup-api.scm (modified) (1 diff)
• tests/module-tests-2.scm (deleted)
• tests/runtests.sh (modified) (2 diffs)
• tests/test-finalizers.scm (modified) (1 diff)

chicken/trunk/TODO

@@ -218 +218 @@
 *** syntax-rules-stress-test
 *** fully compiled ec-tests
+** 3-stage bootstrap with compiler-output comparison
+** install numbers egg into temporary repo and run tests
 
 

chicken/trunk/compiler.import.scm

@@ -25 +25 @@
 
 
-(if (and (not (memq #:compiling ##sys#features))
-         (not (memq #:chicken-install ##sys#features)))
-    (error 'import "`compiler' module only available in compiled code"))
-
 (##sys#register-primitive-module
  'compiler

chicken/trunk/foreign.import.scm

@@ -25 +25 @@
 
 
-(if (and (not (memq #:compiling ##sys#features))
-         (not (memq #:chicken-install ##sys#features)))
-    (error 'import "`foreign' module only available in compiled code"))
-
 (##sys#register-primitive-module
  'foreign

chicken/trunk/manual/Extensions

@@ -450 +450 @@
 ; {{-password PASS}} : set password for transports that require this
 ; {{-i   -init DIRECTORY}} : initialize empty alternative repository
-
-
-=== chicken-uninstall references
+; {{-u   -update-db}} : update export database
+; {{-r   -repository DIRECTORY}} : specify alternative extension repository
+
+
+=== chicken-uninstall reference
 
 ; {{-h   -help}} : show usage information and exit
@@ -458 +460 @@
 ; {{-force}} : don't ask, delete whatever matches
 ; {{-s   -sudo}} : use {{sudo(1)}} for deleting files
-
-
-=== chicken-status references
+; {{-r   -repository DIRECTORY}} : specify alternative extension repository
+
+
+=== chicken-status reference
 
 ; {{-h   -help}} : show usage information and exit
 ; {{-v   -version}} : show version and exit
 ; {{-f   -files}} : list installed files
+; {{-r   -repository DIRECTORY}} : specify alternative extension repository
 
 

chicken/trunk/runtime.c

@@ -2702 +2702 @@
     for(msp = collectibles; msp < collectibles_top; ++msp)
       if(*msp != NULL) mark(*msp);
-    
+
+    /* mark GC roots: */
     for(gcrp = gc_root_list; gcrp != NULL; gcrp = gcrp->next)
       mark(&gcrp->value);
@@ -2780 +2781 @@
         j = fcount = 0;
 
+        for(flist = finalizer_list; flist != NULL; flist = flist->next) 
+          mark(&flist->finalizer);
+
         for(flist = finalizer_list; flist != NULL; flist = flist->next) {
           if(j < C_max_pending_finalizers) {
@@ -2787 +2791 @@
 
           mark(&flist->item);
-          mark(&flist->finalizer);
         }
       }

chicken/trunk/setup-api.scm

@@ -758 +758 @@
     (let loop ()
       (let* ((n (##sys#fudge 16))       ; current milliseconds
-             (pn (make-pathname dir (string-append "setup-" (number->string n 16)) "tmp")))
+             (pn (make-pathname dir (string-append "chicken-install-" (number->string n 16)) "tmp")))
         (cond ((file-exists? pn) (loop))
               (else (create-directory pn) pn))))))

chicken/trunk/tests/runtests.sh

@@ -71 +71 @@
 # $compile ec-tests.scm && ./a.out        # takes ages to compile
 
-echo "======================================== module tests (II) ..."
-$interpret -bnq module-tests-2.scm
-$compile module-tests-2.scm && ./a.out
-
 echo "======================================== hash-table tests ..."
 $interpret -s hash-table-tests.scm
@@ -94 +90 @@
   -i -s r4rstest.scm >r4rstest.log
 diff -u r4rstest.out r4rstest.log
+
+echo "======================================== finalizer tests ..."
+$interpret -s test-finalizers.scm
 
 echo "======================================== locative stress test ..."

chicken/trunk/tests/test-finalizers.scm

@@ -22 +22 @@
   #t)
 (gc #t)
+(assert (not x-f))
+(assert (not y-f))
 (set! x #f)
 (gc #t)
-(assert (not x-f))
+(assert x-f)
 (assert (not y-f))
 (set! y #f)