paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 14:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

added SrcOS for win32, win64 and wince

Browse Source 
git-svn-id: trunk@9071 -
This commit is contained in:
mattias 2006-04-04 17:43:06 +00:00
parent 7c05c34ff1
commit 94a892ded2
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/definetemplates.pas
View File

@ -90,8 +90,8 @@ const
'beos', 'os2', 'amiga', 'atari', 'sunos', 'palmos', 'qnx', 'watcom',
'emx', 'darwin', 'wdosx', 'netware'
);
FPCOperatingSystemAlternativeNames: array[1..1] of shortstring =(
'unix' // see GetDefaultSrcOSForTargetOS
FPCOperatingSystemAlternativeNames: array[1..2] of shortstring =(
'unix', 'win' // see GetDefaultSrcOSForTargetOS
);
FPCOperatingSystemAlternative2Names: array[1..1] of shortstring =(
'bsd' // see GetDefaultSrcOS2ForTargetOS
@ -529,7 +529,13 @@ begin
or (CompareText(TargetOS,'openbsd')=0)
or (CompareText(TargetOS,'darwin')=0)
then
Result:='unix';
Result:='unix'
else
if (CompareText(TargetOS,'win32')=0)
or (CompareText(TargetOS,'win64')=0)
or (CompareText(TargetOS,'wince')=0)
then
Result:='win';
end;
function GetDefaultSrcOS2ForTargetOS(const TargetOS: string): string;