| … | |
… | |
| 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 |
