adalisp_genesis 1 project Test_Repl is
adalisp_genesis 2 for Object_Dir use "obj";
adalisp_genesis 3
adalisp_genesis 4 type Mode_Type is ("debug", "release");
adalisp_genesis 5 Mode : Mode_Type := external ("mode", "release");
adalisp_genesis 6
adalisp_genesis 7 for Languages use ("Ada");
adalisp_genesis 8 for Source_Dirs use ("src");
adalisp_genesis 9 for Exec_Dir use "bin";
adalisp_genesis 10 for Main use ("test_repl.adb");
adalisp_genesis 11
adalisp_genesis 12 package Compiler is
adalisp_genesis 13 case Mode is
adalisp_genesis 14 when "debug" =>
adalisp_genesis 15 for Switches ("Ada")
adalisp_genesis 16 use ("-g");
adalisp_genesis 17 when "release" =>
adalisp_genesis 18 for Switches ("Ada")
adalisp_genesis 19 use ("-O2", "-gnata", "-fstack-check",
adalisp_genesis 20 "-fdata-sections", "-ffunction-sections",
adalisp_genesis 21 "-gnatec=" & Test_Repl'Project_Dir & "src/restrict.adc");
adalisp_genesis 22 end case;
adalisp_genesis 23 end Compiler;
adalisp_genesis 24
adalisp_genesis 25 package Binder is
adalisp_genesis 26 case Mode is
adalisp_genesis 27 when "debug" =>
adalisp_genesis 28 for Switches ("Ada")
adalisp_genesis 29 use ();
adalisp_genesis 30 when "release" =>
adalisp_genesis 31 for Switches ("Ada")
adalisp_genesis 32 use ("-static");
adalisp_genesis 33 end case;
adalisp_genesis 34 end Binder;
adalisp_genesis 35
adalisp_genesis 36 package Linker is
adalisp_genesis 37 case Mode is
adalisp_genesis 38 when "debug" =>
adalisp_genesis 39 for Switches ("Ada")
adalisp_genesis 40 use ();
adalisp_genesis 41 when "release" =>
adalisp_genesis 42 for Switches ("Ada")
adalisp_genesis 43 use ("-Wl,--gc-sections",
adalisp_genesis 44 "-static");
adalisp_genesis 45 end case;
adalisp_genesis 46 end Linker;
adalisp_genesis 47
adalisp_genesis 48 end Test_Repl;