anchor.diff:    procedure FromFloat(const obj: ISuperObject);
     var
       o: ISuperObject;
  +    dt: TDateTime;
  +    fmtSettings: TFormatSettings;
     begin
       case ObjectGetType(obj) of
       stInt, stDouble, stCurrency:
  
positive.code:         begin
            Result := False;
  
            if IsList(Context, TypeInfo) and IsGenericType(TypeInfo) then
            begin
              Result := True;
  
  
negative.code: 
  interface
  uses
    Classes
  {$IFDEF HAVE_RTTI}
    ,Generics.Collections, RTTI, TypInfo
  {$ENDIF}
  