Source position: zipper.pp line 253
type CodeRec = packed record
Child: SmallInt;
Sibling: SmallInt;
Suffix: Byte;
end;