(39 . 10)(39 . 11)
        when "release" =>
           for Switches ("Ada")
             use ("-O2", "-fdump-scos", "-gnata", "-fstack-check",
                  "-gnatyd", "-gnatym",
                  "-fdata-sections", "-ffunction-sections");
     end case;
  end Compiler;

  
  package Binder is
     case Mode is
        when "debug" =>
(61 . 8)(62 . 7)
             use ();
        when "release" =>
           for Switches ("Ada")
             use ("-Wl,--gc-sections",
                  "-static");
             use ("-Wl,--gc-sections", "-static");
     end case;
  end Linker;