backends/ia64_regs.c

   1 /* Register names and numbers for IA64 DWARF.
   2    Copyright (C) 2006 Red Hat, Inc.
   3    This file is part of elfutils.
   4
   5    This file is free software; you can redistribute it and/or modify
   6    it under the terms of either
   7
   8      * the GNU Lesser General Public License as published by the Free
   9        Software Foundation; either version 3 of the License, or (at
  10        your option) any later version
  11
  12    or
  13
  14      * the GNU General Public License as published by the Free
  15        Software Foundation; either version 2 of the License, or (at
  16        your option) any later version
  17
  18    or both in parallel, as here.
  19
  20    elfutils is distributed in the hope that it will be useful, but
  21    WITHOUT ANY WARRANTY; without even the implied warranty of
  22    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  23    General Public License for more details.
  24
  25    You should have received copies of the GNU General Public License and
  26    the GNU Lesser General Public License along with this program.  If
  27    not, see <http://www.gnu.org/licenses/>.  */
  28
  29 #ifdef HAVE_CONFIG_H
  30 # include <config.h>
  31 #endif
  32
  33 #include <string.h>
  34 #include <dwarf.h>
  35
  36 #define BACKEND i386_
  37 #include "libebl_CPU.h"
  38
  39 ssize_t
  40 ia64_register_info (Ebl *ebl __attribute__ ((unused)),
  41                     int regno, char *name, size_t namelen,
  42                     const char **prefix, const char **setname,
  43                     int *bits, int *type)
  44 {
  45   if (name == NULL)
  46     return 687 + 64;
  47
  48   if (regno < 0 || regno > 687 + 63 || namelen < 12)
  49     return -1;
  50
  51   *prefix = "ar.";
  52   *setname = "application";
  53   *bits = 64;
  54   *type = DW_ATE_signed;
  55   switch (regno)
  56     {
  57     case 0 ... 9:
  58       name[0] = 'r';
  59       name[1] = (regno - 0) + '0';
  60       namelen = 2;
  61       *setname = "integer";
  62       *prefix = "";
  63       break;
  64
  65     case 10 ... 99:
  66       name[0] = 'r';
  67       name[1] = (regno - 0) / 10 + '0';
  68       name[2] = (regno - 0) % 10 + '0';
  69       namelen = 3;
  70       *setname = "integer";
  71       *prefix = "";
  72       break;
  73
  74     case 100 ... 127:
  75       name[0] = 'r';
  76       name[1] = '1';
  77       name[2] = (regno - 100) / 10 + '0';
  78       name[3] = (regno - 0) % 10 + '0';
  79       namelen = 4;
  80       *setname = "integer";
  81       *prefix = "";
  82       break;
  83
  84     case 128 + 0 ... 128 + 9:
  85       name[0] = 'f';
  86       name[1] = (regno - 128) + '0';
  87       namelen = 2;
  88       *type = DW_ATE_float;
  89       *bits = 128;
  90       *setname = "FPU";
  91       *prefix = "";
  92       break;
  93
  94     case 128 + 10 ... 128 + 99:
  95       name[0] = 'f';
  96       name[1] = (regno - 128) / 10 + '0';
  97       name[2] = (regno - 128) % 10 + '0';
  98       namelen = 3;
  99       *setname = "FPU";
 100       *prefix = "";
 101       break;
 102
 103     case 128 + 100 ... 128 + 127:
 104       name[0] = 'f';
 105       name[1] = '1';
 106       name[2] = (regno - 128 - 100) / 10 + '0';
 107       name[3] = (regno - 128) % 10 + '0';
 108       namelen = 4;
 109       *type = DW_ATE_float;
 110       *bits = 128;
 111       *setname = "FPU";
 112       *prefix = "";
 113       break;
 114
 115     case 320 + 0 ... 320 + 7:
 116       name[0] = 'b';
 117       name[1] = (regno - 320) + '0';
 118       namelen = 2;
 119       *type = DW_ATE_address;
 120       *setname = "branch";
 121       *prefix = "";
 122       break;
 123
 124     case 328 ... 333:
 125       {
 126         static const char named_special[][5] =
 127           {
 128             "vfp", "vrap", "pr", "ip", "psr", "cfm"
 129           };
 130         *setname = "special";
 131         *prefix = "";
 132         *type = regno == 331 ? DW_ATE_address : DW_ATE_unsigned;
 133         return stpcpy (name, named_special[regno - 328]) + 1 - name;
 134       }
 135
 136     case 590:
 137       *setname = "special";
 138       *prefix = "";
 139       *type = DW_ATE_unsigned;
 140       return stpcpy (name, "bof") + 1 - name;
 141
 142     case 334 + 0 ... 334 + 7:
 143       name[0] = 'k';
 144       name[1] = 'r';
 145       name[2] = (regno - 334) + '0';
 146       namelen = 3;
 147       *prefix = "";
 148       break;
 149
 150     case 334 + 8 ... 334 + 127:
 151       {
 152         static const char named_ar[][9] =
 153           {
 154             [16 - 8] = "rsc",
 155             [17 - 8] = "bsp",
 156             [18 - 8] = "bspstore",
 157             [19 - 8] = "rnat",
 158             [21 - 8] = "fcr",
 159             [24 - 8] = "eflag",
 160             [25 - 8] = "csd",
 161             [26 - 8] = "ssd",
 162             [27 - 8] = "cflg",
 163             [28 - 8] = "fsr",
 164             [29 - 8] = "fir",
 165             [30 - 8] = "fdr",
 166             [32 - 8] = "ccv",
 167             [36 - 8] = "unat",
 168             [40 - 8] = "fpsr",
 169             [44 - 8] = "itc",
 170             [64 - 8] = "pfs",
 171             [65 - 8] = "lc",
 172             [66 - 8] = "ec",
 173           };
 174         const size_t idx = regno - (334 + 8);
 175         *type = DW_ATE_unsigned;
 176         if (idx == 1 || idx == 2)
 177           *type = DW_ATE_address;
 178         if (idx < sizeof named_ar / sizeof named_ar[0]
 179             && named_ar[idx][0] != '\0')
 180           return stpcpy (name, named_ar[idx]) + 1 - name;
 181
 182         name[0] = 'a';
 183         name[1] = 'r';
 184         switch (regno - 334)
 185           {
 186           case 0 ... 9:
 187             name[2] = (regno - 334) + '0';
 188             namelen = 3;
 189             break;
 190           case 10 ... 99:
 191             name[2] = (regno - 334) / 10 + '0';
 192             name[3] = (regno - 334) % 10 + '0';
 193             namelen = 4;
 194             break;
 195           case 100 ... 127:
 196             name[2] = '1';
 197             name[3] = (regno - 334 - 100) / 10 + '0';
 198             name[4] = (regno - 334) % 10 + '0';
 199             namelen = 5;
 200             break;
 201           }
 202         *prefix = "";
 203         break;
 204       }
 205
 206     case 462 + 0 ... 462 + 9:
 207       name[0] = 'n';
 208       name[1] = 'a';
 209       name[2] = 't';
 210       name[3] = (regno - 462) + '0';
 211       namelen = 4;
 212       *setname = "NAT";
 213       *type = DW_ATE_boolean;
 214       *bits = 1;
 215       *prefix = "";
 216       break;
 217
 218     case 462 + 10 ... 462 + 99:
 219       name[0] = 'n';
 220       name[1] = 'a';
 221       name[2] = 't';
 222       name[3] = (regno - 462) / 10 + '0';
 223       name[4] = (regno - 462) % 10 + '0';
 224       namelen = 5;
 225       *setname = "NAT";
 226       *type = DW_ATE_boolean;
 227       *bits = 1;
 228       *prefix = "";
 229       break;
 230
 231     case 462 + 100 ... 462 + 127:
 232       name[0] = 'n';
 233       name[1] = 'a';
 234       name[2] = 't';
 235       name[3] = '1';
 236       name[4] = (regno - 462 - 100) / 10 + '0';
 237       name[5] = (regno - 462) % 10 + '0';
 238       namelen = 6;
 239       *setname = "NAT";
 240       *type = DW_ATE_boolean;
 241       *bits = 1;
 242       *prefix = "";
 243       break;
 244
 245     case 687 + 0 ... 687 + 9:
 246       name[0] = 'p';
 247       name[1] = (regno - 687) + '0';
 248       namelen = 2;
 249       *setname = "predicate";
 250       *type = DW_ATE_boolean;
 251       *bits = 1;
 252       *prefix = "";
 253       break;
 254
 255     case 687 + 10 ... 687 + 63:
 256       name[0] = 'p';
 257       name[1] = (regno - 687) / 10 + '0';
 258       name[2] = (regno - 687) % 10 + '0';
 259       namelen = 3;
 260       *setname = "predicate";
 261       *type = DW_ATE_boolean;
 262       *bits = 1;
 263       *prefix = "";
 264       break;
 265
 266     default:
 267       *setname = NULL;
 268       return 0;
 269     }
 270
 271   name[namelen++] = '\0';
 272   return namelen;
 273 }