Source position: tcl80.pp line 658
type Tcl_DString = packed record
str: PAnsiChar;
length: Integer;
spaceAvl: Integer;
staticSpace: array [0..TCL_DSTRING_STATIC_SIZE-1] of AnsiChar;
end;