1 /* Register names and numbers for PowerPC DWARF. 2 Copyright (C) 2005, 2006, 2007 Red Hat, Inc. 3 This file is part of Red Hat elfutils. 4 5 Red Hat elfutils is free software; you can redistribute it and/or modify 6 it under the terms of the GNU General Public License as published by the 7 Free Software Foundation; version 2 of the License. 8 9 Red Hat elfutils is distributed in the hope that it will be useful, but 10 WITHOUT ANY WARRANTY; without even the implied warranty of 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 General Public License for more details. 13 14 You should have received a copy of the GNU General Public License along 15 with Red Hat elfutils; if not, write to the Free Software Foundation, 16 Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA. 17 18 Red Hat elfutils is an included package of the Open Invention Network. 19 An included package of the Open Invention Network is a package for which 20 Open Invention Network licensees cross-license their patents. No patent 21 license is granted, either expressly or impliedly, by designation as an 22 included package. Should you wish to participate in the Open Invention 23 Network licensing program, please visit www.openinventionnetwork.com 24 <http://www.openinventionnetwork.com>. */ 25 26 #ifdef HAVE_CONFIG_H 27 # include <config.h> 28 #endif 29 30 #include <string.h> 31 #include <dwarf.h> 32 33 #define BACKEND ppc_ 34 #include "libebl_CPU.h" 35 36 ssize_t 37 ppc_register_info (Ebl *ebl __attribute__ ((unused)), 38 int regno, char *name, size_t namelen, 39 const char **prefix, const char **setname, 40 int *bits, int *type) 41 { 42 if (name == NULL) 43 return 1156; 44 45 if (regno < 0 || regno > 1155 || namelen < 8) 46 return -1; 47 48 *prefix = NULL; 49 *bits = ebl->machine == EM_PPC64 ? 64 : 32; 50 *type = (regno < 32 ? DW_ATE_signed 51 : regno < 64 ? DW_ATE_float : DW_ATE_unsigned); 52 53 if (regno < 32 || regno == 64 || regno == 66) 54 *setname = "integer"; 55 else if (regno < 64 || regno == 65) 56 { 57 *setname = "FPU"; 58 if (ebl->machine != EM_PPC64 && regno < 64) 59 *bits = 64; 60 } 61 else if (regno == 67 || regno == 356 || regno == 612 || regno >= 1124) 62 { 63 *setname = "vector"; 64 *bits = regno >= 1124 ? 128 : 32; 65 } 66 else 67 *setname = "privileged"; 68 69 switch (regno) 70 { 71 case 0 ... 9: 72 name[0] = 'r'; 73 name[1] = regno + '0'; 74 namelen = 2; 75 break; 76 77 case 10 ... 31: 78 name[0] = 'r'; 79 name[1] = regno / 10 + '0'; 80 name[2] = regno % 10 + '0'; 81 namelen = 3; 82 break; 83 84 case 32 + 0 ... 32 + 9: 85 name[0] = 'f'; 86 name[1] = (regno - 32) + '0'; 87 namelen = 2; 88 break; 89 90 case 32 + 10 ... 32 + 31: 91 name[0] = 'f'; 92 name[1] = (regno - 32) / 10 + '0'; 93 name[2] = (regno - 32) % 10 + '0'; 94 namelen = 3; 95 break; 96 97 case 64: 98 return stpcpy (name, "cr") + 1 - name; 99 case 65: 100 return stpcpy (name, "fpscr") + 1 - name; 101 case 66: 102 return stpcpy (name, "msr") + 1 - name; 103 case 67: /* XXX unofficial assignment */ 104 return stpcpy (name, "vscr") + 1 - name; 105 106 case 70 + 0 ... 70 + 9: 107 name[0] = 's'; 108 name[1] = 'r'; 109 name[2] = (regno - 70) + '0'; 110 namelen = 3; 111 break; 112 113 case 70 + 10 ... 70 + 15: 114 name[0] = 's'; 115 name[1] = 'r'; 116 name[2] = (regno - 70) / 10 + '0'; 117 name[3] = (regno - 70) % 10 + '0'; 118 namelen = 4; 119 break; 120 121 case 101: 122 return stpcpy (name, "xer") + 1 - name; 123 case 108: 124 return stpcpy (name, "lr") + 1 - name; 125 case 109: 126 return stpcpy (name, "ctr") + 1 - name; 127 case 118: 128 return stpcpy (name, "dsisr") + 1 - name; 129 case 119: 130 return stpcpy (name, "dar") + 1 - name; 131 case 122: 132 return stpcpy (name, "dec") + 1 - name; 133 case 356: 134 return stpcpy (name, "vrsave") + 1 - name; 135 case 612: 136 return stpcpy (name, "spefscr") + 1 - name; 137 case 100: 138 if (*bits == 32) 139 return stpcpy (name, "mq") + 1 - name; 140 141 case 102 ... 107: 142 name[0] = 's'; 143 name[1] = 'p'; 144 name[2] = 'r'; 145 name[3] = (regno - 100) + '0'; 146 namelen = 4; 147 break; 148 149 case 110 ... 117: 150 case 120 ... 121: 151 case 123 ... 199: 152 name[0] = 's'; 153 name[1] = 'p'; 154 name[2] = 'r'; 155 name[3] = (regno - 100) / 10 + '0'; 156 name[4] = (regno - 100) % 10 + '0'; 157 namelen = 5; 158 break; 159 160 case 200 ... 355: 161 case 357 ... 611: 162 case 613 ... 999: 163 name[0] = 's'; 164 name[1] = 'p'; 165 name[2] = 'r'; 166 name[3] = (regno - 100) / 100 + '0'; 167 name[4] = ((regno - 100) % 100 / 10) + '0'; 168 name[5] = (regno - 100) % 10 + '0'; 169 namelen = 6; 170 break; 171 172 case 1124 + 0 ... 1124 + 9: 173 name[0] = 'v'; 174 name[1] = 'r'; 175 name[2] = (regno - 1124) + '0'; 176 namelen = 3; 177 break; 178 179 case 1124 + 10 ... 1124 + 31: 180 name[0] = 'v'; 181 name[1] = 'r'; 182 name[2] = (regno - 1124) / 10 + '0'; 183 name[3] = (regno - 1124) % 10 + '0'; 184 namelen = 4; 185 break; 186 187 default: 188 *setname = NULL; 189 return 0; 190 } 191 192 name[namelen++] = '\0'; 193 return namelen; 194 } 195 196 __typeof (ppc_register_info) 197 ppc64_register_info __attribute__ ((alias ("ppc_register_info"))); 198
