Merge branch source:main into main

compiler/comptty.pas

@@ -30,19 +30,19 @@ function IsATTY(var t : text) : Boolean;
 
 const
 (* This allows compile-time removal of the colouring functionality under not supported platforms *)
-{$if defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM) or defined(DARWIN)}
+{$if defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM) or defined(DARWIN) or defined(FREEBSD)}
   TTYCheckSupported = true;
-{$else defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM) or defined(DARWIN)}
+{$else defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM) or defined(DARWIN) or defined(FREEBSD)}
   TTYCheckSupported = false;
-{$endif defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM) or defined(DARWIN)}
+{$endif defined(linux) or defined(MSWINDOWS) or defined(OS2) or defined(GO32V2) or defined(WATCOM) or defined(DARWIN) or defined(FREEBSD)}
 
 
 implementation
 
-{$if defined(linux) or defined(darwin)}
+{$if defined(linux) or defined(darwin) or defined(FREEBSD)}
   uses
    termio;
-{$endif defined(linux) or defined(darwin)}
+{$endif defined(linux) or defined(darwin) or defined(FREEBSD)}
 {$ifdef mswindows}
   uses
    windows;
@@ -60,7 +60,7 @@ const
   CachedIsATTY : Boolean = false;
   IsATTYValue : Boolean = false;
 
-{$if defined(linux) or defined(darwin)}
+{$if defined(linux) or defined(darwin) or defined(FREEBSD)}
 function LinuxIsATTY(var t : text) : Boolean; inline;
 begin
   LinuxIsATTY:=termio.IsATTY(t)=1;
@@ -152,9 +152,9 @@ begin
   if not(CachedIsATTY) then
     begin
 (* If none of the supported values is defined, false is returned by default. *)
-{$if defined(linux) or defined(darwin)}
+{$if defined(linux) or defined(darwin) or defined(FREEBSD)}
       IsATTYValue:=LinuxIsATTY(t);
-{$endif defined(linux) or defined(darwin)}
+{$endif defined(linux) or defined(darwin) or defined(FREEBSD)}
 {$ifdef MSWINDOWS}
       IsATTYValue:=WindowsIsATTY(t);
 {$endif MSWINDOWS}