Changeset 12838 in project


Ignore:
Timestamp:
12/17/08 09:43:11 (11 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:
1 deleted
8 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r12825 r12838  
    218218*** syntax-rules-stress-test
    219219*** fully compiled ec-tests
     220** 3-stage bootstrap with compiler-output comparison
     221** install numbers egg into temporary repo and run tests
    220222
    221223
  • chicken/trunk/compiler.import.scm

    r12819 r12838  
    2525
    2626
    27 (if (and (not (memq #:compiling ##sys#features))
    28          (not (memq #:chicken-install ##sys#features)))
    29     (error 'import "`compiler' module only available in compiled code"))
    30 
    3127(##sys#register-primitive-module
    3228 'compiler
  • chicken/trunk/foreign.import.scm

    r12819 r12838  
    2525
    2626
    27 (if (and (not (memq #:compiling ##sys#features))
    28          (not (memq #:chicken-install ##sys#features)))
    29     (error 'import "`foreign' module only available in compiled code"))
    30 
    3127(##sys#register-primitive-module
    3228 'foreign
  • chicken/trunk/manual/Extensions

    r12247 r12838  
    450450; {{-password PASS}} : set password for transports that require this
    451451; {{-i   -init DIRECTORY}} : initialize empty alternative repository
    452 
    453 
    454 === chicken-uninstall references
     452; {{-u   -update-db}} : update export database
     453; {{-r   -repository DIRECTORY}} : specify alternative extension repository
     454
     455
     456=== chicken-uninstall reference
    455457
    456458; {{-h   -help}} : show usage information and exit
     
    458460; {{-force}} : don't ask, delete whatever matches
    459461; {{-s   -sudo}} : use {{sudo(1)}} for deleting files
    460 
    461 
    462 === chicken-status references
     462; {{-r   -repository DIRECTORY}} : specify alternative extension repository
     463
     464
     465=== chicken-status reference
    463466
    464467; {{-h   -help}} : show usage information and exit
    465468; {{-v   -version}} : show version and exit
    466469; {{-f   -files}} : list installed files
     470; {{-r   -repository DIRECTORY}} : specify alternative extension repository
    467471
    468472
  • chicken/trunk/runtime.c

    r12830 r12838  
    27022702    for(msp = collectibles; msp < collectibles_top; ++msp)
    27032703      if(*msp != NULL) mark(*msp);
    2704    
     2704
     2705    /* mark GC roots: */
    27052706    for(gcrp = gc_root_list; gcrp != NULL; gcrp = gcrp->next)
    27062707      mark(&gcrp->value);
     
    27802781        j = fcount = 0;
    27812782
     2783        for(flist = finalizer_list; flist != NULL; flist = flist->next)
     2784          mark(&flist->finalizer);
     2785
    27822786        for(flist = finalizer_list; flist != NULL; flist = flist->next) {
    27832787          if(j < C_max_pending_finalizers) {
     
    27872791
    27882792          mark(&flist->item);
    2789           mark(&flist->finalizer);
    27902793        }
    27912794      }
  • chicken/trunk/setup-api.scm

    r12789 r12838  
    758758    (let loop ()
    759759      (let* ((n (##sys#fudge 16))       ; current milliseconds
    760              (pn (make-pathname dir (string-append "setup-" (number->string n 16)) "tmp")))
     760             (pn (make-pathname dir (string-append "chicken-install-" (number->string n 16)) "tmp")))
    761761        (cond ((file-exists? pn) (loop))
    762762              (else (create-directory pn) pn))))))
  • chicken/trunk/tests/runtests.sh

    r12559 r12838  
    7171# $compile ec-tests.scm && ./a.out        # takes ages to compile
    7272
    73 echo "======================================== module tests (II) ..."
    74 $interpret -bnq module-tests-2.scm
    75 $compile module-tests-2.scm && ./a.out
    76 
    7773echo "======================================== hash-table tests ..."
    7874$interpret -s hash-table-tests.scm
     
    9490  -i -s r4rstest.scm >r4rstest.log
    9591diff -u r4rstest.out r4rstest.log
     92
     93echo "======================================== finalizer tests ..."
     94$interpret -s test-finalizers.scm
    9695
    9796echo "======================================== locative stress test ..."
  • chicken/trunk/tests/test-finalizers.scm

    r12830 r12838  
    2222  #t)
    2323(gc #t)
     24(assert (not x-f))
     25(assert (not y-f))
    2426(set! x #f)
    2527(gc #t)
    26 (assert (not x-f))
     28(assert x-f)
    2729(assert (not y-f))
    2830(set! y #f)
Note: See TracChangeset for help on using the changeset viewer.