FixInsight 2026 Beta contradicts the warnign with D13 compiler.

DEV TMS FixInsight Pro
1

Happened with this code:

function DirectionToInt(const ADirection: TFileDirection): Integer;

  procedure RaiseUnknowDirection; {$IF CompilerVersion >= 37.0} noreturn; {$ENDIF}
  begin
    raise Exception.Create('Unknown direction') at ReturnAddress;
  end;

begin
{$IF DEFINED(FIXINSIGHT)}
  Result := DIRECTION_NONE;
{$ENDIF}

  case ADirection of
    mgfdNone: Result := DIRECTION_NONE;
    mgfdUpload: Result := DIRECTION_UPLOAD;
    mgfdDownload: Result := DIRECTION_DOWNLOAD;
    else
      RaiseUnknowDirection;
  end;
end;

And could not handle this define

{$IF (CompilerVersion < 37.0) OR DEFINED(FIXINSIGHT)}
Result := DIRECTION_NONE;
{$ENDIF}

Tommi Prami

2

I’ll try to remember to check the Define to use I believe FixInsight internal define also

_FIXINSIGHT_ etc. Seems to work,my bad. Let me check form the CI server also (which is not the Beta-version)

Yeah, this was my bad, forgot those leading and trailing _’s

Tommi