thin-provisioning-tools/functional-tests/crc32c/checksum.scm

12 lines
239 B
Scheme
Raw Normal View History

(library
(crc32c checksum)
(export crc32c)
(import (chezscheme))
(define __ (load-shared-object "./crc32c/crc32c.so"))
(define crc32c
(foreign-procedure "crc32c" (unsigned-32 (* unsigned-8) unsigned) unsigned-32)))