comp.lang.ada
 help / color / mirror / Atom feed
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: Error converting from UTF8 to ISO-8859-1
Date: Thu, 30 Jul 2009 17:08:30 +0200
Date: 2009-07-30T17:08:30+02:00	[thread overview]
Message-ID: <i58mu1sn7qag.n2khre66reir$.dlg@40tude.net> (raw)
In-Reply-To: 4a717cbf$0$31793$703f8584@news.kpn.nl

P.S.

When using GtkAda under GPS, always include gtkada.gpr into your project
file. In no case you should never ever use the Linker_Options pragma. A
project file could look like this:

with "gtkada.gpr";  -- Note this

project Escape is

   type Development_Type is ("Debug", "Release");
   Development : Development_Type := external ("Development", "Debug");

   type Legacy_Type is ("Ada95", "Ada2005");
   Legacy : Legacy_Type := external ("Legacy", "Ada2005");   

   for Main use ("escape.adb");

   package Binder is
      case Development is
         when "Debug" =>
            for Default_Switches ("ada") use ("-E");
         when "Release" =>
            for Default_Switches ("ada") use ();
      end case;
   end Binder;

   package Builder is
      case Development is
         when "Debug" =>
            for Default_Switches ("ada") use ("-g");
         when "Release" =>
            for Default_Switches ("ada") use ("-s");
      end case;
   end Builder;

   package Compiler is
      case Development is
         when "Debug" =>
            case Legacy is
               when "Ada2005" =>
                  for Default_Switches ("ada") use
                     ("-gnato", "-gnatf", "-g", "-fstack-check",
"-gnat05");
               when "Ada95" =>
                  for Default_Switches ("ada") use
                     ("-gnato", "-gnatf", "-g", "-fstack-check",
"-gnat95");
            end case;
         when "Release" =>
            case Legacy is
               when "Ada2005" =>
                  for Default_Switches ("ada") use
                     ("-gnato", "-gnatf", "-O2", "-gnatn", "-gnat05");
               when "Ada95" =>
                  for Default_Switches ("ada") use
                     ("-gnato", "-gnatf", "-O2", "-gnatn", "-gnat95");
            end case;
      end case;
   end Compiler;

   package Linker is -- Linker switches are here
      case Development is
         when "Debug" =>
            for Default_Switches ("ada") use Gtkada.Linker'Default_Switches
("ada") & "-g" & "-mwindows";
         when "Release" =>
            for Default_Switches ("ada") use Gtkada.Linker'Default_Switches
("ada") & "-O2" & "-mwindows";
      end case;
   end Linker;

end Escape;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de



  parent reply	other threads:[~2009-07-30 15:08 UTC|newest]

Thread overview: 8+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-07-29 15:11 Error converting from UTF8 to ISO-8859-1 ldries46
2009-07-29 15:55 ` Dmitry A. Kazakov
2009-07-29 16:46   ` ldries46
2009-07-29 17:20     ` Dmitry A. Kazakov
     [not found]       ` <4a717cbf$0$31793$703f8584@news.kpn.nl>
2009-07-30 15:01         ` Dmitry A. Kazakov
2009-07-30 15:08         ` Dmitry A. Kazakov [this message]
2009-08-06  8:50           ` ldries46
2009-08-06 10:03             ` Dmitry A. Kazakov
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox