if(av_len(key_av) + 1 != 4)
croak("Key for highway_hash must be a 4-element array");
for(i = 0 ; i < 4 ; i++) {
- elt = *av_fetch(key_av, i, false);
+ elt = *av_fetch(key_av, i, 0);
if(SvU64OK(elt))
key[i] = SvU64(elt);
else
}
}
-uint64_t highway_hash64(AV *key_av, char *bytes, uint64_t size) {
+uint64_t highway_hash64(AV *key_av, unsigned char *bytes, uint64_t size) {
dTHX;
uint64_t key[4];
process_key(aTHX_ key_av, key);
return HighwayHash64(bytes, size, key);
}
-AV* highway_hash128(AV *key_av, char *bytes, uint64_t size) {
+AV* highway_hash128(AV *key_av, unsigned char *bytes, uint64_t size) {
dTHX;
AV* result;
uint64_t key[4];
return result;
}
-AV* highway_hash256(AV *key_av, char *bytes, uint64_t size) {
+AV* highway_hash256(AV *key_av, unsigned char *bytes, uint64_t size) {
dTHX;
AV* result;
uint64_t key[4];
}
MODULE = Digest::HighwayHash PACKAGE = Digest::HighwayHash
+PROTOTYPES: DISABLE
BOOT:
PERL_MATH_INT64_LOAD_OR_CROAK;
-uint64_t highway_hash64(AV *key_av, char *bytes, uint64_t length(bytes))
+uint64_t highway_hash64(AV *key_av, unsigned char *bytes, uint64_t length(bytes))
-AV* highway_hash128(AV *key_av, char *bytes, uint64_t length(bytes))
+AV* highway_hash128(AV *key_av, unsigned char *bytes, uint64_t length(bytes))
-AV* highway_hash256(AV *key_av, char *bytes, uint64_t length(bytes))
+AV* highway_hash256(AV *key_av, unsigned char *bytes, uint64_t length(bytes))