1 /* This file is part of the program psim.
3 Copyright (C) 1994-1995,1997, Andrew Cagney <cagney@highland.com.au>
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 3 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, see <http://www.gnu.org/licenses/>.
26 typedef struct _cap_mapping cap_mapping
;
28 unsigned_cell external
;
35 cap_mapping
*mappings
;
40 cap_create(const char *key
)
49 cap_mapping
*current_map
= db
->mappings
;
50 if (current_map
!= NULL
) {
51 db
->nr_mappings
= db
->mappings
->external
;
52 /* verify that the mappings that were not removed are in sequence
54 while (current_map
->next
!= NULL
) {
55 if (current_map
->external
!= current_map
->next
->external
+ 1)
56 error("cap: cap database possibly corrupt");
57 current_map
= current_map
->next
;
59 ASSERT(current_map
->next
== NULL
);
60 if (current_map
->external
!= 1)
61 error("cap: cap database possibly currupt");
73 cap_mapping
*current_map
= db
->mappings
;
74 while (current_map
!= NULL
) {
75 if (current_map
->external
== external
)
76 return current_map
->internal
;
77 current_map
= current_map
->next
;
87 cap_mapping
*current_map
= db
->mappings
;
88 while (current_map
!= NULL
) {
89 if (current_map
->internal
== internal
)
90 return current_map
->external
;
91 current_map
= current_map
->next
;
101 if (cap_external(db
, internal
) != 0) {
102 error("cap: attempting to add an object already in the data base");
105 /* insert at the front making things in decending order */
106 cap_mapping
*new_map
= ZALLOC(cap_mapping
);
107 new_map
->next
= db
->mappings
;
108 new_map
->internal
= internal
;
109 db
->nr_mappings
+= 1;
110 new_map
->external
= db
->nr_mappings
;
111 db
->mappings
= new_map
;
120 cap_mapping
**current_map
= &db
->mappings
;
121 while (*current_map
!= NULL
) {
122 if ((*current_map
)->internal
== internal
) {
123 cap_mapping
*delete = *current_map
;
124 *current_map
= delete->next
;
128 current_map
= &(*current_map
)->next
;
130 error("cap: attempt to remove nonexistant internal object");
This page took 0.035005 seconds and 4 git commands to generate.