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