raw
ffa_ch17_peh.kv         1 ------------------------------------------------------------------------------
ffa_ch17_peh.kv         2 ------------------------------------------------------------------------------
ffa_ch17_peh.kv         3 -- This file is part of 'Finite Field Arithmetic', aka 'FFA'.               --
ffa_ch17_peh.kv         4 --                                                                          --
ffa_ch17_peh.kv         5 -- (C) 2019 Stanislav Datskovskiy ( www.loper-os.org )                      --
ffa_ch17_peh.kv         6 -- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html     --
ffa_ch17_peh.kv         7 --                                                                          --
ffa_ch17_peh.kv         8 -- You do not have, nor can you ever acquire the right to use, copy or      --
ffa_ch17_peh.kv         9 -- distribute this software ; Should you use this software for any purpose, --
ffa_ch17_peh.kv        10 -- or copy and distribute it to anyone or in any manner, you are breaking   --
ffa_ch17_peh.kv        11 -- the laws of whatever soi-disant jurisdiction, and you promise to         --
ffa_ch17_peh.kv        12 -- continue doing so for the indefinite future. In any case, please         --
ffa_ch17_peh.kv        13 -- always : read and understand any software ; verify any PGP signatures    --
ffa_ch17_peh.kv        14 -- that you use - for any purpose.                                          --
ffa_ch17_peh.kv        15 --                                                                          --
ffa_ch17_peh.kv        16 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm .     --
ffa_ch17_peh.kv        17 ------------------------------------------------------------------------------
ffa_ch17_peh.kv        18 ------------------------------------------------------------------------------
ffa_ch17_peh.kv        19 
ffa_ch17_peh.kv        20 with "../libffa/ffa.gpr";
ffa_ch17_peh.kv        21 
ffa_ch17_peh.kv        22 project Peh is
ffa_ch17_peh.kv        23   
ffa_ch17_peh.kv        24   for Object_Dir use "obj";
ffa_ch17_peh.kv        25   
ffa_ch17_peh.kv        26   type Mode_Type is ("debug", "release");
ffa_ch17_peh.kv        27   Mode : Mode_Type := external ("mode", "release");
ffa_ch17_peh.kv        28   
ffa_ch17_peh.kv        29   for Languages   use ("Ada");
ffa_ch17_peh.kv        30   for Source_Dirs use (".");
ffa_ch17_peh.kv        31   for Exec_Dir    use "bin";
ffa_ch17_peh.kv        32   for Main        use ("peh.adb");
ffa_ch17_peh.kv        33   
ffa_ch17_peh.kv        34   package Compiler is
ffa_ch17_peh.kv        35      case Mode is
ffa_ch17_peh.kv        36         when "debug" =>
ffa_ch17_peh.kv        37            for Switches ("Ada")
ffa_ch17_peh.kv        38              use ("-g");
ffa_ch17_peh.kv        39         when "release" =>
ffa_ch17_peh.kv        40            for Switches ("Ada")
ffa_ch17_peh.kv        41              use ("-O2", "-fdump-scos", "-gnata", "-fstack-check",
ffa_ch17_peh.kv        42                   "-gnatyd", "-gnatym",
ffa_ch17_peh.kv        43                   "-fdata-sections", "-ffunction-sections");
ffa_ch17_peh.kv        44      end case;
ffa_ch17_peh.kv        45   end Compiler;
ffa_ch17_peh.kv        46   
ffa_ch17_peh.kv        47   package Binder is
ffa_ch17_peh.kv        48      case Mode is
ffa_ch17_peh.kv        49         when "debug" =>
ffa_ch17_peh.kv        50            for Switches ("Ada")
ffa_ch17_peh.kv        51              use ();
ffa_ch17_peh.kv        52         when "release" =>
ffa_ch17_peh.kv        53            for Switches ("Ada")
ffa_ch17_peh.kv        54              use ("-static");
ffa_ch17_peh.kv        55      end case;
ffa_ch17_peh.kv        56   end Binder;
ffa_ch17_peh.kv        57 
ffa_ch17_peh.kv        58   package Linker is
ffa_ch17_peh.kv        59      case Mode is
ffa_ch17_peh.kv        60         when "debug" =>
ffa_ch17_peh.kv        61            for Switches ("Ada")
ffa_ch17_peh.kv        62              use ();
ffa_ch17_peh.kv        63         when "release" =>
ffa_ch17_peh.kv        64            for Switches ("Ada")
ffa_ch17_peh.kv        65              use ("-Wl,--gc-sections", "-static");
ffa_ch17_peh.kv        66      end case;
ffa_ch17_peh.kv        67   end Linker;
ffa_ch17_peh.kv        68   
ffa_ch17_peh.kv        69 end Peh;