paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 20:36:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: gtk2: disabled optimization REMOVEEMPTYPROCS for fpc 2.7.1

Browse Source 
git-svn-id: trunk@40321 -
This commit is contained in:
mattias 2013-02-14 23:34:15 +00:00
parent 067df6dac3
commit 577bc9d322
28 changed files with 64 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/lcl_defines.inc
View File

@ -1,3 +1,10 @@
// Add defines here. This file should be included in all LCL units headers
{$DEFINE UseCLDefault}
{$WARN SYMBOL_PLATFORM OFF}
{$IF FPC_FULLVERSION>=20701}
// NOREMOVEEMPTYPROCS bites double inheritance in wslclclasses.pp
{$OPTIMIZATION NOREMOVEEMPTYPROCS}
{$ENDIF}

4
lcl/interfaces/gtk2/gtk2defines.inc
View File

@ -94,3 +94,7 @@
// See http://bugs.freepascal.org/view.php?id=18966
{$define Gtk2CallMouseDownBeforeContext}
{$IF FPC_FULLVERSION>=20701}
{$OPTIMIZATION NOREMOVEEMPTYPROCS}
{$ENDIF}

6
lcl/lclbase.lpk
View File

@ -30,7 +30,7 @@
<License Value="modified LGPL-2
"/>
<Version Major="1" Release="1"/>
<Files Count="290">
<Files Count="291">
<Item1>
<Filename Value="barchart.pp"/>
<UnitName Value="BarChart"/>
@ -1196,6 +1196,10 @@
<Filename Value="include/sysenvapis_unix.inc"/>
<Type Value="Include"/>
</Item290>
<Item291>
<Filename Value="include/lcl_defines.inc"/>
<Type Value="Include"/>
</Item291>
</Files>
<LazDoc Paths="../docs/xml/lcl"/>
<i18n>

3
lcl/lclproc.pas
View File

@ -24,9 +24,8 @@
}
unit LCLProc;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
{$inline on}
{$include include/lcl_defines.inc}
interface

2
lcl/widgetset/wsarrow.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* WSArrow.pp *
@ -23,6 +22,7 @@
unit WSArrow;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

2
lcl/widgetset/wsbuttons.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* WSButtons.pp *
@ -23,6 +22,7 @@
unit WSButtons;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

2
lcl/widgetset/wscalendar.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* WSCalendar.pp *
@ -23,6 +22,7 @@
unit WSCalendar;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

2
lcl/widgetset/wschecklst.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* WSCheckLst.pp *
@ -23,6 +22,7 @@
unit WSCheckLst;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

2
lcl/widgetset/wscomctrls.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* WSComCtrls.pp *
@ -23,6 +22,7 @@
unit WSComCtrls;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

2
lcl/widgetset/wscontrols.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* WSControls.pp *
@ -23,6 +22,7 @@
unit WSControls;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

2
lcl/widgetset/wsdesigner.pp
View File

@ -1,4 +1,3 @@
{ $Id: wsdesigner.pp 11897 2007-09-01 02:46:24Z marc $}
{
*****************************************************************************
* WSDesigner.pp *
@ -23,6 +22,7 @@
unit WSDesigner;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

2
lcl/widgetset/wsdialogs.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* WSDialogs.pp *
@ -23,6 +22,7 @@
unit WSDialogs;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

2
lcl/widgetset/wsextctrls.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* WSExtCtrls.pp *
@ -23,6 +22,7 @@
unit WSExtCtrls;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

2
lcl/widgetset/wsextdlgs.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* WSExtDlgs.pp *
@ -23,6 +22,7 @@
unit WSExtDlgs;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

22
lcl/widgetset/wsfactory.pas
View File

@ -1,6 +1,28 @@
{
*****************************************************************************
* WSFactory.pas *
* ------------- *
* *
* *
*****************************************************************************
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
}
unit WSFactory;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface

1
lcl/widgetset/wsforms.pp
View File

@ -23,6 +23,7 @@
unit WSForms;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

1
lcl/widgetset/wsgrids.pp
View File

@ -23,6 +23,7 @@
unit WSGrids;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

1
lcl/widgetset/wsimglist.pp
View File

@ -23,6 +23,7 @@
unit WSImgList;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

1
lcl/widgetset/wslazdeviceapis.pas
View File

@ -22,6 +22,7 @@
unit WSLazDeviceAPIS;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

1
lcl/widgetset/wslclclasses.pp
View File

@ -23,6 +23,7 @@
unit WSLCLClasses;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
{off$DEFINE VerboseWSRegistration}
{off$DEFINE VerboseWSRegistration_methods}

1
lcl/widgetset/wsmenus.pp
View File

@ -23,6 +23,7 @@
unit WSMenus;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

1
lcl/widgetset/wspairsplitter.pp
View File

@ -23,6 +23,7 @@
unit WSPairSplitter;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

1
lcl/widgetset/wsproc.pp
View File

@ -25,6 +25,7 @@
unit WSProc;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface

1
lcl/widgetset/wsreferences.pp
View File

@ -23,6 +23,7 @@
unit WSReferences;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface

1
lcl/widgetset/wsspin.pp
View File

@ -23,6 +23,7 @@
unit WSSpin;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

1
lcl/widgetset/wsstdctrls.pp
View File

@ -23,6 +23,7 @@
unit WSStdCtrls;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////

4
lcl/widgetset/wstoolwin.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* WSToolwin.pp *
@ -23,6 +22,7 @@
unit WSToolwin;
{$mode objfpc}{$H+}
{$I lcl_defines.inc}
interface
////////////////////////////////////////////////////
@ -65,4 +65,4 @@ implementation
//initialization
// RegisterWSComponent(TToolWindow, TWSToolWindow);
////////////////////////////////////////////////////
end.
end.

4
packager/packagesystem.pas
View File

@ -3238,7 +3238,7 @@ var
ReqFlags: TPkgIntfRequiredFlags;
begin
{$IFDEF VerbosePkgCompile}
debugln('TLazPackageGraph.CompileRequiredPackages A ',dbgs(Policy));
debugln('TLazPackageGraph.CompileRequiredPackages A MinPolicy=',dbgs(Policy),' SkipDesignTimePackages=',SkipDesignTimePackages);
{$ENDIF}
ReqFlags:=[pirCompileOrder];
if SkipDesignTimePackages then
@ -3394,7 +3394,7 @@ begin
end;
// create external tool to run the compiler
//DebugLn('TPkgManager.DoCompilePackage WorkingDir="',APackage.Directory,'"');
//DebugLn('TLazPackageGraph.CompilePackage WorkingDir="',APackage.Directory,'"');
if (not APackage.CompilerOptions.SkipCompiler)
and (not (pcfDoNotCompilePackage in Flags)) then begin