anchor.diff:    Data.BoolValue := AValue;
   end;
   
  -procedure TJsonArray.Add(AValue: Integer);
  +procedure TJsonArray.Add(const AValue: Integer);
   var
     Data: PJsonDataValue;
   begin
  
positive.code:     Result := 0;
  end;
  
  function TJsonObject.GetFloat(const Name: string): Double;
  var
    Item: PJsonDataValue;
  
negative.code:     Ord('A')..Ord('Z'), Ord('a')..Ord('z'), Ord('_'), Ord('$'):
        begin
          Inc(P);
  //        DCC64 generates "bt mem,reg" code
  //        while (P < EndP) and (P^ in [Ord('A')..Ord('Z'), Ord('a')..Ord('z'), Ord('_'), Ord('0')..Ord('9')]) do
  //          Inc(P);
          while P < EndP do
            case P^ of
              Ord('A')..Ord('Z'), Ord('a')..Ord('z'), Ord('_'), Ord('0')..Ord('9'): Inc(P);
            else
              Break;
            end;
  
          L := P - F;
          if L = 4 then
          begin
  