int main (int argc, char *argv[]) { OrcProgram **programs; OrcCompileResult cres; int n, i; orc_init (); orc_test_init (); /* 1 - unix */ n = orc_parse (txt_unix, &programs); for (i = 0; i < n; i++) { if (verbose) printf ("%s\n", programs[i]->name); orc_test_compare_output_full (programs[i], 0); cres = orc_program_compile (programs[i]); if (ORC_COMPILE_RESULT_IS_FATAL (cres)) { fprintf (stderr, "compile error: %d\n", cres); error = TRUE; } orc_program_free (programs[i]); } if (error || n == 0) return 1; /* 2 - windows */ n = orc_parse (txt_win32, &programs); for (i = 0; i < n; i++) { if (verbose) printf ("%s\n", programs[i]->name); orc_test_compare_output_full (programs[i], 0); cres = orc_program_compile (programs[i]); if (ORC_COMPILE_RESULT_IS_FATAL (cres)) { fprintf (stderr, "compile error: %d\n", cres); error = TRUE; } orc_program_free (programs[i]); } if (error || n == 0) return 1; return 0; }
void test_opcode_const (OrcStaticOpcode *opcode) { OrcProgram *p; char s[40]; int ret; int flags = 0; int args[4] = { -1, -1, -1, -1 }; int n_args = 0; if (opcode->src_size[1] == 0) { return; } p = orc_program_new (); if (opcode->flags & ORC_STATIC_OPCODE_ACCUMULATOR) { args[n_args++] = orc_program_add_accumulator (p, opcode->dest_size[0], "d1"); } else { args[n_args++] = orc_program_add_destination (p, opcode->dest_size[0], "d1"); } if (opcode->dest_size[1] != 0) { args[n_args++] = orc_program_add_destination (p, opcode->dest_size[1], "d2"); } args[n_args++] = orc_program_add_source (p, opcode->src_size[0], "s1"); args[n_args++] = orc_program_add_constant (p, opcode->src_size[1], 1, "c1"); if (opcode->src_size[2]) { args[n_args++] = orc_program_add_constant (p, opcode->src_size[2], 1, "c2"); } if ((opcode->flags & ORC_STATIC_OPCODE_FLOAT_SRC) || (opcode->flags & ORC_STATIC_OPCODE_FLOAT_DEST)) { flags = ORC_TEST_FLAGS_FLOAT; } sprintf(s, "test_const_%s", opcode->name); orc_program_set_name (p, s); orc_program_append_2 (p, opcode->name, 0, args[0], args[1], args[2], args[3]); ret = orc_test_compare_output_full (p, flags); if (!ret) { printf("FAIL: %s const\n", opcode->name); error = TRUE; } orc_program_free (p); }
void test_opcode_src_const_n_2d (OrcStaticOpcode *opcode) { OrcProgram *p; char s[40]; int ret; int flags = 0; if (opcode->flags & ORC_STATIC_OPCODE_SCALAR) { return; } p = orc_program_new (); if (opcode->flags & ORC_STATIC_OPCODE_ACCUMULATOR) { orc_program_add_accumulator (p, opcode->dest_size[0], "d1"); } else { orc_program_add_destination (p, opcode->dest_size[0], "d1"); } if (opcode->dest_size[1] != 0) { orc_program_add_destination (p, opcode->dest_size[1], "d2"); } orc_program_add_source (p, opcode->src_size[0], "s1"); if (opcode->src_size[1] != 0) { orc_program_add_source (p, opcode->src_size[1], "s2"); } if ((opcode->flags & ORC_STATIC_OPCODE_FLOAT_SRC) || (opcode->flags & ORC_STATIC_OPCODE_FLOAT_DEST)) { flags = ORC_TEST_FLAGS_FLOAT; } sprintf(s, "test_s_%s", opcode->name); orc_program_set_name (p, s); orc_program_set_2d (p); orc_program_set_constant_n (p, 8); if (opcode->dest_size[1] != 0) { orc_program_append_dds_str (p, opcode->name, "d1", "d2", "s1"); } else { orc_program_append_str (p, opcode->name, "d1", "s1", "s2"); } ret = orc_test_compare_output_full (p, flags); if (!ret) { printf("FAIL: %s src_const_n_2d\n", opcode->name); error = TRUE; } orc_program_free (p); }
int main (int argc, char *argv[]) { char *code; int n; int i; OrcProgram **programs; const char *filename = NULL; orc_init (); orc_test_init (); if (argc >= 2) { filename = argv[1]; } if (filename == NULL) { filename = getenv ("testfile"); } if (filename == NULL) { filename = "test.orc"; } code = read_file (filename); if (!code) { printf("exec_parse <file.orc>\n"); exit(1); } n = orc_parse (code, &programs); for(i=0;i<n;i++){ if (verbose) printf("%s\n", programs[i]->name); orc_test_compare_output_full (programs[i], 0); } if (error) return 1; return 0; }
OrcTestResult orc_test_compare_output_backup (OrcProgram *program) { return orc_test_compare_output_full (program, ORC_TEST_FLAGS_BACKUP); }
OrcTestResult orc_test_compare_output (OrcProgram *program) { return orc_test_compare_output_full (program, 0); }
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; } }