O>>            if (state->head != Z_NULL &&
O>>                state->head->extra != Z_NULL) {
O>>                len = state->head->extra_len - state->length;
O>>                zmemcpy(state->head->extra + len, next,
O>>                        len + copy > state->head->extra_max ?
O>>                        state->head->extra_max - len : copy);
O>>            }
O>>

TSP> var
TSP>   DemoSet :TMySet;
TSP> begin 
TSP>   //...    
TSP>   //...    
TSP>   //...    
TSP>   //...    
TSP>   //...    
TSP>   //...    
TSP>   //...    
TSP>   //...    
...repear prev. line 30 times, pls. 
TSP>   //...    
TSP>   //...    
DemoSet.bebebe(xxx).
TSP>   //...    
TSP>   //...    
TSP> end;
TSP>

TSP>  type
TSP>    TMySet = Set of 1..3;
TSP>  var
TSP>    DemoSet :TMySet;
TSP>  begin
TSP>    DemoSet := [1,2,3];
TSP>    //My comment
TSP>    {Сomment for с/c++/c#/java fans here: This is Turbo Pascal!!!}
TSP>    //...
TSP>      //Some code
TSP>    //...
TSP>  end;
TSP>

TSP>>  type
TSP>>    TMySet = Set of 1..3;
TSP>>  var
TSP>>    DemoSet :TMySet;
TSP>>  begin
TSP>>    DemoSet := [1,2,3];
TSP>>    //My comment
TSP>>    {Сomment for с/c++/c#/java fans here: This is Turbo Pascal!!!}
TSP>>    //...
TSP>>      //Some code
TSP>>    //...
TSP>>  end;
TSP>>