URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [common/] [hw-base.c] - Blame information for rev 856

Go to most recent revision | Details | Compare with Previous | View Log


/* The common simulator framework for GDB, the GNU Debugger.
 
   Copyright 2002, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
 
   Contributed by Andrew Cagney and Red Hat.
 
   This file is part of GDB.
 
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3 of the License, or
   (at your option) any later version.
 
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
 
   You should have received a copy of the GNU General Public License
   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
 
 
#include "hw-main.h"
#include "hw-base.h"
 
 
#ifdef HAVE_STRING_H
#include <string.h>
#else
#ifdef HAVE_STRINGS_H
#include <strings.h>
#endif
#endif
 
#if HAVE_STDLIB_H
#include <stdlib.h>
#endif
 
#include <ctype.h>
 
#include "hw-config.h"
 
struct hw_base_data {
  int finished_p;
  const struct hw_descriptor *descriptor;
  hw_delete_callback *to_delete;
};
 
static int
generic_hw_unit_decode (struct hw *bus,
                        const char *unit,
                        hw_unit *phys)
{
  memset (phys, 0, sizeof (*phys));
  if (unit == NULL)
    return 0;
  else
    {
      int nr_cells = 0;
      const int max_nr_cells = hw_unit_nr_address_cells (bus);
      while (1)
        {
          char *end = NULL;
          unsigned long val;
          val = strtoul (unit, &end, 0);
          /* parse error? */
          if (unit == end)
            return -1;
          /* two many cells? */
          if (nr_cells >= max_nr_cells)
            return -1;
          /* save it */
          phys->cells[nr_cells] = val;
          nr_cells++;
          unit = end;
          /* more to follow? */
          if (isspace (*unit) || *unit == '\0')
            break;
          if (*unit != ',')
            return -1;
          unit++;
        }
      if (nr_cells < max_nr_cells) {
        /* shift everything to correct position */
        int i;
        for (i = 1; i <= nr_cells; i++)
          phys->cells[max_nr_cells - i] = phys->cells[nr_cells - i];
        for (i = 0; i < (max_nr_cells - nr_cells); i++)
          phys->cells[i] = 0;
      }
      phys->nr_cells = max_nr_cells;
      return max_nr_cells;
  }
}
 
static int
generic_hw_unit_encode (struct hw *bus,
                        const hw_unit *phys,
                        char *buf,
                        int sizeof_buf)
{
  int i;
  int len;
  char *pos = buf;
  /* skip leading zero's */
  for (i = 0; i < phys->nr_cells; i++)
    {
      if (phys->cells[i] != 0)
        break;
    }
  /* don't output anything if empty */
  if (phys->nr_cells == 0)
    {
      strcpy(pos, "");
      len = 0;
    }
  else if (i == phys->nr_cells)
    {
      /* all zero */
      strcpy(pos, "0");
      len = 1;
    }
  else
    {
      for (; i < phys->nr_cells; i++)
        {
          if (pos != buf) {
            strcat(pos, ",");
            pos = strchr(pos, '\0');
          }
          if (phys->cells[i] < 10)
            sprintf (pos, "%ld", (unsigned long)phys->cells[i]);
          else
            sprintf (pos, "0x%lx", (unsigned long)phys->cells[i]);
          pos = strchr(pos, '\0');
        }
      len = pos - buf;
    }
  if (len >= sizeof_buf)
    hw_abort (NULL, "generic_unit_encode - buffer overflow\n");
  return len;
}
 
static int
generic_hw_unit_address_to_attach_address (struct hw *me,
                                           const hw_unit *address,
                                           int *attach_space,
                                           unsigned_word *attach_address,
                                           struct hw *client)
{
  int i;
  for (i = 0; i < address->nr_cells - 2; i++)
    {
      if (address->cells[i] != 0)
        hw_abort (me, "Only 32bit addresses supported");
    }
  if (address->nr_cells >= 2)
    *attach_space = address->cells[address->nr_cells - 2];
  else
    *attach_space = 0;
  *attach_address = address->cells[address->nr_cells - 1];
  return 1;
}
 
static int
generic_hw_unit_size_to_attach_size (struct hw *me,
                                     const hw_unit *size,
                                     unsigned *nr_bytes,
                                     struct hw *client)
{
  int i;
  for (i = 0; i < size->nr_cells - 1; i++)
    {
      if (size->cells[i] != 0)
        hw_abort (me, "Only 32bit sizes supported");
    }
  *nr_bytes = size->cells[0];
  return *nr_bytes;
}
 
 
/* ignore/passthrough versions of each function */
 
static void
passthrough_hw_attach_address (struct hw *me,
                               int level,
                               int space,
                               address_word addr,
                               address_word nr_bytes,
                               struct hw *client) /*callback/default*/
{
  if (hw_parent (me) == NULL)
    hw_abort (client, "hw_attach_address: no parent attach method");
  hw_attach_address (hw_parent (me), level,
                     space, addr, nr_bytes,
                     client);
}
 
static void
passthrough_hw_detach_address (struct hw *me,
                               int level,
                               int space,
                               address_word addr,
                               address_word nr_bytes,
                               struct hw *client) /*callback/default*/
{
  if (hw_parent (me) == NULL)
    hw_abort (client, "hw_attach_address: no parent attach method");
  hw_detach_address (hw_parent (me), level,
                     space, addr, nr_bytes,
                     client);
}
 
static unsigned
panic_hw_io_read_buffer (struct hw *me,
                         void *dest,
                         int space,
                         unsigned_word addr,
                         unsigned nr_bytes)
{
  hw_abort (me, "no io-read method");
  return 0;
}
 
static unsigned
panic_hw_io_write_buffer (struct hw *me,
                          const void *source,
                          int space,
                          unsigned_word addr,
                          unsigned nr_bytes)
{
  hw_abort (me, "no io-write method");
  return 0;
}
 
static unsigned
passthrough_hw_dma_read_buffer (struct hw *me,
                                void *dest,
                                int space,
                                unsigned_word addr,
                                unsigned nr_bytes)
{
  if (hw_parent (me) == NULL)
    hw_abort (me, "no parent dma-read method");
  return hw_dma_read_buffer (hw_parent (me), dest,
                             space, addr, nr_bytes);
}
 
static unsigned
passthrough_hw_dma_write_buffer (struct hw *me,
                                 const void *source,
                                 int space,
                                 unsigned_word addr,
                                 unsigned nr_bytes,
                                 int violate_read_only_section)
{
  if (hw_parent (me) == NULL)
    hw_abort (me, "no parent dma-write method");
  return hw_dma_write_buffer (hw_parent (me), source,
                              space, addr,
                              nr_bytes,
                              violate_read_only_section);
}
 
static void
ignore_hw_delete (struct hw *me)
{
  /* NOP */
}
 
 
 
 
static const char *
full_name_of_hw (struct hw *leaf,
                 char *buf,
                 unsigned sizeof_buf)
{
  /* get a buffer */
  char full_name[1024];
  if (buf == (char*)0)
    {
      buf = full_name;
      sizeof_buf = sizeof (full_name);
    }
 
  /* use head recursion to construct the path */
 
  if (hw_parent (leaf) == NULL)
    /* root */
    {
      if (sizeof_buf < 1)
        hw_abort (leaf, "buffer overflow");
      *buf = '\0';
    }
  else
    /* sub node */
    {
      char unit[1024];
      full_name_of_hw (hw_parent (leaf), buf, sizeof_buf);
      if (hw_unit_encode (hw_parent (leaf),
                          hw_unit_address (leaf),
                          unit + 1,
                          sizeof (unit) - 1)
          > 0)
        unit[0] = '@';
      else
        unit[0] = '\0';
      if (strlen (buf) + strlen ("/") + strlen (hw_name (leaf)) + strlen (unit)
          >= sizeof_buf)
        hw_abort (leaf, "buffer overflow");
      strcat (buf, "/");
      strcat (buf, hw_name (leaf));
      strcat (buf, unit);
    }
 
  /* return it usefully */
  if (buf == full_name)
    buf = hw_strdup (leaf, full_name);
  return buf;
}
 
struct hw *
hw_create (struct sim_state *sd,
           struct hw *parent,
           const char *family,
           const char *name,
           const char *unit,
           const char *args)
{
 /* NOTE: HW must be allocated using ZALLOC, others use HW_ZALLOC */
  struct hw *hw = ZALLOC (struct hw);
 
  /* our identity */
  hw->family_of_hw = hw_strdup (hw, family);
  hw->name_of_hw = hw_strdup (hw, name);
  hw->args_of_hw = hw_strdup (hw, args);
 
  /* a hook into the system */
  if (sd != NULL)
    hw->system_of_hw = sd;
  else if (parent != NULL)
    hw->system_of_hw = hw_system (parent);
  else
    hw_abort (parent, "No system found");
 
  /* in a tree */
  if (parent != NULL)
    {
      struct hw **sibling = &parent->child_of_hw;
      while ((*sibling) != NULL)
        sibling = &(*sibling)->sibling_of_hw;
      *sibling = hw;
      hw->parent_of_hw = parent;
    }
 
  /* top of tree */
  if (parent != NULL)
    {
      struct hw *root = parent;
      while (root->parent_of_hw != NULL)
        root = root->parent_of_hw;
      hw->root_of_hw = root;
    }
 
  /* a unique identifier for the device on the parents bus */
  if (parent != NULL)
    {
      hw_unit_decode (parent, unit, &hw->unit_address_of_hw);
    }
 
  /* Determine our path */
  if (parent != NULL)
    hw->path_of_hw = full_name_of_hw (hw, NULL, 0);
  else
    hw->path_of_hw = "/";
 
  /* create our base type */
  hw->base_of_hw = HW_ZALLOC (hw, struct hw_base_data);
  hw->base_of_hw->finished_p = 0;
 
  /* our callbacks */
  set_hw_io_read_buffer (hw, panic_hw_io_read_buffer);
  set_hw_io_write_buffer (hw, panic_hw_io_write_buffer);
  set_hw_dma_read_buffer (hw, passthrough_hw_dma_read_buffer);
  set_hw_dma_write_buffer (hw, passthrough_hw_dma_write_buffer);
  set_hw_unit_decode (hw, generic_hw_unit_decode);
  set_hw_unit_encode (hw, generic_hw_unit_encode);
  set_hw_unit_address_to_attach_address (hw, generic_hw_unit_address_to_attach_address);
  set_hw_unit_size_to_attach_size (hw, generic_hw_unit_size_to_attach_size);
  set_hw_attach_address (hw, passthrough_hw_attach_address);
  set_hw_detach_address (hw, passthrough_hw_detach_address);
  set_hw_delete (hw, ignore_hw_delete);
 
  /* locate a descriptor */
  {
    const struct hw_descriptor **table;
    for (table = hw_descriptors;
         *table != NULL;
         table++)
      {
        const struct hw_descriptor *entry;
        for (entry = *table;
             entry->family != NULL;
             entry++)
          {
            if (strcmp (family, entry->family) == 0)
              {
                hw->base_of_hw->descriptor = entry;
                break;
              }
          }
      }
    if (hw->base_of_hw->descriptor == NULL)
      {
        hw_abort (parent, "Unknown device `%s'", family);
      }
  }
 
  /* Attach dummy ports */
  create_hw_alloc_data (hw);
  create_hw_property_data (hw);
  create_hw_port_data (hw);
  create_hw_event_data (hw);
  create_hw_handle_data (hw);
  create_hw_instance_data (hw);
 
  return hw;
}
 
 
int
hw_finished_p (struct hw *me)
{
  return (me->base_of_hw->finished_p);
}
 
void
hw_finish (struct hw *me)
{
  if (hw_finished_p (me))
    hw_abort (me, "Attempt to finish finished device");
 
  /* Fill in the (hopefully) defined address/size cells values */
  if (hw_find_property (me, "#address-cells") != NULL)
    me->nr_address_cells_of_hw_unit =
      hw_find_integer_property (me, "#address-cells");
  else
    me->nr_address_cells_of_hw_unit = 2;
  if (hw_find_property (me, "#size-cells") != NULL)
    me->nr_size_cells_of_hw_unit =
      hw_find_integer_property (me, "#size-cells");
  else
    me->nr_size_cells_of_hw_unit = 1;
 
  /* Fill in the (hopefully) defined trace variable */
  if (hw_find_property (me, "trace?") != NULL)
    me->trace_of_hw_p = hw_find_boolean_property (me, "trace?");
  /* allow global variable to define default tracing */
  else if (! hw_trace_p (me)
           && hw_find_property (hw_root (me), "global-trace?") != NULL
           && hw_find_boolean_property (hw_root (me), "global-trace?"))
    me->trace_of_hw_p = 1;
 
 
  /* Allow the real device to override any methods */
  me->base_of_hw->descriptor->to_finish (me);
  me->base_of_hw->finished_p = 1;
}
 
 
void
hw_delete (struct hw *me)
{
  /* give the object a chance to tidy up */
  me->base_of_hw->to_delete (me);
 
  delete_hw_instance_data (me);
  delete_hw_handle_data (me);
  delete_hw_event_data (me);
  delete_hw_port_data (me);
  delete_hw_property_data (me);
 
  /* now unlink us from the tree */
  if (hw_parent (me))
    {
      struct hw **sibling = &hw_parent (me)->child_of_hw;
      while (*sibling != NULL)
        {
          if (*sibling == me)
            {
              *sibling = me->sibling_of_hw;
              me->sibling_of_hw = NULL;
              me->parent_of_hw = NULL;
              break;
            }
        }
    }
 
  /* some sanity checks */
  if (hw_child (me) != NULL)
    {
      hw_abort (me, "attempt to delete device with children");
    }
  if (hw_sibling (me) != NULL)
    {
      hw_abort (me, "attempt to delete device with siblings");
    }
 
  /* blow away all memory belonging to the device */
  delete_hw_alloc_data (me);
 
  /* finally */
  zfree (me);
}
 
void
set_hw_delete (struct hw *hw, hw_delete_callback method)
{
  hw->base_of_hw->to_delete = method;
}
 
 
/* Go through the devices various reg properties for those that
   specify attach addresses */
 
 
void
do_hw_attach_regs (struct hw *hw)
{
  static const char *(reg_property_names[]) = {
    "attach-addresses",
    "assigned-addresses",
    "reg",
    "alternate-reg" ,
    NULL
  };
  const char **reg_property_name;
  int nr_valid_reg_properties = 0;
  for (reg_property_name = reg_property_names;
       *reg_property_name != NULL;
       reg_property_name++)
    {
      if (hw_find_property (hw, *reg_property_name) != NULL)
        {
          reg_property_spec reg;
          int reg_entry;
          for (reg_entry = 0;
               hw_find_reg_array_property (hw, *reg_property_name, reg_entry,
                                           &reg);
               reg_entry++)
            {
              unsigned_word attach_address;
              int attach_space;
              unsigned attach_size;
              if (!hw_unit_address_to_attach_address (hw_parent (hw),
                                                      &reg.address,
                                                      &attach_space,
                                                      &attach_address,
                                                      hw))
                continue;
              if (!hw_unit_size_to_attach_size (hw_parent (hw),
                                                &reg.size,
                                                &attach_size, hw))
                continue;
              hw_attach_address (hw_parent (hw),
                                 0,
                                 attach_space, attach_address, attach_size,
                                 hw);
              nr_valid_reg_properties++;
            }
          /* if first option matches don't try for any others */
          if (reg_property_name == reg_property_names)
            break;
        }
    }
}

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [common/] [hw-base.c] - Blame information for rev 856

Line No.	Rev	Author	Line
1	227	jeremybenn	`/* The common simulator framework for GDB, the GNU Debugger.`
2
3			`Copyright 2002, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.`
4
5			`Contributed by Andrew Cagney and Red Hat.`
6
7			`This file is part of GDB.`
8
9			`This program is free software; you can redistribute it and/or modify`
10			`it under the terms of the GNU General Public License as published by`
11			`the Free Software Foundation; either version 3 of the License, or`
12			`(at your option) any later version.`
13
14			`This program is distributed in the hope that it will be useful,`
15			`but WITHOUT ANY WARRANTY; without even the implied warranty of`
16			`MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
17			`GNU General Public License for more details.`
18
19			`You should have received a copy of the GNU General Public License`
20			`along with this program. If not, see <http://www.gnu.org/licenses/>. */`
21
22
23			`#include "hw-main.h"`
24			`#include "hw-base.h"`
25
26
27			`#ifdef HAVE_STRING_H`
28			`#include <string.h>`
29			`#else`
30			`#ifdef HAVE_STRINGS_H`
31			`#include <strings.h>`
32			`#endif`
33			`#endif`
34
35			`#if HAVE_STDLIB_H`
36			`#include <stdlib.h>`
37			`#endif`
38
39			`#include <ctype.h>`
40
41			`#include "hw-config.h"`
42
43			`struct hw_base_data {`
44			`int finished_p;`
45			`const struct hw_descriptor *descriptor;`
46			`hw_delete_callback *to_delete;`
47			`};`
48
49			`static int`
50			`generic_hw_unit_decode (struct hw *bus,`
51			`const char *unit,`
52			`hw_unit *phys)`
53			`{`
54			`memset (phys, 0, sizeof (*phys));`
55			`if (unit == NULL)`
56			`return 0;`
57			`else`
58			`{`
59			`int nr_cells = 0;`
60			`const int max_nr_cells = hw_unit_nr_address_cells (bus);`
61			`while (1)`
62			`{`
63			`char *end = NULL;`
64			`unsigned long val;`
65			`val = strtoul (unit, &end, 0);`
66			`/* parse error? */`
67			`if (unit == end)`
68			`return -1;`
69			`/* two many cells? */`
70			`if (nr_cells >= max_nr_cells)`
71			`return -1;`
72			`/* save it */`
73			`phys->cells[nr_cells] = val;`
74			`nr_cells++;`
75			`unit = end;`
76			`/* more to follow? */`
77			`if (isspace (unit) \|\| unit == '\0')`
78			`break;`
79			`if (*unit != ',')`
80			`return -1;`
81			`unit++;`
82			`}`
83			`if (nr_cells < max_nr_cells) {`
84			`/* shift everything to correct position */`
85			`int i;`
86			`for (i = 1; i <= nr_cells; i++)`
87			`phys->cells[max_nr_cells - i] = phys->cells[nr_cells - i];`
88			`for (i = 0; i < (max_nr_cells - nr_cells); i++)`
89			`phys->cells[i] = 0;`
90			`}`
91			`phys->nr_cells = max_nr_cells;`
92			`return max_nr_cells;`
93			`}`
94			`}`
95
96			`static int`
97			`generic_hw_unit_encode (struct hw *bus,`
98			`const hw_unit *phys,`
99			`char *buf,`
100			`int sizeof_buf)`
101			`{`
102			`int i;`
103			`int len;`
104			`char *pos = buf;`
105			`/* skip leading zero's */`
106			`for (i = 0; i < phys->nr_cells; i++)`
107			`{`
108			`if (phys->cells[i] != 0)`
109			`break;`
110			`}`
111			`/* don't output anything if empty */`
112			`if (phys->nr_cells == 0)`
113			`{`
114			`strcpy(pos, "");`
115			`len = 0;`
116			`}`
117			`else if (i == phys->nr_cells)`
118			`{`
119			`/* all zero */`
120			`strcpy(pos, "0");`
121			`len = 1;`
122			`}`
123			`else`
124			`{`
125			`for (; i < phys->nr_cells; i++)`
126			`{`
127			`if (pos != buf) {`
128			`strcat(pos, ",");`
129			`pos = strchr(pos, '\0');`
130			`}`
131			`if (phys->cells[i] < 10)`
132			`sprintf (pos, "%ld", (unsigned long)phys->cells[i]);`
133			`else`
134			`sprintf (pos, "0x%lx", (unsigned long)phys->cells[i]);`
135			`pos = strchr(pos, '\0');`
136			`}`
137			`len = pos - buf;`
138			`}`
139			`if (len >= sizeof_buf)`
140			`hw_abort (NULL, "generic_unit_encode - buffer overflow\n");`
141			`return len;`
142			`}`
143
144			`static int`
145			`generic_hw_unit_address_to_attach_address (struct hw *me,`
146			`const hw_unit *address,`
147			`int *attach_space,`
148			`unsigned_word *attach_address,`
149			`struct hw *client)`
150			`{`
151			`int i;`
152			`for (i = 0; i < address->nr_cells - 2; i++)`
153			`{`
154			`if (address->cells[i] != 0)`
155			`hw_abort (me, "Only 32bit addresses supported");`
156			`}`
157			`if (address->nr_cells >= 2)`
158			`*attach_space = address->cells[address->nr_cells - 2];`
159			`else`
160			`*attach_space = 0;`
161			`*attach_address = address->cells[address->nr_cells - 1];`
162			`return 1;`
163			`}`
164
165			`static int`
166			`generic_hw_unit_size_to_attach_size (struct hw *me,`
167			`const hw_unit *size,`
168			`unsigned *nr_bytes,`
169			`struct hw *client)`
170			`{`
171			`int i;`
172			`for (i = 0; i < size->nr_cells - 1; i++)`
173			`{`
174			`if (size->cells[i] != 0)`
175			`hw_abort (me, "Only 32bit sizes supported");`
176			`}`
177			`*nr_bytes = size->cells[0];`
178			`return *nr_bytes;`
179			`}`
180
181
182			`/* ignore/passthrough versions of each function */`
183
184			`static void`
185			`passthrough_hw_attach_address (struct hw *me,`
186			`int level,`
187			`int space,`
188			`address_word addr,`
189			`address_word nr_bytes,`
190			`struct hw client) /callback/default*/`
191			`{`
192			`if (hw_parent (me) == NULL)`
193			`hw_abort (client, "hw_attach_address: no parent attach method");`
194			`hw_attach_address (hw_parent (me), level,`
195			`space, addr, nr_bytes,`
196			`client);`
197			`}`
198
199			`static void`
200			`passthrough_hw_detach_address (struct hw *me,`
201			`int level,`
202			`int space,`
203			`address_word addr,`
204			`address_word nr_bytes,`
205			`struct hw client) /callback/default*/`
206			`{`
207			`if (hw_parent (me) == NULL)`
208			`hw_abort (client, "hw_attach_address: no parent attach method");`
209			`hw_detach_address (hw_parent (me), level,`
210			`space, addr, nr_bytes,`
211			`client);`
212			`}`
213
214			`static unsigned`
215			`panic_hw_io_read_buffer (struct hw *me,`
216			`void *dest,`
217			`int space,`
218			`unsigned_word addr,`
219			`unsigned nr_bytes)`
220			`{`
221			`hw_abort (me, "no io-read method");`
222			`return 0;`
223			`}`
224
225			`static unsigned`
226			`panic_hw_io_write_buffer (struct hw *me,`
227			`const void *source,`
228			`int space,`
229			`unsigned_word addr,`
230			`unsigned nr_bytes)`
231			`{`
232			`hw_abort (me, "no io-write method");`
233			`return 0;`
234			`}`
235
236			`static unsigned`
237			`passthrough_hw_dma_read_buffer (struct hw *me,`
238			`void *dest,`
239			`int space,`
240			`unsigned_word addr,`
241			`unsigned nr_bytes)`
242			`{`
243			`if (hw_parent (me) == NULL)`
244			`hw_abort (me, "no parent dma-read method");`
245			`return hw_dma_read_buffer (hw_parent (me), dest,`
246			`space, addr, nr_bytes);`
247			`}`
248
249			`static unsigned`
250			`passthrough_hw_dma_write_buffer (struct hw *me,`
251			`const void *source,`
252			`int space,`
253			`unsigned_word addr,`
254			`unsigned nr_bytes,`
255			`int violate_read_only_section)`
256			`{`
257			`if (hw_parent (me) == NULL)`
258			`hw_abort (me, "no parent dma-write method");`
259			`return hw_dma_write_buffer (hw_parent (me), source,`
260			`space, addr,`
261			`nr_bytes,`
262			`violate_read_only_section);`
263			`}`
264
265			`static void`
266			`ignore_hw_delete (struct hw *me)`
267			`{`
268			`/* NOP */`
269			`}`
270
271
272
273
274			`static const char *`
275			`full_name_of_hw (struct hw *leaf,`
276			`char *buf,`
277			`unsigned sizeof_buf)`
278			`{`
279			`/* get a buffer */`
280			`char full_name[1024];`
281			`if (buf == (char*)0)`
282			`{`
283			`buf = full_name;`
284			`sizeof_buf = sizeof (full_name);`
285			`}`
286
287			`/* use head recursion to construct the path */`
288
289			`if (hw_parent (leaf) == NULL)`
290			`/* root */`
291			`{`
292			`if (sizeof_buf < 1)`
293			`hw_abort (leaf, "buffer overflow");`
294			`*buf = '\0';`
295			`}`
296			`else`
297			`/* sub node */`
298			`{`
299			`char unit[1024];`
300			`full_name_of_hw (hw_parent (leaf), buf, sizeof_buf);`
301			`if (hw_unit_encode (hw_parent (leaf),`
302			`hw_unit_address (leaf),`
303			`unit + 1,`
304			`sizeof (unit) - 1)`
305			`> 0)`
306			`unit[0] = '@';`
307			`else`
308			`unit[0] = '\0';`
309			`if (strlen (buf) + strlen ("/") + strlen (hw_name (leaf)) + strlen (unit)`
310			`>= sizeof_buf)`
311			`hw_abort (leaf, "buffer overflow");`
312			`strcat (buf, "/");`
313			`strcat (buf, hw_name (leaf));`
314			`strcat (buf, unit);`
315			`}`
316
317			`/* return it usefully */`
318			`if (buf == full_name)`
319			`buf = hw_strdup (leaf, full_name);`
320			`return buf;`
321			`}`
322
323			`struct hw *`
324			`hw_create (struct sim_state *sd,`
325			`struct hw *parent,`
326			`const char *family,`
327			`const char *name,`
328			`const char *unit,`
329			`const char *args)`
330			`{`
331			`/* NOTE: HW must be allocated using ZALLOC, others use HW_ZALLOC */`
332			`struct hw *hw = ZALLOC (struct hw);`
333
334			`/* our identity */`
335			`hw->family_of_hw = hw_strdup (hw, family);`
336			`hw->name_of_hw = hw_strdup (hw, name);`
337			`hw->args_of_hw = hw_strdup (hw, args);`
338
339			`/* a hook into the system */`
340			`if (sd != NULL)`
341			`hw->system_of_hw = sd;`
342			`else if (parent != NULL)`
343			`hw->system_of_hw = hw_system (parent);`
344			`else`
345			`hw_abort (parent, "No system found");`
346
347			`/* in a tree */`
348			`if (parent != NULL)`
349			`{`
350			`struct hw **sibling = &parent->child_of_hw;`
351			`while ((*sibling) != NULL)`
352			`sibling = &(*sibling)->sibling_of_hw;`
353			`*sibling = hw;`
354			`hw->parent_of_hw = parent;`
355			`}`
356
357			`/* top of tree */`
358			`if (parent != NULL)`
359			`{`
360			`struct hw *root = parent;`
361			`while (root->parent_of_hw != NULL)`
362			`root = root->parent_of_hw;`
363			`hw->root_of_hw = root;`
364			`}`
365
366			`/* a unique identifier for the device on the parents bus */`
367			`if (parent != NULL)`
368			`{`
369			`hw_unit_decode (parent, unit, &hw->unit_address_of_hw);`
370			`}`
371
372			`/* Determine our path */`
373			`if (parent != NULL)`
374			`hw->path_of_hw = full_name_of_hw (hw, NULL, 0);`
375			`else`
376			`hw->path_of_hw = "/";`
377
378			`/* create our base type */`
379			`hw->base_of_hw = HW_ZALLOC (hw, struct hw_base_data);`
380			`hw->base_of_hw->finished_p = 0;`
381
382			`/* our callbacks */`
383			`set_hw_io_read_buffer (hw, panic_hw_io_read_buffer);`
384			`set_hw_io_write_buffer (hw, panic_hw_io_write_buffer);`
385			`set_hw_dma_read_buffer (hw, passthrough_hw_dma_read_buffer);`
386			`set_hw_dma_write_buffer (hw, passthrough_hw_dma_write_buffer);`
387			`set_hw_unit_decode (hw, generic_hw_unit_decode);`
388			`set_hw_unit_encode (hw, generic_hw_unit_encode);`
389			`set_hw_unit_address_to_attach_address (hw, generic_hw_unit_address_to_attach_address);`
390			`set_hw_unit_size_to_attach_size (hw, generic_hw_unit_size_to_attach_size);`
391			`set_hw_attach_address (hw, passthrough_hw_attach_address);`
392			`set_hw_detach_address (hw, passthrough_hw_detach_address);`
393			`set_hw_delete (hw, ignore_hw_delete);`
394
395			`/* locate a descriptor */`
396			`{`
397			`const struct hw_descriptor **table;`
398			`for (table = hw_descriptors;`
399			`*table != NULL;`
400			`table++)`
401			`{`
402			`const struct hw_descriptor *entry;`
403			`for (entry = *table;`
404			`entry->family != NULL;`
405			`entry++)`
406			`{`
407			`if (strcmp (family, entry->family) == 0)`
408			`{`
409			`hw->base_of_hw->descriptor = entry;`
410			`break;`
411			`}`
412			`}`
413			`}`
414			`if (hw->base_of_hw->descriptor == NULL)`
415			`{`
416			hw_abort (parent, "Unknown device `%s'", family);
417			`}`
418			`}`
419
420			`/* Attach dummy ports */`
421			`create_hw_alloc_data (hw);`
422			`create_hw_property_data (hw);`
423			`create_hw_port_data (hw);`
424			`create_hw_event_data (hw);`
425			`create_hw_handle_data (hw);`
426			`create_hw_instance_data (hw);`
427
428			`return hw;`
429			`}`
430
431
432			`int`
433			`hw_finished_p (struct hw *me)`
434			`{`
435			`return (me->base_of_hw->finished_p);`
436			`}`
437
438			`void`
439			`hw_finish (struct hw *me)`
440			`{`
441			`if (hw_finished_p (me))`
442			`hw_abort (me, "Attempt to finish finished device");`
443
444			`/* Fill in the (hopefully) defined address/size cells values */`
445			`if (hw_find_property (me, "#address-cells") != NULL)`
446			`me->nr_address_cells_of_hw_unit =`
447			`hw_find_integer_property (me, "#address-cells");`
448			`else`
449			`me->nr_address_cells_of_hw_unit = 2;`
450			`if (hw_find_property (me, "#size-cells") != NULL)`
451			`me->nr_size_cells_of_hw_unit =`
452			`hw_find_integer_property (me, "#size-cells");`
453			`else`
454			`me->nr_size_cells_of_hw_unit = 1;`
455
456			`/* Fill in the (hopefully) defined trace variable */`
457			`if (hw_find_property (me, "trace?") != NULL)`
458			`me->trace_of_hw_p = hw_find_boolean_property (me, "trace?");`
459			`/* allow global variable to define default tracing */`
460			`else if (! hw_trace_p (me)`
461			`&& hw_find_property (hw_root (me), "global-trace?") != NULL`
462			`&& hw_find_boolean_property (hw_root (me), "global-trace?"))`
463			`me->trace_of_hw_p = 1;`
464
465
466			`/* Allow the real device to override any methods */`
467			`me->base_of_hw->descriptor->to_finish (me);`
468			`me->base_of_hw->finished_p = 1;`
469			`}`
470
471
472			`void`
473			`hw_delete (struct hw *me)`
474			`{`
475			`/* give the object a chance to tidy up */`
476			`me->base_of_hw->to_delete (me);`
477
478			`delete_hw_instance_data (me);`
479			`delete_hw_handle_data (me);`
480			`delete_hw_event_data (me);`
481			`delete_hw_port_data (me);`
482			`delete_hw_property_data (me);`
483
484			`/* now unlink us from the tree */`
485			`if (hw_parent (me))`
486			`{`
487			`struct hw **sibling = &hw_parent (me)->child_of_hw;`
488			`while (*sibling != NULL)`
489			`{`
490			`if (*sibling == me)`
491			`{`
492			`*sibling = me->sibling_of_hw;`
493			`me->sibling_of_hw = NULL;`
494			`me->parent_of_hw = NULL;`
495			`break;`
496			`}`
497			`}`
498			`}`
499
500			`/* some sanity checks */`
501			`if (hw_child (me) != NULL)`
502			`{`
503			`hw_abort (me, "attempt to delete device with children");`
504			`}`
505			`if (hw_sibling (me) != NULL)`
506			`{`
507			`hw_abort (me, "attempt to delete device with siblings");`
508			`}`
509
510			`/* blow away all memory belonging to the device */`
511			`delete_hw_alloc_data (me);`
512
513			`/* finally */`
514			`zfree (me);`
515			`}`
516
517			`void`
518			`set_hw_delete (struct hw *hw, hw_delete_callback method)`
519			`{`
520			`hw->base_of_hw->to_delete = method;`
521			`}`
522
523
524			`/* Go through the devices various reg properties for those that`
525			`specify attach addresses */`
526
527
528			`void`
529			`do_hw_attach_regs (struct hw *hw)`
530			`{`
531			`static const char *(reg_property_names[]) = {`
532			`"attach-addresses",`
533			`"assigned-addresses",`
534			`"reg",`
535			`"alternate-reg" ,`
536			`NULL`
537			`};`
538			`const char **reg_property_name;`
539			`int nr_valid_reg_properties = 0;`
540			`for (reg_property_name = reg_property_names;`
541			`*reg_property_name != NULL;`
542			`reg_property_name++)`
543			`{`
544			`if (hw_find_property (hw, *reg_property_name) != NULL)`
545			`{`
546			`reg_property_spec reg;`
547			`int reg_entry;`
548			`for (reg_entry = 0;`
549			`hw_find_reg_array_property (hw, *reg_property_name, reg_entry,`
550			`&reg);`
551			`reg_entry++)`
552			`{`
553			`unsigned_word attach_address;`
554			`int attach_space;`
555			`unsigned attach_size;`
556			`if (!hw_unit_address_to_attach_address (hw_parent (hw),`
557			`&reg.address,`
558			`&attach_space,`
559			`&attach_address,`
560			`hw))`
561			`continue;`
562			`if (!hw_unit_size_to_attach_size (hw_parent (hw),`
563			`&reg.size,`
564			`&attach_size, hw))`
565			`continue;`
566			`hw_attach_address (hw_parent (hw),`
567			`0,`
568			`attach_space, attach_address, attach_size,`
569			`hw);`
570			`nr_valid_reg_properties++;`
571			`}`
572			`/* if first option matches don't try for any others */`
573			`if (reg_property_name == reg_property_names)`
574			`break;`
575			`}`
576			`}`
577			`}`