• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1 // SPDX-License-Identifier: GPL-2.0-or-later
2 /*
3  *  Copyright (c) by Jaroslav Kysela <perex@perex.cz>
4  *  GUS's memory allocation routines / bottom layer
5  */
6 
7 #include <linux/slab.h>
8 #include <linux/string.h>
9 #include <sound/core.h>
10 #include <sound/gus.h>
11 #include <sound/info.h>
12 
13 #ifdef CONFIG_SND_DEBUG
14 static void snd_gf1_mem_info_read(struct snd_info_entry *entry,
15 				  struct snd_info_buffer *buffer);
16 #endif
17 
snd_gf1_mem_lock(struct snd_gf1_mem * alloc,int xup)18 void snd_gf1_mem_lock(struct snd_gf1_mem * alloc, int xup)
19 {
20 	if (!xup) {
21 		mutex_lock(&alloc->memory_mutex);
22 	} else {
23 		mutex_unlock(&alloc->memory_mutex);
24 	}
25 }
26 
snd_gf1_mem_xalloc(struct snd_gf1_mem * alloc,struct snd_gf1_mem_block * block)27 static struct snd_gf1_mem_block *snd_gf1_mem_xalloc(struct snd_gf1_mem * alloc,
28 					       struct snd_gf1_mem_block * block)
29 {
30 	struct snd_gf1_mem_block *pblock, *nblock;
31 
32 	nblock = kmalloc(sizeof(struct snd_gf1_mem_block), GFP_KERNEL);
33 	if (nblock == NULL)
34 		return NULL;
35 	*nblock = *block;
36 	pblock = alloc->first;
37 	while (pblock) {
38 		if (pblock->ptr > nblock->ptr) {
39 			nblock->prev = pblock->prev;
40 			nblock->next = pblock;
41 			pblock->prev = nblock;
42 			if (pblock == alloc->first)
43 				alloc->first = nblock;
44 			else
45 				nblock->prev->next = nblock;
46 			mutex_unlock(&alloc->memory_mutex);
47 			return NULL;
48 		}
49 		pblock = pblock->next;
50 	}
51 	nblock->next = NULL;
52 	if (alloc->last == NULL) {
53 		nblock->prev = NULL;
54 		alloc->first = alloc->last = nblock;
55 	} else {
56 		nblock->prev = alloc->last;
57 		alloc->last->next = nblock;
58 		alloc->last = nblock;
59 	}
60 	return nblock;
61 }
62 
snd_gf1_mem_xfree(struct snd_gf1_mem * alloc,struct snd_gf1_mem_block * block)63 int snd_gf1_mem_xfree(struct snd_gf1_mem * alloc, struct snd_gf1_mem_block * block)
64 {
65 	if (block->share) {	/* ok.. shared block */
66 		block->share--;
67 		mutex_unlock(&alloc->memory_mutex);
68 		return 0;
69 	}
70 	if (alloc->first == block) {
71 		alloc->first = block->next;
72 		if (block->next)
73 			block->next->prev = NULL;
74 	} else {
75 		block->prev->next = block->next;
76 		if (block->next)
77 			block->next->prev = block->prev;
78 	}
79 	if (alloc->last == block) {
80 		alloc->last = block->prev;
81 		if (block->prev)
82 			block->prev->next = NULL;
83 	} else {
84 		block->next->prev = block->prev;
85 		if (block->prev)
86 			block->prev->next = block->next;
87 	}
88 	kfree(block->name);
89 	kfree(block);
90 	return 0;
91 }
92 
snd_gf1_mem_look(struct snd_gf1_mem * alloc,unsigned int address)93 static struct snd_gf1_mem_block *snd_gf1_mem_look(struct snd_gf1_mem * alloc,
94 					     unsigned int address)
95 {
96 	struct snd_gf1_mem_block *block;
97 
98 	for (block = alloc->first; block; block = block->next) {
99 		if (block->ptr == address) {
100 			return block;
101 		}
102 	}
103 	return NULL;
104 }
105 
snd_gf1_mem_share(struct snd_gf1_mem * alloc,unsigned int * share_id)106 static struct snd_gf1_mem_block *snd_gf1_mem_share(struct snd_gf1_mem * alloc,
107 					      unsigned int *share_id)
108 {
109 	struct snd_gf1_mem_block *block;
110 
111 	if (!share_id[0] && !share_id[1] &&
112 	    !share_id[2] && !share_id[3])
113 		return NULL;
114 	for (block = alloc->first; block; block = block->next)
115 		if (!memcmp(share_id, block->share_id,
116 				sizeof(block->share_id)))
117 			return block;
118 	return NULL;
119 }
120 
snd_gf1_mem_find(struct snd_gf1_mem * alloc,struct snd_gf1_mem_block * block,unsigned int size,int w_16,int align)121 static int snd_gf1_mem_find(struct snd_gf1_mem * alloc,
122 			    struct snd_gf1_mem_block * block,
123 			    unsigned int size, int w_16, int align)
124 {
125 	struct snd_gf1_bank_info *info = w_16 ? alloc->banks_16 : alloc->banks_8;
126 	unsigned int idx, boundary;
127 	int size1;
128 	struct snd_gf1_mem_block *pblock;
129 	unsigned int ptr1, ptr2;
130 
131 	if (w_16 && align < 2)
132 		align = 2;
133 	block->flags = w_16 ? SNDRV_GF1_MEM_BLOCK_16BIT : 0;
134 	block->owner = SNDRV_GF1_MEM_OWNER_DRIVER;
135 	block->share = 0;
136 	block->share_id[0] = block->share_id[1] =
137 	block->share_id[2] = block->share_id[3] = 0;
138 	block->name = NULL;
139 	block->prev = block->next = NULL;
140 	for (pblock = alloc->first, idx = 0; pblock; pblock = pblock->next) {
141 		while (pblock->ptr >= (boundary = info[idx].address + info[idx].size))
142 			idx++;
143 		while (pblock->ptr + pblock->size >= (boundary = info[idx].address + info[idx].size))
144 			idx++;
145 		ptr2 = boundary;
146 		if (pblock->next) {
147 			if (pblock->ptr + pblock->size == pblock->next->ptr)
148 				continue;
149 			if (pblock->next->ptr < boundary)
150 				ptr2 = pblock->next->ptr;
151 		}
152 		ptr1 = ALIGN(pblock->ptr + pblock->size, align);
153 		if (ptr1 >= ptr2)
154 			continue;
155 		size1 = ptr2 - ptr1;
156 		if ((int)size <= size1) {
157 			block->ptr = ptr1;
158 			block->size = size;
159 			return 0;
160 		}
161 	}
162 	while (++idx < 4) {
163 		if (size <= info[idx].size) {
164 			/* I assume that bank address is already aligned.. */
165 			block->ptr = info[idx].address;
166 			block->size = size;
167 			return 0;
168 		}
169 	}
170 	return -ENOMEM;
171 }
172 
snd_gf1_mem_alloc(struct snd_gf1_mem * alloc,int owner,char * name,int size,int w_16,int align,unsigned int * share_id)173 struct snd_gf1_mem_block *snd_gf1_mem_alloc(struct snd_gf1_mem * alloc, int owner,
174 				       char *name, int size, int w_16, int align,
175 				       unsigned int *share_id)
176 {
177 	struct snd_gf1_mem_block block, *nblock;
178 
179 	snd_gf1_mem_lock(alloc, 0);
180 	if (share_id != NULL) {
181 		nblock = snd_gf1_mem_share(alloc, share_id);
182 		if (nblock != NULL) {
183 			if (size != (int)nblock->size) {
184 				/* TODO: remove in the future */
185 				snd_printk(KERN_ERR "snd_gf1_mem_alloc - share: sizes differ\n");
186 				goto __std;
187 			}
188 			nblock->share++;
189 			snd_gf1_mem_lock(alloc, 1);
190 			return NULL;
191 		}
192 	}
193       __std:
194 	if (snd_gf1_mem_find(alloc, &block, size, w_16, align) < 0) {
195 		snd_gf1_mem_lock(alloc, 1);
196 		return NULL;
197 	}
198 	if (share_id != NULL)
199 		memcpy(&block.share_id, share_id, sizeof(block.share_id));
200 	block.owner = owner;
201 	block.name = kstrdup(name, GFP_KERNEL);
202 	nblock = snd_gf1_mem_xalloc(alloc, &block);
203 	snd_gf1_mem_lock(alloc, 1);
204 	return nblock;
205 }
206 
snd_gf1_mem_free(struct snd_gf1_mem * alloc,unsigned int address)207 int snd_gf1_mem_free(struct snd_gf1_mem * alloc, unsigned int address)
208 {
209 	int result;
210 	struct snd_gf1_mem_block *block;
211 
212 	snd_gf1_mem_lock(alloc, 0);
213 	block = snd_gf1_mem_look(alloc, address);
214 	if (block) {
215 		result = snd_gf1_mem_xfree(alloc, block);
216 		snd_gf1_mem_lock(alloc, 1);
217 		return result;
218 	}
219 	snd_gf1_mem_lock(alloc, 1);
220 	return -EINVAL;
221 }
222 
snd_gf1_mem_init(struct snd_gus_card * gus)223 int snd_gf1_mem_init(struct snd_gus_card * gus)
224 {
225 	struct snd_gf1_mem *alloc;
226 	struct snd_gf1_mem_block block;
227 
228 	alloc = &gus->gf1.mem_alloc;
229 	mutex_init(&alloc->memory_mutex);
230 	alloc->first = alloc->last = NULL;
231 	if (!gus->gf1.memory)
232 		return 0;
233 
234 	memset(&block, 0, sizeof(block));
235 	block.owner = SNDRV_GF1_MEM_OWNER_DRIVER;
236 	if (gus->gf1.enh_mode) {
237 		block.ptr = 0;
238 		block.size = 1024;
239 		block.name = kstrdup("InterWave LFOs", GFP_KERNEL);
240 		if (snd_gf1_mem_xalloc(alloc, &block) == NULL)
241 			return -ENOMEM;
242 	}
243 	block.ptr = gus->gf1.default_voice_address;
244 	block.size = 4;
245 	block.name = kstrdup("Voice default (NULL's)", GFP_KERNEL);
246 	if (snd_gf1_mem_xalloc(alloc, &block) == NULL)
247 		return -ENOMEM;
248 #ifdef CONFIG_SND_DEBUG
249 	snd_card_ro_proc_new(gus->card, "gusmem", gus, snd_gf1_mem_info_read);
250 #endif
251 	return 0;
252 }
253 
snd_gf1_mem_done(struct snd_gus_card * gus)254 int snd_gf1_mem_done(struct snd_gus_card * gus)
255 {
256 	struct snd_gf1_mem *alloc;
257 	struct snd_gf1_mem_block *block, *nblock;
258 
259 	alloc = &gus->gf1.mem_alloc;
260 	block = alloc->first;
261 	while (block) {
262 		nblock = block->next;
263 		snd_gf1_mem_xfree(alloc, block);
264 		block = nblock;
265 	}
266 	return 0;
267 }
268 
269 #ifdef CONFIG_SND_DEBUG
snd_gf1_mem_info_read(struct snd_info_entry * entry,struct snd_info_buffer * buffer)270 static void snd_gf1_mem_info_read(struct snd_info_entry *entry,
271 				  struct snd_info_buffer *buffer)
272 {
273 	struct snd_gus_card *gus;
274 	struct snd_gf1_mem *alloc;
275 	struct snd_gf1_mem_block *block;
276 	unsigned int total, used;
277 	int i;
278 
279 	gus = entry->private_data;
280 	alloc = &gus->gf1.mem_alloc;
281 	mutex_lock(&alloc->memory_mutex);
282 	snd_iprintf(buffer, "8-bit banks       : \n    ");
283 	for (i = 0; i < 4; i++)
284 		snd_iprintf(buffer, "0x%06x (%04ik)%s", alloc->banks_8[i].address, alloc->banks_8[i].size >> 10, i + 1 < 4 ? "," : "");
285 	snd_iprintf(buffer, "\n"
286 		    "16-bit banks      : \n    ");
287 	for (i = total = 0; i < 4; i++) {
288 		snd_iprintf(buffer, "0x%06x (%04ik)%s", alloc->banks_16[i].address, alloc->banks_16[i].size >> 10, i + 1 < 4 ? "," : "");
289 		total += alloc->banks_16[i].size;
290 	}
291 	snd_iprintf(buffer, "\n");
292 	used = 0;
293 	for (block = alloc->first, i = 0; block; block = block->next, i++) {
294 		used += block->size;
295 		snd_iprintf(buffer, "Block %i onboard 0x%x size %i (0x%x):\n", i, block->ptr, block->size, block->size);
296 		if (block->share ||
297 		    block->share_id[0] || block->share_id[1] ||
298 		    block->share_id[2] || block->share_id[3])
299 			snd_iprintf(buffer, "  Share           : %i [id0 0x%x] [id1 0x%x] [id2 0x%x] [id3 0x%x]\n",
300 				block->share,
301 				block->share_id[0], block->share_id[1],
302 				block->share_id[2], block->share_id[3]);
303 		snd_iprintf(buffer, "  Flags           :%s\n",
304 		block->flags & SNDRV_GF1_MEM_BLOCK_16BIT ? " 16-bit" : "");
305 		snd_iprintf(buffer, "  Owner           : ");
306 		switch (block->owner) {
307 		case SNDRV_GF1_MEM_OWNER_DRIVER:
308 			snd_iprintf(buffer, "driver - %s\n", block->name);
309 			break;
310 		case SNDRV_GF1_MEM_OWNER_WAVE_SIMPLE:
311 			snd_iprintf(buffer, "SIMPLE wave\n");
312 			break;
313 		case SNDRV_GF1_MEM_OWNER_WAVE_GF1:
314 			snd_iprintf(buffer, "GF1 wave\n");
315 			break;
316 		case SNDRV_GF1_MEM_OWNER_WAVE_IWFFFF:
317 			snd_iprintf(buffer, "IWFFFF wave\n");
318 			break;
319 		default:
320 			snd_iprintf(buffer, "unknown\n");
321 		}
322 	}
323 	snd_iprintf(buffer, "  Total: memory = %i, used = %i, free = %i\n",
324 		    total, used, total - used);
325 	mutex_unlock(&alloc->memory_mutex);
326 #if 0
327 	ultra_iprintf(buffer, "  Verify: free = %i, max 8-bit block = %i, max 16-bit block = %i\n",
328 		      ultra_memory_free_size(card, &card->gf1.mem_alloc),
329 		  ultra_memory_free_block(card, &card->gf1.mem_alloc, 0),
330 		 ultra_memory_free_block(card, &card->gf1.mem_alloc, 1));
331 #endif
332 }
333 #endif
334