M agpl.gpr

M agpl-gdk/agpl-gdk.adb
mosteo · May 21, 2007 · de4dc44 · de4dc44
1 parent 642c37f
commit de4dc44
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/agpl-gdk/agpl-gdk.adb b/agpl-gdk/agpl-gdk.adb
@@ -47,7 +47,7 @@ package body Agpl.Gdk is
       B                        : Float_Matrix;
       Result                   : Float_Matrix;
       I_PIVOT, J_PIVOT         : Integer range 1 .. X'Length (1);
-      BIG_ENTRY, TEMP, EPSILON : Float;
+      BIG_ENTRY, TEMP, EPSILON : Float := 0.0;
       L, M                     : array (1 .. X'Length (1)) of Integer;
 
    --  *******************************************************************

diff --git a/agpl.gpr b/agpl.gpr
@@ -95,8 +95,8 @@ project Agpl is
       for Default_Switches ("Ada") use ("-g", "-gnatf", "-gnat05", "-gnatwcfjklmopruvz", "-gnatyacehikn", "-gnatqQ");
 
       --  Switches for files with problems
-      for Switches ("agpl-gdk.adb") use Compiler'Default_Switches ("Ada") & ("-O0", "-gnatao", "-fstack-check");
-      for Switches ("agpl-gdk-drawer_figures.adb") use Compiler'Default_Switches ("Ada") & ("-O0", "-gnatao", "-fstack-check");
+      -- for Switches ("agpl-gdk.adb") use Compiler'Default_Switches ("Ada") & ("-O0", "-gnatao", "-fstack-check");
+      -- for Switches ("agpl-gdk-drawer_figures.adb") use Compiler'Default_Switches ("Ada") & ("-O0", "-gnatao", "-fstack-check");
 
       case Build is
          when "Profile" =>