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

Subversion Repositories or1k

[/] [or1k/] [branches/] [oc/] [gdb-5.0/] [sim/] [common/] [sim-module.c] - Blame information for rev 1765

Details | Compare with Previous | View Log


/* Module support.
   Copyright (C) 1996, 1997, 1998 Free Software Foundation, Inc.
   Contributed by Cygnus Support.
 
This file is part of GDB, the GNU debugger.
 
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 2, 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, write to the Free Software Foundation, Inc.,
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
#include "sim-main.h"
#include "sim-io.h"
#include "sim-options.h"
#include "sim-assert.h"
 
#if WITH_HW
#include "sim-hw.h"
#endif
 
#include "libiberty.h"
 
/* List of all modules.  */
static MODULE_INSTALL_FN * const modules[] = {
  standard_install,
  sim_events_install,
#ifdef SIM_HAVE_MODEL
  sim_model_install,
#endif
#if WITH_ENGINE
  sim_engine_install,
#endif
#if WITH_TRACE
  trace_install,
#endif
#if WITH_PROFILE
  profile_install,
#endif
  sim_core_install,
#ifndef SIM_HAVE_FLATMEM
  /* FIXME: should handle flatmem as well FLATMEM */
  sim_memopt_install,
#endif
#if WITH_WATCHPOINTS
  sim_watchpoint_install,
#endif
#if WITH_SCACHE
  scache_install,
#endif
#ifdef SIM_HAVE_BREAKPOINTS
  sim_break_install,
#endif
#if WITH_HW
  sim_hw_install,
#endif
  /* Configured in [simulator specific] additional modules.  */
#ifdef MODULE_LIST
  MODULE_LIST
#endif
 
};
 
/* Functions called from sim_open.  */
 
/* Initialize common parts before argument processing.  */
 
SIM_RC
sim_pre_argv_init (SIM_DESC sd, const char *myname)
{
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) == NULL);
 
  STATE_MY_NAME (sd) = myname + strlen (myname);
  while (STATE_MY_NAME (sd) > myname && STATE_MY_NAME (sd)[-1] != '/')
    --STATE_MY_NAME (sd);
 
  /* Set the cpu names to default values.  */
  {
    int i;
    for (i = 0; i < MAX_NR_PROCESSORS; ++i)
      {
        char *name;
        asprintf (&name, "cpu%d", i);
        CPU_NAME (STATE_CPU (sd, i)) = name;
      }
  }
 
  sim_config_default (sd);
 
  /* Install all configured in modules.  */
  if (sim_module_install (sd) != SIM_RC_OK)
    return SIM_RC_FAIL;
 
  return SIM_RC_OK;
}
 
/* Initialize common parts after argument processing.  */
 
SIM_RC
sim_post_argv_init (SIM_DESC sd)
{
  int i;
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  /* Set the cpu->state backlinks for each cpu.  */
  for (i = 0; i < MAX_NR_PROCESSORS; ++i)
    {
      CPU_STATE (STATE_CPU (sd, i)) = sd;
      CPU_INDEX (STATE_CPU (sd, i)) = i;
    }
 
  if (sim_module_init (sd) != SIM_RC_OK)
    return SIM_RC_FAIL;
 
  return SIM_RC_OK;
}
 
/* Install all modules.
   If this fails, no modules are left installed.  */
 
SIM_RC
sim_module_install (SIM_DESC sd)
{
  MODULE_INSTALL_FN * const *modp;
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) == NULL);
 
  STATE_MODULES (sd) = ZALLOC (struct module_list);
  for (modp = modules; *modp != NULL; ++modp)
    {
      if ((*modp) (sd) != SIM_RC_OK)
        {
          sim_module_uninstall (sd);
          SIM_ASSERT (STATE_MODULES (sd) == NULL);
          return SIM_RC_FAIL;
        }
    }
  return SIM_RC_OK;
}
 
/* Called after all modules have been installed and after argv
   has been processed.  */
 
SIM_RC
sim_module_init (SIM_DESC sd)
{
  struct module_list *modules = STATE_MODULES (sd);
  MODULE_INIT_LIST *modp;
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  for (modp = modules->init_list; modp != NULL; modp = modp->next)
    {
      if ((*modp->fn) (sd) != SIM_RC_OK)
        return SIM_RC_FAIL;
    }
  return SIM_RC_OK;
}
 
/* Called when ever the simulator is resumed */
 
SIM_RC
sim_module_resume (SIM_DESC sd)
{
  struct module_list *modules = STATE_MODULES (sd);
  MODULE_RESUME_LIST *modp;
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  for (modp = modules->resume_list; modp != NULL; modp = modp->next)
    {
      if ((*modp->fn) (sd) != SIM_RC_OK)
        return SIM_RC_FAIL;
    }
  return SIM_RC_OK;
}
 
/* Called when ever the simulator is suspended */
 
SIM_RC
sim_module_suspend (SIM_DESC sd)
{
  struct module_list *modules = STATE_MODULES (sd);
  MODULE_SUSPEND_LIST *modp;
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  for (modp = modules->suspend_list; modp != NULL; modp = modp->next)
    {
      if ((*modp->fn) (sd) != SIM_RC_OK)
        return SIM_RC_FAIL;
    }
  return SIM_RC_OK;
}
 
/* Uninstall installed modules, called by sim_close.  */
 
void
sim_module_uninstall (SIM_DESC sd)
{
  struct module_list *modules = STATE_MODULES (sd);
  MODULE_UNINSTALL_LIST *modp;
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  /* Uninstall the modules.  */
  for (modp = modules->uninstall_list; modp != NULL; modp = modp->next)
    (*modp->fn) (sd);
 
  /* clean-up init list */
  {
    MODULE_INIT_LIST *n, *d;
    for (d = modules->init_list; d != NULL; d = n)
      {
        n = d->next;
        zfree (d);
      }
  }
 
  /* clean-up resume list */
  {
    MODULE_RESUME_LIST *n, *d;
    for (d = modules->resume_list; d != NULL; d = n)
      {
        n = d->next;
        zfree (d);
      }
  }
 
  /* clean-up suspend list */
  {
    MODULE_SUSPEND_LIST *n, *d;
    for (d = modules->suspend_list; d != NULL; d = n)
      {
        n = d->next;
        zfree (d);
      }
  }
 
  /* clean-up uninstall list */
  {
    MODULE_UNINSTALL_LIST *n, *d;
    for (d = modules->uninstall_list; d != NULL; d = n)
      {
        n = d->next;
        zfree (d);
      }
  }
 
  /* clean-up info list */
  {
    MODULE_INFO_LIST *n, *d;
    for (d = modules->info_list; d != NULL; d = n)
      {
        n = d->next;
        zfree (d);
      }
  }
 
  zfree (modules);
  STATE_MODULES (sd) = NULL;
}
 
/* Called when ever simulator info is needed */
 
void
sim_module_info (SIM_DESC sd, int verbose)
{
  struct module_list *modules = STATE_MODULES (sd);
  MODULE_INFO_LIST *modp;
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  for (modp = modules->info_list; modp != NULL; modp = modp->next)
    {
      (*modp->fn) (sd, verbose);
    }
}
 
/* Add FN to the init handler list.
   init in the same order as the install. */
 
void
sim_module_add_init_fn (SIM_DESC sd, MODULE_INIT_FN fn)
{
  struct module_list *modules = STATE_MODULES (sd);
  MODULE_INIT_LIST *l = ZALLOC (MODULE_INIT_LIST);
  MODULE_INIT_LIST **last;
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  last = &modules->init_list;
  while (*last != NULL)
    last = &((*last)->next);
 
  l->fn = fn;
  l->next = NULL;
  *last = l;
}
 
/* Add FN to the resume handler list.
   resume in the same order as the install. */
 
void
sim_module_add_resume_fn (SIM_DESC sd, MODULE_RESUME_FN fn)
{
  struct module_list *modules = STATE_MODULES (sd);
  MODULE_RESUME_LIST *l = ZALLOC (MODULE_RESUME_LIST);
  MODULE_RESUME_LIST **last;
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  last = &modules->resume_list;
  while (*last != NULL)
    last = &((*last)->next);
 
  l->fn = fn;
  l->next = NULL;
  *last = l;
}
 
/* Add FN to the init handler list.
   suspend in the reverse order to install. */
 
void
sim_module_add_suspend_fn (SIM_DESC sd, MODULE_SUSPEND_FN fn)
{
  struct module_list *modules = STATE_MODULES (sd);
  MODULE_SUSPEND_LIST *l = ZALLOC (MODULE_SUSPEND_LIST);
  MODULE_SUSPEND_LIST **last;
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  last = &modules->suspend_list;
  while (*last != NULL)
    last = &((*last)->next);
 
  l->fn = fn;
  l->next = modules->suspend_list;
  modules->suspend_list = l;
}
 
/* Add FN to the uninstall handler list.
   Uninstall in reverse order to install.  */
 
void
sim_module_add_uninstall_fn (SIM_DESC sd, MODULE_UNINSTALL_FN fn)
{
  struct module_list *modules = STATE_MODULES (sd);
  MODULE_UNINSTALL_LIST *l = ZALLOC (MODULE_UNINSTALL_LIST);
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  l->fn = fn;
  l->next = modules->uninstall_list;
  modules->uninstall_list = l;
}
 
/* Add FN to the info handler list.
   Report info in the same order as the install. */
 
void
sim_module_add_info_fn (SIM_DESC sd, MODULE_INFO_FN fn)
{
  struct module_list *modules = STATE_MODULES (sd);
  MODULE_INFO_LIST *l = ZALLOC (MODULE_INFO_LIST);
  MODULE_INFO_LIST **last;
 
  SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);
  SIM_ASSERT (STATE_MODULES (sd) != NULL);
 
  last = &modules->info_list;
  while (*last != NULL)
    last = &((*last)->next);
 
  l->fn = fn;
  l->next = NULL;
  *last = l;
}

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [branches/] [oc/] [gdb-5.0/] [sim/] [common/] [sim-module.c] - Blame information for rev 1765

Line No.	Rev	Author	Line
1	106	markom	`/* Module support.`
2			`Copyright (C) 1996, 1997, 1998 Free Software Foundation, Inc.`
3			`Contributed by Cygnus Support.`
4
5			`This file is part of GDB, the GNU debugger.`
6
7			`This program is free software; you can redistribute it and/or modify`
8			`it under the terms of the GNU General Public License as published by`
9			`the Free Software Foundation; either version 2, or (at your option)`
10			`any later version.`
11
12			`This program is distributed in the hope that it will be useful,`
13			`but WITHOUT ANY WARRANTY; without even the implied warranty of`
14			`MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
15			`GNU General Public License for more details.`
16
17			`You should have received a copy of the GNU General Public License along`
18			`with this program; if not, write to the Free Software Foundation, Inc.,`
19			`59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */`
20
21			`#include "sim-main.h"`
22			`#include "sim-io.h"`
23			`#include "sim-options.h"`
24			`#include "sim-assert.h"`
25
26			`#if WITH_HW`
27			`#include "sim-hw.h"`
28			`#endif`
29
30			`#include "libiberty.h"`
31
32			`/* List of all modules. */`
33			`static MODULE_INSTALL_FN * const modules[] = {`
34			`standard_install,`
35			`sim_events_install,`
36			`#ifdef SIM_HAVE_MODEL`
37			`sim_model_install,`
38			`#endif`
39			`#if WITH_ENGINE`
40			`sim_engine_install,`
41			`#endif`
42			`#if WITH_TRACE`
43			`trace_install,`
44			`#endif`
45			`#if WITH_PROFILE`
46			`profile_install,`
47			`#endif`
48			`sim_core_install,`
49			`#ifndef SIM_HAVE_FLATMEM`
50			`/* FIXME: should handle flatmem as well FLATMEM */`
51			`sim_memopt_install,`
52			`#endif`
53			`#if WITH_WATCHPOINTS`
54			`sim_watchpoint_install,`
55			`#endif`
56			`#if WITH_SCACHE`
57			`scache_install,`
58			`#endif`
59			`#ifdef SIM_HAVE_BREAKPOINTS`
60			`sim_break_install,`
61			`#endif`
62			`#if WITH_HW`
63			`sim_hw_install,`
64			`#endif`
65			`/* Configured in [simulator specific] additional modules. */`
66			`#ifdef MODULE_LIST`
67			`MODULE_LIST`
68			`#endif`
69
70			`};`
71
72			`/* Functions called from sim_open. */`
73
74			`/* Initialize common parts before argument processing. */`
75
76			`SIM_RC`
77			`sim_pre_argv_init (SIM_DESC sd, const char *myname)`
78			`{`
79			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
80			`SIM_ASSERT (STATE_MODULES (sd) == NULL);`
81
82			`STATE_MY_NAME (sd) = myname + strlen (myname);`
83			`while (STATE_MY_NAME (sd) > myname && STATE_MY_NAME (sd)[-1] != '/')`
84			`--STATE_MY_NAME (sd);`
85
86			`/* Set the cpu names to default values. */`
87			`{`
88			`int i;`
89			`for (i = 0; i < MAX_NR_PROCESSORS; ++i)`
90			`{`
91			`char *name;`
92			`asprintf (&name, "cpu%d", i);`
93			`CPU_NAME (STATE_CPU (sd, i)) = name;`
94			`}`
95			`}`
96
97			`sim_config_default (sd);`
98
99			`/* Install all configured in modules. */`
100			`if (sim_module_install (sd) != SIM_RC_OK)`
101			`return SIM_RC_FAIL;`
102
103			`return SIM_RC_OK;`
104			`}`
105
106			`/* Initialize common parts after argument processing. */`
107
108			`SIM_RC`
109			`sim_post_argv_init (SIM_DESC sd)`
110			`{`
111			`int i;`
112			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
113			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
114
115			`/* Set the cpu->state backlinks for each cpu. */`
116			`for (i = 0; i < MAX_NR_PROCESSORS; ++i)`
117			`{`
118			`CPU_STATE (STATE_CPU (sd, i)) = sd;`
119			`CPU_INDEX (STATE_CPU (sd, i)) = i;`
120			`}`
121
122			`if (sim_module_init (sd) != SIM_RC_OK)`
123			`return SIM_RC_FAIL;`
124
125			`return SIM_RC_OK;`
126			`}`
127
128			`/* Install all modules.`
129			`If this fails, no modules are left installed. */`
130
131			`SIM_RC`
132			`sim_module_install (SIM_DESC sd)`
133			`{`
134			`MODULE_INSTALL_FN * const *modp;`
135
136			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
137			`SIM_ASSERT (STATE_MODULES (sd) == NULL);`
138
139			`STATE_MODULES (sd) = ZALLOC (struct module_list);`
140			`for (modp = modules; *modp != NULL; ++modp)`
141			`{`
142			`if ((*modp) (sd) != SIM_RC_OK)`
143			`{`
144			`sim_module_uninstall (sd);`
145			`SIM_ASSERT (STATE_MODULES (sd) == NULL);`
146			`return SIM_RC_FAIL;`
147			`}`
148			`}`
149			`return SIM_RC_OK;`
150			`}`
151
152			`/* Called after all modules have been installed and after argv`
153			`has been processed. */`
154
155			`SIM_RC`
156			`sim_module_init (SIM_DESC sd)`
157			`{`
158			`struct module_list *modules = STATE_MODULES (sd);`
159			`MODULE_INIT_LIST *modp;`
160
161			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
162			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
163
164			`for (modp = modules->init_list; modp != NULL; modp = modp->next)`
165			`{`
166			`if ((*modp->fn) (sd) != SIM_RC_OK)`
167			`return SIM_RC_FAIL;`
168			`}`
169			`return SIM_RC_OK;`
170			`}`
171
172			`/* Called when ever the simulator is resumed */`
173
174			`SIM_RC`
175			`sim_module_resume (SIM_DESC sd)`
176			`{`
177			`struct module_list *modules = STATE_MODULES (sd);`
178			`MODULE_RESUME_LIST *modp;`
179
180			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
181			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
182
183			`for (modp = modules->resume_list; modp != NULL; modp = modp->next)`
184			`{`
185			`if ((*modp->fn) (sd) != SIM_RC_OK)`
186			`return SIM_RC_FAIL;`
187			`}`
188			`return SIM_RC_OK;`
189			`}`
190
191			`/* Called when ever the simulator is suspended */`
192
193			`SIM_RC`
194			`sim_module_suspend (SIM_DESC sd)`
195			`{`
196			`struct module_list *modules = STATE_MODULES (sd);`
197			`MODULE_SUSPEND_LIST *modp;`
198
199			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
200			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
201
202			`for (modp = modules->suspend_list; modp != NULL; modp = modp->next)`
203			`{`
204			`if ((*modp->fn) (sd) != SIM_RC_OK)`
205			`return SIM_RC_FAIL;`
206			`}`
207			`return SIM_RC_OK;`
208			`}`
209
210			`/* Uninstall installed modules, called by sim_close. */`
211
212			`void`
213			`sim_module_uninstall (SIM_DESC sd)`
214			`{`
215			`struct module_list *modules = STATE_MODULES (sd);`
216			`MODULE_UNINSTALL_LIST *modp;`
217
218			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
219			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
220
221			`/* Uninstall the modules. */`
222			`for (modp = modules->uninstall_list; modp != NULL; modp = modp->next)`
223			`(*modp->fn) (sd);`
224
225			`/* clean-up init list */`
226			`{`
227			`MODULE_INIT_LIST n, d;`
228			`for (d = modules->init_list; d != NULL; d = n)`
229			`{`
230			`n = d->next;`
231			`zfree (d);`
232			`}`
233			`}`
234
235			`/* clean-up resume list */`
236			`{`
237			`MODULE_RESUME_LIST n, d;`
238			`for (d = modules->resume_list; d != NULL; d = n)`
239			`{`
240			`n = d->next;`
241			`zfree (d);`
242			`}`
243			`}`
244
245			`/* clean-up suspend list */`
246			`{`
247			`MODULE_SUSPEND_LIST n, d;`
248			`for (d = modules->suspend_list; d != NULL; d = n)`
249			`{`
250			`n = d->next;`
251			`zfree (d);`
252			`}`
253			`}`
254
255			`/* clean-up uninstall list */`
256			`{`
257			`MODULE_UNINSTALL_LIST n, d;`
258			`for (d = modules->uninstall_list; d != NULL; d = n)`
259			`{`
260			`n = d->next;`
261			`zfree (d);`
262			`}`
263			`}`
264
265			`/* clean-up info list */`
266			`{`
267			`MODULE_INFO_LIST n, d;`
268			`for (d = modules->info_list; d != NULL; d = n)`
269			`{`
270			`n = d->next;`
271			`zfree (d);`
272			`}`
273			`}`
274
275			`zfree (modules);`
276			`STATE_MODULES (sd) = NULL;`
277			`}`
278
279			`/* Called when ever simulator info is needed */`
280
281			`void`
282			`sim_module_info (SIM_DESC sd, int verbose)`
283			`{`
284			`struct module_list *modules = STATE_MODULES (sd);`
285			`MODULE_INFO_LIST *modp;`
286
287			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
288			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
289
290			`for (modp = modules->info_list; modp != NULL; modp = modp->next)`
291			`{`
292			`(*modp->fn) (sd, verbose);`
293			`}`
294			`}`
295
296			`/* Add FN to the init handler list.`
297			`init in the same order as the install. */`
298
299			`void`
300			`sim_module_add_init_fn (SIM_DESC sd, MODULE_INIT_FN fn)`
301			`{`
302			`struct module_list *modules = STATE_MODULES (sd);`
303			`MODULE_INIT_LIST *l = ZALLOC (MODULE_INIT_LIST);`
304			`MODULE_INIT_LIST **last;`
305
306			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
307			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
308
309			`last = &modules->init_list;`
310			`while (*last != NULL)`
311			`last = &((*last)->next);`
312
313			`l->fn = fn;`
314			`l->next = NULL;`
315			`*last = l;`
316			`}`
317
318			`/* Add FN to the resume handler list.`
319			`resume in the same order as the install. */`
320
321			`void`
322			`sim_module_add_resume_fn (SIM_DESC sd, MODULE_RESUME_FN fn)`
323			`{`
324			`struct module_list *modules = STATE_MODULES (sd);`
325			`MODULE_RESUME_LIST *l = ZALLOC (MODULE_RESUME_LIST);`
326			`MODULE_RESUME_LIST **last;`
327
328			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
329			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
330
331			`last = &modules->resume_list;`
332			`while (*last != NULL)`
333			`last = &((*last)->next);`
334
335			`l->fn = fn;`
336			`l->next = NULL;`
337			`*last = l;`
338			`}`
339
340			`/* Add FN to the init handler list.`
341			`suspend in the reverse order to install. */`
342
343			`void`
344			`sim_module_add_suspend_fn (SIM_DESC sd, MODULE_SUSPEND_FN fn)`
345			`{`
346			`struct module_list *modules = STATE_MODULES (sd);`
347			`MODULE_SUSPEND_LIST *l = ZALLOC (MODULE_SUSPEND_LIST);`
348			`MODULE_SUSPEND_LIST **last;`
349
350			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
351			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
352
353			`last = &modules->suspend_list;`
354			`while (*last != NULL)`
355			`last = &((*last)->next);`
356
357			`l->fn = fn;`
358			`l->next = modules->suspend_list;`
359			`modules->suspend_list = l;`
360			`}`
361
362			`/* Add FN to the uninstall handler list.`
363			`Uninstall in reverse order to install. */`
364
365			`void`
366			`sim_module_add_uninstall_fn (SIM_DESC sd, MODULE_UNINSTALL_FN fn)`
367			`{`
368			`struct module_list *modules = STATE_MODULES (sd);`
369			`MODULE_UNINSTALL_LIST *l = ZALLOC (MODULE_UNINSTALL_LIST);`
370
371			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
372			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
373
374			`l->fn = fn;`
375			`l->next = modules->uninstall_list;`
376			`modules->uninstall_list = l;`
377			`}`
378
379			`/* Add FN to the info handler list.`
380			`Report info in the same order as the install. */`
381
382			`void`
383			`sim_module_add_info_fn (SIM_DESC sd, MODULE_INFO_FN fn)`
384			`{`
385			`struct module_list *modules = STATE_MODULES (sd);`
386			`MODULE_INFO_LIST *l = ZALLOC (MODULE_INFO_LIST);`
387			`MODULE_INFO_LIST **last;`
388
389			`SIM_ASSERT (STATE_MAGIC (sd) == SIM_MAGIC_NUMBER);`
390			`SIM_ASSERT (STATE_MODULES (sd) != NULL);`
391
392			`last = &modules->info_list;`
393			`while (*last != NULL)`
394			`last = &((*last)->next);`
395
396			`l->fn = fn;`
397			`l->next = NULL;`
398			`*last = l;`
399			`}`