anchor.diff:  begin
     ClassName := AStack.ClassName;
     Info := TClassManager.TypeInfo(GetElementName(ClassName));
  -  if Info = nil then
  +  if not Assigned(Info) then
       raise Exception.Create('Can not serialize ' + ClassName)
     else begin
       FRefer.SetRef(ObjToVar(AStack));
  
positive.code:         WriteArrayWithRef(Value)
      else if P^.VType and not varByRef = varObject then begin
        Obj := VarToObj(Value);
        if Obj = nil then WriteNull else WriteObjectWithRef(Obj);
      end
    end;
  end;
  
negative.code:   FRefer.SetRef(ObjToVar(Result));
    for I := 0 to Count - 1 do begin
      PropInfo := GetPropInfo(Result, AttrNames[I]);
      if Assigned(PropInfo) then
        HproseCommon.SetPropValue(Result, PropInfo,
                     Unserialize(PropInfo^.PropType{$IFNDEF FPC}^{$ENDIF}))
      else Unserialize;
  