IDE: New target OS - DragonFlyBSD. Issue , patch from CudaText man.

git-svn-id: trunk@62401 -
This commit is contained in:
juha 2019-12-15 21:10:39 +00:00
parent b6112f516e
commit 46beb34edb
4 changed files with 26 additions and 5 deletions

View File

@ -109,11 +109,11 @@ const
VirtualTempDir='TEMPORARYDIRECTORY';
// FPC operating systems and processor types
FPCOperatingSystemNames: array[1..35] of shortstring =(
FPCOperatingSystemNames: array[1..36] of shortstring =(
'linux',
'win32','win64','wince',
'darwin','macos',
'freebsd','netbsd','openbsd',
'freebsd','netbsd','openbsd','dragonfly',
'aix',
'amiga',
'android',
@ -141,7 +141,7 @@ const
'wdosx',
'wii'
);
FPCOperatingSystemCaptions: array[1..35] of shortstring =(
FPCOperatingSystemCaptions: array[1..36] of shortstring =(
'AIX',
'Amiga',
'Android',
@ -149,6 +149,7 @@ const
'Atari',
'BeOS',
'Darwin',
'DragonFly',
'Embedded',
'emx',
'FreeBSD',
@ -213,7 +214,7 @@ const
'ECMAScript6'
);
Lazarus_CPU_OS_Widget_Combinations: array[1..91] of shortstring = (
Lazarus_CPU_OS_Widget_Combinations: array[1..111] of shortstring = (
'i386-linux-gtk',
'i386-linux-gtk2',
'i386-linux-qt',
@ -294,6 +295,21 @@ const
'x86_64-freebsd-qt5',
'x86_64-freebsd-fpgui',
'x86_64-freebsd-nogui',
'x86_64-openbsd-gtk2',
'x86_64-openbsd-qt',
'x86_64-openbsd-qt5',
'x86_64-openbsd-fpgui',
'x86_64-openbsd-nogui',
'x86_64-netbsd-gtk2',
'x86_64-netbsd-qt',
'x86_64-netbsd-qt5',
'x86_64-netbsd-fpgui',
'x86_64-netbsd-nogui',
'x86_64-dragonfly-gtk2',
'x86_64-dragonfly-qt',
'x86_64-dragonfly-qt5',
'x86_64-dragonfly-fpgui',
'x86_64-dragonfly-nogui',
'x86_64-linux-gtk',
'x86_64-linux-gtk2',
'x86_64-linux-qt',
@ -3615,6 +3631,7 @@ begin
or (CompareText(TargetOS,'freebsd')=0)
or (CompareText(TargetOS,'netbsd')=0)
or (CompareText(TargetOS,'openbsd')=0)
or (CompareText(TargetOS,'dragonfly')=0)
or (CompareText(TargetOS,'darwin')=0)
or (CompareText(TargetOS,'solaris')=0)
or (CompareText(TargetOS,'haiku')=0)
@ -3635,6 +3652,7 @@ begin
if (CompareText(TargetOS,'freebsd')=0)
or (CompareText(TargetOS,'netbsd')=0)
or (CompareText(TargetOS,'openbsd')=0)
or (CompareText(TargetOS,'dragonfly')=0)
or (CompareText(TargetOS,'darwin')=0)
then
Result:='bsd'

View File

@ -1066,6 +1066,7 @@ begin
Add('Linux');
Add('NetBSD');
Add('OpenBSD');
Add('DragonFly');
Add('Solaris');
Add('Win32');
Add('Win64');

View File

@ -713,7 +713,7 @@ function TargetNeedsFPCOptionCG(TargetOS, TargetCPU: string): boolean;
begin
Result:= (TargetCPU='x86_64')
and ((TargetOS='linux') or (TargetOS='freebsd') or (TargetOS='netbsd')
or (TargetOS='openbsd') or (TargetOS='solaris'));
or (TargetOS='openbsd') or (TargetOS='dragonfly') or (TargetOS='solaris'));
end;
procedure GatherInheritedOptions(AddOptionsList: TFPList;

View File

@ -356,6 +356,7 @@ begin
or (CompareText(TargetOS, 'freebsd') = 0)
or (CompareText(TargetOS, 'openbsd') = 0)
or (CompareText(TargetOS, 'netbsd') = 0)
or (CompareText(TargetOS, 'dragonfly') = 0)
or (CompareText(TargetOS, 'haiku') = 0) then
Result:='.so'
else
@ -397,6 +398,7 @@ begin
or (CompareText(TargetOS,'freebsd')=0)
or (CompareText(TargetOS,'netbsd')=0)
or (CompareText(TargetOS,'openbsd')=0)
or (CompareText(TargetOS,'dragonfly')=0)
then
Result:=ExtractFilePath(Result)+lowercase(ExtractFileName(Result));
end;