fn compress_block(state: &mut [u64; 8], block: &[u8; 128])
Process a block with the SHA-512 algorithm.