… | … | ||
---|---|---|---|
99 | } | 99 | } |
100 | 100 | ||
101 | sub enc_U64 { | 101 | sub enc_U64 { |
102 | enc_U32 $_[0] & 0xffffffff; | 102 | enc_U32 $_[0] & 0xffffffff; |
103 | enc_U32 +($_[0] >> 32) & 0xffffffff; | 103 | enc_U32 +($_[0] >> 32) & 0xffffffff; |
104 | } | ||
105 | |||
106 | sub enc_I8 { | ||
107 | $data .= pack "c", $_[0]; | ||
104 | } | 108 | } |
105 | 109 | ||
106 | sub enc_I16 { | 110 | sub enc_I16 { |
107 | enc_U16 unpack "S", pack "s", $_[0]; | 111 | enc_U16 unpack "S", pack "s", $_[0]; |
108 | } | 112 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |