Source position: expat.pas line 605
type BLOCK = record
next: BLOCK_ptr;
size: int;
alloc: int;
s: array [0..0] of XML_Char;
end;