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

IDE: append -dWIN9XPLATFORM when building IDE on win9x for win32

Browse Source 
git-svn-id: trunk@47812 -
This commit is contained in:
mattias 2015-02-15 21:59:34 +00:00
parent cd3feb8828
commit 806b395a38
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/buildlazdialog.pas
View File

@ -44,7 +44,11 @@ unit BuildLazDialog;
interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, LCLType, StdCtrls, ExtCtrls,
Classes, SysUtils,
{$IFDEF Windows}
Windows,
{$ENDIF}
LCLProc, Forms, Controls, LCLType, StdCtrls, ExtCtrls,
Buttons, FileUtil, LazUTF8, LazLogger, lazutf8classes, LazFileCache, Dialogs,
InterfaceBase, CheckLst, Menus, ComCtrls, DividerBevel, DefineTemplates,
CodeToolManager,
@ -787,6 +791,13 @@ begin
if CreateRelativePath(fTargetFilename,fTargetDir) <> DefaultTargetFilename then
AppendExtraOption('-o'+fTargetFilename);
{$IFDEF Windows}
if (fProfile.TargetPlatform=lpWin32)
and (Win32MajorVersion=4)
and (Win32Platform = VER_PLATFORM_WIN32_NT) then
AppendExtraOption('-dWIN9XPLATFORM');
{$ENDIF}
// add package options for IDE
//DebugLn(['CreateIDEMakeOptions blfUseMakeIDECfg=',blfUseMakeIDECfg in FLags,' ExtraOptions="',fExtraOptions,'" ',fPackageOptions]);
if not (blfUseMakeIDECfg in Flags) then