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

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

revision 30 by dpavlin, Mon Oct 8 16:20:40 2007 UTC revision 42 by dpavlin, Mon Oct 8 16:22:32 2007 UTC
# Line 1  Line 1 
1  /*  /*
2   *  Copyright (C) 2005-2006  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_ppc.c,v 1.61 2006/07/24 21:14:52 debug Exp $   *  $Id: cpu_ppc.c,v 1.70 2007/06/15 00:41:21 debug Exp $
29   *   *
30   *  PowerPC/POWER CPU emulation.   *  PowerPC/POWER CPU emulation.
31   */   */
# Line 37  Line 37 
37    
38  #include "cpu.h"  #include "cpu.h"
39  #include "devices.h"  #include "devices.h"
40    #include "interrupt.h"
41  #include "machine.h"  #include "machine.h"
42  #include "memory.h"  #include "memory.h"
43  #include "misc.h"  #include "misc.h"
# Line 46  Line 47 
47  #include "ppc_pte.h"  #include "ppc_pte.h"
48  #include "ppc_spr.h"  #include "ppc_spr.h"
49  #include "ppc_spr_strings.h"  #include "ppc_spr_strings.h"
50    #include "settings.h"
51  #include "symbol.h"  #include "symbol.h"
52    #include "timer.h"
53    #include "useremul.h"
54    
55    
56  #define DYNTRANS_DUALMODE_32  #define DYNTRANS_DUALMODE_32
57  #include "tmp_ppc_head.c"  #include "tmp_ppc_head.c"
58    
59    
60    extern int native_code_translation_enabled;
61    
62  void ppc_pc_to_pointers(struct cpu *);  void ppc_pc_to_pointers(struct cpu *);
63  void ppc32_pc_to_pointers(struct cpu *);  void ppc32_pc_to_pointers(struct cpu *);
64    
65    void ppc_irq_interrupt_assert(struct interrupt *interrupt);
66    void ppc_irq_interrupt_deassert(struct interrupt *interrupt);
67    
68    
69  /*  /*
70   *  ppc_cpu_new():   *  ppc_cpu_new():
# Line 86  int ppc_cpu_new(struct cpu *cpu, struct Line 96  int ppc_cpu_new(struct cpu *cpu, struct
96    
97          cpu->memory_rw = ppc_memory_rw;          cpu->memory_rw = ppc_memory_rw;
98    
99          cpu->cd.ppc.cpu_type    = cpu_type_defs[found];          cpu->cd.ppc.cpu_type = cpu_type_defs[found];
100          cpu->name               = cpu->cd.ppc.cpu_type.name;          cpu->name            = cpu->cd.ppc.cpu_type.name;
101          cpu->byte_order         = EMUL_BIG_ENDIAN;          cpu->byte_order      = EMUL_BIG_ENDIAN;
102          cpu->cd.ppc.mode        = MODE_PPC;     /*  TODO  */          cpu->cd.ppc.mode     = MODE_PPC;        /*  TODO  */
103    
104          /*  Current operating mode:  */          /*  Current operating mode:  */
105          cpu->cd.ppc.bits = cpu->cd.ppc.cpu_type.bits;          cpu->cd.ppc.bits = cpu->cd.ppc.cpu_type.bits;
# Line 168  int ppc_cpu_new(struct cpu *cpu, struct Line 178  int ppc_cpu_new(struct cpu *cpu, struct
178          if (cpu->machine->prom_emulation)          if (cpu->machine->prom_emulation)
179                  cpu->cd.ppc.of_emul_addr = 0xfff00000;                  cpu->cd.ppc.of_emul_addr = 0xfff00000;
180    
181            /*  Add all register names to the settings:  */
182            CPU_SETTINGS_ADD_REGISTER64("pc", cpu->pc);
183            CPU_SETTINGS_ADD_REGISTER64("msr", cpu->cd.ppc.msr);
184            CPU_SETTINGS_ADD_REGISTER64("ctr", cpu->cd.ppc.spr[SPR_CTR]);
185            CPU_SETTINGS_ADD_REGISTER64("xer", cpu->cd.ppc.spr[SPR_XER]);
186            CPU_SETTINGS_ADD_REGISTER64("dec", cpu->cd.ppc.spr[SPR_DEC]);
187            CPU_SETTINGS_ADD_REGISTER64("hdec", cpu->cd.ppc.spr[SPR_HDEC]);
188            CPU_SETTINGS_ADD_REGISTER64("srr0", cpu->cd.ppc.spr[SPR_SRR0]);
189            CPU_SETTINGS_ADD_REGISTER64("srr1", cpu->cd.ppc.spr[SPR_SRR1]);
190            CPU_SETTINGS_ADD_REGISTER64("sdr1", cpu->cd.ppc.spr[SPR_SDR1]);
191            CPU_SETTINGS_ADD_REGISTER64("ibat0u", cpu->cd.ppc.spr[SPR_IBAT0U]);
192            CPU_SETTINGS_ADD_REGISTER64("ibat0l", cpu->cd.ppc.spr[SPR_IBAT0L]);
193            CPU_SETTINGS_ADD_REGISTER64("ibat1u", cpu->cd.ppc.spr[SPR_IBAT1U]);
194            CPU_SETTINGS_ADD_REGISTER64("ibat1l", cpu->cd.ppc.spr[SPR_IBAT1L]);
195            CPU_SETTINGS_ADD_REGISTER64("ibat2u", cpu->cd.ppc.spr[SPR_IBAT2U]);
196            CPU_SETTINGS_ADD_REGISTER64("ibat2l", cpu->cd.ppc.spr[SPR_IBAT2L]);
197            CPU_SETTINGS_ADD_REGISTER64("ibat3u", cpu->cd.ppc.spr[SPR_IBAT3U]);
198            CPU_SETTINGS_ADD_REGISTER64("ibat3l", cpu->cd.ppc.spr[SPR_IBAT3L]);
199            CPU_SETTINGS_ADD_REGISTER64("dbat0u", cpu->cd.ppc.spr[SPR_DBAT0U]);
200            CPU_SETTINGS_ADD_REGISTER64("dbat0l", cpu->cd.ppc.spr[SPR_DBAT0L]);
201            CPU_SETTINGS_ADD_REGISTER64("dbat1u", cpu->cd.ppc.spr[SPR_DBAT1U]);
202            CPU_SETTINGS_ADD_REGISTER64("dbat1l", cpu->cd.ppc.spr[SPR_DBAT1L]);
203            CPU_SETTINGS_ADD_REGISTER64("dbat2u", cpu->cd.ppc.spr[SPR_DBAT2U]);
204            CPU_SETTINGS_ADD_REGISTER64("dbat2l", cpu->cd.ppc.spr[SPR_DBAT2L]);
205            CPU_SETTINGS_ADD_REGISTER64("dbat3u", cpu->cd.ppc.spr[SPR_DBAT3U]);
206            CPU_SETTINGS_ADD_REGISTER64("dbat3l", cpu->cd.ppc.spr[SPR_DBAT3L]);
207            CPU_SETTINGS_ADD_REGISTER64("lr", cpu->cd.ppc.spr[SPR_LR]);
208            CPU_SETTINGS_ADD_REGISTER32("cr", cpu->cd.ppc.cr);
209            CPU_SETTINGS_ADD_REGISTER32("fpscr", cpu->cd.ppc.fpscr);
210            /*  Integer GPRs, floating point registers, and segment registers:  */
211            for (i=0; i<PPC_NGPRS; i++) {
212                    char tmpstr[5];
213                    snprintf(tmpstr, sizeof(tmpstr), "r%i", i);
214                    CPU_SETTINGS_ADD_REGISTER64(tmpstr, cpu->cd.ppc.gpr[i]);
215            }
216            for (i=0; i<PPC_NFPRS; i++) {
217                    char tmpstr[5];
218                    snprintf(tmpstr, sizeof(tmpstr), "f%i", i);
219                    CPU_SETTINGS_ADD_REGISTER64(tmpstr, cpu->cd.ppc.fpr[i]);
220            }
221            for (i=0; i<16; i++) {
222                    char tmpstr[5];
223                    snprintf(tmpstr, sizeof(tmpstr), "sr%i", i);
224                    CPU_SETTINGS_ADD_REGISTER32(tmpstr, cpu->cd.ppc.sr[i]);
225            }
226    
227            /*  Register the CPU as an interrupt handler:  */
228            {
229                    struct interrupt template;
230                    char name[150];
231                    snprintf(name, sizeof(name), "%s", cpu->path);
232                    memset(&template, 0, sizeof(template));
233                    template.line = 0;
234                    template.name = name;
235                    template.extra = cpu;
236                    template.interrupt_assert = ppc_irq_interrupt_assert;
237                    template.interrupt_deassert = ppc_irq_interrupt_deassert;
238                    interrupt_handler_register(&template);
239            }
240    
241            if (native_code_translation_enabled)
242                    cpu->sampling_timer = timer_add(CPU_SAMPLE_TIMER_HZ,
243                        ppc_timer_sample_tick, cpu);
244    
245          return 1;          return 1;
246  }  }
247    
# Line 480  void ppc_cpu_register_dump(struct cpu *c Line 554  void ppc_cpu_register_dump(struct cpu *c
554                  for (i=0; i<16; i++) {                  for (i=0; i<16; i++) {
555                          uint32_t s = cpu->cd.ppc.sr[i];                          uint32_t s = cpu->cd.ppc.sr[i];
556                          debug("cpu%i:", x);                          debug("cpu%i:", x);
557                          debug("  sr%2i = 0x%08x", i, (int)s);                          debug("  sr%-2i = 0x%08x", i, (int)s);
558                          s &= (SR_TYPE | SR_SUKEY | SR_PRKEY | SR_NOEXEC);                          s &= (SR_TYPE | SR_SUKEY | SR_PRKEY | SR_NOEXEC);
559                          if (s != 0) {                          if (s != 0) {
560                                  debug("  (");                                  debug("  (");
# Line 513  void ppc_cpu_register_dump(struct cpu *c Line 587  void ppc_cpu_register_dump(struct cpu *c
587    
588    
589  /*  /*
  *  ppc_cpu_register_match():  
  */  
 void ppc_cpu_register_match(struct machine *m, char *name,  
         int writeflag, uint64_t *valuep, int *match_register)  
 {  
         int cpunr = 0;  
   
         /*  CPU number:  */  
   
         /*  TODO  */  
   
         /*  Register name:  */  
         if (strcasecmp(name, "pc") == 0) {  
                 if (writeflag) {  
                         m->cpus[cpunr]->pc = *valuep;  
                 } else  
                         *valuep = m->cpus[cpunr]->pc;  
                 *match_register = 1;  
         } else if (strcasecmp(name, "msr") == 0) {  
                 if (writeflag)  
                         m->cpus[cpunr]->cd.ppc.msr = *valuep;  
                 else  
                         *valuep = m->cpus[cpunr]->cd.ppc.msr;  
                 *match_register = 1;  
         } else if (strcasecmp(name, "lr") == 0) {  
                 if (writeflag)  
                         m->cpus[cpunr]->cd.ppc.spr[SPR_LR] = *valuep;  
                 else  
                         *valuep = m->cpus[cpunr]->cd.ppc.spr[SPR_LR];  
                 *match_register = 1;  
         } else if (strcasecmp(name, "cr") == 0) {  
                 if (writeflag)  
                         m->cpus[cpunr]->cd.ppc.cr = *valuep;  
                 else  
                         *valuep = m->cpus[cpunr]->cd.ppc.cr;  
                 *match_register = 1;  
         } else if (strcasecmp(name, "dec") == 0) {  
                 if (writeflag)  
                         m->cpus[cpunr]->cd.ppc.spr[SPR_DEC] = *valuep;  
                 else  
                         *valuep = m->cpus[cpunr]->cd.ppc.spr[SPR_DEC];  
                 *match_register = 1;  
         } else if (strcasecmp(name, "hdec") == 0) {  
                 if (writeflag)  
                         m->cpus[cpunr]->cd.ppc.spr[SPR_HDEC] = *valuep;  
                 else  
                         *valuep = m->cpus[cpunr]->cd.ppc.spr[SPR_HDEC];  
                 *match_register = 1;  
         } else if (strcasecmp(name, "ctr") == 0) {  
                 if (writeflag)  
                         m->cpus[cpunr]->cd.ppc.spr[SPR_CTR] = *valuep;  
                 else  
                         *valuep = m->cpus[cpunr]->cd.ppc.spr[SPR_CTR];  
                 *match_register = 1;  
         } else if (name[0] == 'r' && isdigit((int)name[1])) {  
                 int nr = atoi(name + 1);  
                 if (nr >= 0 && nr < PPC_NGPRS) {  
                         if (writeflag) {  
                                 m->cpus[cpunr]->cd.ppc.gpr[nr] = *valuep;  
                         } else  
                                 *valuep = m->cpus[cpunr]->cd.ppc.gpr[nr];  
                         *match_register = 1;  
                 }  
         } else if (strcasecmp(name, "xer") == 0) {  
                 if (writeflag)  
                         m->cpus[cpunr]->cd.ppc.spr[SPR_XER] = *valuep;  
                 else  
                         *valuep = m->cpus[cpunr]->cd.ppc.spr[SPR_XER];  
                 *match_register = 1;  
         } else if (strcasecmp(name, "fpscr") == 0) {  
                 if (writeflag)  
                         m->cpus[cpunr]->cd.ppc.fpscr = *valuep;  
                 else  
                         *valuep = m->cpus[cpunr]->cd.ppc.fpscr;  
                 *match_register = 1;  
         } else if (name[0] == 'f' && isdigit((int)name[1])) {  
                 int nr = atoi(name + 1);  
                 if (nr >= 0 && nr < PPC_NFPRS) {  
                         if (writeflag) {  
                                 m->cpus[cpunr]->cd.ppc.fpr[nr] = *valuep;  
                         } else  
                                 *valuep = m->cpus[cpunr]->cd.ppc.fpr[nr];  
                         *match_register = 1;  
                 }  
         }  
 }  
   
   
 /*  
590   *  ppc_cpu_tlbdump():   *  ppc_cpu_tlbdump():
591   *   *
592   *  Not currently used for PPC.   *  Not currently used for PPC.
# Line 611  void ppc_cpu_tlbdump(struct machine *m, Line 596  void ppc_cpu_tlbdump(struct machine *m,
596  }  }
597    
598    
 static void add_response_word(struct cpu *cpu, char *r, uint64_t value,  
         size_t maxlen, int len)  
 {  
         char *format = (len == 4)? "%08"PRIx64 : "%016"PRIx64;  
         if (len == 4)  
                 value &= 0xffffffffULL;  
         if (cpu->byte_order == EMUL_LITTLE_ENDIAN) {  
                 if (len == 4) {  
                         value = ((value & 0xff) << 24) +  
                                 ((value & 0xff00) << 8) +  
                                 ((value & 0xff0000) >> 8) +  
                                 ((value & 0xff000000) >> 24);  
                 } else {  
                         value = ((value & 0xff) << 56) +  
                                 ((value & 0xff00) << 40) +  
                                 ((value & 0xff0000) << 24) +  
                                 ((value & 0xff000000ULL) << 8) +  
                                 ((value & 0xff00000000ULL) >> 8) +  
                                 ((value & 0xff0000000000ULL) >> 24) +  
                                 ((value & 0xff000000000000ULL) >> 40) +  
                                 ((value & 0xff00000000000000ULL) >> 56);  
                 }  
         }  
         snprintf(r + strlen(r), maxlen - strlen(r), format, (uint64_t)value);  
 }  
   
   
 /*  
  *  ppc_cpu_gdb_stub():  
  *  
  *  Execute a "remote GDB" command. Returns a newly allocated response string  
  *  on success, NULL on failure.  
  */  
 char *ppc_cpu_gdb_stub(struct cpu *cpu, char *cmd)  
 {  
         if (strcmp(cmd, "g") == 0) {  
                 int i;  
                 char *r;  
                 size_t wlen = cpu->is_32bit?  
                     sizeof(uint32_t) : sizeof(uint64_t);  
                 size_t len = 1 + 76 * wlen;  
                 r = malloc(len);  
                 if (r == NULL) {  
                         fprintf(stderr, "out of memory\n");  
                         exit(1);  
                 }  
                 r[0] = '\0';  
                 for (i=0; i<128; i++)  
                         add_response_word(cpu, r, i, len, wlen);  
                 return r;  
         }  
   
         if (cmd[0] == 'p') {  
                 int regnr = strtol(cmd + 1, NULL, 16);  
                 size_t wlen = cpu->is_32bit?  
                     sizeof(uint32_t) : sizeof(uint64_t);  
                 size_t len = 2 * wlen + 1;  
                 char *r = malloc(len);  
                 r[0] = '\0';  
                 if (regnr >= 0 && regnr <= 31) {  
                         add_response_word(cpu, r,  
                             cpu->cd.ppc.gpr[regnr], len, wlen);  
                 } else if (regnr == 0x40) {  
                         add_response_word(cpu, r, cpu->pc, len, wlen);  
                 } else if (regnr == 0x42) {  
                         add_response_word(cpu, r, cpu->cd.ppc.cr, len, wlen);  
                 } else if (regnr == 0x43) {  
                         add_response_word(cpu, r, cpu->cd.ppc.spr[SPR_LR],  
                             len, wlen);  
                 } else if (regnr == 0x44) {  
                         add_response_word(cpu, r, cpu->cd.ppc.spr[SPR_CTR],  
                             len, wlen);  
                 } else if (regnr == 0x45) {  
                         add_response_word(cpu, r, cpu->cd.ppc.spr[SPR_XER],  
                             len, wlen);  
                 } else {  
                         /*  Unimplemented:  */  
                         add_response_word(cpu, r, 0xcc000 + regnr, len, wlen);  
                 }  
                 return r;  
         }  
   
         fatal("ppc_cpu_gdb_stub(): TODO\n");  
         return NULL;  
 }  
   
   
599  /*  /*
600   *  ppc_cpu_interrupt():   *  ppc_irq_interrupt_assert():
  *  
  *  0..31 are used as BeBox interrupt numbers, 32..47 = ISA,  
  *  64 is used as a "re-assert" signal to cpu->machine->md_interrupt().  
  *  
  *  TODO: don't hardcode to BeBox!  
601   */   */
602  int ppc_cpu_interrupt(struct cpu *cpu, uint64_t irq_nr)  void ppc_irq_interrupt_assert(struct interrupt *interrupt)
603  {  {
604          /*  fatal("ppc_cpu_interrupt(): 0x%x\n", (int)irq_nr);  */          struct cpu *cpu = (struct cpu *) interrupt->extra;
605          if (irq_nr <= 64) {          cpu->cd.ppc.irq_asserted = 1;
                 if (cpu->machine->md_interrupt != NULL)  
                         cpu->machine->md_interrupt(  
                             cpu->machine, cpu, irq_nr, 1);  
                 else  
                         fatal("ppc_cpu_interrupt(): md_interrupt == NULL\n");  
         } else {  
                 /*  Assert PPC IRQ:  */  
                 cpu->cd.ppc.irq_asserted = 1;  
         }  
         return 1;  
606  }  }
607    
608    
609  /*  /*
610   *  ppc_cpu_interrupt_ack():   *  ppc_irq_interrupt_deassert():
611   */   */
612  int ppc_cpu_interrupt_ack(struct cpu *cpu, uint64_t irq_nr)  void ppc_irq_interrupt_deassert(struct interrupt *interrupt)
613  {  {
614          if (irq_nr <= 64) {          struct cpu *cpu = (struct cpu *) interrupt->extra;
615                  if (cpu->machine->md_interrupt != NULL)          cpu->cd.ppc.irq_asserted = 0;
                         cpu->machine->md_interrupt(cpu->machine,  
                             cpu, irq_nr, 0);  
         } else {  
                 /*  De-assert PPC IRQ:  */  
                 cpu->cd.ppc.irq_asserted = 0;  
         }  
         return 1;  
616  }  }
617    
618    
Legend:
Removed from v.30  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.26