From de4dc44885be058411d1378b8ae46e09eff96d04 Mon Sep 17 00:00:00 2001 From: "Alejandro R. Mosteo" Date: Mon, 21 May 2007 09:27:06 +0000 Subject: [PATCH] M agpl.gpr M agpl-gdk/agpl-gdk.adb --- agpl-gdk/agpl-gdk.adb | 2 +- agpl.gpr | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/agpl-gdk/agpl-gdk.adb b/agpl-gdk/agpl-gdk.adb index f218072..86d8705 100644 --- 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 index e5e5a0d..894e12d 100644 --- 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" =>