* 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

diff --git a/sim/common/ChangeLog b/sim/common/ChangeLog
index b8b68ab..1c0de5d 100644 (file)
--- a/sim/common/ChangeLog
+++ b/sim/common/ChangeLog
@@ -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.

diff --git a/sim/common/sim-gx-run.c b/sim/common/sim-gx-run.c
index ecd8716..deda27b 100644 (file)
--- 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 (file)
--- 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; 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,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 (file)
--- 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);