LCL: gtk2: disabled optimization REMOVEEMPTYPROCS for fpc 2.7.1

git-svn-id: trunk@40321 -

lcl/include/lcl_defines.inc

@@ -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}
+

lcl/interfaces/gtk2/gtk2defines.inc

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

lcl/lclbase.lpk

@@ -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>

lcl/lclproc.pas

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

lcl/widgetset/wsarrow.pp

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

lcl/widgetset/wsbuttons.pp

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

lcl/widgetset/wscalendar.pp

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

lcl/widgetset/wschecklst.pp

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

lcl/widgetset/wscomctrls.pp

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

lcl/widgetset/wscontrols.pp

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

lcl/widgetset/wsdesigner.pp

@@ -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
 ////////////////////////////////////////////////////

lcl/widgetset/wsdialogs.pp

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

lcl/widgetset/wsextctrls.pp

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

lcl/widgetset/wsextdlgs.pp

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

lcl/widgetset/wsfactory.pas

@@ -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
 

lcl/widgetset/wsforms.pp

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

lcl/widgetset/wsgrids.pp

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

lcl/widgetset/wsimglist.pp

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

lcl/widgetset/wslazdeviceapis.pas

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

lcl/widgetset/wslclclasses.pp

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

lcl/widgetset/wsmenus.pp

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

lcl/widgetset/wspairsplitter.pp

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

lcl/widgetset/wsproc.pp

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

lcl/widgetset/wsreferences.pp

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

lcl/widgetset/wsspin.pp

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

lcl/widgetset/wsstdctrls.pp

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

lcl/widgetset/wstoolwin.pp

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

packager/packagesystem.pas

@@ -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