/[gxemul]/trunk/src/cpus/cpu_alpha.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/cpus/cpu_alpha.c

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

revision 14 by dpavlin, Mon Oct 8 16:18:51 2007 UTC revision 42 by dpavlin, Mon Oct 8 16:22:32 2007 UTC
# Line 1  Line 1 
1  /*  /*
2   *  Copyright (C) 2005  Anders Gavare.  All rights reserved.   *  Copyright (C) 2005-2007  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_alpha.c,v 1.1 2005/08/29 14:36:41 debug Exp $   *  $Id: cpu_alpha.c,v 1.27 2007/06/07 15:36:24 debug Exp $
29   *   *
30   *  Alpha CPU emulation.   *  Alpha CPU emulation.
31   *   *
# Line 41  Line 41 
41  #include <ctype.h>  #include <ctype.h>
42    
43  #include "cpu.h"  #include "cpu.h"
44    #include "interrupt.h"
45  #include "machine.h"  #include "machine.h"
46  #include "memory.h"  #include "memory.h"
47  #include "misc.h"  #include "misc.h"
48    #include "settings.h"
49  #include "symbol.h"  #include "symbol.h"
50    #include "timer.h"
51    
52  #define DYNTRANS_8K  #define DYNTRANS_8K
53  #define DYNTRANS_PAGESIZE       8192  #define DYNTRANS_PAGESIZE       8192
54  #include "tmp_alpha_head.c"  #include "tmp_alpha_head.c"
55    
56    
57    extern int native_code_translation_enabled;
58    
59  /*  Alpha symbolic register names:  */  /*  Alpha symbolic register names:  */
60  static char *alpha_regname[N_ALPHA_REGS] = ALPHA_REG_NAMES;  static char *alpha_regname[N_ALPHA_REGS] = ALPHA_REG_NAMES;
61    
62    void alpha_irq_interrupt_assert(struct interrupt *interrupt);
63    void alpha_irq_interrupt_deassert(struct interrupt *interrupt);
64    
65    
66  /*  /*
67   *  alpha_cpu_new():   *  alpha_cpu_new():
# Line 64  static char *alpha_regname[N_ALPHA_REGS] Line 72  static char *alpha_regname[N_ALPHA_REGS]
72  int alpha_cpu_new(struct cpu *cpu, struct memory *mem,  int alpha_cpu_new(struct cpu *cpu, struct memory *mem,
73          struct machine *machine, int cpu_id, char *cpu_type_name)          struct machine *machine, int cpu_id, char *cpu_type_name)
74  {  {
75          int i;          int i = 0;
76            struct alpha_cpu_type_def cpu_type_defs[] = ALPHA_CPU_TYPE_DEFS;
77    
78          if (strcasecmp(cpu_type_name, "Alpha") != 0)          /*  Scan the cpu_type_defs list for this cpu type:  */
79            while (cpu_type_defs[i].name != NULL) {
80                    if (strcasecmp(cpu_type_defs[i].name, cpu_type_name) == 0) {
81                            break;
82                    }
83                    i++;
84            }
85            if (cpu_type_defs[i].name == NULL)
86                  return 0;                  return 0;
87    
88            cpu->is_32bit = 0;
89            cpu->byte_order = EMUL_LITTLE_ENDIAN;
90    
91          cpu->memory_rw = alpha_memory_rw;          cpu->memory_rw = alpha_memory_rw;
92            cpu->run_instr = alpha_run_instr;
93            cpu->translate_v2p = alpha_translate_v2p;
94          cpu->update_translation_table = alpha_update_translation_table;          cpu->update_translation_table = alpha_update_translation_table;
95          cpu->invalidate_translation_caches_paddr =          cpu->invalidate_translation_caches =
96              alpha_invalidate_translation_caches_paddr;              alpha_invalidate_translation_caches;
97          cpu->invalidate_code_translation = alpha_invalidate_code_translation;          cpu->invalidate_code_translation = alpha_invalidate_code_translation;
98          cpu->is_32bit = 0;  
99            cpu->cd.alpha.cpu_type = cpu_type_defs[i];
100    
101          /*  Only show name and caches etc for CPU nr 0:  */          /*  Only show name and caches etc for CPU nr 0:  */
102          if (cpu_id == 0) {          if (cpu_id == 0) {
103                  debug("%s", cpu->name);                  debug("%s", cpu->name);
104          }          }
105    
106          /*  Create the default virtual->physical->host translation:  */          cpu->cd.alpha.r[ALPHA_SP] = 0xfffffc000000ff00ULL;
107          cpu->cd.alpha.vph_default_page = malloc(sizeof(struct alpha_vph_page));  
108          if (cpu->cd.alpha.vph_default_page == NULL) {          /*  Set up dummy kentry pointers to something which crashes
109                  fprintf(stderr, "out of memory in alpha_cpu_new()\n");              the machine:  */
110                  exit(1);          store_32bit_word(cpu, 0x10010, 0x3fffffc);
111            for (i=0; i<N_ALPHA_KENTRY; i++)
112                    cpu->cd.alpha.kentry[i] = 0x10010;
113    
114            /*  Bogus initial context (will be overwritten on first
115                context switch):  */
116            cpu->cd.alpha.ctx = 0x10100;
117    
118            CPU_SETTINGS_ADD_REGISTER64("pc", cpu->pc);
119            for (i=0; i<N_ALPHA_REGS; i++)
120                    CPU_SETTINGS_ADD_REGISTER64(alpha_regname[i],
121                        cpu->cd.alpha.r[i]);
122    
123            /*  Register the CPU interrupt pin:  */
124            {
125                    struct interrupt template;
126    
127                    memset(&template, 0, sizeof(template));
128                    template.line = 0;
129                    template.name = cpu->path;
130                    template.extra = cpu;
131                    template.interrupt_assert = alpha_irq_interrupt_assert;
132                    template.interrupt_deassert = alpha_irq_interrupt_deassert;
133                    interrupt_handler_register(&template);
134          }          }
         memset(cpu->cd.alpha.vph_default_page, 0,  
             sizeof(struct alpha_vph_page));  
         for (i=0; i<ALPHA_LEVEL0; i++)  
                 cpu->cd.alpha.vph_table0[i] = cpu->cd.alpha.vph_table0_kernel[i]  
                     = cpu->cd.alpha.vph_default_page;  
135    
136          cpu->cd.alpha.r[ALPHA_SP] = 0xfffffc000000ff00ULL;          if (native_code_translation_enabled)
137                    cpu->sampling_timer = timer_add(CPU_SAMPLE_TIMER_HZ,
138                        alpha_timer_sample_tick, cpu);
139    
140          return 1;          return 1;
141  }  }
# Line 116  void alpha_cpu_dumpinfo(struct cpu *cpu) Line 158  void alpha_cpu_dumpinfo(struct cpu *cpu)
158   */   */
159  void alpha_cpu_list_available_types(void)  void alpha_cpu_list_available_types(void)
160  {  {
161          /*  TODO  */          int i, j;
162            struct alpha_cpu_type_def tdefs[] = ALPHA_CPU_TYPE_DEFS;
         debug("Alpha\n");  
 }  
   
   
 /*  
  *  alpha_cpu_register_match():  
  */  
 void alpha_cpu_register_match(struct machine *m, char *name,  
         int writeflag, uint64_t *valuep, int *match_register)  
 {  
         int i, cpunr = 0;  
   
         /*  CPU number:  */  
163    
164          /*  TODO  */          i = 0;
165            while (tdefs[i].name != NULL) {
166          if (strcasecmp(name, "pc") == 0) {                  debug("%s", tdefs[i].name);
167                  if (writeflag) {                  for (j=13 - strlen(tdefs[i].name); j>0; j--)
168                          m->cpus[cpunr]->pc = *valuep;                          debug(" ");
169                  } else                  i++;
170                          *valuep = m->cpus[cpunr]->pc;                  if ((i % 4) == 0 || tdefs[i].name == NULL)
171                  *match_register = 1;                          debug("\n");
         }  
   
         /*  Register names:  */  
         for (i=0; i<N_ALPHA_REGS; i++) {  
                 if (strcasecmp(name, alpha_regname[i]) == 0) {  
                         if (writeflag)  
                                 m->cpus[cpunr]->cd.alpha.r[i] = *valuep;  
                         else  
                                 *valuep = m->cpus[cpunr]->cd.alpha.r[i];  
                         *match_register = 1;  
                 }  
172          }          }
173  }  }
174    
# Line 172  void alpha_cpu_register_dump(struct cpu Line 190  void alpha_cpu_register_dump(struct cpu
190          if (gprs) {          if (gprs) {
191                  symbol = get_symbol_name(&cpu->machine->symbol_context,                  symbol = get_symbol_name(&cpu->machine->symbol_context,
192                      cpu->pc, &offset);                      cpu->pc, &offset);
193                  debug("cpu%i:\t pc = 0x%016llx", x, (long long)cpu->pc);                  debug("cpu%i:\t pc = 0x%016"PRIx64, x, (uint64_t) cpu->pc);
194                  debug("  <%s>\n", symbol != NULL? symbol : " no symbol ");                  debug("  <%s>\n", symbol != NULL? symbol : " no symbol ");
195                  for (i=0; i<N_ALPHA_REGS; i++) {                  for (i=0; i<N_ALPHA_REGS; i++) {
196                          int r = (i >> 1) + ((i & 1) << 4);                          int r = (i >> 1) + ((i & 1) << 4);
197                          if ((i % 2) == 0)                          if ((i % 2) == 0)
198                                  debug("cpu%i:\t", x);                                  debug("cpu%i:\t", x);
199                          if (r != ALPHA_ZERO)                          if (r != ALPHA_ZERO)
200                                  debug("%3s = 0x%016llx", alpha_regname[r],                                  debug("%3s = 0x%016"PRIx64, alpha_regname[r],
201                                      (long long)cpu->cd.alpha.r[r]);                                      (uint64_t) cpu->cd.alpha.r[r]);
202                          debug((i % 2) == 1? "\n" : "   ");                          debug((i % 2) == 1? "\n" : "   ");
203                  }                  }
204          }          }
# Line 188  void alpha_cpu_register_dump(struct cpu Line 206  void alpha_cpu_register_dump(struct cpu
206    
207    
208  /*  /*
  *  alpha_cpu_show_full_statistics():  
  *  
  *  Show detailed statistics on opcode usage on each cpu.  
  */  
 void alpha_cpu_show_full_statistics(struct machine *m)  
 {  
         fatal("alpha_cpu_show_full_statistics(): TODO\n");  
 }  
   
   
 /*  
209   *  alpha_cpu_tlbdump():   *  alpha_cpu_tlbdump():
210   *   *
211   *  Called from the debugger to dump the TLB in a readable format.   *  Called from the debugger to dump the TLB in a readable format.
# Line 209  void alpha_cpu_show_full_statistics(stru Line 216  void alpha_cpu_show_full_statistics(stru
216   */   */
217  void alpha_cpu_tlbdump(struct machine *m, int x, int rawflag)  void alpha_cpu_tlbdump(struct machine *m, int x, int rawflag)
218  {  {
         fatal("alpha_cpu_tlbdump(): TODO\n");  
219  }  }
220    
221    
222  /*  /*
223   *  alpha_cpu_interrupt():   *  alpha_irq_interrupt_assert():
224     *  alpha_irq_interrupt_deassert():
225   */   */
226  int alpha_cpu_interrupt(struct cpu *cpu, uint64_t irq_nr)  void alpha_irq_interrupt_assert(struct interrupt *interrupt)
227  {  {
228          fatal("alpha_cpu_interrupt(): TODO\n");          struct cpu *cpu = (struct cpu *) interrupt->extra;
229          return 0;          cpu->cd.alpha.irq_asserted = 1;
230  }  }
231    void alpha_irq_interrupt_deassert(struct interrupt *interrupt)
   
 /*  
  *  alpha_cpu_interrupt_ack():  
  */  
 int alpha_cpu_interrupt_ack(struct cpu *cpu, uint64_t irq_nr)  
232  {  {
233          /*  fatal("alpha_cpu_interrupt_ack(): TODO\n");  */          struct cpu *cpu = (struct cpu *) interrupt->extra;
234          return 0;          cpu->cd.alpha.irq_asserted = 0;
235  }  }
236    
237    
# Line 268  static void alpha_print_imm16_disp(int i Line 270  static void alpha_print_imm16_disp(int i
270   *  cpu->pc for relative addresses.   *  cpu->pc for relative addresses.
271   */                       */                    
272  int alpha_cpu_disassemble_instr(struct cpu *cpu, unsigned char *ib,  int alpha_cpu_disassemble_instr(struct cpu *cpu, unsigned char *ib,
273          int running, uint64_t dumpaddr, int bintrans)          int running, uint64_t dumpaddr)
274  {  {
275          uint32_t iw;          uint32_t iw;
276          uint64_t offset, tmp;          uint64_t offset, tmp;
# Line 287  int alpha_cpu_disassemble_instr(struct c Line 289  int alpha_cpu_disassemble_instr(struct c
289          if (cpu->machine->ncpus > 1 && running)          if (cpu->machine->ncpus > 1 && running)
290                  debug("cpu%i:\t", cpu->cpu_id);                  debug("cpu%i:\t", cpu->cpu_id);
291    
292          debug("%016llx:  ", (long long)dumpaddr);          debug("%016"PRIx64":  ", (uint64_t) dumpaddr);
293    
294          iw = ib[0] + (ib[1]<<8) + (ib[2]<<16) + (ib[3]<<24);          iw = ib[0] + (ib[1]<<8) + (ib[2]<<16) + (ib[3]<<24);
295          debug("%08x\t", (int)iw);          debug("%08x\t", (int)iw);
# Line 424  int alpha_cpu_disassemble_instr(struct c Line 426  int alpha_cpu_disassemble_instr(struct c
426                  case 0x061: mnem = "amask"; break;                  case 0x061: mnem = "amask"; break;
427                  case 0x064: mnem = "cmovle"; break;                  case 0x064: mnem = "cmovle"; break;
428                  case 0x066: mnem = "cmovgt"; break;                  case 0x066: mnem = "cmovgt"; break;
429                    case 0x06c: mnem = "implver"; break;
430                  default:debug("UNIMPLEMENTED opcode 0x%x func 0x%x\n",                  default:debug("UNIMPLEMENTED opcode 0x%x func 0x%x\n",
431                              opcode, func);                              opcode, func);
432                  }                  }
# Line 442  int alpha_cpu_disassemble_instr(struct c Line 445  int alpha_cpu_disassemble_instr(struct c
445                          else                          else
446                                  debug("mov\t%s,%s\n", alpha_regname[ra],                                  debug("mov\t%s,%s\n", alpha_regname[ra],
447                                      alpha_regname[rc]);                                      alpha_regname[rc]);
448                    } else if (func == 0x1ec) {
449                            /*  implver  */
450                            debug("%s\t%s\n", mnem, alpha_regname[rc]);
451                  } else if (func & 0x80)                  } else if (func & 0x80)
452                          debug("%s\t%s,0x%x,%s\n", mnem,                          debug("%s\t%s,0x%x,%s\n", mnem,
453                              alpha_regname[ra], (rb << 3) + (func >> 8),                              alpha_regname[ra], (rb << 3) + (func >> 8),
# Line 513  int alpha_cpu_disassemble_instr(struct c Line 519  int alpha_cpu_disassemble_instr(struct c
519                  break;                  break;
520          case 0x16:          case 0x16:
521                  switch (func & 0x7ff) {                  switch (func & 0x7ff) {
522                    case 0x02f: mnem = "cvttq/c"; rbrc = 1; break;
523                  case 0x080: mnem = "adds"; break;                  case 0x080: mnem = "adds"; break;
524                  case 0x081: mnem = "subs"; break;                  case 0x081: mnem = "subs"; break;
525                  case 0x082: mnem = "muls"; break;                  case 0x082: mnem = "muls"; break;
526                  case 0x083: mnem = "mult"; break;                  case 0x083: mnem = "XXXx083"; break;
527                  case 0x0a0: mnem = "addt"; break;                  case 0x0a0: mnem = "addt"; break;
528                  case 0x0a1: mnem = "subt"; break;                  case 0x0a1: mnem = "subt"; break;
529                  case 0x0a2: mnem = "mult"; break;                  case 0x0a2: mnem = "mult"; break;
530                  case 0x0a3: mnem = "divt"; break;                  case 0x0a3: mnem = "divt"; break;
531                    case 0x0a5: mnem = "cmpteq"; break;
532                    case 0x0a6: mnem = "cmptlt"; break;
533                    case 0x0a7: mnem = "cmptle"; break;
534                  case 0x0be: mnem = "cvtqt"; rbrc = 1; break;                  case 0x0be: mnem = "cvtqt"; rbrc = 1; break;
535                  default:debug("UNIMPLEMENTED opcode 0x%x func 0x%x\n",                  default:debug("UNIMPLEMENTED opcode 0x%x func 0x%x\n",
536                              opcode, func);                              opcode, func);
# Line 535  int alpha_cpu_disassemble_instr(struct c Line 545  int alpha_cpu_disassemble_instr(struct c
545          case 0x17:          case 0x17:
546                  switch (func & 0x7ff) {                  switch (func & 0x7ff) {
547                  case 0x020: mnem = "fabs"; rbrc = 1; break;                  case 0x020: mnem = "fabs"; rbrc = 1; break;
548                    case 0x021: mnem = "fneg"; rbrc = 1; break;
549                  default:debug("UNIMPLEMENTED opcode 0x%x func 0x%x\n",                  default:debug("UNIMPLEMENTED opcode 0x%x func 0x%x\n",
550                              opcode, func);                              opcode, func);
551                  }                  }
# Line 589  int alpha_cpu_disassemble_instr(struct c Line 600  int alpha_cpu_disassemble_instr(struct c
600                                  debug("jsr");                                  debug("jsr");
601                          debug("\t%s,", alpha_regname[ra]);                          debug("\t%s,", alpha_regname[ra]);
602                          debug("(%s),", alpha_regname[rb]);                          debug("(%s),", alpha_regname[rb]);
603                          debug("0x%llx", (long long)tmp);                          debug("0x%"PRIx64, (uint64_t) tmp);
604                          symbol = get_symbol_name(&cpu->machine->symbol_context,                          symbol = get_symbol_name(&cpu->machine->symbol_context,
605                              tmp, &offset);                              tmp, &offset);
606                          if (symbol != NULL)                          if (symbol != NULL)
# Line 611  int alpha_cpu_disassemble_instr(struct c Line 622  int alpha_cpu_disassemble_instr(struct c
622                  debug("%s\t", opcode==0x30? "br" : "bsr");                  debug("%s\t", opcode==0x30? "br" : "bsr");
623                  if (ra != ALPHA_ZERO)                  if (ra != ALPHA_ZERO)
624                          debug("%s,", alpha_regname[ra]);                          debug("%s,", alpha_regname[ra]);
625                  debug("0x%llx", (long long)tmp);                  debug("0x%"PRIx64, (uint64_t) tmp);
626                  symbol = get_symbol_name(&cpu->machine->symbol_context,                  symbol = get_symbol_name(&cpu->machine->symbol_context,
627                      tmp, &offset);                      tmp, &offset);
628                  if (symbol != NULL)                  if (symbol != NULL)
629                          debug("\t<%s>", symbol);                          debug("\t<%s>", symbol);
630                  debug("\n");                  debug("\n");
631                  break;                  break;
632            case 0x31:
633            case 0x35:
634          case 0x38:          case 0x38:
635          case 0x39:          case 0x39:
636          case 0x3a:          case 0x3a:
# Line 626  int alpha_cpu_disassemble_instr(struct c Line 639  int alpha_cpu_disassemble_instr(struct c
639          case 0x3d:          case 0x3d:
640          case 0x3e:          case 0x3e:
641          case 0x3f:          case 0x3f:
642                    floating = 0;
643                  switch (opcode) {                  switch (opcode) {
644                    case 0x31: mnem = "fbeq"; floating = 1; break;
645                    case 0x35: mnem = "fbne"; floating = 1; break;
646                  case 0x38: mnem = "blbc"; break;                  case 0x38: mnem = "blbc"; break;
647                  case 0x39: mnem = "beq"; break;                  case 0x39: mnem = "beq"; break;
648                  case 0x3a: mnem = "blt"; break;                  case 0x3a: mnem = "blt"; break;
# Line 641  int alpha_cpu_disassemble_instr(struct c Line 657  int alpha_cpu_disassemble_instr(struct c
657                          tmp |= 0xffffffffffe00000ULL;                          tmp |= 0xffffffffffe00000ULL;
658                  tmp <<= 2;                  tmp <<= 2;
659                  tmp += dumpaddr + sizeof(uint32_t);                  tmp += dumpaddr + sizeof(uint32_t);
660                  debug("%s\t%s,", mnem, alpha_regname[ra]);                  debug("%s\t", mnem);
661                  debug("0x%llx", (long long)tmp);                  if (floating)
662                            debug("f%i,", ra);
663                    else
664                            debug("%s,", alpha_regname[ra]);
665                    debug("0x%"PRIx64, (uint64_t) tmp);
666                  symbol = get_symbol_name(&cpu->machine->symbol_context,                  symbol = get_symbol_name(&cpu->machine->symbol_context,
667                      tmp, &offset);                      tmp, &offset);
668                  if (symbol != NULL)                  if (symbol != NULL)
Legend:
Removed from v.14  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.26