/[gxemul]/trunk/src/cpu.c
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/src/cpu.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 10 by dpavlin, Mon Oct 8 16:18:27 2007 UTC revision 26 by dpavlin, Mon Oct 8 16:20:10 2007 UTC
# Line 1  Line 1 
1  /*  /*
2   *  Copyright (C) 2005  Anders Gavare.  All rights reserved.   *  Copyright (C) 2005-2006  Anders Gavare.  All rights reserved.
3   *   *
4   *  Redistribution and use in source and binary forms, with or without   *  Redistribution and use in source and binary forms, with or without
5   *  modification, are permitted provided that the following conditions are met:   *  modification, are permitted provided that the following conditions are met:
# Line 25  Line 25 
25   *  SUCH DAMAGE.   *  SUCH DAMAGE.
26   *   *
27   *   *
28   *  $Id: cpu.c,v 1.298 2005/06/27 10:43:16 debug Exp $   *  $Id: cpu.c,v 1.344 2006/06/24 21:47:22 debug Exp $
29   *   *
30   *  Common routines for CPU emulation. (Not specific to any CPU type.)   *  Common routines for CPU emulation. (Not specific to any CPU type.)
31   */   */
# Line 33  Line 33 
33  #include <stdio.h>  #include <stdio.h>
34  #include <stdlib.h>  #include <stdlib.h>
35  #include <sys/types.h>  #include <sys/types.h>
36    #include <sys/mman.h>
37  #include <string.h>  #include <string.h>
38    
39  #include "cpu.h"  #include "cpu.h"
40  #include "machine.h"  #include "machine.h"
41    #include "memory.h"
42  #include "misc.h"  #include "misc.h"
43    
44    
45  extern int quiet_mode;  extern int quiet_mode;
 extern int show_opcode_statistics;  
   
46    
47  static struct cpu_family *first_cpu_family = NULL;  static struct cpu_family *first_cpu_family = NULL;
48    
# Line 71  struct cpu *cpu_new(struct memory *mem, Line 71  struct cpu *cpu_new(struct memory *mem,
71                  exit(1);                  exit(1);
72          }          }
73    
74          cpu = malloc(sizeof(struct cpu));          cpu = zeroed_alloc(sizeof(struct cpu));
         if (cpu == NULL) {  
                 fprintf(stderr, "out of memory\n");  
                 exit(1);  
         }  
75    
         memset(cpu, 0, sizeof(struct cpu));  
76          cpu->memory_rw          = NULL;          cpu->memory_rw          = NULL;
77          cpu->name               = cpu_type_name;          cpu->name               = cpu_type_name;
78          cpu->mem                = mem;          cpu->mem                = mem;
# Line 87  struct cpu *cpu_new(struct memory *mem, Line 82  struct cpu *cpu_new(struct memory *mem,
82          cpu->bootstrap_cpu_flag = 0;          cpu->bootstrap_cpu_flag = 0;
83          cpu->running            = 0;          cpu->running            = 0;
84    
85            cpu_create_or_reset_tc(cpu);
86    
87          fp = first_cpu_family;          fp = first_cpu_family;
88    
89          while (fp != NULL) {          while (fp != NULL) {
# Line 99  struct cpu *cpu_new(struct memory *mem, Line 96  struct cpu *cpu_new(struct memory *mem,
96                                              "NULL\n");                                              "NULL\n");
97                                          exit(1);                                          exit(1);
98                                  }                                  }
99                                  return cpu;                                  break;
100                          }                          }
101                  }                  }
102    
103                  fp = fp->next;                  fp = fp->next;
104          }          }
105    
106          fatal("\ncpu_new(): unknown cpu type '%s'\n", cpu_type_name);          if (fp == NULL) {
107          exit(1);                  fatal("\ncpu_new(): unknown cpu type '%s'\n", cpu_type_name);
108  }                  return NULL;
109            }
110    
111            fp->init_tables(cpu);
112    
113  /*          return cpu;
  *  cpu_show_full_statistics():  
  *  
  *  Show detailed statistics on opcode usage on each cpu.  
  */  
 void cpu_show_full_statistics(struct machine *m)  
 {  
         if (m->cpu_family == NULL ||  
             m->cpu_family->show_full_statistics == NULL)  
                 fatal("cpu_show_full_statistics(): NULL\n");  
         else  
                 m->cpu_family->show_full_statistics(m);  
114  }  }
115    
116    
# Line 167  void cpu_register_match(struct machine * Line 155  void cpu_register_match(struct machine *
155   *  tracing.   *  tracing.
156   */   */
157  int cpu_disassemble_instr(struct machine *m, struct cpu *cpu,  int cpu_disassemble_instr(struct machine *m, struct cpu *cpu,
158          unsigned char *instr, int running, uint64_t addr, int bintrans)          unsigned char *instr, int running, uint64_t addr)
159  {  {
160          if (m->cpu_family == NULL || m->cpu_family->disassemble_instr == NULL) {          if (m->cpu_family == NULL || m->cpu_family->disassemble_instr == NULL) {
161                  fatal("cpu_disassemble_instr(): NULL\n");                  fatal("cpu_disassemble_instr(): NULL\n");
162                  return 0;                  return 0;
163          } else          } else
164                  return m->cpu_family->disassemble_instr(cpu, instr,                  return m->cpu_family->disassemble_instr(cpu, instr,
165                      running, addr, bintrans);                      running, addr);
166  }  }
167    
168    
# Line 183  int cpu_disassemble_instr(struct machine Line 171  int cpu_disassemble_instr(struct machine
171   *   *
172   *  Dump cpu registers in a relatively readable format.   *  Dump cpu registers in a relatively readable format.
173   *   *
174   *  gprs: set to non-zero to dump GPRs. (CPU dependant.)   *  gprs: set to non-zero to dump GPRs. (CPU dependent.)
175   *  coprocs: set bit 0..x to dump registers in coproc 0..x. (CPU dependant.)   *  coprocs: set bit 0..x to dump registers in coproc 0..x. (CPU dependent.)
176   */   */
177  void cpu_register_dump(struct machine *m, struct cpu *cpu,  void cpu_register_dump(struct machine *m, struct cpu *cpu,
178          int gprs, int coprocs)          int gprs, int coprocs)
# Line 197  void cpu_register_dump(struct machine *m Line 185  void cpu_register_dump(struct machine *m
185    
186    
187  /*  /*
188     *  cpu_gdb_stub():
189     *
190     *  Execute a "remote GDB" command. Return value is a pointer to a newly
191     *  allocated response string, if the command was successfully executed. If
192     *  there was an error, NULL is returned.
193     */
194    char *cpu_gdb_stub(struct cpu *cpu, char *cmd)
195    {
196            if (cpu->machine->cpu_family == NULL ||
197                cpu->machine->cpu_family->gdb_stub == NULL) {
198                    fatal("cpu_gdb_stub(): NULL\n");
199                    return NULL;
200            } else
201                    return cpu->machine->cpu_family->gdb_stub(cpu, cmd);
202    }
203    
204    
205    /*
206   *  cpu_interrupt():   *  cpu_interrupt():
207   *   *
208   *  Assert an interrupt.   *  Assert an interrupt.
# Line 231  int cpu_interrupt_ack(struct cpu *cpu, u Line 237  int cpu_interrupt_ack(struct cpu *cpu, u
237    
238    
239  /*  /*
240   *  cpu_run():   *  cpu_functioncall_trace():
241   *   *
242   *  Run instructions on all CPUs in this machine, for a "medium duration"   *  This function should be called if machine->show_trace_tree is enabled, and
243   *  (or until all CPUs have halted).   *  a function call is being made. f contains the address of the function.
244     */
245    void cpu_functioncall_trace(struct cpu *cpu, uint64_t f)
246    {
247            int i, n_args = -1;
248            char *symbol;
249            uint64_t offset;
250    
251            if (cpu->machine->ncpus > 1)
252                    fatal("cpu%i:\t", cpu->cpu_id);
253    
254            cpu->trace_tree_depth ++;
255            if (cpu->trace_tree_depth > 100)
256                    cpu->trace_tree_depth = 100;
257            for (i=0; i<cpu->trace_tree_depth; i++)
258                    fatal("  ");
259    
260            fatal("<");
261            symbol = get_symbol_name_and_n_args(&cpu->machine->symbol_context,
262                f, &offset, &n_args);
263            if (symbol != NULL)
264                    fatal("%s", symbol);
265            else {
266                    if (cpu->is_32bit)
267                            fatal("0x%"PRIx32, (uint32_t) f);
268                    else
269                            fatal("0x%"PRIx64, (uint64_t) f);
270            }
271            fatal("(");
272    
273            if (cpu->machine->cpu_family->functioncall_trace != NULL)
274                    cpu->machine->cpu_family->functioncall_trace(cpu, f, n_args);
275    
276            fatal(")>\n");
277    
278    #ifdef PRINT_MEMORY_CHECKSUM
279            /*  Temporary hack for finding bugs:  */
280            fatal("call chksum=%016"PRIx64"\n", memory_checksum(cpu->mem));
281    #endif
282    }
283    
284    
285    /*
286     *  cpu_functioncall_trace_return():
287   *   *
288   *  Return value is 1 if anything happened, 0 if all CPUs are stopped.   *  This function should be called if machine->show_trace_tree is enabled, and
289     *  a function is being returned from.
290     *
291     *  TODO: Print return value? This could be implemented similar to the
292     *  cpu->functioncall_trace function call above.
293   */   */
294  int cpu_run(struct emul *emul, struct machine *m)  void cpu_functioncall_trace_return(struct cpu *cpu)
295  {  {
296          if (m->cpu_family == NULL || m->cpu_family->run == NULL) {          cpu->trace_tree_depth --;
297                  fatal("cpu_run(): NULL\n");          if (cpu->trace_tree_depth < 0)
298                  return 0;                  cpu->trace_tree_depth = 0;
299          } else  }
300                  return m->cpu_family->run(emul, m);  
301    
302    /*
303     *  cpu_create_or_reset_tc():
304     *
305     *  Create the translation cache in memory (ie allocate memory for it), if
306     *  necessary, and then reset it to an initial state.
307     */
308    void cpu_create_or_reset_tc(struct cpu *cpu)
309    {
310            size_t s = DYNTRANS_CACHE_SIZE + DYNTRANS_CACHE_MARGIN;
311    
312            if (cpu->translation_cache == NULL)
313                    cpu->translation_cache = zeroed_alloc(s);
314    
315            /*  Create an empty table at the beginning of the translation cache:  */
316            memset(cpu->translation_cache, 0, sizeof(uint32_t)
317                * N_BASE_TABLE_ENTRIES);
318    
319            cpu->translation_cache_cur_ofs =
320                N_BASE_TABLE_ENTRIES * sizeof(uint32_t);
321    
322            /*
323             *  There might be other translation pointers that still point to
324             *  within the translation_cache region. Let's invalidate those too:
325             */
326            if (cpu->invalidate_code_translation != NULL)
327                    cpu->invalidate_code_translation(cpu, 0, INVALIDATE_ALL);
328  }  }
329    
330    
# Line 252  int cpu_run(struct emul *emul, struct ma Line 332  int cpu_run(struct emul *emul, struct ma
332   *  cpu_dumpinfo():   *  cpu_dumpinfo():
333   *   *
334   *  Dumps info about a CPU using debug(). "cpu0: CPUNAME, running" (or similar)   *  Dumps info about a CPU using debug(). "cpu0: CPUNAME, running" (or similar)
335   *  is outputed, and it is up to CPU dependant code to complete the line.   *  is outputed, and it is up to CPU dependent code to complete the line.
336   */   */
337  void cpu_dumpinfo(struct machine *m, struct cpu *cpu)  void cpu_dumpinfo(struct machine *m, struct cpu *cpu)
338  {  {
# Line 274  void cpu_dumpinfo(struct machine *m, str Line 354  void cpu_dumpinfo(struct machine *m, str
354  void cpu_list_available_types(void)  void cpu_list_available_types(void)
355  {  {
356          struct cpu_family *fp;          struct cpu_family *fp;
357          int iadd = 4;          int iadd = DEBUG_INDENTATION;
358    
359          fp = first_cpu_family;          fp = first_cpu_family;
360    
# Line 304  void cpu_list_available_types(void) Line 384  void cpu_list_available_types(void)
384   *  Shuts down all CPUs in a machine when ending a simulation. (This function   *  Shuts down all CPUs in a machine when ending a simulation. (This function
385   *  should only need to be called once for each machine.)   *  should only need to be called once for each machine.)
386   */   */
387  void cpu_run_deinit(struct emul *emul, struct machine *machine)  void cpu_run_deinit(struct machine *machine)
388  {  {
389          int te;          int te;
390    
# Line 325  void cpu_run_deinit(struct emul *emul, s Line 405  void cpu_run_deinit(struct emul *emul, s
405          if (machine->show_nr_of_instructions || !quiet_mode)          if (machine->show_nr_of_instructions || !quiet_mode)
406                  cpu_show_cycles(machine, 1);                  cpu_show_cycles(machine, 1);
407    
         if (show_opcode_statistics)  
                 cpu_show_full_statistics(machine);  
   
408          fflush(stdout);          fflush(stdout);
409  }  }
410    
# Line 343  void cpu_run_deinit(struct emul *emul, s Line 420  void cpu_run_deinit(struct emul *emul, s
420  void cpu_show_cycles(struct machine *machine, int forced)  void cpu_show_cycles(struct machine *machine, int forced)
421  {  {
422          uint64_t offset, pc;          uint64_t offset, pc;
         int is_32bit = 0, instrs_per_cycle = 1;  
423          char *symbol;          char *symbol;
424          int64_t mseconds, ninstrs;          int64_t mseconds, ninstrs, is, avg;
425          struct timeval tv;          struct timeval tv;
426          int h, m, s, ms, d;          int h, m, s, ms, d;
427    
428          static int64_t mseconds_last = 0;          static int64_t mseconds_last = 0;
429          static int64_t ninstrs_last = -1;          static int64_t ninstrs_last = -1;
430    
         switch (machine->arch) {  
         case ARCH_MIPS:  
                 if (machine->cpus[machine->bootstrap_cpu]->cd.mips.  
                     cpu_type.isa_level < 3 || machine->cpus[machine->  
                     bootstrap_cpu]->cd.mips.cpu_type.isa_level == 32)  
                         is_32bit = 1;  
                 instrs_per_cycle = machine->cpus[machine->bootstrap_cpu]->  
                     cd.mips.cpu_type.instrs_per_cycle;  
                 break;  
         case ARCH_ARM:  
                 is_32bit = 1;  
                 break;  
         }  
   
431          pc = machine->cpus[machine->bootstrap_cpu]->pc;          pc = machine->cpus[machine->bootstrap_cpu]->pc;
432    
433          gettimeofday(&tv, NULL);          gettimeofday(&tv, NULL);
# Line 378  void cpu_show_cycles(struct machine *mac Line 440  void cpu_show_cycles(struct machine *mac
440          if (mseconds - mseconds_last == 0)          if (mseconds - mseconds_last == 0)
441                  mseconds ++;                  mseconds ++;
442    
443          ninstrs = machine->ncycles_since_gettimeofday * instrs_per_cycle;          ninstrs = machine->ncycles_since_gettimeofday;
444    
445          if (machine->automatic_clock_adjustment) {          if (machine->automatic_clock_adjustment) {
446                  static int first_adjustment = 1;                  static int first_adjustment = 1;
447    
448                  /*  Current nr of cycles per second:  */                  /*  Current nr of cycles per second:  */
449                  int64_t cur_cycles_per_second = 1000 *                  int64_t cur_cycles_per_second = 1000 *
450                      (ninstrs-ninstrs_last) / (mseconds-mseconds_last)                      (ninstrs-ninstrs_last) / (mseconds-mseconds_last);
451                      / instrs_per_cycle;  
452                    /*  fatal("[ CYCLES PER SECOND = %"PRIi64" ]\n",
453                        cur_cycles_per_second);  */
454    
455                  if (cur_cycles_per_second < 1000000)                  if (cur_cycles_per_second < 1000000)
456                          cur_cycles_per_second = 1000000;                          cur_cycles_per_second = 1000000;
# Line 399  void cpu_show_cycles(struct machine *mac Line 463  void cpu_show_cycles(struct machine *mac
463                              cur_cycles_per_second) / 16;                              cur_cycles_per_second) / 16;
464                  }                  }
465    
466                  debug("[ updating emulated_hz to %lli Hz ]\n",                  /*  fatal("[ updating emulated_hz to %"PRIi64" Hz ]\n",
467                      (long long)machine->emulated_hz);                      machine->emulated_hz);  */
468          }          }
469    
470    
# Line 408  void cpu_show_cycles(struct machine *mac Line 472  void cpu_show_cycles(struct machine *mac
472          if (!machine->show_nr_of_instructions && !forced)          if (!machine->show_nr_of_instructions && !forced)
473                  goto do_return;                  goto do_return;
474    
475          printf("[ %lli instrs",          printf("[ %"PRIi64" instrs", (int64_t)machine->ncycles);
             (long long)(machine->ncycles * instrs_per_cycle));  
476    
477          if (!machine->automatic_clock_adjustment) {          if (!machine->automatic_clock_adjustment) {
478                  d = machine->emulated_hz / 1000;                  d = machine->emulated_hz / 1000;
# Line 423  void cpu_show_cycles(struct machine *mac Line 486  void cpu_show_cycles(struct machine *mac
486                  s = ms / 1000;                  s = ms / 1000;
487                  ms -= 1000 * s;                  ms -= 1000 * s;
488    
489                  printf("emulated time = %02i:%02i:%02i.%03i; ", h, m, s, ms);                  printf(", emulated time = %02i:%02i:%02i.%03i; ", h, m, s, ms);
490          }          }
491    
492          /*  Instructions per second, and average so far:  */          /*  Instructions per second, and average so far:  */
493          printf("; i/s=%lli avg=%lli; ",          is = 1000 * (ninstrs-ninstrs_last) / (mseconds-mseconds_last);
494              (long long) ((long long)1000 * (ninstrs-ninstrs_last)          avg = (long long)1000 * ninstrs / mseconds;
495                  / (mseconds-mseconds_last)),          if (is < 0)
496              (long long) ((long long)1000 * ninstrs / mseconds));                  is = 0;
497            if (avg < 0)
498                    avg = 0;
499            printf("; i/s=%"PRIi64" avg=%"PRIi64, is, avg);
500    
501          symbol = get_symbol_name(&machine->symbol_context, pc, &offset);          symbol = get_symbol_name(&machine->symbol_context, pc, &offset);
502    
503          if (is_32bit)          if (machine->ncpus == 1) {
504                  printf("pc=0x%08x", (int)pc);                  if (machine->cpus[machine->bootstrap_cpu]->is_32bit)
505          else                          printf("; pc=0x%08"PRIx32, (uint32_t) pc);
506                  printf("pc=0x%016llx", (long long)pc);                  else
507                            printf("; pc=0x%016"PRIx64, (uint64_t) pc);
508            }
509    
510          if (symbol != NULL)          if (symbol != NULL)
511                  printf(" <%s>", symbol);                  printf(" <%s>", symbol);
# Line 455  do_return: Line 523  do_return:
523   *  Prepare to run instructions on all CPUs in this machine. (This function   *  Prepare to run instructions on all CPUs in this machine. (This function
524   *  should only need to be called once for each machine.)   *  should only need to be called once for each machine.)
525   */   */
526  void cpu_run_init(struct emul *emul, struct machine *machine)  void cpu_run_init(struct machine *machine)
527  {  {
528          int ncpus = machine->ncpus;          int ncpus = machine->ncpus;
529          int te;          int te;
# Line 480  void cpu_run_init(struct emul *emul, str Line 548  void cpu_run_init(struct emul *emul, str
548          if (machine->a_few_cycles < 1)          if (machine->a_few_cycles < 1)
549                  machine->a_few_cycles = 1;                  machine->a_few_cycles = 1;
550    
551          if (ncpus > 1 && machine->max_random_cycles_per_chunk == 0)          if (ncpus > 1)
552                  machine->a_few_cycles = 1;                  machine->a_few_cycles = 1;
553    
554          /*  debug("cpu_run_init(): a_few_cycles = %i\n",          /*  debug("cpu_run_init(): a_few_cycles = %i\n",
# Line 565  struct cpu_family *cpu_family_ptr_by_num Line 633  struct cpu_family *cpu_family_ptr_by_num
633  void cpu_init(void)  void cpu_init(void)
634  {  {
635          /*  Note: These are registered in alphabetic order.  */          /*  Note: These are registered in alphabetic order.  */
636    
637    #ifdef ENABLE_ALPHA
638            add_cpu_family(alpha_cpu_family_init, ARCH_ALPHA);
639    #endif
640    
641    #ifdef ENABLE_ARM
642          add_cpu_family(arm_cpu_family_init, ARCH_ARM);          add_cpu_family(arm_cpu_family_init, ARCH_ARM);
643    #endif
644    
645    #ifdef ENABLE_AVR
646            add_cpu_family(avr_cpu_family_init, ARCH_AVR);
647    #endif
648    
649    #ifdef ENABLE_HPPA
650            add_cpu_family(hppa_cpu_family_init, ARCH_HPPA);
651    #endif
652    
653    #ifdef ENABLE_I960
654            add_cpu_family(i960_cpu_family_init, ARCH_I960);
655    #endif
656    
657    #ifdef ENABLE_IA64
658            add_cpu_family(ia64_cpu_family_init, ARCH_IA64);
659    #endif
660    
661    #ifdef ENABLE_M68K
662            add_cpu_family(m68k_cpu_family_init, ARCH_M68K);
663    #endif
664    
665    #ifdef ENABLE_MIPS
666          add_cpu_family(mips_cpu_family_init, ARCH_MIPS);          add_cpu_family(mips_cpu_family_init, ARCH_MIPS);
667    #endif
668    
669    #ifdef ENABLE_PPC
670          add_cpu_family(ppc_cpu_family_init, ARCH_PPC);          add_cpu_family(ppc_cpu_family_init, ARCH_PPC);
671          add_cpu_family(urisc_cpu_family_init, ARCH_URISC);  #endif
672    
673    #ifdef ENABLE_SH
674            add_cpu_family(sh_cpu_family_init, ARCH_SH);
675    #endif
676    
677    #ifdef ENABLE_SPARC
678            add_cpu_family(sparc_cpu_family_init, ARCH_SPARC);
679    #endif
680    
681    #ifdef ENABLE_X86
682          add_cpu_family(x86_cpu_family_init, ARCH_X86);          add_cpu_family(x86_cpu_family_init, ARCH_X86);
683    #endif
684  }  }
685    
Legend:
Removed from v.10  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.26