OrcTestResult
orc_test_gcc_compile (OrcProgram *p)
{
char cmd[200];
char *base;
char source_filename[100];
char obj_filename[100];
char dis_filename[100];
char dump_filename[100];
char dump_dis_filename[100];
int ret;
FILE *file;
OrcCompileResult result;
OrcTarget *target;
unsigned int flags;
base = "temp-orc-test";
sprintf(source_filename, "%s-source.s", base);
sprintf(obj_filename, "%s.o", base);
sprintf(dis_filename, "%s-source.dis", base);
sprintf(dump_filename, "%s-dump.bin", base);
sprintf(dump_dis_filename, "%s-dump.dis", base);
target = orc_target_get_default ();
flags = orc_target_get_default_flags (target);
flags |= ORC_TARGET_CLEAN_COMPILE;
if (strcmp (orc_target_get_name (target), "sse") == 0) {
flags |= ORC_TARGET_SSE_SHORT_JUMPS;
}
if (strcmp (orc_target_get_name (target), "mmx") == 0) {
flags |= ORC_TARGET_MMX_SHORT_JUMPS;
}
result = orc_program_compile_full (p, target, flags);
if (ORC_COMPILE_RESULT_IS_FATAL(result)) {
return ORC_TEST_FAILED;
}
if (!ORC_COMPILE_RESULT_IS_SUCCESSFUL(result)) {
return ORC_TEST_INDETERMINATE;
}
fflush (stdout);
file = fopen (source_filename, "w");
fprintf(file, "%s", orc_program_get_asm_code (p));
fclose (file);
file = fopen (dump_filename, "w");
ret = fwrite(p->orccode->code, p->orccode->code_size, 1, file);
fclose (file);
#if defined(HAVE_POWERPC)
sprintf (cmd, "gcc -Wa,-mregnames -Wall -c %s -o %s", source_filename,
obj_filename);
#else
sprintf (cmd, "gcc -Wall -c %s -o %s", source_filename,
obj_filename);
#endif
ret = system (cmd);
if (ret != 0) {
ORC_ERROR ("gcc failed");
printf("%s\n", orc_program_get_asm_code (p));
return ORC_TEST_FAILED;
}
#if 0
sprintf (cmd, "objdump -dr %s | sed 's/^[ 0-9a-f]*:/XXX:/' >%s", obj_filename, dis_filename);
#else
sprintf (cmd, "objdump -dr %s >%s", obj_filename, dis_filename);
#endif
ret = system (cmd);
if (ret != 0) {
ORC_ERROR ("objdump failed");
return ORC_TEST_FAILED;
}
sprintf (cmd, "objcopy -I binary "
#ifdef HAVE_I386
"-O elf32-i386 -B i386 "
#elif defined(HAVE_AMD64)
"-O elf64-x86-64 -B i386 "
#elif defined(HAVE_POWERPC)
"-O elf32-powerpc -B powerpc "
#else
/* FIXME */
#endif
"--rename-section .data=.text "
"--redefine-sym _binary_temp_orc_test_dump_bin_start=%s "
"%s %s", p->name, dump_filename, obj_filename);
ret = system (cmd);
if (ret != 0) {
printf("objcopy failed\n");
return ORC_TEST_FAILED;
}
#if 0
sprintf (cmd, "objdump -Dr %s | sed 's/^[ 0-9a-f]*:/XXX:/' >%s", obj_filename, dump_dis_filename);
#else
sprintf (cmd, "objdump -Dr %s >%s", obj_filename, dump_dis_filename);
#endif
ret = system (cmd);
if (ret != 0) {
printf("objdump failed\n");
return ORC_TEST_FAILED;
}
sprintf (cmd, "diff -u %s %s", dis_filename, dump_dis_filename);
ret = system (cmd);
if (ret != 0) {
printf("diff failed\n");
return ORC_TEST_FAILED;
}
remove (source_filename);
remove (obj_filename);
remove (dis_filename);
remove (dump_filename);
remove (dump_dis_filename);
return ORC_TEST_OK;
}
int
main (int argc, char *argv[])
{
int i;
OrcProgram **programs;
const char *filename = NULL;
orc_init ();
orc_test_init ();
for(i=1;i<argc;i++){
if (strcmp(argv[i], "--help") == 0) {
printf("Usage:\n");
printf(" orc-bugreport [file.orc]\n");
printf("\n");
printf("Options:\n");
printf(" --help Show help options\n");
printf(" --verbose Increase debugging messages\n");
printf("\n");
printf("Environment Variables:\n");
printf(" ORC_DEBUG=<LEVEL> Set debugging level\n");
printf(" ORC_CODE=[KEYWORDS,...] Modify code generation\n");
printf(" General keywords:\n");
printf(" backup Always use backup function\n");
printf(" debug Generate debuggable code (useful for backtraces on i386)\n");
printf(" SSE keywords:\n");
printf(" -sse2 Disable SSE2\n");
printf(" -sse3 Disable SSE3\n");
printf(" -ssse3 Disable SSEE3\n");
printf(" -sse41 Disable SSE4.1\n");
printf(" -sse42 Disable SSE4.2\n");
printf(" -sse4a Disable SSE4a\n");
printf(" -sse5 Disable SSE5\n");
printf("\n");
exit (0);
}
filename = argv[i];
}
printf("Orc " VERSION " - integrated testing tool\n");
printf("Active backend: %s\n",
orc_target_get_name(orc_target_get_default()));
{
int level1, level2, level3;
orc_get_data_cache_sizes(&level1, &level2, &level3);
printf("L1 cache: %d\n", level1);
printf("L2 cache: %d\n", level2);
printf("L3 cache: %d\n", level3);
}
{
int family, model, stepping;
orc_get_cpu_family_model_stepping (&family, &model, &stepping);
printf("Family/Model/Stepping: %d/%d/%d\n", family, model, stepping);
printf("CPU name: %s\n", orc_get_cpu_name ());
}
{
int i;
int flags = orc_target_get_default_flags (orc_target_get_default());
printf("Compiler options: ");
for(i=0;i<32;i++){
if (flags & (1<<i)) {
printf("%s ", orc_target_get_flag_name (orc_target_get_default(), i));
}
}
printf("\n");
}
if (filename) {
int n;
int ret;
char *code;
code = read_file (filename);
if (!code) {
printf("orc-bugreport: could not read file %s\n", filename);
exit(1);
}
printf("Parsing %s\n", filename);
n = orc_parse (code, &programs);
for(i=0;i<n;i++){
ret = orc_test_compare_output_full (programs[i], 0);
if (!ret) {
printf("FAIL: %s\n", programs[i]->name);
error = TRUE;
}
}
} else {
printf("Opcode test:\n");
test_opcodes();
}
if (error) {
printf("Errors detected. Please send entire output to [email protected].\n");
return 1;
} else {
printf("No errors detected.\n");
return 0;
}
}
