Quellcode durchsuchen

* Haiku use UTF-8 from day one, so it make sense to use the corresponding
code page as the default one (patch by Olivier Coursière, mantis #28520)

git-svn-id: trunk@31333 -

Jonas Maebe vor 10 Jahren
Ursprung
Commit
dc1f5f1a13
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      rtl/unix/unixcp.pp

+ 1 - 1
rtl/unix/unixcp.pp

@@ -714,7 +714,7 @@ var
 begin
 begin
   // Get one of non-empty environment variables in the next order:
   // Get one of non-empty environment variables in the next order:
   // LC_ALL, LC_CTYPE, LANG. Default is UTF-8 or ASCII.
   // LC_ALL, LC_CTYPE, LANG. Default is UTF-8 or ASCII.
-{$if defined(linux) or defined(darwin)}
+{$if defined(linux) or defined(darwin) or defined(haiku)}
   Result:=CP_UTF8;
   Result:=CP_UTF8;
 {$else}
 {$else}
   Result:=CP_ASCII;
   Result:=CP_ASCII;