Add test_snip_remove to testsuite.
[dyninst.git] / testsuite / src / specification / spec-grouped.pl
1 % Dyninst test suite specification file
2
3 %%%%%%%%%%
4 %
5 % DO NOT EDIT ANYTHING UNTIL YOU REACH THE 'SAFE TO EDIT' MARK
6 %
7 %%%%%%%%%%
8
9 % Include some utility definitions
10 :- include('test.pl').
11
12 % Allow the user to specify new clauses as they want throughout this file
13 :- discontiguous([library/2, object_suffix/2, library_suffix/2,
14                   library_prefix/2, test_plat/2, mutator/2,
15                   mutator_requires_libs/2, mutator_comp/1, mutatee/2,
16                   mutatee/3, mutatee_requires_libs/2, mutatee_comp/1, lang/1,
17                   comp_lang/2, platform/4, compiler_opt_trans/3,
18                   comp_mut/2, compiler_platform/2,
19                   mcomp_plat/2, test_runmode/2, 
20                   test_serializable/1, comp_std_flags_str/2,
21                   comp_mutatee_flags_str/2, test_runs_everywhere/1,
22                   mutatee_special_make_str/2, mutatee_special_requires/2,
23                   groupable_test/1, test_platform/2,
24                   compiler_for_mutatee/2, test_start_state/2,
25                   compiler_define_string/2, compiler_s/2,
26                   mutatee_link_options/2, mutatee_peer/2,
27                   compiler_parm_trans/3, test/3, test_description/2,
28                   optimization_for_mutatee/3, spec_exception/3,
29                   spec_object_file/6, fortran_c_component/1,
30                   whitelist/1, parameter/1, parameter_values/2,
31                   mutatee_abi/1, platform_abi/2,
32                   compiler_platform_abi_s/4, test_platform_abi/3,
33                   restricted_amd64_abi/1, compiler_presence_def/2,
34                   restricted_abi_for_arch/3, insane/2, module/1,
35                   tests_module/2, mutator_requires_libs/2]).
36
37 %%%%%%%%%%
38 %
39 % SAFE TO EDIT
40 % It is safe to add new clauses and edit the clauses in the section below
41 %
42 %%%%%%%%%%
43
44 % Some tests require shared libraries as well as mutatees
45 %mutator('test_requireslib', ['test_requireslib.C']).
46 % We need to specify that 'test_requireslib' requires the library 'requireslib'
47 %mutator_library('test_requireslib', 'requireslib').
48 % And then we need to provide a definition of the library and the source files
49 % it reqires if we havent already done so.
50 % NOTE TO SELF:
51 % So we want Windows to compile the following file to 'requireslib.dll' and
52 % Unix to compile it to 'librequireslib.so'
53 %library('requireslib', ['requireslib.C']).
54
55 % Mutatees can require that they're linked with certain libraries.  Here's
56 % how to specify that
57 %mutatee_requires_libs('test_threaded_mutatee', ['pthread']).
58
59 module('dyninst').
60 module('symtab').
61 module('stackwalker').
62 module('instruction').
63
64 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 % Below are specifications for the standard Dyninst test suite
66 %
67 % DO NOT EDIT ANYTHING BELOW THIS MARK UNLESS YOU'RE SURE YOU KNOW
68 % WHAT YOU'RE DOING
69 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
70
71 % This is a dummy mutatee definition thats used by some tests that check that
72 % we correctly identify error conditions
73 mutatee('none', []).
74 compiler_for_mutatee('none', '').
75 compiler_platform('', P) :- platform(P).
76 % Also a dummy compiler for our dummy mutatee
77 compiler_define_string('', '').
78 mutatee_comp('').
79 mutatee_link_options('', '').
80 comp_std_flags_str('', '').
81 comp_mutatee_flags_str('', '').
82
83 mutatee('dyninst_group_test', ['test1_1_mutatee.c', 
84         'test1_2_mutatee.c',
85         'test1_3_mutatee.c', 
86         'test1_4_mutatee.c',
87         'test1_5_mutatee.c', 
88         'test1_6_mutatee.c',
89         'test1_7_mutatee.c', 
90         'test1_8_mutatee.c',
91         'test1_9_mutatee.c', 
92         'test1_10_mutatee.c',
93         'test1_11_mutatee.c',
94         'test1_13_mutatee.c',
95         'test1_16_mutatee.c',
96         'test1_17_mutatee.c',
97         'test1_18_mutatee.c',
98         'test1_20_mutatee.c',
99         'test1_21_mutatee.c',
100         'test1_22_mutatee.c',
101         'snip_ref_shlib_var_mutatee.c',
102         'snip_change_shlib_var_mutatee.c',
103         'test1_23_mutatee.c',
104         'test1_24_mutatee.c',
105         'test1_25_mutatee.c',
106         'test1_26_mutatee.c',
107         'test1_27_mutatee.c',
108         'test1_28_mutatee.c',
109         'test1_30_mutatee.c',
110         'test1_31_mutatee.c',
111         'test1_32_mutatee.c',
112         'test1_33_mutatee.c',
113         'test1_34_mutatee.c',
114         'test1_36_mutatee.c',
115         'test1_37_mutatee.c',
116         'test1_38_mutatee.c',
117         'test1_39_mutatee.c',
118         'test2_5_mutatee.c',
119         'test2_7_mutatee.c',
120         'test2_9_mutatee.c',
121         'test2_11_mutatee.c',
122         'test2_12_mutatee.c',
123         'test2_13_mutatee.c',
124    'test_write_param_mutatee.c'
125     ]).
126 compiler_for_mutatee('dyninst_group_test', Compiler) :-
127     comp_lang(Compiler, 'c').
128
129 mutatee('dyninst_cxx_group_test', ['test5_1_mutatee.C',
130         'test5_2_mutatee.C',
131         'test5_3_mutatee.C',
132         'test5_4_mutatee.C',
133         'test5_5_mutatee.C',
134         'test5_6_mutatee.C',
135         'test5_7_mutatee.C',
136         'test5_8_mutatee.C',
137         'test5_9_mutatee.C'
138     ], ['cpp_test.C']).
139 compiler_for_mutatee('dyninst_cxx_group_test', Compiler) :-
140     comp_lang(Compiler, 'c++').
141
142 mutatee('symtab_group_test', [
143    'test_lookup_func_mutatee.c',
144         'test_lookup_var_mutatee.c',
145         'test_line_info_mutatee.c',
146         'test_module_mutatee.c',
147         'test_relocations_mutatee.c',
148         'test_symtab_ser_funcs_mutatee.c',
149         'test_ser_anno_mutatee.c',
150         'test_type_info_mutatee.c',
151    'test_anno_basic_types_mutatee.c'
152    ]).
153 compiler_for_mutatee('symtab_group_test', Compiler) :-
154     comp_lang(Compiler, 'c').
155 compiler_for_mutatee('symtab_cxx_group_test', Compiler) :-
156     comp_lang(Compiler, 'c++').
157
158 test('test1_1', 'test1_1', 'dyninst_group_test').
159 test_description('test1_1', 'instrument with zero-arg function call').
160 test_runs_everywhere('test1_1').
161 groupable_test('test1_1').
162 mutator('test1_1', ['test1_1.C']).
163 test_runmode('test1_1', 'staticdynamic').
164 test_start_state('test1_1', 'stopped').
165 tests_module('test1_1', 'dyninst').
166
167 test('test1_2', 'test1_2', 'dyninst_group_test').
168 test_description('test1_2', 'instrument with four-arg function call').
169 test_runs_everywhere('test1_2').
170 groupable_test('test1_2').
171 mutator('test1_2', ['test1_2.C']).
172 mutatee('test1_2', ['test1_2_mutatee.c']).
173 compiler_for_mutatee('test1_2', Compiler) :-
174     comp_lang(Compiler, 'c').
175 test_runmode('test1_2', 'staticdynamic').
176 test_start_state('test1_2', 'stopped').
177 tests_module('test1_2', 'dyninst').
178
179 test('test1_3', 'test1_3', 'dyninst_group_test').
180 test_description('test1_3', 'passing variables to a function').
181 test_runs_everywhere('test1_3').
182 groupable_test('test1_3').
183 mutator('test1_3', ['test1_3.C']).
184 test_runmode('test1_3', 'staticdynamic').
185 test_start_state('test1_3', 'stopped').
186 tests_module('test1_3', 'dyninst').
187
188 test('test1_4', 'test1_4', 'dyninst_group_test').
189 test_description('test1_4', 'instrument with a sequence').
190 test_runs_everywhere('test1_4').
191 groupable_test('test1_4').
192 mutator('test1_4', ['test1_4.C']).
193 test_runmode('test1_4', 'staticdynamic').
194 test_start_state('test1_4', 'stopped').
195 tests_module('test1_4', 'dyninst').
196
197 test('test1_5', 'test1_5', 'dyninst_group_test').
198 test_description('test1_5', 'instrument with if clause (no else)').
199 test_runs_everywhere('test1_5').
200 groupable_test('test1_5').
201 mutator('test1_5', ['test1_5.C']).
202 test_runmode('test1_5', 'staticdynamic').
203 test_start_state('test1_5', 'stopped').
204 tests_module('test1_5', 'dyninst').
205
206 test('test1_6', 'test1_6', 'dyninst_group_test').
207 test_description('test1_6', 'arithmetic operators').
208 test_runs_everywhere('test1_6').
209 groupable_test('test1_6').
210 mutator('test1_6', ['test1_6.C']).
211 test_runmode('test1_6', 'staticdynamic').
212 test_start_state('test1_6', 'stopped').
213 tests_module('test1_6', 'dyninst').
214
215 test('test1_7', 'test1_7', 'dyninst_group_test').
216 test_description('test1_7', 'relational operators').
217 test_runs_everywhere('test1_7').
218 groupable_test('test1_7').
219 mutator('test1_7', ['test1_7.C']).
220 test_runmode('test1_7', 'staticdynamic').
221 test_start_state('test1_7', 'stopped').
222 tests_module('test1_7', 'dyninst').
223
224 test('test1_8', 'test1_8', 'dyninst_group_test').
225 test_description('test1_8', 'verify that registers are preserved across inserted expression').
226 test_runs_everywhere('test1_8').
227 groupable_test('test1_8').
228 mutator('test1_8', ['test1_8.C']).
229 test_runmode('test1_8', 'staticdynamic').
230 test_start_state('test1_8', 'stopped').
231 tests_module('test1_8', 'dyninst').
232
233 test('test1_9', 'test1_9', 'dyninst_group_test').
234 test_description('test1_9', 'verify that registers are preserved across inserted function call').
235 test_runs_everywhere('test1_9').
236 groupable_test('test1_9').
237 mutator('test1_9', ['test1_9.C']).
238 test_runmode('test1_9', 'staticdynamic').
239 test_start_state('test1_9', 'stopped').
240 tests_module('test1_9', 'dyninst').
241
242 test('test1_10', 'test1_10', 'dyninst_group_test').
243 test_description('test1_10', 'inserted snippet order').
244 test_runs_everywhere('test1_10').
245 groupable_test('test1_10').
246 mutator('test1_10', ['test1_10.C']).
247 test_runmode('test1_10', 'staticdynamic').
248 test_start_state('test1_10', 'stopped').
249 tests_module('test1_10', 'dyninst').
250
251 test('test1_11', 'test1_11', 'dyninst_group_test').
252 test_description('test1_11', 'insert snippets at entry, exit, and call points').
253 test_runs_everywhere('test1_11').
254 groupable_test('test1_11').
255 mutator('test1_11', ['test1_11.C']).
256 test_runmode('test1_11', 'staticdynamic').
257 test_start_state('test1_11', 'stopped').
258 tests_module('test1_11', 'dyninst').
259
260 test('test1_12', 'test1_12', 'test1_12').
261 test_description('test1_12', 'insert/remove and malloc/free').
262 test_runs_everywhere('test1_12').
263 mutator('test1_12', ['test1_12.C']).
264 mutatee('test1_12', ['test1_12_mutatee.c']).
265 compiler_for_mutatee('test1_12', Compiler) :-
266     comp_lang(Compiler, 'c').
267 test_runmode('test1_12', 'dynamic').
268 test_start_state('test1_12', 'stopped').
269 tests_module('test1_12', 'dyninst').
270
271 test('test1_13', 'test1_13', 'dyninst_group_test').
272 test_description('test1_13', 'paramExpr,retExpr,nullExpr').
273 test_runs_everywhere('test1_13').
274 groupable_test('test1_13').
275 mutator('test1_13', ['test1_13.C']).
276 test_runmode('test1_13', 'staticdynamic').
277 test_start_state('test1_13', 'stopped').
278 tests_module('test1_13', 'dyninst').
279
280 test('test1_14', 'test1_14', 'test1_14').
281 test_description('test1_14', 'Replace/Remove Function Call').
282 test_runs_everywhere('test1_14').
283 mutator('test1_14', ['test1_14.C']).
284 mutatee('test1_14', ['test1_14_mutatee.c']).
285 % test1_14s mutatee can be compiled with any C or Fortran compiler
286 compiler_for_mutatee('test1_14', Compiler) :-
287     comp_lang(Compiler, 'c').
288 test_runmode('test1_14', 'staticdynamic').
289 test_start_state('test1_14', 'stopped').
290 tests_module('test1_14', 'dyninst').
291 groupable_test('test1_14').
292
293 test('test1_15', 'test1_15', 'test1_15').
294 test_description('test1_15', 'setMutationsActive').
295 test_runs_everywhere('test1_15').
296 mutator('test1_15', ['test1_15.C']).
297 mutatee('test1_15', ['test1_15_mutatee.c']).
298 compiler_for_mutatee('test1_15', Compiler) :-
299     comp_lang(Compiler, 'c').
300 test_runmode('test1_15', 'dynamic').
301 test_start_state('test1_15', 'stopped').
302 tests_module('test1_15', 'dyninst').
303
304 test('test1_16', 'test1_16', 'dyninst_group_test').
305 test_description('test1_16', 'If else').
306 test_runs_everywhere('test1_16').
307 groupable_test('test1_16').
308 mutator('test1_16', ['test1_16.C']).
309 test_runmode('test1_16', 'staticdynamic').
310 test_start_state('test1_16', 'stopped').
311 tests_module('test1_16', 'dyninst').
312
313 test('test1_17', 'test1_17', 'dyninst_group_test').
314 test_description('test1_17', 'Verifies that instrumentation inserted at exit point doesn\'t clobber return value').
315 test_runs_everywhere('test1_17').
316 groupable_test('test1_17').
317 mutator('test1_17', ['test1_17.C']).
318 test_runmode('test1_17', 'staticdynamic').
319 test_start_state('test1_17', 'stopped').
320 tests_module('test1_17', 'dyninst').
321
322 test('test1_18', 'test1_18', 'dyninst_group_test').
323 test_description('test1_18', 'Read/Write a variable in the mutatee').
324 test_runs_everywhere('test1_18').
325 groupable_test('test1_18').
326 mutator('test1_18', ['test1_18.C']).
327 test_runmode('test1_18', 'staticdynamic').
328 test_start_state('test1_18', 'stopped').
329 tests_module('test1_18', 'dyninst').
330
331 test('test1_19', 'test1_19', 'test1_19').
332 test_description('test1_19', 'oneTimeCode').
333 test_runs_everywhere('test1_19').
334 mutator('test1_19', ['test1_19.C']).
335 mutatee('test1_19', ['test1_19_mutatee.c']).
336 compiler_for_mutatee('test1_19', Compiler) :-
337     comp_lang(Compiler, 'c').
338 test_runmode('test1_19', 'dynamic').
339 test_start_state('test1_19', 'stopped').
340 tests_module('test1_19', 'dyninst').
341
342 test('test1_20', 'test1_20', 'dyninst_group_test').
343 test_description('test1_20', 'Instrumentation at arbitrary points').
344 test_runs_everywhere('test1_20').
345 groupable_test('test1_20').
346 mutator('test1_20', ['test1_20.C']).
347 test_runmode('test1_20', 'staticdynamic').
348 test_start_state('test1_20', 'stopped').
349 tests_module('test1_20', 'dyninst').
350
351 test('test1_21', 'test1_21', 'dyninst_group_test').
352 test_description('test1_21', 'findFunction in module').
353 test_runs_everywhere('test1_21').
354 groupable_test('test1_21').
355 mutator('test1_21', ['test1_21.C']).
356 test_runmode('test1_21', 'staticdynamic').
357 test_start_state('test1_21', 'stopped').
358 tests_module('test1_21', 'dyninst').
359
360 test('test1_22', 'test1_22', 'dyninst_group_test').
361 test_description('test1_22', 'Replace Function').
362 test_runs_everywhere('test1_22').
363 groupable_test('test1_22').
364 mutator('test1_22', ['test1_22.C']).
365 mutatee_requires_libs('dyninst_group_test', ['dl']).
366 test_runmode('test1_22', 'staticdynamic').
367 test_start_state('test1_22', 'stopped').
368 tests_module('test1_22', 'dyninst').
369
370 test('snip_ref_shlib_var', 'snip_ref_shlib_var', 'dyninst_group_test').
371 test_description('snip_ref_shlib_var', 'Inst references variable in shared lib').
372 test_runs_everywhere('snip_ref_shlib_var').
373 groupable_test('snip_ref_shlib_var').
374 mutator('snip_ref_shlib_var', ['snip_ref_shlib_var.C']).
375 test_runmode('snip_ref_shlib_var', 'staticdynamic').
376 test_start_state('snip_ref_shlib_var', 'stopped').
377 tests_module('snip_ref_shlib_var', 'dyninst').
378
379 test('snip_change_shlib_var', 'snip_change_shlib_var', 'dyninst_group_test').
380 test_description('snip_change_shlib_var', 'Inst modifies variable in shared lib').
381 test_runs_everywhere('snip_change_shlib_var').
382 groupable_test('snip_change_shlib_var').
383 mutator('snip_change_shlib_var', ['snip_change_shlib_var.C']).
384 test_runmode('snip_change_shlib_var', 'staticdynamic').
385 test_start_state('snip_change_shlib_var', 'stopped').
386 tests_module('snip_change_shlib_var', 'dyninst').
387
388 % test_snip_remove
389 test('test_snip_remove', 'test_snip_remove', 'test_snip_remove').
390 test_description('test_snip_remove', 'Tests multiple snippet removal').
391 test_runs_everywhere('test_snip_remove').
392 groupable_test('test_snip_remove').
393 mutator('test_snip_remove', ['test_snip_remove.C']).
394 mutatee('test_snip_remove', ['test_snip_remove_mutatee.c']).
395 compiler_for_mutatee('test_snip_remove', Compiler) :-
396     comp_lang(Compiler, 'c').
397 test_runmode('test_snip_remove', 'dynamic').
398 test_start_state('test_snip_remove', 'stopped').
399 tests_module('test_snip_remove', 'dyninst').
400
401 test('init_fini_callback', 'init_fini_callback', 'init_fini_callback').
402 test_description('init_fini_callback', 'Adds callbacks for rewritten module on load/unload/entry/exit.').
403 % ELF platforms only
404     test_platform('init_fini_callback', Platform) :-
405     platform(Arch, OS, _, Platform),
406     member(OS, ['linux']),
407     member(Arch, ['i386', 'x86_64']).
408 mutator('init_fini_callback', ['init_fini_callback.C']).
409 mutatee('init_fini_callback', ['init_fini_callback_mutatee.c']).
410 mutatee_requires_libs('init_fini_callback', ['dl']).
411 compiler_for_mutatee('init_fini_callback', Compiler) :-
412     comp_lang(Compiler, 'c').
413 groupable_test('init_fini_callback').
414 test_runmode('init_fini_callback', 'staticdynamic').
415 test_start_state('init_fini_callback', 'stopped').
416 tests_module('init_fini_callback', 'dyninst').
417
418 test('test1_23', 'test1_23', 'dyninst_group_test').
419 test_description('test1_23', 'Local Variables').
420 test_runs_everywhere('test1_23').
421 groupable_test('test1_23').
422 mutator('test1_23', ['test1_23.C']).
423 test_runmode('test1_23', 'staticdynamic').
424 test_start_state('test1_23', 'stopped').
425 tests_module('test1_23', 'dyninst').
426
427 test('test1_24', 'test1_24', 'dyninst_group_test').
428 test_description('test1_24', 'Array Variables').
429 test_runs_everywhere('test1_24').
430 groupable_test('test1_24').
431 mutator('test1_24', ['test1_24.C']).
432 test_runmode('test1_24', 'staticdynamic').
433 test_start_state('test1_24', 'stopped').
434 tests_module('test1_24', 'dyninst').
435
436 test('test1_25', 'test1_25', 'dyninst_group_test').
437 test_description('test1_25', 'Unary Operators').
438 test_runs_everywhere('test1_25').
439 groupable_test('test1_25').
440 mutator('test1_25', ['test1_25.C']).
441 test_runmode('test1_25', 'staticdynamic').
442 test_start_state('test1_25', 'stopped').
443 tests_module('test1_25', 'dyninst').
444
445 test('test1_26', 'test1_26', 'dyninst_group_test').
446 test_description('test1_26', 'Struct Elements').
447 test_runs_everywhere('test1_26').
448 groupable_test('test1_26').
449 mutator('test1_26', ['test1_26.C']).
450 test_runmode('test1_26', 'staticdynamic').
451 test_start_state('test1_26', 'stopped').
452 tests_module('test1_26', 'dyninst').
453
454 test('test1_27', 'test1_27', 'dyninst_group_test').
455 test_description('test1_27', 'Type compatibility').
456 test_runs_everywhere('test1_27').
457 groupable_test('test1_27').
458 mutator('test1_27', ['test1_27.C']).
459 test_runmode('test1_27', 'staticdynamic').
460 test_start_state('test1_27', 'stopped').
461 tests_module('test1_27', 'dyninst').
462
463 test('test1_28', 'test1_28', 'dyninst_group_test').
464 test_description('test1_28', 'User Defined Fields').
465 test_runs_everywhere('test1_28').
466 groupable_test('test1_28').
467 mutator('test1_28', ['test1_28.C']).
468 test_runmode('test1_28', 'dynamic').
469 test_start_state('test1_28', 'stopped').
470 tests_module('test1_28', 'dyninst').
471
472 test('test1_29', 'test1_29', 'test1_29').
473 test_description('test1_29', 'BPatch_srcObj class').
474 test_runs_everywhere('test1_29').
475 groupable_test('test1_29').
476 mutator('test1_29', ['test1_29.C']).
477 mutatee('test1_29', ['test1_29_mutatee.c']).
478 % test1_29s mutatee can be compiled with any C compiler or Fortran compiler
479 compiler_for_mutatee('test1_29', Compiler) :-
480     comp_lang(Compiler, 'c').
481 test_runmode('test1_29', 'staticdynamic').
482 test_start_state('test1_29', 'stopped').
483 tests_module('test1_29', 'dyninst').
484
485 test('test1_30', 'test1_30', 'dyninst_group_test').
486 test_description('test1_30', 'Line Information').
487 test_runs_everywhere('test1_30').
488 groupable_test('test1_30').
489 mutator('test1_30', ['test1_30.C']).
490 test_runmode('test1_30', 'staticdynamic').
491 test_start_state('test1_30', 'stopped').
492 tests_module('test1_30', 'dyninst').
493
494 test('test1_31', 'test1_31', 'dyninst_group_test').
495 test_description('test1_31', 'Non-Recursive Base Tramp').
496 test_runs_everywhere('test1_31').
497 groupable_test('test1_31').
498 mutator('test1_31', ['test1_31.C']).
499 test_runmode('test1_31', 'staticdynamic').
500 test_start_state('test1_31', 'stopped').
501 tests_module('test1_31', 'dyninst').
502
503 test('test1_32', 'test1_32', 'dyninst_group_test').
504 test_description('test1_32', 'Recursive Base Tramp').
505 test_runs_everywhere('test1_32').
506 groupable_test('test1_32').
507 mutator('test1_32', ['test1_32.C']).
508 test_runmode('test1_32', 'staticdynamic').
509 test_start_state('test1_32', 'stopped').
510 tests_module('test1_32', 'dyninst').
511
512 test('test1_33', 'test1_33', 'dyninst_group_test').
513 test_description('test1_33', 'Control Flow Graphs').
514 test_runs_everywhere('test1_33').
515 groupable_test('test1_33').
516 mutator('test1_33', ['test1_33.C']).
517 test_runmode('test1_33', 'dynamic').
518 test_start_state('test1_33', 'stopped').
519 tests_module('test1_33', 'dyninst').
520
521 test('test1_34', 'test1_34', 'dyninst_group_test').
522 test_description('test1_34', 'Loop Information').
523 test_runs_everywhere('test1_34').
524 groupable_test('test1_34').
525 mutator('test1_34', ['test1_34.C']).
526 test_runmode('test1_34', 'dynamic').
527 test_start_state('test1_34', 'stopped').
528 tests_module('test1_34', 'dyninst').
529
530 test('test1_35', 'test1_35', 'test1_35').
531 test_description('test1_35', 'Function Relocation').
532 test_platform('test1_35', 'i386-unknown-linux2.4').
533 test_platform('test1_35', 'i386-unknown-linux2.6').
534 test_platform('test1_35', 'x86_64-unknown-linux2.4').
535 test_platform('test1_35', 'sparc-sun-solaris2.8').
536 test_platform('test1_35', 'sparc-sun-solaris2.9').
537 groupable_test('test1_35').
538 mutator('test1_35', ['test1_35.C']).
539 mutatee('test1_35', ['test1_35_mutatee.c'], Sources) :-
540     current_platform(Plat), platform(Arch, OS, _, Plat),
541     (
542         (Arch = 'sparc', OS = 'solaris') ->
543             Sources = ['call35_1_sparc_solaris.s'];
544         (Arch = 'x86_64', OS = 'linux') ->
545             Sources = ['call35_1_x86_64_linux.s'];
546         (Arch = 'i386', OS = 'linux') ->
547             Sources = ['call35_1_x86_linux.s'];
548         (Arch = 'i386', OS = 'solaris') ->
549             Sources = ['call35_1_x86_solaris.s'];
550         Sources = ['call35_1.c']
551     ).
552 % Special flags for building the assembly file on Solaris
553 spec_object_file(OFile, 'gcc',
554                  ['call35_1_sparc_solaris.s'], [], [],
555                  ['-P -Wa,-xarch=v8plus']) :-
556     current_platform('sparc-sun-solaris2.8'),
557     member(OFile, ['call35_1_sparc_solaris_gcc_none',
558                    'call35_1_sparc_solaris_gcc_low',
559                    'call35_1_sparc_solaris_gcc_high',
560                    'call35_1_sparc_solaris_gcc_max']).
561 % test1_35s mutatee can be compiled with any C compiler
562 compiler_for_mutatee('test1_35', Compiler) :-
563     comp_lang(Compiler, 'c').
564 test_runmode('test1_35', 'staticdynamic').
565 test_start_state('test1_35', 'stopped').
566 restricted_amd64_abi('test1_35').
567 tests_module('test1_35', 'dyninst').
568
569 test('test1_36', 'test1_36', 'dyninst_group_test').
570 test_description('test1_36', 'Callsite Parameter Referencing').
571 test_runs_everywhere('test1_36').
572 groupable_test('test1_36').
573 mutator('test1_36', ['test1_36.C']).
574 test_runmode('test1_36', 'staticdynamic').
575 test_start_state('test1_36', 'stopped').
576 tests_module('test1_36', 'dyninst').
577
578 test('test1_37', 'test1_37', 'dyninst_group_test').
579 test_description('test1_37', 'Instrument Loops').
580 test_runs_everywhere('test1_37').
581 groupable_test('test1_37').
582 mutator('test1_37', ['test1_37.C']).
583 test_runmode('test1_37', 'staticdynamic').
584 test_start_state('test1_37', 'stopped').
585 tests_module('test1_37', 'dyninst').
586
587 % FIXME I dont think test1_38 runs on all platforms
588 test('test1_38', 'test1_38', 'dyninst_group_test').
589 test_description('test1_38', 'CFG Loop Callee Tree').
590 test_runs_everywhere('test1_38').
591 groupable_test('test1_38').
592 mutator('test1_38', ['test1_38.C']).
593 test_runmode('test1_38', 'staticdynamic').
594 test_start_state('test1_38', 'stopped').
595 tests_module('test1_38', 'dyninst').
596
597 test('test1_39', 'test1_39', 'dyninst_group_test').
598 test_description('test1_39', 'Regex search').
599 % test1_39 doesnt run on Windows
600 test_platform('test1_39', Platform) :-
601     platform(_, OS, _, Platform),
602     OS \= 'windows'.
603 groupable_test('test1_39').
604 mutator('test1_39', ['test1_39.C']).
605 test_runmode('test1_39', 'staticdynamic').
606 test_start_state('test1_39', 'stopped').
607 tests_module('test1_39', 'dyninst').
608
609 test('test1_40', 'test1_40', 'test1_40').
610 test_description('test1_40', 'Verify that we can monitor call sites').
611 % test1_40 should not run on Windows or IA64 Linux
612 test_platform('test1_40', Platform) :-
613         platform(Platform),
614         \+ platform('ia64', 'linux', _, Platform),
615         \+ platform(_, 'windows', _, Platform).
616 groupable_test('test1_40').
617 mutator('test1_40', ['test1_40.C']).
618 mutatee('test1_40', ['test1_40_mutatee.c']).
619 % test1_40s mutatee can be compiled with any C compiler except xlc/xlC
620 compiler_for_mutatee('test1_40', Compiler) :-
621     comp_lang(Compiler, 'c'),
622     \+ member(Compiler, ['xlc', 'xlC']).
623 test_runmode('test1_40', 'dynamic').
624 test_start_state('test1_40', 'stopped').
625 tests_module('test1_40', 'dyninst').
626
627 test('test1_41', 'test1_41', 'test1_41').
628 test_description('test1_41', 'Tests whether we lose line information running a mutatee twice').
629 % test1_41 doesnt run on Windows
630 test_platform('test1_41', Platform) :-
631     platform(_, OS, _, Platform),
632     OS \= 'windows'.
633 mutator('test1_41', ['test1_41.C']).
634 mutatee('test1_41', ['test1_41_mutatee.c']).
635 compiler_for_mutatee('test1_41', Compiler) :-
636     comp_lang(Compiler, 'c').
637 test_runmode('test1_41', 'createProcess').
638 test_start_state('test1_41', 'selfstart').
639 tests_module('test1_41', 'dyninst').
640
641 test('test_write_param', 'test_write_param', 'dyninst_group_test').
642 test_description('test_write_param', 'writing to parameters').
643 test_platform('test_write_param', 'i386-unknown-linux2.4').
644 test_platform('test_write_param', 'x86_64-unknown-linux2.4').
645 test_platform('test_write_param', 'i386-unknown-nt4.0').
646 test_platform('test_write_param', 'rs6000-ibm-aix5.1').
647 test_platform('test_write_param', 'ia64-unknown-linux2.4').
648 test_platform('test_write_param', 'sparc-sun-solaris2.9').
649 groupable_test('test_write_param').
650 mutator('test_write_param', ['test_write_param.C']).
651 test_runmode('test_write_param', 'staticdynamic').
652 test_start_state('test_write_param', 'stopped').
653 tests_module('test_write_param', 'dyninst').
654
655 test('test_pt_ls', 'test_pt_ls', none).
656 test_description('test_pt_ls', 'Run parseThat on ls').
657 % test_pt_ls doesnt run on Windowscd \paradyn
658 test_platform('test_pt_ls', Platform) :-
659     platform(_, OS, _, Platform),
660     OS \= 'windows'.
661 mutator('test_pt_ls', ['test_pt_ls.C']).
662 test_runmode('test_pt_ls', 'staticdynamic').
663 test_start_state('test_pt_ls', 'selfstart').
664 tests_module('test_pt_ls', 'dyninst').
665
666 test('test2_1', 'test2_1', none).
667 test_description('test2_1', 'Run an executable that does not exist').
668 test_runs_everywhere('test2_1').
669 mutator('test2_1', ['test2_1.C']).
670 test_runmode('test2_1', 'createProcess').
671 test_start_state('test2_1', 'selfstart').
672 restricted_amd64_abi('test2_1').
673 tests_module('test2_1', 'dyninst').
674
675 test('test2_2', 'test2_2', none).
676 test_description('test2_2', 'Try to run a createProcess on a file that is not an executable file').
677 test_runs_everywhere('test2_2').
678 mutator('test2_2', ['test2_2.C']).
679 test_runmode('test2_2', 'createProcess').
680 test_start_state('test2_2', 'selfstart').
681 restricted_amd64_abi('test2_2').
682 tests_module('test2_2', 'dyninst').
683
684 test('test2_3', 'test2_3', none).
685 test_description('test2_3', 'Attatch to an invalid pid').
686 test_runs_everywhere('test2_3').
687 mutator('test2_3', ['test2_3.C']).
688 test_runmode('test2_3', 'useAttach').
689 test_start_state('test2_3', 'selfstart').
690 restricted_amd64_abi('test2_3').
691 tests_module('test2_3', 'dyninst').
692
693 test('test2_4', 'test2_4', none).
694 test_description('test2_4', 'Attach to a protected pid').
695 test_runs_everywhere('test2_4').
696 mutator('test2_4', ['test2_4.C']).
697 test_runmode('test2_4', 'useAttach').
698 test_start_state('test2_4', 'selfstart').
699 restricted_amd64_abi('test2_4').
700 tests_module('test2_4', 'dyninst').
701
702 test('test2_5', 'test2_5', 'dyninst_group_test').
703 test_description('test2_5', 'Look up nonexistent function').
704 test_runs_everywhere('test2_5').
705 groupable_test('test2_5').
706 mutator('test2_5', ['test2_5.C']).
707 test_runmode('test2_5', 'staticdynamic').
708 test_start_state('test2_5', 'stopped').
709 tests_module('test2_5', 'dyninst').
710
711 test('test2_6', 'test2_6', 'test2_6').
712 test_description('test2_6', 'Load a dynamically linked library from the mutatee').
713 % test2_6 doesnt run on Windows
714 test_platform('test2_6', Platform) :-
715     platform(_, OS, _, Platform),
716     OS \= 'windows'.
717 mutator('test2_6', ['test2_6.C']).
718 mutatee('test2_6', ['test2_6_mutatee.c']).
719 compiler_for_mutatee('test2_6', Compiler) :-
720     comp_lang(Compiler, 'c').
721 mutatee_requires_libs('test2_6', ['dl']).
722 test_runmode('test2_6', 'dynamic').
723 test_start_state('test2_6', 'stopped').
724 tests_module('test2_6', 'dyninst').
725
726 test('test2_7', 'test2_7', 'dyninst_group_test').
727 test_description('test2_7', '').
728 % test2_7 runs on Solaris, Linux, AIX, and Windows
729 test_platform('test2_7', Platform) :-
730     platform(_, OS, _, Platform),
731     member(OS, ['solaris', 'linux', 'aix', 'windows']).
732 mutator('test2_7', ['test2_7.C']).
733 test_runmode('test2_7', 'dynamic').
734 test_start_state('test2_7', 'stopped').
735 groupable_test('test2_7').
736 tests_module('test2_7', 'dyninst').
737
738 test('test2_8', 'test2_8', 'test2_8').
739 test_runs_everywhere('test2_8').
740 mutator('test2_8', ['test2_8.C']).
741 mutatee('test2_8', ['test2_8_mutatee.c']).
742 compiler_for_mutatee('test2_8', Compiler) :-
743     comp_lang(Compiler, 'c').
744 test_runmode('test2_8', 'dynamic').
745 test_start_state('test2_8', 'stopped').
746 tests_module('test2_8', 'dyninst').
747
748 test('test2_9', 'test2_9', 'dyninst_group_test').
749 % test2_9 only runs on Sparc Solaris
750 test_platform('test2_9', Platform) :-
751     platform('sparc', 'solaris', _, Platform).
752 mutator('test2_9', ['test2_9.C']).
753 test_runmode('test2_9', 'dynamic'). % Is this correct?
754 test_start_state('test2_9', 'stopped').
755 groupable_test('test2_9').
756 tests_module('test2_9', 'dyninst').
757
758 test('test2_11', 'test2_11', 'dyninst_group_test').
759 test_runs_everywhere('test2_11').
760 mutator('test2_11', ['test2_11.C']).
761 test_runmode('test2_11', 'dynamic').
762 test_start_state('test2_11', 'stopped').
763 groupable_test('test2_11').
764 tests_module('test2_11', 'dyninst').
765
766 test('test2_12', 'test2_12', 'dyninst_group_test').
767 test_runs_everywhere('test2_12').
768 mutator('test2_12', ['test2_12.C']).
769 test_runmode('test2_12', 'dynamic').
770 test_start_state('test2_12', 'stopped').
771 groupable_test('test2_12').
772 tests_module('test2_12', 'dyninst').
773
774 test('test2_13', 'test2_13', 'dyninst_group_test').
775 % test2_13 doesnt run on Alpha, but were not supporting Alpha any more, so we
776 % dont need to bother checking for it
777 test_runs_everywhere('test2_13').
778 mutator('test2_13', ['test2_13.C']).
779 test_runmode('test2_13', 'dynamic').
780 test_start_state('test2_13', 'stopped').
781 groupable_test('test2_13').
782 tests_module('test2_13', 'dyninst').
783
784 test('test2_14', 'test2_14', 'test2_14').
785 test_runs_everywhere('test2_14').
786 mutator('test2_14', ['test2_14.C']).
787 mutatee('test2_14', ['test2_14_mutatee.c']).
788 compiler_for_mutatee('test2_14', Compiler) :- comp_lang(Compiler, 'c').
789 test_runmode('test2_14', 'dynamic').
790 test_start_state('test2_14', 'stopped').
791 tests_module('test2_14', 'dyninst').
792
793 test('test3_1', 'test3_1', 'test3_1').
794 test_runs_everywhere('test3_1').
795 mutator('test3_1', ['test3_1.C']).
796 mutatee('test3_1', ['test3_1_mutatee.c']).
797 compiler_for_mutatee('test3_1', Compiler) :- comp_lang(Compiler, 'c').
798 test_runmode('test3_1', 'createProcess').
799 test_start_state('test3_1', 'selfstart').
800 tests_module('test3_1', 'dyninst').
801
802 test('test3_2', 'test3_2', 'test3_2').
803 test_runs_everywhere('test3_2').
804 mutator('test3_2', ['test3_2.C']).
805 mutatee('test3_2', ['test3_2_mutatee.c']).
806 compiler_for_mutatee('test3_2', C) :- comp_lang(C, 'c').
807 test_runmode('test3_2', 'createProcess').
808 test_start_state('test3_2', 'selfstart').
809 tests_module('test3_2', 'dyninst').
810
811 test('test3_3', 'test3_3', 'test3_3').
812 test_runs_everywhere('test3_3').
813 mutator('test3_3', ['test3_3.C']).
814 mutatee('test3_3', ['test3_3_mutatee.c']).
815 compiler_for_mutatee('test3_3', C) :- comp_lang(C, 'c').
816 test_runmode('test3_3', 'createProcess').
817 test_start_state('test3_3', 'selfstart').
818 tests_module('test3_3', 'dyninst').
819
820 test('test3_4', 'test3_4', 'test3_4').
821 test_runs_everywhere('test3_4').
822 mutator('test3_4', ['test3_4.C']).
823 mutatee('test3_4', ['test3_4_mutatee.c']).
824 compiler_for_mutatee('test3_4', C) :- comp_lang(C, 'c').
825 test_runmode('test3_4', 'createProcess').
826 test_start_state('test3_4', 'selfstart').
827 tests_module('test3_4', 'dyninst').
828
829 test('test3_5', 'test3_5', 'test3_5').
830 test_platform('test3_5', Platform) :-
831     platform(_, OS, _, Platform), OS \= 'windows'.
832 mutator('test3_5', ['test3_5.C']).
833 mutatee('test3_5', ['test3_5_mutatee.c']).
834 compiler_for_mutatee('test3_5', C) :- comp_lang(C, 'c').
835 test_runmode('test3_5', 'createProcess').
836 test_start_state('test3_5', 'selfstart').
837 tests_module('test3_5', 'dyninst').
838
839 test('test3_6', 'test3_6', 'test3_6').
840 test_description('test3_6', 'simultaneous multiple-process management - terminate (fork)').
841 % test3_6 doesnt run on Windows
842 test_platform('test3_6', Platform) :-
843     platform(_, OS, _, Platform), OS \= 'windows'.
844 mutator('test3_6', ['test3_6.C']).
845 mutatee('test3_6', ['test3_6_mutatee.c']).
846 compiler_for_mutatee('test3_6', Compiler) :- comp_lang(Compiler, 'c').
847 test_runmode('test3_6', 'createProcess').
848 test_start_state('test3_6', 'selfstart').
849 tests_module('test3_6', 'dyninst').
850
851 test('test3_7', 'test3_7', 'test3_7').
852 test_runs_everywhere('test3_7').
853 mutator('test3_7', ['test3_7.C']).
854 mutatee('test3_7', ['test3_7_mutatee.c']).
855 compiler_for_mutatee('test3_7', Compiler) :- comp_lang(Compiler, 'c').
856 test_runmode('test3_7', 'createProcess').
857 test_start_state('test3_7', 'selfstart').
858 tests_module('test3_7', 'dyninst').
859
860 test('test4_1', 'test4_1', 'test4_1').
861 % Mutator claims test doesnt run on Alpha or Windows, but there were no
862 % checks to make sure it wasnt running on Windows..
863 test_runs_everywhere('test4_1').
864 mutator('test4_1', ['test4_1.C']).
865 mutatee('test4_1', ['test4_1_mutatee.c']).
866 compiler_for_mutatee('test4_1', Compiler) :- comp_lang(Compiler, 'c').
867 test_runmode('test4_1', 'createProcess').
868 test_start_state('test4_1', 'selfstart').
869 tests_module('test4_1', 'dyninst').
870
871 test('test4_2', 'test4_2', 'test4_2').
872 % test4_2 doesnt run on Windows
873 test_platform('test4_2', Platform) :-
874     platform(_, OS, _, Platform), OS \= 'windows'.
875 mutator('test4_2', ['test4_2.C']).
876 mutatee('test4_2', ['test4_2_mutatee.c']).
877 compiler_for_mutatee('test4_2', Compiler) :- comp_lang(Compiler, 'c').
878 test_runmode('test4_2', 'createProcess').
879 test_start_state('test4_2', 'selfstart').
880 tests_module('test4_2', 'dyninst').
881
882 test('test4_3', 'test4_3', 'test4_3').
883 % test4_3 doesnt run on Windows
884 test_platform('test4_3', Platform) :-
885     platform(_, OS, _, Platform), OS \= 'windows'.
886 mutator('test4_3', ['test4_3.C']).
887 mutatee('test4_3', ['test4_3_mutatee.c']).
888 compiler_for_mutatee('test4_3', Compiler) :- comp_lang(Compiler, 'c').
889 test_runmode('test4_3', 'createProcess').
890 test_start_state('test4_3', 'selfstart').
891 mutatee('test4_3b', ['test4_3b_mutatee.c']).
892 mutatee_peer('test4_3', 'test4_3b').
893 compiler_for_mutatee('test4_3b', Compiler) :- comp_lang(Compiler, 'c').
894 tests_module('test4_3', 'dyninst').
895
896 test('test4_4', 'test4_4', 'test4_4').
897 % test4_4 doesnt run on Windows
898 test_platform('test4_4', Platform) :-
899     platform(_, OS, _, Platform), OS \= 'windows'.
900 mutator('test4_4', ['test4_4.C']).
901 mutatee('test4_4', ['test4_4_mutatee.c']).
902 compiler_for_mutatee('test4_4', Compiler) :-
903     comp_lang(Compiler, 'c').
904 test_runmode('test4_4', 'createProcess').
905 test_start_state('test4_4', 'selfstart').
906 mutatee('test4_4b', ['test4_4b_mutatee.c']).
907 mutatee_peer('test4_4', 'test4_4b').
908 compiler_for_mutatee('test4_4b', Compiler) :-
909     comp_lang(Compiler, 'c').
910 tests_module('test4_4', 'dyninst').
911
912 test('test5_1', 'test5_1', 'dyninst_cxx_group_test').
913 % test5_1 only runs on Linux, Solaris, and Windows
914 test_platform('test5_1', Platform) :-
915     platform(_, OS, _, Platform),
916     member(OS, ['linux', 'solaris', 'windows', 'aix']).
917 mutator('test5_1', ['test5_1.C']).
918 test_runmode('test5_1', 'staticdynamic').
919 test_start_state('test5_1', 'stopped').
920 groupable_test('test5_1').
921 restricted_amd64_abi('test5_1').
922 tests_module('test5_1', 'dyninst').
923
924 test('test5_2', 'test5_2', 'dyninst_cxx_group_test').
925 % test5_2 only runs on Linux, Solaris, and Windows
926 test_platform('test5_2', Platform) :-
927     platform(_, OS, _, Platform),
928     member(OS, ['linux', 'solaris', 'windows', 'aix']).
929 mutator('test5_2', ['test5_2.C']).
930 test_runmode('test5_2', 'staticdynamic').
931 test_start_state('test5_2', 'stopped').
932 groupable_test('test5_2').
933 restricted_amd64_abi('test5_2').
934 tests_module('test5_2', 'dyninst').
935
936 test('test5_3', 'test5_3', 'dyninst_cxx_group_test').
937 test_runs_everywhere('test5_3').
938 mutator('test5_3', ['test5_3.C']).
939 test_runmode('test5_3', 'staticdynamic').
940 test_start_state('test5_3', 'stopped').
941 groupable_test('test5_3').
942 restricted_amd64_abi('test5_3').
943 tests_module('test5_3', 'dyninst').
944
945 test('test5_4', 'test5_4', 'dyninst_cxx_group_test').
946 % test5_4 only runs on Linux, Solaris, and Windows
947 test_platform('test5_4', Platform) :-
948     platform(_, OS, _, Platform),
949     member(OS, ['linux', 'solaris', 'windows', 'aix']).
950 mutator('test5_4', ['test5_4.C']).
951 test_runmode('test5_4', 'staticdynamic').
952 test_start_state('test5_4', 'stopped').
953 groupable_test('test5_4').
954 restricted_amd64_abi('test5_4').
955 tests_module('test5_4', 'dyninst').
956
957 test('test5_5', 'test5_5', 'dyninst_cxx_group_test').
958 % test5_5 only runs on Linux, Solaris, and Windows
959 test_platform('test5_5', Platform) :-
960     platform(_, OS, _, Platform),
961     member(OS, ['linux', 'solaris', 'windows', 'aix']).
962 mutator('test5_5', ['test5_5.C']).
963 test_runmode('test5_5', 'staticdynamic').
964 test_start_state('test5_5', 'stopped').
965 groupable_test('test5_5').
966 restricted_amd64_abi('test5_5').
967 tests_module('test5_5', 'dyninst').
968
969 test('test5_6', 'test5_6', 'dyninst_cxx_group_test').
970 % test5_6 only runs on x86 Linux
971 test_platform('test5_6', Platform) :-
972     platform('i386', 'linux', _, Platform).
973 mutator('test5_6', ['test5_6.C']).
974 test_runmode('test5_6', 'staticdynamic').
975 test_start_state('test5_6', 'stopped').
976 groupable_test('test5_6').
977 restricted_amd64_abi('test5_6').
978 tests_module('test5_6', 'dyninst').
979
980 test('test5_7', 'test5_7', 'dyninst_cxx_group_test').
981 % test5_7 only runs on Linux, Solaris, and Windows
982 test_platform('test5_7', Platform) :-
983     platform(_, OS, _, Platform),
984     member(OS, ['linux', 'solaris', 'windows', 'aix']).
985 mutator('test5_7', ['test5_7.C']).
986 test_runmode('test5_7', 'staticdynamic').
987 test_start_state('test5_7', 'stopped').
988 groupable_test('test5_7').
989 restricted_amd64_abi('test5_7').
990 tests_module('test5_7', 'dyninst').
991
992 test('test5_8', 'test5_8', 'dyninst_cxx_group_test').
993 % test5_8 only runs on Linux, Solaris, and Windows
994 test_platform('test5_8', Platform) :-
995     platform(_, OS, _, Platform),
996     member(OS, ['linux', 'solaris', 'windows', 'aix']).
997 mutator('test5_8', ['test5_8.C']).
998 test_runmode('test5_8', 'staticdynamic').
999 test_start_state('test5_8', 'stopped').
1000 groupable_test('test5_8').
1001 restricted_amd64_abi('test5_8').
1002 tests_module('test5_8', 'dyninst').
1003
1004 test('test5_9', 'test5_9', 'dyninst_cxx_group_test').
1005 % test5_9 only runs on Linus, Solaris, and Windows
1006 test_platform('test5_9', Platform) :-
1007     platform(_, OS, _, Platform),
1008     member(OS, ['linux', 'solaris', 'windows', 'aix']).
1009 mutator('test5_9', ['test5_9.C']).
1010 test_runmode('test5_9', 'staticdynamic').
1011 test_start_state('test5_9', 'stopped').
1012 groupable_test('test5_9').
1013 restricted_amd64_abi('test5_9').
1014 tests_module('test5_9', 'dyninst').
1015
1016 % Convenience rule for mapping platforms to the asm sources for test_mem
1017 test_mem_mutatee_aux(P, Aux) :-
1018     (
1019         platform('sparc', 'solaris', _, P) -> Aux = ['test_mem_util.c',
1020                                                      'test6LS-sparc.S'];
1021         platform('power', 'aix', _, P) -> Aux = ['test_mem_util.c',
1022                                                  'test6LS-power.s'];
1023         platform('i386', 'linux', _, P) -> Aux = ['test_mem_util.c',
1024                                                   'test6LS-x86.asm'];
1025         platform('i386', 'windows', _, P) -> Aux = ['test_mem_util.c',
1026                                                     'test6LS-masm.asm'];
1027         platform('ia64', 'linux', _, P) -> Aux = ['test_mem_util.c',
1028                                                   'test6LS-ia64.s'];
1029         platform('x86_64', 'linux', _, P) -> Aux = ['test_mem_util.c',
1030                                                     'test6LS-x86_64.s'];
1031         platform('power', 'linux', _, P) -> Aux = ['test_mem_util.c',
1032                                                    'test6LS-powerpc.S']
1033     ).
1034
1035 % Convenience rule for checking platforms for test_mem_*
1036 test_mem_platform(Platform) :-
1037         platform('sparc', 'solaris', _, Platform);
1038         platform('power', 'aix', _, Platform);
1039         platform('i386', 'linux', _, Platform);
1040         platform('i386', 'windows', _, Platform);
1041         platform('ia64', 'linux', _, Platform);
1042         platform('x86_64', 'linux', _, Platform).
1043
1044 % Special flags for asm files on Solaris
1045 spec_object_file(OFile, 'gcc', ['dyninst/test6LS-sparc.S'], [], [],
1046                  ['-P -Wa,-xarch=v8plus']) :-
1047     current_platform('sparc-sun-solaris2.8'),
1048     member(OFile, ['test6LS-sparc_gcc_32_none', 'test6LS-sparc_gcc_32_low',
1049                    'test6LS-sparc_gcc_32_high', 'test6LS-sparc_gcc_32_max']).
1050
1051 spec_object_file(OFile, 'gcc', ['dyninst/test6LS-sparc.S'], [], [],
1052                  ['-P -Wa,-xarch=v8plus']) :-
1053     current_platform('sparc-sun-solaris2.9'),
1054     member(OFile, ['test6LS-sparc_gcc_32_none', 'test6LS-sparc_gcc_32_low',
1055                    'test6LS-sparc_gcc_32_high', 'test6LS-sparc_gcc_32_max']).
1056
1057 spec_object_file(OFile, 'ibm_as', ['dyninst/test6LS-power.s'], [], [], []) :-
1058         current_platform(P),
1059         platform('power', 'aix', _, P),
1060         member(OFile, ['test6LS-power_gcc_32_none', 'test6LS-power_gcc_32_low',
1061                        'test6LS-power_gcc_32_high', 'test6LS-power_gcc_32_max']).
1062
1063 % test_mem_1, formerly test6_1
1064 test('test_mem_1', 'test_mem_1', 'test_mem_1').
1065 % test_mem_1 runs on some specific platforms (asm code)
1066 test_platform('test_mem_1', Platform) :-
1067     test_mem_platform(Platform).
1068 mutator('test_mem_1', ['test_mem_1.C']).
1069 mutatee('test_mem_1', ['test_mem_1_mutatee.c'], Aux) :-
1070     current_platform(P),
1071     test_mem_mutatee_aux(P, Aux).
1072 compiler_for_mutatee('test_mem_1', Compiler) :-
1073     comp_lang(Compiler, 'c').
1074 test_runmode('test_mem_1', 'createProcess').
1075 test_start_state('test_mem_1', 'stopped').
1076 % I dont think these memory tests should be groupable
1077 % groupable_test('test_mem_1').
1078 restricted_amd64_abi('test_mem_1').
1079 tests_module('test_mem_1', 'dyninst').
1080
1081 % test_mem_2, formerly test6_2
1082 test('test_mem_2', 'test_mem_2', 'test_mem_2').
1083 % test_mem_2 runs on specified platforms (assembly code)
1084 test_platform('test_mem_2', Platform) :-
1085     test_mem_platform(Platform).
1086 mutator('test_mem_2', ['test_mem_2.C']).
1087 mutatee('test_mem_2', ['test_mem_2_mutatee.c'], Aux) :-
1088     current_platform(Plat),
1089     test_mem_mutatee_aux(Plat, Aux).
1090 compiler_for_mutatee('test_mem_2', Compiler) :-
1091     comp_lang(Compiler, 'c').
1092 test_runmode('test_mem_2', 'createProcess').
1093 test_start_state('test_mem_2', 'stopped').
1094 restricted_amd64_abi('test_mem_2').
1095 tests_module('test_mem_2', 'dyninst').
1096
1097 % test_mem_3, formerly test6_3
1098 test('test_mem_3', 'test_mem_3', 'test_mem_3').
1099 test_platform('test_mem_3', Platform) :-
1100     test_mem_platform(Platform).
1101 mutator('test_mem_3', ['test_mem_3.C']).
1102 mutatee('test_mem_3', ['test_mem_3_mutatee.c'], Aux) :-
1103     current_platform(Plat),
1104     test_mem_mutatee_aux(Plat, Aux).
1105 compiler_for_mutatee('test_mem_3', Compiler) :-
1106     comp_lang(Compiler, 'c').
1107 test_runmode('test_mem_3', 'createProcess').
1108 test_start_state('test_mem_3', 'stopped').
1109 restricted_amd64_abi('test_mem_3').
1110 tests_module('test_mem_3', 'dyninst').
1111
1112 % test_mem_4, formerly test6_4
1113 test('test_mem_4', 'test_mem_4', 'test_mem_4').
1114 test_platform('test_mem_4', Platform) :-
1115     test_mem_platform(Platform).
1116 mutator('test_mem_4', ['test_mem_4.C']).
1117 mutatee('test_mem_4', ['test_mem_4_mutatee.c'], Aux) :-
1118     current_platform(Platform),
1119     test_mem_mutatee_aux(Platform, Aux).
1120 compiler_for_mutatee('test_mem_4', Compiler) :-
1121     comp_lang(Compiler, 'c').
1122 test_runmode('test_mem_4', 'createProcess').
1123 test_start_state('test_mem_4', 'stopped').
1124 restricted_amd64_abi('test_mem_4').
1125 tests_module('test_mem_4', 'dyninst').
1126
1127 % test_mem_5, formerly test6_5
1128 test('test_mem_5', 'test_mem_5', 'test_mem_5').
1129 test_platform('test_mem_5', Platform) :-
1130     test_mem_platform(Platform).
1131 mutator('test_mem_5', ['test_mem_5.C']).
1132 mutatee('test_mem_5', ['test_mem_5_mutatee.c'], Aux) :-
1133     current_platform(Platform),
1134     test_mem_mutatee_aux(Platform, Aux).
1135 compiler_for_mutatee('test_mem_5', Compiler) :-
1136     comp_lang(Compiler, 'c').
1137 test_runmode('test_mem_5', 'createProcess').
1138 test_start_state('test_mem_5', 'stopped').
1139 restricted_amd64_abi('test_mem_5').
1140 tests_module('test_mem_5', 'dyninst').
1141
1142 % test_mem_6, formerly test6_6
1143 test('test_mem_6', 'test_mem_6', 'test_mem_6').
1144 test_platform('test_mem_6', Platform) :-
1145     test_mem_platform(Platform).
1146 mutator('test_mem_6', ['test_mem_6.C']).
1147 mutatee('test_mem_6', ['test_mem_6_mutatee.c'], Aux) :-
1148     current_platform(Platform),
1149     test_mem_mutatee_aux(Platform, Aux).
1150 compiler_for_mutatee('test_mem_6', Compiler) :-
1151     comp_lang(Compiler, 'c').
1152 test_runmode('test_mem_6', 'createProcess').
1153 test_start_state('test_mem_6', 'stopped').
1154 restricted_amd64_abi('test_mem_6').
1155 tests_module('test_mem_6', 'dyninst').
1156
1157 % test_mem_7, formerly test6_7
1158 test('test_mem_7', 'test_mem_7', 'test_mem_7').
1159 test_platform('test_mem_7', Platform) :-
1160     test_mem_platform(Platform).
1161 mutator('test_mem_7', ['test_mem_7.C']).
1162 mutatee('test_mem_7', ['test_mem_7_mutatee.c'], Aux) :-
1163     current_platform(Platform),
1164     test_mem_mutatee_aux(Platform, Aux).
1165 compiler_for_mutatee('test_mem_7', Compiler) :-
1166     comp_lang(Compiler, 'c').
1167 test_runmode('test_mem_7', 'createProcess').
1168 test_start_state('test_mem_7', 'stopped').
1169 restricted_amd64_abi('test_mem_7').
1170 tests_module('test_mem_7', 'dyninst').
1171
1172 % test_mem_8, formerly test6_8
1173 test('test_mem_8', 'test_mem_8', 'test_mem_8').
1174 test_platform('test_mem_8', Platform) :-
1175     test_mem_platform(Platform).
1176 mutator('test_mem_8', ['test_mem_8.C']).
1177 mutatee('test_mem_8', ['test_mem_8_mutatee.c'], Aux) :-
1178     current_platform(Platform),
1179     test_mem_mutatee_aux(Platform, Aux).
1180 compiler_for_mutatee('test_mem_8', Compiler) :-
1181     comp_lang(Compiler, 'c').
1182 test_runmode('test_mem_8', 'createProcess').
1183 test_start_state('test_mem_8', 'stopped').
1184 restricted_amd64_abi('test_mem_8').
1185 tests_module('test_mem_8', 'dyninst').
1186
1187 test('test_fork_5', 'test_fork_5', 'test_fork_5'). % Formerly test7_1
1188 % No fork() on Windows
1189 test_platform('test_fork_5', Platform) :-
1190     platform(_, OS, _, Platform),
1191     OS \= 'windows'.
1192 mutator('test_fork_5', ['test_fork_5.C']).
1193 mutatee('test_fork_5', ['test_fork_5_mutatee.c']).
1194 compiler_for_mutatee('test_fork_5', Compiler) :-
1195     comp_lang(Compiler, 'c').
1196 test_runmode('test_fork_5', 'createProcess').
1197 test_start_state('test_fork_5', 'stopped').
1198 tests_module('test_fork_5', 'dyninst').
1199
1200 test('test_fork_6', 'test_fork_6', 'test_fork_6'). % Formerly test7_2
1201 % No fork() on Windows
1202 test_platform('test_fork_6', Platform) :-
1203     platform(_, OS, _, Platform),
1204     OS \= 'windows'.
1205 mutator('test_fork_6', ['test_fork_6.C']).
1206 mutatee('test_fork_6', ['test_fork_6_mutatee.c']).
1207 compiler_for_mutatee('test_fork_6', Compiler) :-
1208     comp_lang(Compiler, 'c').
1209 test_runmode('test_fork_6', 'createProcess').
1210 test_start_state('test_fork_6', 'stopped').
1211 tests_module('test_fork_6', 'dyninst').
1212
1213 test('test_fork_7', 'test_fork_7', 'test_fork_7'). % Formerly test7_3
1214 % No fork() on Windows
1215 test_platform('test_fork_7', Platform) :-
1216     platform(_, OS, _, Platform),
1217     OS \= 'windows'.
1218 mutator('test_fork_7', ['test_fork_7.C']).
1219 mutatee('test_fork_7', ['test_fork_7_mutatee.c']).
1220 compiler_for_mutatee('test_fork_7', Compiler) :-
1221     comp_lang(Compiler, 'c').
1222 test_runmode('test_fork_7', 'createProcess').
1223 test_start_state('test_fork_7', 'stopped').
1224 tests_module('test_fork_7', 'dyninst').
1225
1226 test('test_fork_8', 'test_fork_8', 'test_fork_8'). % Formerly test7_4
1227 % No fork() on Windows
1228 test_platform('test_fork_8', Platform) :-
1229     platform(_, OS, _, Platform),
1230     OS \= 'windows'.
1231 mutator('test_fork_8', ['test_fork_8.C']).
1232 mutatee('test_fork_8', ['test_fork_8_mutatee.c']).
1233 compiler_for_mutatee('test_fork_8', Compiler) :-
1234     comp_lang(Compiler, 'c').
1235 test_runmode('test_fork_8', 'createProcess').
1236 test_start_state('test_fork_8', 'stopped').
1237 tests_module('test_fork_8', 'dyninst').
1238
1239 test('test_fork_9', 'test_fork_9', 'test_fork_9'). % Formerly test7_5
1240 % No fork() on Windows
1241 test_platform('test_fork_9', Platform) :-
1242     platform(_, OS, _, Platform),
1243     OS \= 'windows'.
1244 mutator('test_fork_9', ['test_fork_9.C']).
1245 mutatee('test_fork_9', ['test_fork_9_mutatee.c']).
1246 compiler_for_mutatee('test_fork_9', Compiler) :-
1247     comp_lang(Compiler, 'c').
1248 test_runmode('test_fork_9', 'createProcess').
1249 test_start_state('test_fork_9', 'stopped').
1250 tests_module('test_fork_9', 'dyninst').
1251
1252 test('test_fork_10', 'test_fork_10', 'test_fork_10'). % Formerly test7_6
1253 % No fork() on Windows
1254 test_platform('test_fork_10', Platform) :-
1255     platform(_, OS, _, Platform),
1256     OS \= 'windows'.
1257 mutator('test_fork_10', ['test_fork_10.C']).
1258 mutatee('test_fork_10', ['test_fork_10_mutatee.c']).
1259 compiler_for_mutatee('test_fork_10', Compiler) :-
1260     comp_lang(Compiler, 'c').
1261 test_runmode('test_fork_10', 'createProcess').
1262 test_start_state('test_fork_10', 'stopped').
1263 tests_module('test_fork_10', 'dyninst').
1264
1265 test('test_fork_11', 'test_fork_11', 'test_fork_11'). % Formerly test7_7
1266 % No fork() on Windows
1267 test_platform('test_fork_11', Platform) :-
1268     platform(_, OS, _, Platform),
1269     OS \= 'windows'.
1270 mutator('test_fork_11', ['test_fork_11.C']).
1271 mutatee('test_fork_11', ['test_fork_11_mutatee.c']).
1272 compiler_for_mutatee('test_fork_11', Compiler) :-
1273     comp_lang(Compiler, 'c').
1274 test_runmode('test_fork_11', 'createProcess').
1275 test_start_state('test_fork_11', 'stopped').
1276 tests_module('test_fork_11', 'dyninst').
1277
1278 test('test_fork_12', 'test_fork_12', 'test_fork_12'). % Formerly test7_8
1279 % No fork() on Windows
1280 test_platform('test_fork_12', Platform) :-
1281     platform(_, OS, _, Platform),
1282     OS \= 'windows'.
1283 mutator('test_fork_12', ['test_fork_12.C']).
1284 mutatee('test_fork_12', ['test_fork_12_mutatee.c']).
1285 compiler_for_mutatee('test_fork_12', Compiler) :-
1286     comp_lang(Compiler, 'c').
1287 test_runmode('test_fork_12', 'createProcess').
1288 test_start_state('test_fork_12', 'stopped').
1289 tests_module('test_fork_12', 'dyninst').
1290
1291 test('test_fork_13', 'test_fork_13', 'test_fork_13'). % Formerly test7_9
1292 % No fork() on Windows
1293 test_platform('test_fork_13', Platform) :-
1294     platform(_, OS, _, Platform),
1295     OS \= 'windows'.
1296 mutator('test_fork_13', ['test_fork_13.C']).
1297 mutatee('test_fork_13', ['test_fork_13_mutatee.c']).
1298 compiler_for_mutatee('test_fork_13', Compiler) :-
1299     comp_lang(Compiler, 'c').
1300 test_runmode('test_fork_13', 'createProcess').
1301 test_start_state('test_fork_13', 'stopped').
1302 tests_module('test_fork_13', 'dyninst').
1303
1304 % test_stack_1 (formerly test8_1)
1305 test('test_stack_1', 'test_stack_1', 'test_stack_1').
1306 test_description('test_stack_1', 'Basic getCallStack test').
1307 test_runs_everywhere('test_stack_1').
1308 mutator('test_stack_1', ['test_stack_1.C']).
1309 mutatee('test_stack_1', ['test_stack_1_mutatee.c']).
1310 compiler_for_mutatee('test_stack_1', Compiler) :-
1311     comp_lang(Compiler, 'c').
1312 test_runmode('test_stack_1', 'createProcess').
1313 test_start_state('test_stack_1', 'stopped').
1314 tests_module('test_stack_1', 'dyninst').
1315
1316 % test_stack_2 (formerly test8_2)
1317 test('test_stack_2', 'test_stack_2', 'test_stack_2').
1318 test_description('test_stack_2', 'Test getCallStack when the mutatee stops in a signal handler').
1319 % test_stack_2 doesnt run on Windows
1320 test_platform('test_stack_2', Platform) :-
1321     platform(_, OS, _, Platform),
1322     OS \= 'windows'.
1323 mutator('test_stack_2', ['test_stack_2.C']).
1324 mutatee('test_stack_2', ['test_stack_2_mutatee.c']).
1325 compiler_for_mutatee('test_stack_2', Compiler) :-
1326     comp_lang(Compiler, 'c').
1327 test_runmode('test_stack_2', 'createProcess').
1328 test_start_state('test_stack_2', 'stopped').
1329 tests_module('test_stack_2', 'dyninst').
1330
1331 % test_stack_3 (formerly test8_3)
1332 test('test_stack_3', 'test_stack_3', 'test_stack_3').
1333 test_description('test_stack_3', 'Test getCallStack through instrumentation').
1334 test_runs_everywhere('test_stack_3').
1335 mutator('test_stack_3', ['test_stack_3.C']).
1336 mutatee('test_stack_3', ['test_stack_3_mutatee.c']).
1337 compiler_for_mutatee('test_stack_3', Compiler) :-
1338     comp_lang(Compiler, 'c').
1339 test_runmode('test_stack_3', 'createProcess').
1340 test_start_state('test_stack_3', 'stopped').
1341 tests_module('test_stack_3', 'dyninst').
1342
1343 % test_callback_1 (formerly test12_2)
1344 test('test_callback_1', 'test_callback_1', 'test_callback_1').
1345 test_description('test_callback_1', 'dynamic callsite callbacks').
1346 % Why doesnt this test run on Windows?
1347 test_platform('test_callback_1', Platform) :-
1348     platform(_, OS, _, Platform),
1349     OS \= 'windows'.
1350 mutator('test_callback_1', ['test_callback_1.C']).
1351 mutatee('test_callback_1', ['test_callback_1_mutatee.c']).
1352 compiler_for_mutatee('test_callback_1', Compiler) :-
1353     comp_lang(Compiler, 'c').
1354 test_runmode('test_callback_1', 'createProcess').
1355 test_start_state('test_callback_1', 'stopped').
1356 tests_module('test_callback_1', 'dyninst').
1357
1358 % test_callback_2 (formerly test12_7)
1359 test('test_callback_2', 'test_callback_2', 'test_callback_2').
1360 test_description('test_callback_2', 'user defined message callback -- st').
1361 % Is there really any reason why this test *cant* run on Windows?
1362 test_platform('test_callback_2', Platform) :-
1363     platform(_, OS, _, Platform),
1364     OS \= 'windows'.
1365 mutator('test_callback_2', ['test_callback_2.C']).
1366 mutatee('test_callback_2', ['test_callback_2_mutatee.c']).
1367 compiler_for_mutatee('test_callback_2', Compiler) :-
1368     comp_lang(Compiler, 'c').
1369 test_runmode('test_callback_2', 'createProcess').
1370 test_start_state('test_callback_2', 'stopped').
1371 tests_module('test_callback_2', 'dyninst').
1372
1373 % test_thread_1 (Formerly test12_1)
1374 test('test_thread_1', 'test_thread_1', 'test_thread_1').
1375 test_description('test_thread_1', 'rtlib spinlocks').
1376 % test_thread_* doesnt run on Windows
1377 test_platform('test_thread_1', Platform) :-
1378     platform(_, OS, _, Platform),
1379     OS \= 'windows'.
1380 mutator('test_thread_1', ['test_thread_1.C']).
1381 mutatee('test_thread_1', ['test_thread_1_mutatee.c'], ['test_thread.c']).
1382 compiler_for_mutatee('test_thread_1', Compiler) :-
1383     comp_lang(Compiler, 'c').
1384 % Requires an additional library on Solaris
1385 mutatee_requires_libs('test_thread_1', Libs) :-
1386     current_platform(P),
1387     platform(_, OS, _, P),
1388     (
1389         OS = 'solaris' -> Libs = ['dl', 'pthread', 'rt'];
1390         Libs = ['dl', 'pthread']
1391     ).
1392 test_runmode('test_thread_1', 'createProcess').
1393 test_start_state('test_thread_1', 'stopped').
1394 tests_module('test_thread_1', 'dyninst').
1395
1396 % test_thread_2 (formerly test12_3)
1397 mutator('test_thread_2', ['test_thread_2.C']).
1398 mutatee('test_thread_2', ['test_thread_2_mutatee.c'], ['test_thread.c']).
1399 compiler_for_mutatee('test_thread_2', Compiler) :-
1400     comp_lang(Compiler, 'c').
1401 % Requires an additional library on Solaris
1402 mutatee_requires_libs('test_thread_2', Libs) :-
1403     current_platform(P),
1404     platform(_, OS, _, P),
1405     (
1406         OS = 'solaris' -> Libs = ['dl', 'pthread', 'rt'];
1407         Libs = ['dl', 'pthread']
1408     ).
1409 test('test_thread_2', 'test_thread_2', 'test_thread_2').
1410 % Does this test fall under callback tests or thread tests?
1411 test_description('test_thread_2', 'thread create callback').
1412 test_platform('test_thread_2', Platform) :-
1413     platform(_, OS, _, Platform),
1414     OS \= 'windows'.
1415 test_runmode('test_thread_2', 'createProcess').
1416 test_start_state('test_thread_2', 'stopped').
1417 tests_module('test_thread_2', 'dyninst').
1418
1419 % test_thread_3 (formerly test12_4)
1420 mutator('test_thread_3', ['test_thread_3.C']).
1421 mutatee('test_thread_3', ['test_thread_3_mutatee.c'], ['test_thread.c']).
1422 compiler_for_mutatee('test_thread_3', Compiler) :-
1423     comp_lang(Compiler, 'c').
1424 % Requires an additional library on Solaris
1425 mutatee_requires_libs('test_thread_3', Libs) :-
1426     current_platform(P),
1427     platform(_, OS, _, P),
1428     (
1429         OS = 'solaris' -> Libs = ['dl', 'pthread', 'rt'];
1430         Libs = ['dl', 'pthread']
1431     ).
1432 test('test_thread_3', 'test_thread_3', 'test_thread_3').
1433 test_description('test_thread_3', 'thread create callback - doa').
1434 test_platform('test_thread_3', Platform) :-
1435     platform(_, OS, _, Platform),
1436     OS \= 'windows'.
1437 test_runmode('test_thread_3', 'createProcess').
1438 test_start_state('test_thread_3', 'stopped').
1439 tests_module('test_thread_3', 'dyninst').
1440
1441 % test_thread_5 (formerly test12_8)
1442 mutator('test_thread_5', ['test_thread_5.C']).
1443 mutatee('test_thread_5', ['test_thread_5_mutatee.c'], ['test_thread.c']).
1444 compiler_for_mutatee('test_thread_5', Compiler) :-
1445     comp_lang(Compiler, 'c').
1446 % Requires an additional library on Solaris
1447 mutatee_requires_libs('test_thread_5', Libs) :-
1448     current_platform(P),
1449     platform(_, OS, _, P),
1450     (
1451         OS = 'solaris' -> Libs = ['dl', 'pthread', 'rt'];
1452         Libs = ['dl', 'pthread']
1453     ).
1454 test('test_thread_5', 'test_thread_5', 'test_thread_5').
1455 test_description('test_thread_5', 'user defined message callback -- mt').
1456 test_platform('test_thread_5', Platform) :-
1457     platform(_, OS, _, Platform),
1458     OS \= 'windows'.
1459 test_runmode('test_thread_5', 'createProcess').
1460 test_start_state('test_thread_5', 'stopped').
1461 tests_module('test_thread_5', 'dyninst').
1462
1463 % test_thread_6 (formerly test13_1)
1464 mutator('test_thread_6', ['test_thread_6.C']).
1465 mutatee('test_thread_6', ['test_thread_6_mutatee.c'], ['mutatee_util_mt.c']).
1466 compiler_for_mutatee('test_thread_6', Compiler) :-
1467     comp_lang(Compiler, 'c').
1468 % Mutatee needs to be linked with libpthread everywhere but on Windows
1469 mutatee_requires_libs('test_thread_6', Libs) :-
1470     current_platform(Platform),
1471     platform(_, OS, _, Platform),
1472     (
1473         OS = 'windows' -> Libs = [];
1474         OS = 'solaris' -> Libs = ['pthread', 'rt'];
1475         Libs = ['pthread']
1476     ).
1477 test('test_thread_6', 'test_thread_6', 'test_thread_6').
1478 test_description('test_thread_6', 'thread create and destroy callbacks?').
1479 test_runs_everywhere('test_thread_6').
1480 test_runmode('test_thread_6', 'dynamic').
1481 test_start_state('test_thread_6', 'selfstart').
1482 tests_module('test_thread_6', 'dyninst').
1483
1484 % test_thread_7 (formerly test14_1)
1485 mutator('test_thread_7', ['test_thread_7.C']).
1486 mutatee('test_thread_7', ['test_thread_7_mutatee.c'], ['mutatee_util_mt.c']).
1487 compiler_for_mutatee('test_thread_7', Compiler) :-
1488     comp_lang(Compiler, 'c').
1489 % gcc/g++ with max optimization do some weird recursive call unrolling that
1490 % breaks this test
1491 optimization_for_mutatee('test_thread_7', GNU, Opt) :-
1492     member(GNU, ['gcc', 'g++']),
1493     member(Opt, ['none', 'low', 'high']).
1494 optimization_for_mutatee('test_thread_7', NonGNU, Opt) :-
1495     comp_lang(NonGNU, 'c'),
1496     \+ member(NonGNU, ['gcc', 'g++']),
1497     compiler_opt_trans(NonGNU, Opt, _).
1498 % Mutatee needs to be linked with libpthread everywhere but on Windows
1499 mutatee_requires_libs('test_thread_7', Libs) :-
1500     current_platform(Platform),
1501     platform(_, OS, _, Platform),
1502     (
1503         OS = 'windows' -> Libs = [];
1504         OS = 'solaris' -> Libs = ['pthread', 'rt'];
1505         Libs = ['pthread']
1506     ).
1507 test('test_thread_7', 'test_thread_7', 'test_thread_7').
1508 test_description('test_thread_7', 'multithreaded tramp guards').
1509 test_runs_everywhere('test_thread_7').
1510 test_runmode('test_thread_7', 'dynamic').
1511 test_start_state('test_thread_7', 'selfstart').
1512 tests_module('test_thread_7', 'dyninst').
1513
1514 % test_thread_8 (formerly test15_1)
1515 % This test tests both synchronous and asynchronous one time codes..
1516 mutator('test_thread_8', ['test_thread_8.C']).
1517 mutatee('test_thread_8', ['test_thread_8_mutatee.c'], ['mutatee_util_mt.c']).
1518 compiler_for_mutatee('test_thread_8', Compiler) :-
1519     comp_lang(Compiler, 'c').
1520 % Mutatee needs to be linked with libpthread everywhere but on Windows
1521 mutatee_requires_libs('test_thread_8', Libs) :-
1522     current_platform(Platform),
1523     platform(_, OS, _, Platform),
1524     (
1525         OS = 'windows' -> Libs = [];
1526         OS = 'solaris' -> Libs = ['pthread', 'rt'];
1527         Libs = ['pthread']
1528     ).
1529 test('test_thread_8', 'test_thread_8', 'test_thread_8').
1530 test_description('test_thread_8', 'thread-specific one time codes').
1531 test_runs_everywhere('test_thread_8').
1532 test_runmode('test_thread_8', 'dynamic').
1533 test_start_state('test_thread_8', 'selfstart').
1534 tests_module('test_thread_8', 'dyninst').
1535
1536 % The Fortran tests
1537
1538 % convenience clause for C components of Fortran tests
1539 spec_object_file(Object, 'gcc', [], [Source], [], ['-DSOLO_MUTATEE $(MUTATEE_G77_CFLAGS) -I../src']) :-
1540     fortran_c_component(Testname),
1541     atom_concat(Testname, '_mutatee_solo_gcc_none', Object),
1542     atom_concat(Testname, '_solo_me.c', Source).
1543
1544 mutatee('test1_1F', ['test1_1F_mutatee.c'], ['test1_1F_fortran.F']).
1545 % TODO Make sure these are correct
1546 compiler_for_mutatee('test1_1F', Compiler) :-
1547     comp_lang(Compiler, 'fortran').
1548 optimization_for_mutatee('test1_1F', Compiler, 'none') :-
1549     compiler_for_mutatee('test1_1F', Compiler).
1550 % The C language components of the Fortran tests are compiled with different
1551 % options than the rest of the C files.  Regretably, this clause is very non-
1552 % intuitive..  Im doing a hack here around the fact that the Python component
1553 % doesnt know that test1_1F_mutatee.c gets preprocessed and renamed.. This
1554 % sucks and I need to figure out a better way to do it.
1555 fortran_c_component('test1_1F').
1556 %spec_object_file('test1_1F_mutatee_solo_gcc_none', 'gcc',
1557 %   ['test1_1F_solo_me.c'], [], ['$(MUTATEE_G77_CFLAGS)']).
1558 % spec_exception('test1_1F_mutatee.c', 'mutatee_flags',
1559 %          ['gcc', '$(MUTATEE_G77_CFLAGS)']).
1560 % spec_exception('test1_1F_mutatee.c', 'mutatee_flags',
1561 %          ['g++', '$(MUTATEE_G77_CFLAGS)']).
1562 % First try at a test that uses a one-to-many mutator-mutatee mapping
1563 test('test1_1F', 'test1_1', 'test1_1F').
1564 test_description('test1_1F', 'instrument with zero-arg function call (Fortran)').
1565 test_runs_everywhere('test1_1F').
1566 test_runmode('test1_1F', 'dynamic').
1567 test_start_state('test1_1F', 'stopped').
1568 groupable_test('test1_1F').
1569 tests_module('test1_1F', 'dyninst').
1570
1571 mutatee('test1_2F', ['test1_2F_mutatee.c'], ['test1_2F_fortran.F']).
1572 % TODO Make sure these are correct
1573 compiler_for_mutatee('test1_2F', Compiler) :-
1574     comp_lang(Compiler, 'fortran').
1575 optimization_for_mutatee('test1_2F', Compiler, 'none') :-
1576     compiler_for_mutatee('test1_2F', Compiler).
1577 % The C language components of the Fortran tests are compiled with different
1578 % options than the rest of the C files.  Regretably, this clause is very non-
1579 % intuitive..  Im doing a hack here around the fact that the Python component
1580 % doesnt know that test1_2F_mutatee.c gets preprocessed and renamed.. This
1581 % sucks and I need to figure out a better way to do it.
1582 fortran_c_component('test1_2F').
1583 % First try at a test that uses a one-to-many mutator-mutatee mapping
1584 test('test1_2F', 'test1_2', 'test1_2F').
1585 test_description('test1_2F', 'instrument with four-arg function call (Fortran)').
1586 test_runs_everywhere('test1_2F').
1587 test_runmode('test1_2F', 'dynamic').
1588 test_start_state('test1_2F', 'stopped').
1589 groupable_test('test1_2F').
1590 tests_module('test1_2F', 'dyninst').
1591
1592 mutatee('test1_3F', ['test1_3F_mutatee.c'], ['test1_3F_fortran.F']).
1593 % TODO Make sure these are correct
1594 compiler_for_mutatee('test1_3F', Compiler) :-
1595     comp_lang(Compiler, 'fortran').
1596 optimization_for_mutatee('test1_3F', Compiler, 'none') :-
1597     compiler_for_mutatee('test1_3F', Compiler).
1598 % The C language components of the Fortran tests are compiled with different
1599 % options than the rest of the C files.  Regretably, this clause is very non-
1600 % intuitive..  Im doing a hack here around the fact that the Python component
1601 % doesnt know that test1_3F_mutatee.c gets preprocessed and renamed.. This
1602 % sucks and I need to figure out a better way to do it.
1603 fortran_c_component('test1_3F').
1604 % First try at a test that uses a one-to-many mutator-mutatee mapping
1605 test('test1_3F', 'test1_3', 'test1_3F').
1606 test_description('test1_3F', 'passing variables to a function (Fortran)').
1607 test_runs_everywhere('test1_3F').
1608 test_runmode('test1_3F', 'dynamic').
1609 test_start_state('test1_3F', 'stopped').
1610 groupable_test('test1_3F').
1611 tests_module('test1_3F', 'dyninst').
1612
1613 mutatee('test1_4F', ['test1_4F_mutatee.c'], ['test1_4F_fortran.F']).
1614 % TODO Make sure these are correct
1615 compiler_for_mutatee('test1_4F', Compiler) :-
1616     comp_lang(Compiler, 'fortran').
1617 optimization_for_mutatee('test1_4F', Compiler, 'none') :-
1618     compiler_for_mutatee('test1_4F', Compiler).
1619 % The C language components of the Fortran tests are compiled with different
1620 % options than the rest of the C files.  Regretably, this clause is very non-
1621 % intuitive..  Im doing a hack here around the fact that the Python component
1622 % doesnt know that test1_4F_mutatee.c gets preprocessed and renamed.. This
1623 % sucks and I need to figure out a better way to do it.
1624 fortran_c_component('test1_4F').
1625 % First try at a test that uses a one-to-many mutator-mutatee mapping
1626 test('test1_4F', 'test1_4', 'test1_4F').
1627 test_description('test1_4F', 'instrument with a sequence (Fortran)').
1628 test_runs_everywhere('test1_4F').
1629 test_runmode('test1_4F', 'dynamic').
1630 test_start_state('test1_4F', 'stopped').
1631 groupable_test('test1_4F').
1632 tests_module('test1_4F', 'dyninst').
1633
1634 mutatee('test1_5F', ['test1_5F_mutatee.c'], ['test1_5F_fortran.F']).
1635 % TODO Make sure these are correct
1636 compiler_for_mutatee('test1_5F', Compiler) :-
1637     comp_lang(Compiler, 'fortran').
1638 optimization_for_mutatee('test1_5F', Compiler, 'none') :-
1639     compiler_for_mutatee('test1_5F', Compiler).
1640 % The C language components of the Fortran tests are compiled with different
1641 % options than the rest of the C files.  Regretably, this clause is very non-
1642 % intuitive..  Im doing a hack here around the fact that the Python component
1643 % doesnt know that test1_5F_mutatee.c gets preprocessed and renamed.. This
1644 % sucks and I need to figure out a better way to do it.
1645 fortran_c_component('test1_5F').
1646 % First try at a test that uses a one-to-many mutator-mutatee mapping
1647 test('test1_5F', 'test1_5', 'test1_5F').
1648 test_description('test1_5F', 'instrument with if clause (no else) (Fortran)').
1649 test_runs_everywhere('test1_5F').
1650 test_runmode('test1_5F', 'dynamic').
1651 test_start_state('test1_5F', 'stopped').
1652 groupable_test('test1_5F').
1653 tests_module('test1_5F', 'dyninst').
1654
1655 mutatee('test1_6F', ['test1_6F_mutatee.c'], ['test1_6F_fortran.F']).
1656 % TODO Make sure these are correct
1657 compiler_for_mutatee('test1_6F', Compiler) :-
1658     comp_lang(Compiler, 'fortran').
1659 optimization_for_mutatee('test1_6F', Compiler, 'none') :-
1660     compiler_for_mutatee('test1_6F', Compiler).
1661 % The C language components of the Fortran tests are compiled with different
1662 % options than the rest of the C files.  Regretably, this clause is very non-
1663 % intuitive..  Im doing a hack here around the fact that the Python component
1664 % doesnt know that test1_6F_mutatee.c gets preprocessed and renamed.. This
1665 % sucks and I need to figure out a better way to do it.
1666 fortran_c_component('test1_6F').
1667 % First try at a test that uses a one-to-many mutator-mutatee mapping
1668 test('test1_6F', 'test1_6', 'test1_6F').
1669 test_description('test1_6F', 'arithmetic operators (Fortran)').
1670 test_runs_everywhere('test1_6F').
1671 test_runmode('test1_6F', 'dynamic').
1672 test_start_state('test1_6F', 'stopped').
1673 groupable_test('test1_6F').
1674 tests_module('test1_6F', 'dyninst').
1675
1676 mutatee('test1_7F', ['test1_7F_mutatee.c'], ['test1_7F_fortran.F']).
1677 % TODO Make sure these are correct
1678 compiler_for_mutatee('test1_7F', Compiler) :-
1679     comp_lang(Compiler, 'fortran').
1680 optimization_for_mutatee('test1_7F', Compiler, 'none') :-
1681     compiler_for_mutatee('test1_7F', Compiler).
1682 % The C language components of the Fortran tests are compiled with different
1683 % options than the rest of the C files.  Regretably, this clause is very non-
1684 % intuitive..  Im doing a hack here around the fact that the Python component
1685 % doesnt know that test1_7F_mutatee.c gets preprocessed and renamed.. This
1686 % sucks and I need to figure out a better way to do it.
1687 fortran_c_component('test1_7F').
1688 % First try at a test that uses a one-to-many mutator-mutatee mapping
1689 test('test1_7F', 'test1_7', 'test1_7F').
1690 test_description('test1_7F', 'relational operators (Fortran)').
1691 test_runs_everywhere('test1_7F').
1692 test_runmode('test1_7F', 'dynamic').
1693 test_start_state('test1_7F', 'stopped').
1694 groupable_test('test1_7F').
1695 tests_module('test1_7F', 'dyninst').
1696
1697 mutatee('test1_8F', ['test1_8F_mutatee.c'], ['test1_8F_fortran.F']).
1698 % TODO Make sure these are correct
1699 compiler_for_mutatee('test1_8F', Compiler) :-
1700     comp_lang(Compiler, 'fortran').
1701 optimization_for_mutatee('test1_8F', Compiler, 'none') :-
1702     compiler_for_mutatee('test1_8F', Compiler).
1703 % The C language components of the Fortran tests are compiled with different
1704 % options than the rest of the C files.  Regretably, this clause is very non-
1705 % intuitive..  Im doing a hack here around the fact that the Python component
1706 % doesnt know that test1_8F_mutatee.c gets preprocessed and renamed.. This
1707 % sucks and I need to figure out a better way to do it.
1708 fortran_c_component('test1_8F').
1709 % First try at a test that uses a one-to-many mutator-mutatee mapping
1710 test('test1_8F', 'test1_8', 'test1_8F').
1711 test_description('test1_8F', 'verify that registers are preserved across inserted expression (Fortran)').
1712 test_runs_everywhere('test1_8F').
1713 test_runmode('test1_8F', 'dynamic').
1714 test_start_state('test1_8F', 'stopped').
1715 groupable_test('test1_8F').
1716 tests_module('test1_8F', 'dyninst').
1717
1718 mutatee('test1_9F', ['test1_9F_mutatee.c'], ['test1_9F_fortran.F']).
1719 % TODO Make sure these are correct
1720 compiler_for_mutatee('test1_9F', Compiler) :-
1721     comp_lang(Compiler, 'fortran').
1722 optimization_for_mutatee('test1_9F', Compiler, 'none') :-
1723     compiler_for_mutatee('test1_9F', Compiler).
1724 % The C language components of the Fortran tests are compiled with different
1725 % options than the rest of the C files.  Regretably, this clause is very non-
1726 % intuitive..  Im doing a hack here around the fact that the Python component
1727 % doesnt know that test1_9F_mutatee.c gets preprocessed and renamed.. This
1728 % sucks and I need to figure out a better way to do it.
1729 fortran_c_component('test1_9F').
1730 % First try at a test that uses a one-to-many mutator-mutatee mapping
1731 test('test1_9F', 'test1_9', 'test1_9F').
1732 test_description('test1_9F', 'verify that registers are preserved across inserted function call (Fortran)').
1733 test_runs_everywhere('test1_9F').
1734 test_runmode('test1_9F', 'dynamic').
1735 test_start_state('test1_9F', 'stopped').
1736 groupable_test('test1_9F').
1737 tests_module('test1_9F', 'dyninst').
1738
1739 mutatee('test1_10F', ['test1_10F_mutatee.c'], ['test1_10F_fortran.F']).
1740 % TODO Make sure these are correct
1741 compiler_for_mutatee('test1_10F', Compiler) :-
1742     comp_lang(Compiler, 'fortran').
1743 optimization_for_mutatee('test1_10F', Compiler, 'none') :-
1744     compiler_for_mutatee('test1_10F', Compiler).
1745 % The C language components of the Fortran tests are compiled with different
1746 % options than the rest of the C files.  Regretably, this clause is very non-
1747 % intuitive..  Im doing a hack here around the fact that the Python component
1748 % doesnt know that test1_10F_mutatee.c gets preprocessed and renamed.. This
1749 % sucks and I need to figure out a better way to do it.
1750 fortran_c_component('test1_10F').
1751 % First try at a test that uses a one-to-many mutator-mutatee mapping
1752 test('test1_10F', 'test1_10', 'test1_10F').
1753 test_description('test1_10F', 'inserted snippet order (Fortran)').
1754 test_runs_everywhere('test1_10F').
1755 test_runmode('test1_10F', 'dynamic').
1756 test_start_state('test1_10F', 'stopped').
1757 groupable_test('test1_10F').
1758 tests_module('test1_10F', 'dyninst').
1759
1760 mutatee('test1_11F', ['test1_11F_mutatee.c'], ['test1_11F_fortran.F']).
1761 % TODO Make sure these are correct
1762 compiler_for_mutatee('test1_11F', Compiler) :-
1763     comp_lang(Compiler, 'fortran').
1764 optimization_for_mutatee('test1_11F', Compiler, 'none') :-
1765     compiler_for_mutatee('test1_11F', Compiler).
1766 % The C language components of the Fortran tests are compiled with different
1767 % options than the rest of the C files.  Regretably, this clause is very non-
1768 % intuitive..  Im doing a hack here around the fact that the Python component
1769 % doesnt know that test1_11F_mutatee.c gets preprocessed and renamed.. This
1770 % sucks and I need to figure out a better way to do it.
1771 fortran_c_component('test1_11F').
1772 % First try at a test that uses a one-to-many mutator-mutatee mapping
1773 test('test1_11F', 'test1_11', 'test1_11F').
1774 test_description('test1_11F', 'insert snippets at entry, exit, and call points (Fortran)').
1775 test_runs_everywhere('test1_11F').
1776 test_runmode('test1_11F', 'dynamic').
1777 test_start_state('test1_11F', 'stopped').
1778 groupable_test('test1_11F').
1779 tests_module('test1_11F', 'dyninst').
1780
1781 mutatee('test1_12F', ['test1_12F_mutatee.c'], ['test1_12F_fortran.F']).
1782 % TODO Make sure these are correct
1783 compiler_for_mutatee('test1_12F', Compiler) :-
1784     comp_lang(Compiler, 'fortran').
1785 optimization_for_mutatee('test1_12F', Compiler, 'none') :-
1786     compiler_for_mutatee('test1_12F', Compiler).
1787 % The C language components of the Fortran tests are compiled with different
1788 % options than the rest of the C files.  Regretably, this clause is very non-
1789 % intuitive..  Im doing a hack here around the fact that the Python component
1790 % doesnt know that test1_12F_mutatee.c gets preprocessed and renamed.. This
1791 % sucks and I need to figure out a better way to do it.
1792 fortran_c_component('test1_12F').
1793 % First try at a test that uses a one-to-many mutator-mutatee mapping
1794 test('test1_12F', 'test1_12', 'test1_12F').
1795 test_description('test1_12F', 'insert/remove and malloc/free (Fortran)').
1796 test_runs_everywhere('test1_12F').
1797 test_runmode('test1_12F', 'dynamic').
1798 test_start_state('test1_12F', 'stopped').
1799 tests_module('test1_12F', 'dyninst').
1800
1801 mutatee('test1_13F', ['test1_13F_mutatee.c'], ['test1_13F_fortran.F']).
1802 % TODO Make sure these are correct
1803 compiler_for_mutatee('test1_13F', Compiler) :-
1804     comp_lang(Compiler, 'fortran').
1805 optimization_for_mutatee('test1_13F', Compiler, 'none') :-
1806     compiler_for_mutatee('test1_13F', Compiler).
1807 % The C language components of the Fortran tests are compiled with different
1808 % options than the rest of the C files.  Regretably, this clause is very non-
1809 % intuitive..  Im doing a hack here around the fact that the Python component
1810 % doesnt know that test1_13F_mutatee.c gets preprocessed and renamed.. This
1811 % sucks and I need to figure out a better way to do it.
1812 fortran_c_component('test1_13F').
1813 % First try at a test that uses a one-to-many mutator-mutatee mapping
1814 test('test1_13F', 'test1_13', 'test1_13F').
1815 test_description('test1_13F', 'paramExpr,retExpr,nullExpr (Fortran)').
1816 test_runs_everywhere('test1_13F').
1817 test_runmode('test1_13F', 'dynamic').
1818 test_start_state('test1_13F', 'stopped').
1819 groupable_test('test1_13F').
1820 tests_module('test1_13F', 'dyninst').
1821
1822 mutatee('test1_14F', ['test1_14F_mutatee.c'], ['test1_14F_fortran.F']).
1823 % TODO Make sure these are correct
1824 compiler_for_mutatee('test1_14F', Compiler) :-
1825     comp_lang(Compiler, 'fortran').
1826 optimization_for_mutatee('test1_14F', Compiler, 'none') :-
1827     compiler_for_mutatee('test1_14F', Compiler).
1828 % The C language components of the Fortran tests are compiled with different
1829 % options than the rest of the C files.  Regretably, this clause is very non-
1830 % intuitive..  Im doing a hack here around the fact that the Python component
1831 % doesnt know that test1_14F_mutatee.c gets preprocessed and renamed.. This
1832 % sucks and I need to figure out a better way to do it.
1833 fortran_c_component('test1_14F').
1834 % First try at a test that uses a one-to-many mutator-mutatee mapping
1835 test('test1_14F', 'test1_14', 'test1_14F').
1836 test_description('test1_14F', 'Replace/Remove Function Call (Fortran)').
1837 test_runs_everywhere('test1_14F').
1838 test_runmode('test1_14F', 'dynamic').
1839 test_start_state('test1_14F', 'stopped').
1840 groupable_test('test1_14F').
1841 tests_module('test1_14F', 'dyninst').
1842
1843 mutatee('test1_15F', ['test1_15F_mutatee.c'], ['test1_15F_fortran.F']).
1844 % TODO Make sure these are correct
1845 compiler_for_mutatee('test1_15F', Compiler) :-
1846     comp_lang(Compiler, 'fortran').
1847 optimization_for_mutatee('test1_15F', Compiler, 'none') :-
1848     compiler_for_mutatee('test1_15F', Compiler).
1849 % The C language components of the Fortran tests are compiled with different
1850 % options than the rest of the C files.  Regretably, this clause is very non-
1851 % intuitive..  Im doing a hack here around the fact that the Python component
1852 % doesnt know that test1_15F_mutatee.c gets preprocessed and renamed.. This
1853 % sucks and I need to figure out a better way to do it.
1854 fortran_c_component('test1_15F').
1855 % First try at a test that uses a one-to-many mutator-mutatee mapping
1856 test('test1_15F', 'test1_15', 'test1_15F').
1857 test_description('test1_15F', 'setMutationsActive (Fortran)').
1858 test_runs_everywhere('test1_15F').
1859 test_runmode('test1_15F', 'dynamic').
1860 test_start_state('test1_15F', 'stopped').
1861 tests_module('test1_15F', 'dyninst').
1862
1863 mutatee('test1_16F', ['test1_16F_mutatee.c'], ['test1_16F_fortran.F']).
1864 % TODO Make sure these are correct
1865 compiler_for_mutatee('test1_16F', Compiler) :-
1866     comp_lang(Compiler, 'fortran').
1867 optimization_for_mutatee('test1_16F', Compiler, 'none') :-
1868     compiler_for_mutatee('test1_16F', Compiler).
1869 % The C language components of the Fortran tests are compiled with different
1870 % options than the rest of the C files.  Regretably, this clause is very non-
1871 % intuitive..  Im doing a hack here around the fact that the Python component
1872 % doesnt know that test1_16F_mutatee.c gets preprocessed and renamed.. This
1873 % sucks and I need to figure out a better way to do it.
1874 fortran_c_component('test1_16F').
1875 % First try at a test that uses a one-to-many mutator-mutatee mapping
1876 test('test1_16F', 'test1_16', 'test1_16F').
1877 test_description('test1_16F', 'If else (Fortran)').
1878 test_runs_everywhere('test1_16F').
1879 test_runmode('test1_16F', 'dynamic').
1880 test_start_state('test1_16F', 'stopped').
1881 groupable_test('test1_16F').
1882 tests_module('test1_16F', 'dyninst').
1883
1884 mutatee('test1_17F', ['test1_17F_mutatee.c'], ['test1_17F_fortran.F']).
1885 % TODO Make sure these are correct
1886 compiler_for_mutatee('test1_17F', Compiler) :-
1887     comp_lang(Compiler, 'fortran').
1888 optimization_for_mutatee('test1_17F', Compiler, 'none') :-
1889     compiler_for_mutatee('test1_17F', Compiler).
1890 % The C language components of the Fortran tests are compiled with different
1891 % options than the rest of the C files.  Regretably, this clause is very non-
1892 % intuitive..  Im doing a hack here around the fact that the Python component
1893 % doesnt know that test1_17F_mutatee.c gets preprocessed and renamed.. This
1894 % sucks and I need to figure out a better way to do it.
1895 fortran_c_component('test1_17F').
1896 % First try at a test that uses a one-to-many mutator-mutatee mapping
1897 test('test1_17F', 'test1_17', 'test1_17F').
1898 test_description('test1_17F', 'Verifies that instrumentation inserted at exit point doesn\'t clobber return value (Fortran)').
1899 test_runs_everywhere('test1_17F').
1900 test_runmode('test1_17F', 'dynamic').
1901 test_start_state('test1_17F', 'stopped').
1902 groupable_test('test1_17F').
1903 tests_module('test1_17F', 'dyninst').
1904
1905 mutatee('test1_18F', ['test1_18F_mutatee.c'], ['test1_18F_fortran.F']).
1906 % TODO Make sure these are correct
1907 compiler_for_mutatee('test1_18F', Compiler) :-
1908     comp_lang(Compiler, 'fortran').
1909 optimization_for_mutatee('test1_18F', Compiler, 'none') :-
1910     compiler_for_mutatee('test1_18F', Compiler).
1911 % The C language components of the Fortran tests are compiled with different
1912 % options than the rest of the C files.  Regretably, this clause is very non-
1913 % intuitive..  Im doing a hack here around the fact that the Python component
1914 % doesnt know that test1_18F_mutatee.c gets preprocessed and renamed.. This
1915 % sucks and I need to figure out a better way to do it.
1916 fortran_c_component('test1_18F').
1917 % First try at a test that uses a one-to-many mutator-mutatee mapping
1918 test('test1_18F', 'test1_18', 'test1_18F').
1919 test_description('test1_18F', 'Read/Write a variable in the mutatee (Fortran)').
1920 test_runs_everywhere('test1_18F').
1921 test_runmode('test1_18F', 'dynamic').
1922 test_start_state('test1_18F', 'stopped').
1923 groupable_test('test1_18F').
1924 tests_module('test1_18F', 'dyninst').
1925
1926 mutatee('test1_19F', ['test1_19F_mutatee.c'], ['test1_19F_fortran.F']).
1927 % TODO Make sure these are correct
1928 compiler_for_mutatee('test1_19F', Compiler) :-
1929     comp_lang(Compiler, 'fortran').
1930 optimization_for_mutatee('test1_19F', Compiler, 'none') :-
1931     compiler_for_mutatee('test1_19F', Compiler).
1932 % The C language components of the Fortran tests are compiled with different
1933 % options than the rest of the C files.  Regretably, this clause is very non-
1934 % intuitive..  Im doing a hack here around the fact that the Python component
1935 % doesnt know that test1_19F_mutatee.c gets preprocessed and renamed.. This
1936 % sucks and I need to figure out a better way to do it.
1937 fortran_c_component('test1_19F').
1938 % First try at a test that uses a one-to-many mutator-mutatee mapping
1939 test('test1_19F', 'test1_19', 'test1_19F').
1940 test_description('test1_19F', 'oneTimeCode (Fortran)').
1941 test_runs_everywhere('test1_19F').
1942 test_runmode('test1_19F', 'dynamic').
1943 test_start_state('test1_19F', 'stopped').
1944 tests_module('test1_19F', 'dyninst').
1945
1946 mutatee('test1_20F', ['test1_20F_mutatee.c'], ['test1_20F_fortran.F']).
1947 % TODO Make sure these are correct
1948 compiler_for_mutatee('test1_20F', Compiler) :-
1949     comp_lang(Compiler, 'fortran').
1950 optimization_for_mutatee('test1_20F', Compiler, 'none') :-
1951     compiler_for_mutatee('test1_20F', Compiler).
1952 % The C language components of the Fortran tests are compiled with different
1953 % options than the rest of the C files.  Regretably, this clause is very non-
1954 % intuitive..  Im doing a hack here around the fact that the Python component
1955 % doesnt know that test1_20F_mutatee.c gets preprocessed and renamed.. This
1956 % sucks and I need to figure out a better way to do it.
1957 fortran_c_component('test1_20F').
1958 % First try at a test that uses a one-to-many mutator-mutatee mapping
1959 test('test1_20F', 'test1_20', 'test1_20F').
1960 test_description('test1_20F', 'Instrumentation at arbitrary points (Fortran)').
1961 test_runs_everywhere('test1_20F').
1962 test_runmode('test1_20F', 'dynamic').
1963 test_start_state('test1_20F', 'stopped').
1964 groupable_test('test1_20F').
1965 tests_module('test1_20F', 'dyninst').
1966
1967 mutatee('test1_25F', ['test1_25F_mutatee.c'], ['test1_25F_fortran.F']).
1968 % TODO Make sure these are correct
1969 compiler_for_mutatee('test1_25F', Compiler) :-
1970     comp_lang(Compiler, 'fortran').
1971 optimization_for_mutatee('test1_25F', Compiler, 'none') :-
1972     compiler_for_mutatee('test1_25F', Compiler).
1973 % The C language components of the Fortran tests are compiled with different
1974 % options than the rest of the C files.  Regretably, this clause is very non-
1975 % intuitive..  Im doing a hack here around the fact that the Python component
1976 % doesnt know that test1_25F_mutatee.c gets preprocessed and renamed.. This
1977 % sucks and I need to figure out a better way to do it.
1978 fortran_c_component('test1_25F').
1979 % First try at a test that uses a one-to-many mutator-mutatee mapping
1980 test('test1_25F', 'test1_25', 'test1_25F').
1981 test_description('test1_25F', 'Unary Operators (Fortran)').
1982 test_runs_everywhere('test1_25F').
1983 test_runmode('test1_25F', 'dynamic').
1984 test_start_state('test1_25F', 'stopped').
1985 groupable_test('test1_25F').
1986 tests_module('test1_25F', 'dyninst').
1987
1988 mutatee('test1_29F', ['test1_29F_mutatee.c'], ['test1_29F_fortran.F']).
1989 % TODO Make sure these are correct
1990 compiler_for_mutatee('test1_29F', Compiler) :-
1991     comp_lang(Compiler, 'fortran').
1992 optimization_for_mutatee('test1_29F', Compiler, 'none') :-
1993     compiler_for_mutatee('test1_29F', Compiler).
1994 % The C language components of the Fortran tests are compiled with different
1995 % options than the rest of the C files.  Regretably, this clause is very non-
1996 % intuitive..  Im doing a hack here around the fact that the Python component
1997 % doesnt know that test1_29F_mutatee.c gets preprocessed and renamed.. This
1998 % sucks and I need to figure out a better way to do it.
1999 fortran_c_component('test1_29F').
2000 % First try at a test that uses a one-to-many mutator-mutatee mapping
2001 test('test1_29F', 'test1_29', 'test1_29F').
2002 test_description('test1_29F', 'BPatch_srcObj class (Fortran)').
2003 test_runs_everywhere('test1_29F').
2004 test_runmode('test1_29F', 'dynamic').
2005 test_start_state('test1_29F', 'stopped').
2006 groupable_test('test1_29F').
2007 tests_module('test1_29F', 'dyninst').
2008
2009 mutatee('test1_31F', ['test1_31F_mutatee.c'], ['test1_31F_fortran.F']).
2010 % TODO Make sure these are correct
2011 compiler_for_mutatee('test1_31F', Compiler) :-
2012     comp_lang(Compiler, 'fortran').
2013 optimization_for_mutatee('test1_31F', Compiler, 'none') :-
2014     compiler_for_mutatee('test1_31F', Compiler).
2015 % The C language components of the Fortran tests are compiled with different
2016 % options than the rest of the C files.  Regretably, this clause is very non-
2017 % intuitive..  Im doing a hack here around the fact that the Python component
2018 % doesnt know that test1_31F_mutatee.c gets preprocessed and renamed.. This
2019 % sucks and I need to figure out a better way to do it.
2020 fortran_c_component('test1_31F').
2021 % First try at a test that uses a one-to-many mutator-mutatee mapping
2022 test('test1_31F', 'test1_31', 'test1_31F').
2023 test_description('test1_31F', 'Non-Recursive Base Tramp (Fortran)').
2024 test_runs_everywhere('test1_31F').
2025 test_runmode('test1_31F', 'dynamic').
2026 test_start_state('test1_31F', 'stopped').
2027 groupable_test('test1_31F').
2028 tests_module('test1_31F', 'dyninst').
2029
2030 mutatee('test1_32F', ['test1_32F_mutatee.c'], ['test1_32F_fortran.F']).
2031 % TODO Make sure these are correct
2032 compiler_for_mutatee('test1_32F', Compiler) :-
2033     comp_lang(Compiler, 'fortran').
2034 optimization_for_mutatee('test1_32F', Compiler, 'none') :-
2035     compiler_for_mutatee('test1_32F', Compiler).
2036 % The C language components of the Fortran tests are compiled with different
2037 % options than the rest of the C files.  Regretably, this clause is very non-
2038 % intuitive..  Im doing a hack here around the fact that the Python component
2039 % doesnt know that test1_32F_mutatee.c gets preprocessed and renamed.. This
2040 % sucks and I need to figure out a better way to do it.
2041 fortran_c_component('test1_32F').
2042 % First try at a test that uses a one-to-many mutator-mutatee mapping
2043 test('test1_32F', 'test1_32', 'test1_32F').
2044 test_description('test1_32F', 'Recursive Base Tramp (Fortran)').
2045 test_runs_everywhere('test1_32F').
2046 test_runmode('test1_32F', 'dynamic').
2047 test_start_state('test1_32F', 'stopped').
2048 groupable_test('test1_32F').
2049 tests_module('test1_32F', 'dyninst').
2050
2051 mutatee('test1_34F', ['test1_34F_mutatee.c'], ['test1_34F_fortran.F']).
2052 % TODO Make sure these are correct
2053 compiler_for_mutatee('test1_34F', Compiler) :-
2054     comp_lang(Compiler, 'fortran').
2055 optimization_for_mutatee('test1_34F', Compiler, 'none') :-
2056     compiler_for_mutatee('test1_34F', Compiler).
2057 % The C language components of the Fortran tests are compiled with different
2058 % options than the rest of the C files.  Regretably, this clause is very non-
2059 % intuitive..  Im doing a hack here around the fact that the Python component
2060 % doesnt know that test1_34F_mutatee.c gets preprocessed and renamed.. This
2061 % sucks and I need to figure out a better way to do it.
2062 fortran_c_component('test1_34F').
2063 % First try at a test that uses a one-to-many mutator-mutatee mapping
2064 test('test1_34F', 'test1_34', 'test1_34F').
2065 test_description('test1_34F', 'Loop Information (Fortran)').
2066 test_runs_everywhere('test1_34F').
2067 test_runmode('test1_34F', 'dynamic').
2068 test_start_state('test1_34F', 'stopped').
2069 groupable_test('test1_34F').
2070 tests_module('test1_34F', 'dyninst').
2071
2072 mutatee('test1_36F', ['test1_36F_mutatee.c'], ['test1_36F_fortran.F']).
2073 % TODO Make sure these are correct
2074 compiler_for_mutatee('test1_36F', Compiler) :-
2075     comp_lang(Compiler, 'fortran').
2076 optimization_for_mutatee('test1_36F', Compiler, 'none') :-
2077     compiler_for_mutatee('test1_36F', Compiler).
2078 % The C language components of the Fortran tests are compiled with different
2079 % options than the rest of the C files.  Regretably, this clause is very non-
2080 % intuitive..  Im doing a hack here around the fact that the Python component
2081 % doesnt know that test1_36F_mutatee.c gets preprocessed and renamed.. This
2082 % sucks and I need to figure out a better way to do it.
2083 fortran_c_component('test1_36F').
2084 % First try at a test that uses a one-to-many mutator-mutatee mapping
2085 test('test1_36F', 'test1_36', 'test1_36F').
2086 test_description('test1_36F', 'Callsite Parameter Referencing (Fortran)').
2087 test_runs_everywhere('test1_36F').
2088 test_runmode('test1_36F', 'dynamic').
2089 test_start_state('test1_36F', 'stopped').
2090 groupable_test('test1_36F').
2091 tests_module('test1_36F', 'dyninst').
2092
2093 % test_sparc_1, formerly test10_1
2094 test('test_sparc_1', 'test_sparc_1', 'test_sparc_1').
2095 mutator('test_sparc_1', ['test_sparc_1.C']).
2096 mutatee('test_sparc_1', ['test_sparc_1_mutatee.c']).
2097 compiler_for_mutatee('test_sparc_1', 'gcc').
2098 optimization_for_mutatee('test_sparc_1', 'gcc', 'none').
2099 test_platform('test_sparc_1', Platform) :-
2100         platform('sparc', _, _, Platform).
2101 test_runmode('test_sparc_1', 'dynamic').
2102 test_start_state('test_sparc_1', 'stopped').
2103 groupable_test('test_sparc_1').
2104 tests_module('test_sparc_1', 'dyninst').
2105
2106 % test_sparc_2, formerly test10_2
2107 test('test_sparc_2', 'test_sparc_2', 'test_sparc_2').
2108 mutator('test_sparc_2', ['test_sparc_2.C']).
2109 mutatee('test_sparc_2', ['test_sparc_2_mutatee.c']).
2110 compiler_for_mutatee('test_sparc_2', 'gcc').
2111 optimization_for_mutatee('test_sparc_2', 'gcc', 'none').
2112 test_platform('test_sparc_2', Platform) :-
2113         platform('sparc', _, _, Platform).
2114 test_runmode('test_sparc_2', 'dynamic').
2115 test_start_state('test_sparc_2', 'stopped').
2116 groupable_test('test_sparc_2').
2117 tests_module('test_sparc_2', 'dyninst').
2118
2119 % test_sparc_3, formerly test10_3
2120 test('test_sparc_3', 'test_sparc_3', 'test_sparc_3').
2121 mutator('test_sparc_3', ['test_sparc_3.C']).
2122 mutatee('test_sparc_3', ['test_sparc_3_mutatee.c']).
2123 compiler_for_mutatee('test_sparc_3', 'gcc').
2124 optimization_for_mutatee('test_sparc_3', 'gcc', 'none').
2125 test_platform('test_sparc_3', Platform) :-
2126         platform('sparc', _, _, Platform).
2127 test_runmode('test_sparc_3', 'dynamic').
2128 test_start_state('test_sparc_3', 'stopped').
2129 groupable_test('test_sparc_3').
2130 tests_module('test_sparc_3', 'dyninst').
2131
2132 % test_sparc_4, formerly test10_4
2133 test('test_sparc_4', 'test_sparc_4', 'test_sparc_4').
2134 mutator('test_sparc_4', ['test_sparc_4.C']).
2135 mutatee('test_sparc_4', ['test_sparc_4_mutatee.c']).
2136 compiler_for_mutatee('test_sparc_4', 'gcc').
2137 optimization_for_mutatee('test_sparc_4', 'gcc', 'none').
2138 test_platform('test_sparc_4', Platform) :-
2139         platform('sparc', _, _, Platform).
2140 test_runmode('test_sparc_4', 'dynamic').
2141 test_start_state('test_sparc_4', 'stopped').
2142 groupable_test('test_sparc_4').
2143 tests_module('test_sparc_4', 'dyninst').
2144
2145 % SymtabAPI tests
2146
2147 test('test_lookup_func', 'test_lookup_func', 'symtab_group_test').
2148 test_description('test_lookup_func', 'Lookup a single function with SymtabAPI').
2149 test_runs_everywhere('test_lookup_func').
2150 groupable_test('test_lookup_func').
2151 mutator('test_lookup_func', ['test_lookup_func.C']).
2152 test_runmode('test_lookup_func', 'createProcess').
2153 test_start_state('test_lookup_func', 'stopped').
2154 tests_module('test_lookup_func', 'symtab').
2155 test_serializable('test_lookup_func').
2156
2157 test('test_lookup_var', 'test_lookup_var', 'symtab_group_test').
2158 test_description('test_lookup_var', 'Lookup a single variable with SymtabAPI').
2159 test_runs_everywhere('test_lookup_var').
2160 groupable_test('test_lookup_var').
2161 mutator('test_lookup_var', ['test_lookup_var.C']).
2162 test_runmode('test_lookup_var', 'createProcess').
2163 test_start_state('test_lookup_var', 'stopped').
2164 tests_module('test_lookup_var', 'symtab').
2165 test_serializable('test_lookup_var').
2166
2167 test('test_line_info', 'test_line_info', 'symtab_group_test').
2168 test_description('test_line_info', 'SymtabAPI Line Information').
2169 test_runs_everywhere('test_line_info').
2170 groupable_test('test_line_info').
2171 mutator('test_line_info', ['test_line_info.C']).
2172 test_runmode('test_line_info', 'createProcess').
2173 test_start_state('test_line_info', 'stopped').
2174 tests_module('test_line_info', 'symtab').
2175 test_serializable('test_line_info').
2176
2177 test('test_module', 'test_module', 'symtab_group_test').
2178 test_description('test_module', 'SymtabAPI Module detection & management').
2179 test_runs_everywhere('test_module').
2180 groupable_test('test_module').
2181 mutator('test_module', ['test_module.C']).
2182 test_runmode('test_module', 'createProcess').
2183 test_start_state('test_module', 'stopped').
2184 tests_module('test_module', 'symtab').
2185 test_serializable('test_module').
2186
2187 test('test_relocations', 'test_relocations', 'symtab_group_test').
2188 test_description('test_relocations', 'SymtabAPI relocation table parsing').
2189 test_platform('test_relocations', Platform) :-
2190     platform(_, OS, _, Platform),
2191     member(OS, ['linux']).
2192 groupable_test('test_relocations').
2193 mutator('test_relocations', ['test_relocations.C']).
2194 test_runmode('test_relocations', 'createProcess').
2195 test_start_state('test_relocations', 'stopped').
2196 tests_module('test_relocations', 'symtab').
2197 mutatee_requires_libs('symtab_group_test', ['testA']).
2198 test_serializable('test_relocations').
2199
2200 test('test_type_info', 'test_type_info', 'symtab_group_test').
2201 test_description('test_type_info', 'SymtabAPI Type Information').
2202 test_runs_everywhere('test_type_info').
2203 groupable_test('test_type_info').
2204 mutator('test_type_info', ['test_type_info.C']).
2205 test_runmode('test_type_info', 'createProcess').
2206 test_start_state('test_type_info', 'stopped').
2207 tests_module('test_type_info', 'symtab').
2208 test_serializable('test_type_info').
2209
2210 test('test_symtab_ser_funcs', 'test_symtab_ser_funcs', 'symtab_group_test').
2211 test_description('test_symtab_ser_funcs', 'Base SymtabAPI seialization function sanity checks').
2212 test_runs_everywhere('test_symtab_ser_funcs').
2213 groupable_test('test_symtab_ser_funcs').
2214 mutator('test_symtab_ser_funcs', ['test_symtab_ser_funcs.C']).
2215 test_runmode('test_symtab_ser_funcs', 'createProcess').
2216 test_start_state('test_symtab_ser_funcs', 'stopped').
2217 tests_module('test_symtab_ser_funcs', 'symtab').
2218
2219 test('test_ser_anno', 'test_ser_anno', 'symtab_group_test').
2220 test_description('test_ser_anno', 'Base SymtabAPI seialization function sanity checks').
2221 test_runs_everywhere('test_ser_anno').
2222 groupable_test('test_ser_anno').
2223 mutator('test_ser_anno', ['test_ser_anno.C']).
2224 test_runmode('test_ser_anno', 'createProcess').
2225 test_start_state('test_ser_anno', 'stopped').
2226 tests_module('test_ser_anno', 'symtab').
2227
2228 % should this really be groupable?
2229 test('test_anno_basic_types', 'test_anno_basic_types', 'symtab_group_test').
2230 test_description('test_anno_basic_types', 'Annotate objects with basic types').
2231 test_runs_everywhere('test_anno_basic_types').
2232 groupable_test('test_anno_basic_types').
2233 mutator('test_anno_basic_types', ['test_anno_basic_types.C']).
2234 test_runmode('test_anno_basic_types', 'createProcess').
2235 test_start_state('test_anno_basic_types', 'stopped').
2236 tests_module('test_anno_basic_types', 'symtab').
2237
2238 test('test_exception', 'test_exception', 'test_exception').
2239 test_description('test_exception', 'SymtabAPI C++ Exception detection and sanity checks').
2240 groupable_test('test_exception').
2241 mutator('test_exception', ['test_exception.C']).
2242 test_runmode('test_exception', 'createProcess').
2243 test_serializable('test_exception').
2244 test_start_state('test_exception', 'stopped').
2245 tests_module('test_exception', 'symtab').
2246 test_platform('test_exception', 'i386-unknown-linux2.4').
2247 test_platform('test_exception', 'i386-unknown-linux2.6').
2248 test_platform('test_exception', 'x86_64-unknown-linux2.4').
2249 mutatee('test_exception', ['test_exception_mutatee.C']).
2250 compiler_for_mutatee('test_exception', Compiler) :-
2251    member(Compiler, ['g++', 'iCC']).
2252
2253 % instructionAPI tests
2254 test('test_instruction_read_write', 'test_instruction_read_write', none).
2255 test_description('test_instruction_read_write', 'Tests the read & write sets of instructions.').
2256 test_platform('test_instruction_read_write', Platform) :-
2257         platform(Platform),
2258         platform('i386', _, _, Platform);
2259         platform('x86_64', _, _, Platform).
2260 mutator('test_instruction_read_write', ['test_instruction_read_write.C']).
2261 test_runmode('test_instruction_read_write', 'createProcess').
2262 test_start_state('test_instruction_read_write', 'stopped').
2263 tests_module('test_instruction_read_write', 'instruction').
2264
2265 test('test_instruction_farcall', 'test_instruction_farcall', none).
2266 test_description('test_instruction_farcall', 'Tests decoding of far call instructions.').
2267 test_platform('test_instruction_farcall', Platform) :-
2268         platform(Platform),
2269         platform('i386', _, _, Platform);
2270         platform('x86_64', _, _, Platform).
2271 mutator('test_instruction_farcall', ['test_instruction_farcall.C']).
2272 test_runmode('test_instruction_farcall', 'createProcess').
2273 test_start_state('test_instruction_farcall', 'stopped').
2274 tests_module('test_instruction_farcall', 'instruction').
2275
2276 test('test_instruction_bind_eval', 'test_instruction_bind_eval', none).
2277 test_description('test_instruction_bind_eval', 'Tests bind and evaluation mechanism.').
2278 test_platform('test_instruction_bind_eval', Platform) :-
2279         platform(Platform),
2280         platform('i386', _, _, Platform);
2281         platform('x86_64', _, _, Platform).
2282 mutator('test_instruction_bind_eval', ['test_instruction_bind_eval.C']).
2283 test_runmode('test_instruction_bind_eval', 'createProcess').
2284 test_start_state('test_instruction_bind_eval', 'stopped').
2285 tests_module('test_instruction_bind_eval', 'instruction').
2286
2287 test('test_instruction_profile', 'test_instruction_profile', none).
2288 test_description('test_instruction_profile', 'Collect profiling data from decoding 1M bytes of random memory.').
2289 test_platform('test_instruction_profile', Platform) :-
2290         platform(Platform),
2291         platform('i386', OS, _, Platform), OS \= 'windows';
2292         platform('x86_64', OS, _, Platform), OS \= 'windows'.
2293 mutator('test_instruction_profile', ['test_instruction_profile.C']).
2294 test_runmode('test_instruction_profile', 'createProcess').
2295 test_start_state('test_instruction_profile', 'stopped').
2296 tests_module('test_instruction_profile', 'instruction').
2297 mutator_requires_libs('test_instruction_profile', ['symtabAPI', 'dyninstAPI']).
2298
2299
2300 % test_start_state/2
2301 % test_start_state(?Test, ?State) specifies that Test should be run with its
2302 % mutatee in state State, with State in {stopped, running, selfstart}
2303
2304 % compiler_for_mutatee/2
2305 % compiler_for_mutatee(?Testname, ?Compiler)
2306 % Specifies that the mutatee for the test Testname can be compiled with the
2307 % compiler Compiler.
2308 % If nothing else is specified, a tests mutatee can be compiled with any C
2309 % compiler
2310 % Actually, I dont know how to specify this..
2311 % compiler_for_mutatee(Testname, Compiler) :- ...
2312     
2313
2314 % Specify libtestSuite
2315 library('testSuite', ['test_lib.C',
2316                       'test_lib_soExecution.C',
2317                       'test_lib_mutateeStart.C',
2318                       'test_lib_test7.C',
2319                       'test_lib_test9.C',
2320                       'Process_data.C',
2321                       'ParameterDict.C',
2322                       'Callbacks.C',
2323                       'TestData.C',
2324                       'TestMutator.C']).
2325 % All mutators require libtestSuite
2326 % mutator_library(Mutator, 'testSuite') :- mutator(Mutator, _).
2327
2328 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2329 % PLATFORM SPECIFICATIONS
2330 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2331
2332 % platform/4
2333 % platform(?Arch, ?OS_general, ?OS_specific, ?Platform)
2334 platform('i386', 'linux', 'linux2.4', 'i386-unknown-linux2.4').
2335 platform('i386', 'linux', 'linux2.6', 'i386-unknown-linux2.6').
2336 platform('sparc', 'solaris', 'solaris2.8', 'sparc-sun-solaris2.8').
2337 platform('sparc', 'solaris', 'solaris2.9', 'sparc-sun-solaris2.9').
2338 platform('i386', 'windows', 'nt4.0', 'i386-unknown-nt4.0').
2339 platform('i386', 'windows', 'winXP', 'i386-unknown-winXP').
2340 platform('power', 'aix', 'aix5.1', 'rs6000-ibm-aix5.1').
2341 platform('power', 'aix', 'aix5.2', 'rs6000-ibm-aix64-5.2').
2342 platform('alpha', 'osf', 'osf5.1', 'alpha-dec-osf5.1').
2343 platform('ia64', 'linux', 'linux2.4', 'ia64-unknown-linux2.4').
2344 platform('x86_64', 'linux', 'linux2.4', 'x86_64-unknown-linux2.4').
2345 platform('power', 'linux', 'linux2.6', 'ppc64_linux').
2346 platform('power', 'linux', 'linux2.6', 'ppc32_linux').
2347
2348 % Platform Defns
2349 % platform/1
2350 % Convenience thing.  Mostly used for verifying that a particular platform
2351 % exists.
2352 platform(P) :- platform(_, _, _, P).
2353
2354 % Mutatee ABI specifications
2355 % Were going to try out the new implementation idea here
2356 % NOTE: The parameter_values / whitelise / blacklist system has not been
2357 % implemented yet.
2358 parameter('mutatee_abi').
2359 parameter_values('mutatee_abi', Values) :-
2360     findall(V, mutatee_abi(V), Values_t),
2361     sort(Values_t, Values).
2362 mutatee_abi(32).
2363 mutatee_abi(64).
2364
2365 % Platform ABI support
2366 % Testing out how this looks with whitelist clauses
2367 % NOTE: The parameter_values / whitelise / blacklist system has not been
2368 % implemented yet.
2369 whitelist([['platform', Platform], ['mutatee_abi', ABI]]) :-
2370     platform_abi(Platform, ABI).
2371
2372 % platform_abi/2
2373 % All platforms support 32-bit mutatees except ia64
2374 % FIXME Does ppc64 support 32-bit mutatees?
2375 platform_abi(Platform, 32) :-
2376     platform(Arch, _, _, Platform),
2377     Arch \= 'ia64'.
2378
2379 % A smaller list of platforms with for 64-bit mutatees
2380 platform_abi('ia64-unknown-linux2.4', 64).
2381 platform_abi('x86_64-unknown-linux2.4', 64).
2382 platform_abi('ppc64_linux', 64).
2383 platform_abi('rs6000-ibm-aix64-5.2', 64).
2384
2385 % restricted_abi_for_arch(Test, Arch, ABI)
2386 % Limits the test Test to only running with mutatees compiled to ABI on the
2387 % architecture Arch
2388
2389 % restricted_amd64_abi(Test)
2390 % Define restricted_amd64_abi as a convenience clause for
2391 % restricted_abi_for_arch
2392 restricted_abi_for_arch(Test, 'x86_64', 64) :-
2393         restricted_amd64_abi(Test).
2394
2395 % object_suffix/2
2396 % Specifies the convention used for object files on a platform
2397 object_suffix(Platform, Suffix) :-
2398     platform(_, OS, _, Platform),
2399     (
2400         OS = 'windows' -> Suffix = '.obj';
2401         Suffix = '.o'
2402     ).
2403
2404 % executable_suffix/2
2405 % Specifies the convention used for executable files on a platform
2406 executable_suffix(Platform, Suffix) :-
2407     platform(_, OS, _, Platform),
2408     (
2409         OS = 'windows' -> Suffix = '.exe';
2410         Suffix = ''
2411     ).
2412
2413 % library_prefix/2
2414 % Specifies the convention used for shared library prefixes on a platform
2415 library_prefix(Platform, Prefix) :-
2416     platform(_, OS, _, Platform),
2417     (
2418         OS = 'windows' -> Prefix = '';
2419         Prefix = 'lib'
2420     ).
2421
2422 % library_suffix/2
2423 % Specifies the convention used for shared library suffixes on a platform
2424 library_suffix(Platform, Suffix) :-
2425     platform(_, OS, _, Platform),
2426     (
2427         OS = 'windows' -> Suffix = '.dll';
2428         Suffix = '.so'
2429     ).
2430
2431 % Platform Compilers Constraints
2432 % gcc and g++ run on everything but Windows
2433 compiler_platform('gcc', Plat) :- platform(_, OS, _, Plat), OS \= 'windows'.
2434 compiler_platform('g++', Plat) :- platform(_, OS, _, Plat), OS \= 'windows'.
2435 % g77 only runs on i386 Linux
2436 compiler_platform('g77', 'i386-unknown-linux2.4').
2437 compiler_platform('g77', 'i386-unknown-linux2.6').
2438 % Visual C/C++ only runs on Windows
2439 compiler_platform('VC', Plat) :- platform(_, OS, _, Plat), OS == 'windows'.
2440 compiler_platform('VC++', Plat) :- platform(_, OS, _, Plat), OS == 'windows'.
2441 % Portland Group compiler only runs on i386 Linux
2442 compiler_platform('pgcc', Plat) :-
2443     platform(Arch, OS, _, Plat), Arch == 'i386', OS == 'linux'.
2444 compiler_platform('pgCC', Plat) :-
2445     platform(Arch, OS, _, Plat), Arch == 'i386', OS == 'linux'.
2446 % Alphas native compilers are cc & cxx
2447 compiler_platform('cc', 'alpha-dec-osf5.1').
2448 compiler_platform('cxx', 'alpha-dec-osf5.1').
2449 % AIXs native compilers are xlc & xlC
2450 compiler_platform('xlc', 'rs6000-ibm-aix5.1').
2451 compiler_platform('xlC', 'rs6000-ibm-aix5.1').
2452 % Solariss native compilers are cc & CC
2453 compiler_platform('sun_cc', Plat) :- platform(_, OS, _, Plat), OS = 'solaris'.
2454 compiler_platform('CC', Plat) :- platform(_, OS, _, Plat), OS = 'solaris'.
2455 % Intel cc on Linux/x86 and Linux/x86_64
2456 compiler_platform('icc', Plat) :- 
2457     platform(Arch, OS, _, Plat), Arch == 'i386', OS == 'linux'.
2458 compiler_platform('iCC', Plat) :-
2459     platform(Arch, OS, _, Plat), Arch == 'i386', OS == 'linux'.
2460
2461 % linker/2
2462 % linker(?Platform, ?Linker)
2463 % specifies the default linker to use for a given (platform, language) pair
2464 linker(Platform, Linker) :-
2465     platform(_, OS, _, Platform),
2466     (
2467         OS = 'windows' -> Linker = 'link';
2468         Linker = ''
2469     ).
2470
2471 % aux_compiler_for_platform/3
2472 % aux_compiler_for_platform(?Platform, ?Language, ?Compiler)
2473 % Specifies the default compiler to use for a given (platform, language) pair
2474 % for compiling files where were not trying to test the output of the compiler
2475 aux_compiler_for_platform(Platform, 'c', 'gcc') :-
2476     platform(_, 'linux', _, Platform).
2477 aux_compiler_for_platform(Platform, 'fortran', 'g77') :-
2478     platform('i386', 'linux', _, Platform).
2479 aux_compiler_for_platform(Platform, 'nasm_asm', 'nasm') :-
2480     platform('i386', 'linux', _, Platform).
2481 aux_compiler_for_platform(Platform, 'masm_asm', 'masm') :-
2482     platform('i386', 'windows', _, Platform).
2483 aux_compiler_for_platform(Platform, 'att_asm', 'gcc') :-
2484     platform(_, OS, _, Platform),
2485     % AIX is excluded because both att_asm and power_asm use the '.s' extension
2486     % and we cant have multiple compilers use the same extension on a platform
2487     \+ member(OS, ['windows', 'aix']).
2488 aux_compiler_for_platform(Platform, 'power_asm', 'ibm_as') :-
2489         platform('power', 'aix', _, Platform).
2490 aux_compiler_for_platform(Platform, 'sparc_asm', 'gcc') :-
2491         platform('sparc', 'solaris', _, Platform).
2492
2493 % mcomp_plat/2
2494 % mcomp_plat(?Compiler, ?Platform)
2495 % Specifies that Compiler is used to compile mutators on Platform.  Eventually
2496 % well probably support more than one mutator compiler per platform.
2497 % Mutators are compiled with g++ on Unix
2498 mcomp_plat('g++',Plat) :- platform(_, OS, _, Plat), OS \= 'windows'.
2499 % Mutators are compiled with Visual C++ on Windows
2500 mcomp_plat('VC++', Plat) :- platform(_, 'windows', _, Plat).
2501
2502 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2503 % LANGUAGE SPECIFICATIONS
2504 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2505
2506 % Language Defns
2507 lang('fortran').
2508 lang('c').
2509 lang('c++').
2510 lang('att_asm').
2511 lang('masm_asm').
2512 lang('nasm_asm').
2513 lang('power_asm').
2514 lang('sparc_asm').
2515
2516 % Language-file extension mappings
2517 lang_ext('fortran', '.F').
2518 lang_ext('c', '.c').
2519 lang_ext('c++', '.C').
2520 lang_ext('att_asm', '.s').
2521 lang_ext('att_asm', '.S').
2522 lang_ext('power_asm', '.s'). % On POWER/AIX
2523 lang_ext('masm_asm', '.asm').
2524 lang_ext('nasm_asm', '.asm').
2525 lang_ext('sparc_asm', '.s').
2526
2527 % lang_ext sanity checking
2528 % No platform should have compilers defined for multiple languages that share
2529 % the same extension.  e.g. POWER/AIX must not have compilers defined for both
2530 % att_asm and power_asm because they both use the '.s' extension for source
2531 % files
2532 insane('Too many compilers on platform P1 for extension P2',
2533        [Platform, Extension]) :-
2534     current_platform(Platform),
2535     compiler_platform(Compiler1, Platform),
2536     compiler_platform(Compiler2, Platform),
2537     lang_ext(Language1, Extension),
2538     lang_ext(Language2, Extension),
2539     Language1 \= Language2,
2540     comp_lang(Compiler1, Language1),
2541     comp_lang(Compiler2, Language2).
2542
2543
2544 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2545 % COMPILER SPECIFICATIONS
2546 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2547
2548 % Compiler/language constraints
2549 comp_lang('g77', 'fortran').
2550 comp_lang(Compiler, 'c') :-
2551     member(Compiler, ['gcc', 'pgcc', 'VC', 'cc', 'sun_cc', 'xlc', 'icc']);
2552     member(Compiler, ['g++', 'pgCC', 'VC++', 'cxx', 'CC', 'xlC', 'iCC']).
2553 comp_lang(Compiler, 'c++') :-
2554     member(Compiler, ['g++', 'pgCC', 'VC++', 'cxx', 'CC', 'xlC', 'iCC']).
2555 comp_lang('gcc', 'att_asm') :-
2556     % We dont use gcc for assembly files on AIX
2557     current_platform(Platform),
2558     \+ platform(_, 'aix', _, Platform).
2559
2560 % Mutatee Compiler Defns
2561 % mutatee_comp(compiler name)
2562 mutatee_comp('gcc').
2563 mutatee_comp('g77').
2564 mutatee_comp('g++').
2565 mutatee_comp('pgcc').
2566 mutatee_comp('pgCC').
2567 mutatee_comp('VC').
2568 mutatee_comp('VC++').
2569 mutatee_comp('sun_cc').
2570 mutatee_comp('cc').
2571 mutatee_comp('cxx').
2572 mutatee_comp('CC').
2573 mutatee_comp('xlc').
2574 mutatee_comp('xlC').
2575 mutatee_comp('icc').
2576 mutatee_comp('iCC').
2577
2578 % compiler_presence_def/2
2579 % compiler_presence_def(Compiler, EnvironmentVariable)
2580 % Before trying to build anything using Compiler, we need to check whether
2581 % EnvironmentVariable is set.  If it is not set, then we dont have access
2582 % to Compiler.
2583 % FIXME Theres got to be a better way to do this.
2584 compiler_presence_def('pgcc', 'PGI').
2585 compiler_presence_def('pgCC', 'PGI').
2586 compiler_presence_def('icc', 'ICC').
2587 compiler_presence_def('iCC', 'ICC').
2588 compiler_presence_def('xlc', 'XLC').
2589 compiler_presence_def('xlC', 'XLC').
2590
2591 % Translations between compiler names and compiler #defines
2592 compiler_define_string('gcc', 'gnu_cc').
2593 compiler_define_string('g++', 'gnu_cxx').
2594 compiler_define_string('pgcc', 'pg_cc').
2595 compiler_define_string('VC', 'native_cc').
2596 compiler_define_string('cc', 'native_cc').
2597 compiler_define_string('sun_cc', 'native_cc').
2598 compiler_define_string('xlc', 'native_cc').
2599 compiler_define_string('pgCC', 'pg_cxx').
2600 compiler_define_string('VC++', 'native_cxx').
2601 compiler_define_string('cxx', 'native_cxx').
2602 compiler_define_string('CC', 'native_cxx').
2603 compiler_define_string('xlC', 'native_cxx').
2604 compiler_define_string('g77', 'gnu_fc').
2605 compiler_define_string('icc', 'intel_cc').
2606 compiler_define_string('iCC', 'intel_CC').
2607
2608 %%%%%%%%%%
2609 % *_s relations translate various internal atoms into strings than are
2610 % appropriate for writing out to makefiles, etc.
2611 %%%%%%%%%%
2612
2613 % compiler_s/2 translates from the name of a compiler to the executable name
2614 % HACK I think we're already using the executable names as our atoms
2615 compiler_s(Comp, Comp) :-
2616     % The next line contains a list of compilers whose executable names are
2617     % different from the name of the compiler that is used in this
2618     % specification system.
2619     \+ member(Comp, ['sun_cc', 'ibm_as', 'masm', 'VC', 'VC++']),
2620     findall(C, mutatee_comp(C), Me_comp),
2621     findall(C, mutator_comp(C), Mr_comp),
2622     findall(C, (member(C, Me_comp); member(C, Mr_comp)), All_comp),
2623     sort(All_comp, Comps),
2624     member(Comp, Comps).
2625 compiler_s('sun_cc', 'cc').
2626 compiler_s('VC', 'cl').
2627 compiler_s('VC++', 'cl').
2628 compiler_s('icc', 'icc').
2629 compiler_s('iCC', 'icpc').
2630
2631
2632 % Translation for Optimization Level
2633 %compiler_opt_trans(compiler name, symbolic name, compiler argument).
2634 % FIXME(?) I think the Windows optimization strings should be with cap-O, not
2635 % zero
2636 % FIXME Im also not sure that all these compilers default to no optimization
2637 compiler_opt_trans(_, 'none', '').
2638 compiler_opt_trans(Comp, 'low', '-O1') :-
2639     member(Comp, ['gcc', 'g++', 'pgcc', 'pgCC', 'cc', 'cxx', 'g77', 'icc', 'iCC']).
2640 compiler_opt_trans(Comp, 'low', '/O1') :- Comp == 'VC++'; Comp == 'VC'.
2641 compiler_opt_trans(SunWorkshop, 'low', '-O') :-
2642     member(SunWorkshop, ['sun_cc', 'CC']).
2643 compiler_opt_trans(IBM, 'low', '-O') :-
2644     member(IBM, ['xlc', 'xlC']).
2645 compiler_opt_trans(Comp, 'high', '-O2') :-
2646     member(Comp, ['gcc', 'g++', 'pgcc', 'pgCC', 'cc', 'cxx', 'g77', 'icc', 'iCC']).
2647 compiler_opt_trans(Comp, 'high', '/O2') :- Comp == 'VC++'; Comp == 'VC'.
2648 compiler_opt_trans(SunWorkshop, 'high', '-xO3') :-
2649     member(SunWorkshop, ['sun_cc', 'CC']).
2650 compiler_opt_trans(IBM, 'high', '-O3') :-
2651     member(IBM, ['xlc', 'xlC']).
2652 compiler_opt_trans(Comp, 'max', '-O3') :-
2653     member(Comp, ['gcc', 'g++', 'cc', 'cxx', 'icc', 'iCC']).
2654 compiler_opt_trans(SunWorkshop, 'max', '-xO5') :-
2655     member(SunWorkshop, ['sun_cc', 'CC']).
2656 compiler_opt_trans(IBM, 'max', '-O5') :-
2657     member(IBM, ['xlc', 'xlC']).
2658 compiler_opt_trans(Comp, 'max', '/Ox') :- Comp == 'VC++'; Comp == 'VC'.
2659
2660 % Ensure that we're only defining translations for compilers that exist
2661 insane('P1 not defined as a compiler, but has optimization translation defined',
2662        [Compiler]) :-
2663     compiler_opt_trans(Compiler, _, _),
2664     \+ compiler_platform(Compiler, _).
2665
2666
2667 % Translation for parameter flags
2668 % partial_compile: compile to an object file rather than an executable
2669 compiler_parm_trans(Comp, 'partial_compile', '-c') :-
2670     member(Comp, ['gcc', 'g++', 'pgcc', 'pgCC', 'cc', 'sun_cc', 'CC',
2671                   'xlc', 'xlC', 'cxx', 'g77', 'VC', 'VC++', 'icc', 'iCC']).
2672
2673 % Mutator compiler defns
2674 mutator_comp('g++').
2675 mutator_comp('pgCC').
2676 mutator_comp('VC++').
2677 mutator_comp('cxx').
2678 mutator_comp('CC').
2679 mutator_comp('xlC').
2680
2681 % Per-compiler link options for building mutatees
2682 mutatee_link_options(Gnu_family, '$(MUTATEE_LDFLAGS_GNU)') :- member(Gnu_family, ['icc', 'gcc', 'g++', 'iCC']).
2683 mutatee_link_options(Native_cc, '$(MUTATEE_CFLAGS_NATIVE) $(MUTATEE_LDFLAGS_NATIVE)') :-
2684     member(Native_cc, ['cc', 'sun_cc', 'xlc', 'pgcc']).
2685 mutatee_link_options(Native_cxx, '$(MUTATEE_CXXFLAGS_NATIVE) $(MUTATEE_LDFLAGS_NATIVE)') :-
2686     member(Native_cxx, ['cxx', 'CC', 'xlC', 'pgCC']).
2687 mutatee_link_options('VC', '$(LDFLAGS) $(MUTATEE_CFLAGS_NATIVE) $(MUTATEE_LDFLAGS_NATIVE)').
2688 mutatee_link_options('VC++', '$(LDFLAGS) $(MUTATEE_CXXFLAGS_NATIVE) $(MUTATEE_LDFLAGS_NATIVE)').
2689
2690 % Specify the standard flags for each compiler
2691 comp_std_flags_str('gcc', '$(CFLAGS)').
2692 comp_std_flags_str('g++', '$(CXXFLAGS)').
2693 comp_std_flags_str('cc', '$(CFLAGS_NATIVE)').
2694 comp_std_flags_str('sun_cc', '$(CFLAGS_NATIVE)').
2695 comp_std_flags_str('xlc', '$(CFLAGS_NATIVE)').
2696 comp_std_flags_str('pgcc', '$(CFLAGS_NATIVE)').
2697 comp_std_flags_str('CC', '$(CXXFLAGS_NATIVE)').
2698 % FIXME Make sure that these flags for cxx are correct, or tear out cxx (Alpha)
2699 comp_std_flags_str('cxx', '$(CXXFLAGS_NATIVE)').
2700 comp_std_flags_str('xlC', '$(CXXFLAGS_NATIVE)').
2701 comp_std_flags_str('pgCC', '$(CXXFLAGS_NATIVE)').
2702 % FIXME Tear out the '-DSOLO_MUTATEE' from these and make it its own thing
2703 comp_mutatee_flags_str('gcc', '-DSOLO_MUTATEE $(MUTATEE_CFLAGS_GNU) -I../src').
2704 comp_mutatee_flags_str('g++', '-DSOLO_MUTATEE $(MUTATEE_CXXFLAGS_GNU) -I../src').
2705 comp_mutatee_flags_str('cc', '$(MUTATEE_CFLAGS_NATIVE) -I../src').
2706 comp_mutatee_flags_str('sun_cc', '$(MUTATEE_CFLAGS_NATIVE) -I../src').
2707 comp_mutatee_flags_str('xlc', '$(MUTATEE_CFLAGS_NATIVE) -I../src').
2708 comp_mutatee_flags_str('pgcc', '-DSOLO_MUTATEE $(MUTATEE_CFLAGS_NATIVE) -I../src').
2709 comp_mutatee_flags_str('CC', '$(MUTATEE_CXXFLAGS_NATIVE) -I../src').
2710 % FIXME Make sure that these flags for cxx are correct, or tear out cxx (Alpha)
2711 comp_mutatee_flags_str('cxx', '$(MUTATEE_CXXFLAGS_NATIVE) -I../src').
2712 comp_mutatee_flags_str('xlC', '$(MUTATEE_CXXFLAGS_NATIVE) -I../src').
2713 comp_mutatee_flags_str('pgCC', '-DSOLO_MUTATEE $(MUTATEE_CXXFLAGS_NATIVE) -I../src').
2714 % FIXME What do I specify for the Windows compilers, if anything?
2715 comp_std_flags_str('VC', '-TC').
2716 comp_std_flags_str('VC++', '-TP').
2717 comp_mutatee_flags_str('VC', '$(CFLAGS)').
2718 comp_mutatee_flags_str('VC++', '$(CXXFLAGS_NORM)').
2719 comp_std_flags_str('icc', '$(CFLAGS)').
2720 comp_std_flags_str('iCC', '$(CXXFLAGS)').
2721 comp_mutatee_flags_str('icc', '-DSOLO_MUTATEE $(MUTATEE_CFLAGS_GNU) -I../src').
2722 comp_mutatee_flags_str('iCC', '-x c++ -DSOLO_MUTATEE $(MUTATEE_CXXFLAGS_GNU) -I../src').
2723
2724 % g77 flags
2725 comp_std_flags_str('g77', '-g').
2726 comp_mutatee_flags_str('g77', '$(MUTATEE_G77_FFLAGS)').
2727 mutatee_link_options('g77', '$(MUTATEE_G77_LDFLAGS)').
2728
2729 % NASM (for test_mem (formerly test6))
2730 comp_lang('nasm', 'nasm_asm').
2731 compiler_define_string('nasm', 'nasm').
2732 compiler_platform('nasm', Platform) :-
2733     platform('i386', 'linux', _, Platform). % NASM runs on x86 Linux
2734 comp_std_flags_str('nasm', '-f elf -dPLATFORM=$(PLATFORM)').
2735 comp_mutatee_flags_str('nasm', '').
2736 mutatee_link_options('nasm', '').
2737 mutatee_comp('nasm'). % I think I want to reorganize so this isnt required
2738                       % for compilers that are only used for auxilliary files
2739 compiler_parm_trans('nasm', 'partial_compile', '').
2740
2741 % ml (masm) for test_mem (WINDOWS)
2742 comp_lang('masm', 'masm_asm').
2743 compiler_s('masm', 'ml').
2744 compiler_define_string('masm', 'masm').
2745 compiler_platform('masm', Platform) :-
2746   platform('i386', 'windows', _, Platform).
2747 comp_std_flags_str('masm', '-nologo').
2748 comp_mutatee_flags_str('masm', '').
2749 mutatee_link_options('masm', '').
2750 mutatee_comp('masm').
2751 compiler_parm_trans('masm', 'partial_compile', '-c').
2752
2753 % as for test_mem
2754 comp_lang('ibm_as', 'power_asm').
2755 compiler_s('ibm_as', 'as').
2756 compiler_define_string('ibm_as', 'ibm_as').
2757 compiler_platform('ibm_as', Platform) :-
2758     platform('power', 'aix', _, Platform).
2759 comp_std_flags_str('ibm_as', '').
2760 comp_mutatee_flags_str('ibm_as', '').
2761 mutatee_link_options('ibm_as', '').
2762 mutatee_comp('ibm_as').
2763 compiler_parm_trans('ibm_as', 'partial_compile', '').
2764
2765 % Compiler Optimization Level Defns
2766 optimization_level('none').
2767 optimization_level('low').
2768 optimization_level('high').
2769 optimization_level('max').
2770
2771 % ABI defns for compilers
2772 % compiler_platform_abi_s_default(FlagString)
2773 % The flags string for a platform's default ABI (Do we want this?)
2774 compiler_platform_abi_s_default('').
2775 % compiler_platform_abi_s(Compiler, Platform, ABI, FlagString)
2776 compiler_platform_abi_s(Compiler, Platform, ABI, '') :-
2777     mutatee_comp(Compiler),
2778     Compiler \= '',
2779     platform(Platform),
2780     compiler_platform(Compiler, Platform),
2781     mutatee_abi(ABI),
2782     platform_abi(Platform, ABI),
2783     \+ (member(Compiler, ['gcc', 'g++']), Platform = 'x86_64-unknown-linux2.4',
2784         ABI = 32).
2785 compiler_platform_abi_s(Compiler, 'x86_64-unknown-linux2.4', 32,
2786                         '-m32 -Di386_unknown_linux2_4 -Dm32_test') :-
2787     member(Compiler, ['gcc', 'g++']).
2788
2789
2790 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2791 % TEST SPECIFICATION GLUE
2792 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2793
2794 % Test / Platform constraints
2795
2796 % test_platform/2
2797 test_platform(Testname, Platform) :-
2798     test_runs_everywhere(Testname),
2799     platform(Platform).
2800
2801 % test_runs_everywhere/1
2802 % Specifies the tests that run on all platforms.
2803 % 'none' is a special atom that no test should match that stops the compiler
2804 % from complaining that test_runs_everywhere isnt defined.
2805 test_runs_everywhere(none).
2806
2807 % Test definitions
2808
2809 % test/3
2810 % test(?Name, ?Mutator, ?Mutatee)
2811 % Specifies that the test Name maps the mutator Mutator to the mutatee Mutatee.
2812 % This (hopefully) allows many-to-many mappings to exist, and lets us assign
2813 % a unique name to each mapping.
2814
2815 % Mutator Defns
2816 % mutator/2
2817 % mutator(+name, ?source list)
2818
2819 % Mutators can also require libraries to be linked with.
2820 % All mutators need to be linked with dyninstAPI and iberty
2821 % All mutators also need to be linked with testSuite, for the TestMutator
2822 % superclass if nothing else.
2823 all_mutators_require_libs(['iberty', 'testSuite']).
2824
2825 module_required_libs('dyninst', ['dyninstAPI']).
2826 module_required_libs('symtab', ['symtabAPI']).
2827 module_required_libs('stackwalker', ['stackwalkerAPI']).
2828 module_required_libs('instruction', ['instructionAPI']).
2829
2830 module_requires_libs_internal([], Output, Output).
2831 module_requires_libs_internal([Module | Tail], Acc, Output) :-
2832         module_required_libs(Module, Libs),
2833         append(Libs, Acc, NewAcc),
2834         module_requires_libs_internal(Tail, NewAcc, Output).
2835 module_requires_libs_internal(Module, Acc, Output) :-
2836         module_required_libs(Module, Libs),
2837         append(Libs, Acc, Output).
2838
2839 module_requires_libs(Modules, Output) :-
2840         module_requires_libs_internal(Modules, [], Libs),
2841         removedups(Libs, Output).
2842
2843 %module_requires_libs([Module | Rest], Output) :-
2844 %       module_required_libs(Module, Libs),
2845 %       \+ module_requires_libs(Rest, [Libs | Output]).
2846  
2847 % Those with no specific requirements dont require specific libraries
2848 mutator_requires_libs(Mutator, []) :-
2849         mutator(Mutator, _),
2850         test(_, Mutator, _),
2851         \+ mutator_requires_libs(Mutator, [_|_]).
2852
2853 % Mutatee Defns
2854 % mutatee/2
2855 % mutatee(?name, ?source_list)
2856
2857 % mutatee/3
2858 % mutatee(?name, ?preprocessed_source, ?raw_source)
2859 % Specifies a mutatee that uses some auxilliary source files.  The files in
2860 % the preprocessed_source list have the the boilerplate transformation applied
2861 % to them, while the files in the raw_source list are compiled as-is
2862
2863 % Mutatees specified with mutatee/2 have no raw source files.
2864 mutatee(Name, PPSource, []) :- mutatee(Name, PPSource).
2865
2866 % forall_mutatees/1 defines a list of source files requires by all mutatees
2867 % FIXME mutatee_util is hardcoded into the makefile generator.  I need to
2868 % change that.
2869 % FIXME Once I implement group mutatees, this will need to be fixed
2870 forall_mutatees(['mutatee_util.c']).
2871
2872 % I dont think there are any libraries that all mutatees need to be linked to
2873 all_mutatees_require_libs([]).
2874 % mutatee_requires_libs/2
2875 % Allows the user to specify which libraries a mutatee needs to be linked with
2876 % Any mutatees with no specified required libraries dont require any.
2877 mutatee_requires_libs(Mutatee, []) :-
2878     mutatee(Mutatee, _, _),
2879     \+ mutatee_requires_libs(Mutatee, [_|_]).
2880 % The multithreaded mutatees are linked with pthreads
2881 %mutatee_requires_libs('test12.mutatee', ['dl', 'pthread']).
2882 %mutatee_requires_libs('test13.mutatee', ['pthread']).
2883 %mutatee_requires_libs('test14.mutatee', ['pthread']).
2884 %mutatee_requires_libs('test15.mutatee', ['pthread']).
2885 % Test 9's mutatee is linked with something, depending on the platform it is
2886 % run on.
2887 % FIXME is libInstMe required on other platforms?
2888 %mutatee_requires_libs('test9.mutatee', L) :-
2889 %    current_platform(P),
2890 %    (
2891 %        P = 'i386-unknown-linux2.4' -> L = ['InstMe'];
2892 %        L = []
2893 %    ).
2894
2895 % Mutatee, Compliers Constraints
2896 % Using compiler_for_mutatee(?Mutatee, ?Compiler) now
2897
2898 % optimization_for_mutatee/3
2899 % optimization_for_mutatee(?Mutatee, ?Compiler, ?OptimizationLevel)
2900 % Unifies a mutatee name with a valid compiler and optimization level for
2901 % building an object file for the mutatee
2902 % TODO Create some kind of default optimization_for_mutatee rule
2903
2904 % runmode/1
2905 % runmode(+RunMode)
2906 % Specifies the valid values for a test's run mode
2907 runmode('createProcess').
2908 runmode('useAttach').
2909 runmode('binary').
2910 runmode('deserialize').
2911
2912 % test_runmode/2
2913 % test_runmode(?Test, ?Runmode)
2914 % The atom 'dynamic' as Runmode means the test can be run in either useAttach
2915 % or createProcess mode.
2916 test_runmode(Test, 'useAttach') :- test_runmode(Test, 'dynamic').
2917 test_runmode(Test, 'createProcess') :- test_runmode(Test, 'dynamic').
2918 test_runmode(Test, 'binary') :- test_runmode(Test, 'staticdynamic').
2919 test_runmode(Test, 'useAttach') :- test_runmode(Test, 'staticdynamic').
2920 test_runmode(Test, 'createProcess') :- test_runmode(Test, 'staticdynamic').
2921 test_runmode(Test, 'deserialize') :- test_serializable(Test).
2922
2923 % runmode_platform/2
2924 % runmode_platform(?Platform, ?Runmode)
2925 % This specifies what platforms support which runmodes, essentially
2926 % specify binary rewriter support for Dyninst
2927 runmode_platform(P, 'createProcess') :- platform(_, _, _, P).
2928 runmode_platform(P, 'useAttach') :- platform(_, _, _, P).
2929 runmode_platform(P, 'binary') :- platform('i386', 'linux', _, P).
2930 runmode_platform(P, 'binary') :- platform('x86_64', 'linux', _, P).
2931 runmode_platform(P, 'deserialize') :- platform(_, _, _, P).
2932
2933 % mutatee_peers/2
2934 mutatee_peers(M, P) :-
2935     findall(N, mutatee_peer(M, N), Ps), sort(Ps, P).
2936
2937 %%%%%
2938 % Playing around with how to specify that some tests only run in 64-bit mode
2939 % on x86_64.
2940 %%%%%
2941 % blacklist([['test', 'test5_1'], ['platform', 'x86_64-unknown-linux2.4'],
2942 %            ['mutatee_abi', '32']]).
2943 %
2944 % I like this one the best:
2945 % blacklist([['test', Test], ['platform', 'x86_64-unknown-linux2.4'],
2946 %            ['mutatee_abi', '32']]) :-
2947 %     restricted_amd64_abi(Test).
2948 %
2949 % test_platform_abi(Test, Platform, ABI) :-
2950 %     test_platform(Test, Platform),
2951 %     platform_abi(Platform, ABI),
2952 %     \+ (Platform = 'x86_64-unknown-linux2.4', ABI = 32)
2953 %
2954 test_platform_abi(Test, Platform, ABI) :-
2955     test_platform(Test, Platform), platform_abi(Platform, ABI),
2956         platform(Arch, _, _, Platform),
2957         (
2958         % If restricted_abi_for_arch is specified, follow its restrictions
2959             restricted_abi_for_arch(Test, Arch, ABI);
2960             % If restricted_abi_for_arch is not specified, there are no
2961             % restrictions
2962             \+ restricted_abi_for_arch(Test, Arch, _) -> true
2963         ).
2964
2965 % Sanity checking
2966 % Define
2967 % insane(Message) :- invalid condition.
2968 % to specify that build should fail if invalid condition is true.
2969
2970 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2971 % SPEC EXCEPTION GLUE
2972 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2973
2974 % spec_exception_type/3
2975 % spec_exception_type(?ExceptionType, ?ParamCount, ?Params)
2976 % Specifies a new type of exception to a specification rule.  This is where we
2977 % build a catalog of types of exceptions and their parameters
2978
2979 % mutatee_flags exception specifies an exception that overrides the
2980 % standard mutatee flags string for a compiler when compiling a particular
2981 % file.
2982 % OVERRIDES comp_mutatee_flags_str/2
2983 spec_exception_type('mutatee_flags', 2, ['compiler', 'flags']).
2984
2985 % spec_object_file/6
2986 % spec_object_file(?ObjectFile, ?Compiler, ?SourceList, ?IntermediateSourceList
2987 %                  ?DependencyList, ?FlagList)
2988 % This clause should contain everything necessary to generate a makefile rule
2989 % for an object file.  I dont want to do text processing in the Prolog
2990 % component of the spec compiler, so we'll pass along a main source file string
2991 % and let the Python component handle transforming that into an object file
2992 % name
2993