* gx sim prototype tweaks
start-sanitize-gxsim 1999-01-11 Frank Ch. Eigler <fche@cygnus.com> * 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
This commit is contained in:
parent
11f9c65f91
commit
6402c01cc2
|
@ -1,3 +1,16 @@
|
|||
start-sanitize-gxsim
|
||||
1999-01-11 Frank Ch. Eigler <fche@cygnus.com>
|
||||
|
||||
* 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 <devans@casey.cygnus.com>
|
||||
|
||||
* Make-common.in (CGEN_INCLUDE_DEPS): Add cgen-defs.h, cgen-engine.h.
|
||||
|
|
|
@ -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;
|
||||
}
|
||||
|
|
|
@ -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; j<GX_PC_FLAGS_INDEX(gx, gx->origin + 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,9 +776,18 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized)
|
|||
|
||||
/* compile source & produce shared object */
|
||||
|
||||
{
|
||||
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 -c %s %s",
|
||||
(optimized ? "-O9 -fomit-frame-pointer" : "-O"), block->source_name);
|
||||
"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)
|
||||
|
@ -772,8 +799,8 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized)
|
|||
/* 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);
|
||||
"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)
|
||||
|
@ -781,7 +808,7 @@ sim_gx_block_translate(sim_gx_block* gx, int optimized)
|
|||
sim_io_error(sd, "Error during linking: `%s' rc %d",
|
||||
compile_command, rc);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
/* install */
|
||||
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue