|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /usr/local/lib/perl5/site_perl/mach/5.36/sys/ |
Upload File : |
require '_h2ph_pre.ph';
no warnings qw(redefine misc);
require 'sys/types.ph';
unless(defined(&_SYS_CRC16_H_)) {
eval 'sub _SYS_CRC16_H_ () {1;}' unless defined(&_SYS_CRC16_H_);
eval 'sub crc16 {
my($crc,$buffer,$len) = @_;
eval q({ &const my $char * &cp = $buffer; &while ($len--) $crc = ((($crc >> 8) & 0xff) ^ $crc16_table[($crc ^ * &cp++) & 0xff]) & 0xffff; $crc; });
}' unless defined(&crc16);
}
1;