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