-
+ 6B510BCD314548708EF8D5C03595599E1A65A31882876C9ED538C0C92FDB6DC6F5854F35BFC6AD7F569EB225BBCB3ED990830CA21483C4DE37BC527372D78862
udp/udp_tester/tester.gpr
(0 . 0)(1 . 54)
188 -- S.MG, 2018
189 -- Sender for testing UDP transmissions
190
191 with "../libudp/udp.gpr"; -- UDP lib
192 with "../libmt/mt.gpr"; -- mersenne twister prng
193
194 project Tester is
195
196 for Object_Dir use "obj";
197
198 type Mode_Type is ("debug", "release");
199 Mode : Mode_Type := external ("mode", "release");
200
201 for Languages use ("Ada");
202 for Source_Dirs use (".");
203 for Exec_Dir use "bin";
204 for Main use ("udp_sender.adb", "udp_receiver.adb");
205
206 package Compiler is
207 case Mode is
208 when "debug" =>
209 for Switches ("Ada")
210 use ("-g");
211 when "release" =>
212 for Switches ("Ada")
213 use ("-O2", "-fdump-scos", "-gnata", "-fstack-check",
214 "-gnatyd", "-gnatym",
215 "-fdata-sections", "-ffunction-sections");
216 end case;
217 end Compiler;
218
219 package Binder is
220 case Mode is
221 when "debug" =>
222 for Switches ("Ada")
223 use ();
224 when "release" =>
225 for Switches ("Ada")
226 use ("-static");
227 end case;
228 end Binder;
229
230 package Linker is
231 case Mode is
232 when "debug" =>
233 for Switches ("Ada")
234 use ();
235 when "release" =>
236 for Switches ("Ada")
237 use ("-Wl,--gc-sections", "-static");
238 end case;
239 end Linker;
240
241 end Tester;