140 |
int_tag (Field_UNKNOWN "port") !!donkey_port; |
int_tag (Field_UNKNOWN "port") !!donkey_port; |
141 |
]; |
]; |
142 |
let extended = ref 0x04 in (* support of auxport *) |
let extended = ref 0x04 in (* support of auxport *) |
|
if Autoconf.has_zlib then |
|
143 |
extended := !extended lor 0x01; (* support of compression *) |
extended := !extended lor 0x01; (* support of compression *) |
144 |
client_to_server_tags := (int_tag |
client_to_server_tags := (int_tag |
145 |
(Field_UNKNOWN "extended") !extended)::!client_to_server_tags; |
(Field_UNKNOWN "extended") !extended)::!client_to_server_tags; |