… | |
… | |
103 | delete obj; |
103 | delete obj; |
104 | } |
104 | } |
105 | } |
105 | } |
106 | } |
106 | } |
107 | |
107 | |
108 | /* |
|
|
109 | * Dumps all friendly objects. |
|
|
110 | */ |
|
|
111 | void |
|
|
112 | dump_friendly_objects (void) |
|
|
113 | { |
|
|
114 | objectlink *ol; |
|
|
115 | |
|
|
116 | for (ol = first_friendly_object; ol; ol = ol->next) |
|
|
117 | LOG (llevError, "%s (%d)\n", &ol->ob->name, ol->ob->count); |
|
|
118 | } |
|
|
119 | |
|
|
120 | /* New function, MSW 2000-1-14 |
108 | /* New function, MSW 2000-1-14 |
121 | * It traverses the friendly list removing objects that should not be here |
109 | * It traverses the friendly list removing objects that should not be here |
122 | * (ie, do not have friendly flag set, freed, etc) |
110 | * (ie, do not have friendly flag set, freed, etc) |
123 | */ |
111 | */ |
124 | void |
112 | void |