Changeset 16134 in project


Ignore:
Timestamp:
10/06/09 07:06:56 (10 years ago)
Author:
Kon Lovett
Message:

Test for /synch variants

Location:
release/4/lookup-table/trunk
Files:
2 added
4 edited

Legend:

Unmodified
Added
Removed
  • release/4/lookup-table/trunk/lookup-table-synch.scm

    r16029 r16134  
    66(module lookup-table-synch (;export
    77  make-dict/synch
     8  dict?/synch
    89  alist->dict/synch
    910  dict->alist/synch
     
    3334
    3435(define-constructor/synch make-dict dict/synch:)
     36
    3537(define-predicate/synch dict?)
     38
    3639(define-operation/synch alist->dict)
    3740(define-operation/synch dict->alist)
  • release/4/lookup-table/trunk/lookup-table-unsafe-synch.scm

    r16029 r16134  
    55
    66(module lookup-table-unsafe-synch (;export
    7   make-dict/%synch
     7  make-dict/synch
     8  dict?/synch
    89  alist->dict/%synch
    910  dict->alist/%synch
     
    3031  (require-library lookup-table-unsafe synch)
    3132
    32 ;;; Synchronized Dictionary
     33;;; UnSafe Synchronized UnSafe Dictionary
    3334
    3435
    35 (define-constructor/%synch make-dict dict/%synch:)
    36 (define-predicate/%synch dict?)
     36(define-constructor/synch make-dict dict/%synch:)
     37
     38(define-predicate/synch dict?)
     39
    3740(define-operation/%synch alist->dict)
    3841(define-operation/%synch dict->alist)
  • release/4/lookup-table/trunk/lookup-table.setup

    r16029 r16134  
    77(required-extension-version
    88  "synch"                      "2.1.0"
    9   "check-errors"                "1.5.0")
     9  "check-errors"               "1.5.0")
    1010
    1111;; MAGIC-LIMIT - Element count when hash-table faster (YMMV)
     
    2727  #:compile-options (append opts '(-debug-level 1)))
    2828
    29 #; ;BAD IDEA
    3029(setup-shared-extension-module 'lookup-table-unsafe-synch (extension-version "1.11.0")
    3130  #:compile-options (append opts '(-debug-level 0 -no-bound-checks -no-argc-checks)))
  • release/4/lookup-table/trunk/tests/run.scm

    r15950 r16134  
    22
    33(system "csc unsafe.scm") (system "./unsafe")
     4
     5(system "csc safe-synch.scm") (system "./safe-synch")
     6
     7(system "csc unsafe-synch.scm") (system "./unsafe-synch")
Note: See TracChangeset for help on using the changeset viewer.