Changeset 36368 in project


Ignore:
Timestamp:
08/24/18 20:13:36 (3 months ago)
Author:
kon
Message:

common type

Location:
release/5/bloom-filter/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/bloom-filter/trunk/bloom-filter.egg

    r36232 r36368  
    44((synopsis "Bloom Filter")
    55 (category data)
    6  (version "2.0.0")
     6 (version "2.0.1")
    77 (author "[[kon lovett]]")
    88 (license "BSD")
  • release/5/bloom-filter/trunk/bloom-filter.scm

    r36365 r36368  
    6666(define-type bloom-filter-hasher (* (list-of fixnum) -> (list-of fixnum)))
    6767
     68(define-type unsigned-native-integer-getter (* fixnum --> (or fixnum bignum)))
     69
    6870;;
    6971
     
    8789(cond-expand
    8890  (64bit
    89     (: unsigned-integer64-ref (* fixnum --> (or fixnum bignum)))
     91    (: unsigned-integer64-ref unsigned-native-integer-getter)
    9092    (define (unsigned-integer64-ref obj idx)
    9193      (pointer-u64-ref (pointer+ (object-data-pointer obj) idx)) ) )
    9294  (else
    93     (: unsigned-integer32-ref (* fixnum --> (or fixnum bignum)))
     95    (: unsigned-integer32-ref unsigned-native-integer-getter)
    9496    (define (unsigned-integer32-ref obj idx)
    9597      (pointer-u32-ref (pointer+ (object-data-pointer obj) idx)) ) ) )
    9698
    97 (: unsigned-native-integer-ref (* fixnum --> (or fixnum bignum)))
     99(: unsigned-native-integer-ref unsigned-native-integer-getter)
    98100;
    99101(define unsigned-native-integer-ref
Note: See TracChangeset for help on using the changeset viewer.