paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:59:17 +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', 'beos', 'os2', 'amiga', 'atari', 'sunos', 'palmos', 'qnx', 'watcom',
'emx', 'darwin', 'wdosx', 'netware' 'emx', 'darwin', 'wdosx', 'netware'
); );
FPCOperatingSystemAlternativeNames: array[1..1] of shortstring =( FPCOperatingSystemAlternativeNames: array[1..2] of shortstring =(
'unix' // see GetDefaultSrcOSForTargetOS 'unix', 'win' // see GetDefaultSrcOSForTargetOS
); );
FPCOperatingSystemAlternative2Names: array[1..1] of shortstring =( FPCOperatingSystemAlternative2Names: array[1..1] of shortstring =(
'bsd' // see GetDefaultSrcOS2ForTargetOS 'bsd' // see GetDefaultSrcOS2ForTargetOS
@ -529,7 +529,13 @@ begin
or (CompareText(TargetOS,'openbsd')=0) or (CompareText(TargetOS,'openbsd')=0)
or (CompareText(TargetOS,'darwin')=0) or (CompareText(TargetOS,'darwin')=0)
then 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; end;
function GetDefaultSrcOS2ForTargetOS(const TargetOS: string): string; function GetDefaultSrcOS2ForTargetOS(const TargetOS: string): string;