anchor.diff:   *                                                        *
    * hprose io unit for delphi.                             *
    *                                                        *
  - * LastModified: Nov 14, 2016                             *
  + * LastModified: Nov 21, 2016                             *
    * Author: Ma Bingyao <andot@hprose.com>                  *
    *                                                        *
   \**********************************************************/
  
positive.code:   case Tag of
      htNull,
      htEmpty: Result := Null;
      htList: Result := ReadDynArrayWithoutTag(varType);
      htRef: Result := ReadRef;
    else
  
negative.code: finalization
    FreePropertiesCache;
  
  end.