pgbackrest/libc/xs/postgres/pageChecksum.xs

# ----------------------------------------------------------------------------------------------------------------------------------
# Page Checksum Perl Exports
# ----------------------------------------------------------------------------------------------------------------------------------

MODULE = pgBackRest::LibC PACKAGE = pgBackRest::LibC

U16
pageChecksum(page, blockNo, pageSize)
    const char *page
    U32 blockNo
    U32 pageSize
CODE:
    RETVAL = 0;

    ERROR_XS_BEGIN()
    {
        RETVAL = pageChecksum(
            (const unsigned char *)page, blockNo, pageSize);
    }
    ERROR_XS_END();
OUTPUT:
    RETVAL