From 6402c01cc2d220ac2345781399738aa296c350a1 Mon Sep 17 00:00:00 2001 From: "Frank Ch. Eigler" Date: Mon, 11 Jan 1999 15:06:11 +0000 Subject: * gx sim prototype tweaks start-sanitize-gxsim 1999-01-11 Frank Ch. Eigler * sim-gx-run.c (sim_engine_run): Allay warnings. Write out updated gx block list after each successful compilation job. * sim-gx.c (sim_gx_compiled_block_f): dlopen the main executable image, to allow gx block DLLs to resolve symbols there. (sim_gx_{read,write}_block_list): Allay warnings. (sim_gx_block_translate): Allay warnings. Add $GX_FLAGS to gx compilation/link jobs. * sim-gx.h: Allay warnings. end-sanitize-gxsim --- sim/common/ChangeLog | 13 ++++++ sim/common/sim-gx-run.c | 7 +++- sim/common/sim-gx.c | 105 ++++++++++++++++++++++++++++++------------------ sim/common/sim-gx.h | 4 +- 4 files changed, 86 insertions(+), 43 deletions(-) (limited to 'sim/common') diff --git a/sim/common/ChangeLog b/sim/common/ChangeLog index b8b68ab..1c0de5d 100644 --- a/sim/common/ChangeLog +++ b/sim/common/ChangeLog @@ -1,3 +1,16 @@ +start-sanitize-gxsim +1999-01-11 Frank Ch. Eigler + + * sim-gx-run.c (sim_engine_run): Allay warnings. Write out updated + gx block list after each successful compilation job. + * sim-gx.c (sim_gx_compiled_block_f): dlopen the main executable + image, to allow gx block DLLs to resolve symbols there. + (sim_gx_{read,write}_block_list): Allay warnings. + (sim_gx_block_translate): Allay warnings. Add $GX_FLAGS to + gx compilation/link jobs. + * sim-gx.h: Allay warnings. + +end-sanitize-gxsim 1999-01-05 Doug Evans * Make-common.in (CGEN_INCLUDE_DEPS): Add cgen-defs.h, cgen-engine.h. diff --git a/sim/common/sim-gx-run.c b/sim/common/sim-gx-run.c index ecd8716..deda27b 100644 --- a/sim/common/sim-gx-run.c +++ b/sim/common/sim-gx-run.c @@ -34,8 +34,9 @@ sim_engine_run (SIM_DESC sd, sim_gx_compiled_block* compiled_block; sim_gx_function f; sim_cia cia = CIA_GET(cpu); - int optimized; - int pre_checksum, post_checksum; + int optimized = 0; + int pre_checksum = 0; + int post_checksum = 0; /* find optimized gx block that includes this PC */ block = sim_gx_block_find(cia); @@ -43,6 +44,7 @@ sim_engine_run (SIM_DESC sd, { /* start new learning block */ block = sim_gx_block_create(cia); + sim_gx_write_block_list(); } ASSERT(block != NULL); @@ -59,6 +61,7 @@ sim_engine_run (SIM_DESC sd, { block->opt_compile_count ++; sim_gx_block_translate(block, 1 /* optimized */); + sim_gx_write_block_list(); compiled_block = block->optimized_block; optimized = 1; } diff --git a/sim/common/sim-gx.c b/sim/common/sim-gx.c index 5faf576..8780ac9 100644 --- a/sim/common/sim-gx.c +++ b/sim/common/sim-gx.c @@ -50,13 +50,27 @@ sim_gx_compiled_block_f(sim_gx_compiled_block* gx) { sim_gx_function f = gx->function_dlhandle; SIM_DESC sd = current_state; - int rc; + static int dlopened_main = 0; if(f == NULL) { /* load object */ if(gx->object_dlhandle == NULL && gx->object_name != NULL) { + if(! dlopened_main) + { + /* dlopen executable itself first to share symbols with shared library */ + void* exec_handle = dlopen(NULL, RTLD_LAZY | RTLD_GLOBAL); + if(exec_handle == NULL) + { + sim_io_error(sd, "Load error for executable: %s", + dlerror()); + } + + dlopened_main = 1; + } + + /* dlopen the gx block dso itself */ gx->object_dlhandle = dlopen(gx->object_name, RTLD_NOW); if(gx->object_dlhandle == NULL) { @@ -199,7 +213,7 @@ sim_gx_write_block_list() int age; age = time(NULL) - gx->learn_last_change; /* store interval */ - fprintf(f, "BLOCK 0x%lx 0x%lx %u %u\n", gx->origin, gx->length, gx->divisor, age); + fprintf(f, "BLOCK 0x%x 0x%x %u %u\n", (unsigned)gx->origin, (unsigned)gx->length, gx->divisor, age); fprintf(f, "FLAGS "); for(j=0; jorigin + gx->length); j++) { @@ -266,7 +280,7 @@ sim_gx_read_block_list() SIM_DESC sd = current_state; FILE* f; char state_file_name[PATH_MAX]; - char *exec_name; + const char *exec_name; /* check for block */ if(STATE_PROG_BFD(sd) == NULL) @@ -301,7 +315,7 @@ sim_gx_read_block_list() unsigned age; int j; - rc = fscanf(f, "BLOCK 0x%0lx 0x%lx %u %u\n", & origin, & length, & divisor, & age); + rc = fscanf(f, "BLOCK 0x%0x 0x%x %u %u\n", (unsigned*)& origin, (unsigned*)& length, & divisor, & age); if(rc != 4) /* not all fields matched - assume EOF */ break; @@ -326,9 +340,9 @@ sim_gx_read_block_list() block->source_name = zalloc(PATH_MAX); block->object_name = zalloc(PATH_MAX); block->symbol_name = zalloc(PATH_MAX); - fscanf(f, "LEARNING %s %s %s %lu %u\n", + fscanf(f, "LEARNING %s %s %s %u %u\n", block->source_name, block->object_name, block->symbol_name, - & gx->compile_time, & gx->opt_compile_count); + (unsigned*) & gx->compile_time, & gx->opt_compile_count); /* read optimized mode info */ block = zalloc(sizeof(sim_gx_compiled_block)); @@ -485,7 +499,7 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized) char dir_name[PATH_MAX]; char base_name[PATH_MAX]; char compile_command[PATH_MAX*4]; - char* exec_name; + const char* exec_name; SIM_DESC sd = current_state; int rc; sim_cia gx_cia; @@ -529,9 +543,9 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized) /* compute base name */ if(optimized) - sprintf(base_name, "%08lx_opt%d", gx->origin, gx->opt_compile_count); + sprintf(base_name, "%08x_opt%d", (unsigned) gx->origin, gx->opt_compile_count); else - sprintf(base_name, "%08lx", gx->origin); + sprintf(base_name, "%08x", (unsigned) gx->origin); /* generate source/object file names */ block->source_name = zalloc(PATH_MAX); @@ -635,6 +649,8 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized) fprintf(block->source_file, "#else /* ! __GNUC__*/\n"); fprintf(block->source_file, " default:\n"); fprintf(block->source_file, "#endif /*__GNUC__*/\n"); + fprintf(block->source_file, " pc_flags[%d] |= %d;\n", + GX_PC_FLAGS_INDEX(gx, gx_cia), GX_PCF_INSTRUCTION); fprintf(block->source_file, " rc = %d;\n", GX_F_NONPC); fprintf(block->source_file, " npc = pc;\n"); fprintf(block->source_file, " goto save;\n"); @@ -664,6 +680,8 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized) { fprintf(block->source_file, " /* prevent fall-through */\n"); fprintf(block->source_file, " npc = 0x%08x;\n", gx_cia); + fprintf(block->source_file, " pc_flags[%d] |= %d;\n", + GX_PC_FLAGS_INDEX(gx, gx_cia), GX_PCF_INSTRUCTION); fprintf(block->source_file, " rc = %d;\n", GX_F_NONPC); fprintf(block->source_file, " goto save;\n"); } @@ -676,10 +694,10 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized) if((! optimized) || (GX_PC_FLAGS(gx, gx_cia) & GX_PCF_JUMPTARGET)) { - fprintf(block->source_file, " gx_label_%ld:\n", + fprintf(block->source_file, " gx_label_%d:\n", ((gx_cia - gx->origin) / gx->divisor)); fprintf(block->source_file, "#ifndef __GNUC__\n"); - fprintf(block->source_file, " case %ld:\n", + fprintf(block->source_file, " case %d:\n", ((gx_cia - gx->origin) / gx->divisor)); fprintf(block->source_file, "#endif /* !__GNUC__ */\n"); } @@ -687,7 +705,7 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized) /* translate breakpoint check & exit */ if(GX_PC_FLAGS(gx, gx_cia) & GX_PCF_COND_HALT) { - fprintf(block->source_file, " if(pc_flags[%ld] & %d)\n", + fprintf(block->source_file, " if(pc_flags[%d] & %d)\n", GX_PC_FLAGS_INDEX(gx, gx_cia), GX_PCF_HALT); fprintf(block->source_file, " {\n"); @@ -703,7 +721,7 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized) /* mark traversed instructions */ if(! optimized) { - fprintf(block->source_file, " pc_flags[%ld] |= %d;\n", + fprintf(block->source_file, " pc_flags[%d] |= %d;\n", GX_PC_FLAGS_INDEX(gx, gx_cia), GX_PCF_INSTRUCTION); } @@ -729,8 +747,8 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized) /* unknown length jump */ fprintf(block->source_file, "\n"); fprintf(block->source_file, "unknownjump:\n"); - fprintf(block->source_file, " if(npc >= 0x%08lx && npc < 0x%08lx)\n", - gx->origin, gx->origin + gx->length); + fprintf(block->source_file, " if(npc >= 0x%08x && npc < 0x%08x)\n", + (unsigned)gx->origin, (unsigned)gx->origin + gx->length); fprintf(block->source_file, " goto shortjump;\n"); /* long jump */ @@ -758,30 +776,39 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized) /* compile source & produce shared object */ - sprintf(compile_command, - "gxtool --silent --mode=compile gcc -c %s %s", - (optimized ? "-O9 -fomit-frame-pointer" : "-O"), block->source_name); - - rc = system(compile_command); - if(rc != 0) - { - sim_io_error(sd, "Error during compiling: `%s' rc %d", - compile_command, rc); - } - - /* link source */ - - sprintf(compile_command, - "gxtool --silent --mode=link gcc -export-dynamic -rpath %s -o lib%s.la %s.lo", - dir_name, base_name, base_name); - - rc = system(compile_command); - if(rc != 0) - { - sim_io_error(sd, "Error during linking: `%s' rc %d", - compile_command, rc); - } - + { + char* extra_flags = NULL; +#ifdef HAVE_GETENV + extra_flags = getenv("GX_FLAGS"); +#endif + if (extra_flags == NULL) extra_flags = ""; + + sprintf(compile_command, + "gxtool --silent --mode=compile gcc %s %s -c %s", + (optimized ? "-O9 -fomit-frame-pointer" : "-O"), + extra_flags, + block->source_name); + + rc = system(compile_command); + if(rc != 0) + { + sim_io_error(sd, "Error during compiling: `%s' rc %d", + compile_command, rc); + } + + /* link source */ + + sprintf(compile_command, + "gxtool --silent --mode=link gcc -export-dynamic -rpath %s %s -o lib%s.la %s.lo", + dir_name, extra_flags, base_name, base_name); + + rc = system(compile_command); + if(rc != 0) + { + sim_io_error(sd, "Error during linking: `%s' rc %d", + compile_command, rc); + } + } /* install */ diff --git a/sim/common/sim-gx.h b/sim/common/sim-gx.h index b7a815e..5480bc6 100644 --- a/sim/common/sim-gx.h +++ b/sim/common/sim-gx.h @@ -114,8 +114,8 @@ void sim_gx_block_add(sim_gx_block* block); void sim_gx_block_remove(sim_gx_block* block); /* State save/restore */ -void sim_gx_write_block_list(); -void sim_gx_read_block_list(); +void sim_gx_write_block_list(void); +void sim_gx_read_block_list(void); sim_gx_function sim_gx_compiled_block_f(sim_gx_compiled_block* gx); void sim_gx_compiled_block_dispose(sim_gx_compiled_block* gx); -- cgit v1.1