227 |
let buf_bool buf b = |
let buf_bool buf b = |
228 |
buf_int8 buf (if b then 1 else 0) |
buf_int8 buf (if b then 1 else 0) |
229 |
|
|
230 |
|
let buf_bool_option buf b = |
231 |
|
buf_int8 buf |
232 |
|
(match b with |
233 |
|
| None -> 2 |
234 |
|
| Some b -> if b then 1 else 0) |
235 |
|
|
236 |
let buf_result proto buf r = |
let buf_result proto buf r = |
237 |
buf_int buf r.result_num; |
buf_int buf r.result_num; |
238 |
buf_int buf 0; |
buf_int buf 0; |
613 |
if proto >= 33 then begin |
if proto >= 33 then begin |
614 |
buf_string buf c.client_release |
buf_string buf c.client_release |
615 |
end; |
end; |
616 |
|
if proto >= 35 then begin |
617 |
|
buf_bool_option buf c.client_sui_verified |
618 |
|
end; |
619 |
end |
end |
620 |
|
|
621 |
let buf_network proto buf n = |
let buf_network proto buf n = |