Source position: libogg.pas line 160
type Toggpack_writetrunc = procedure(
var b: Toggpack_buffer;
bits: cLong
);