Linux 5.13-rc6
[sfrench/cifs-2.6.git] / sound / isa / sb / emu8000_patch.c
1 // SPDX-License-Identifier: GPL-2.0-or-later
2 /*
3  *  Patch routines for the emu8000 (AWE32/64)
4  *
5  *  Copyright (C) 1999 Steve Ratcliffe
6  *  Copyright (C) 1999-2000 Takashi Iwai <tiwai@suse.de>
7  */
8
9 #include "emu8000_local.h"
10
11 #include <linux/sched/signal.h>
12 #include <linux/uaccess.h>
13 #include <linux/moduleparam.h>
14
15 static int emu8000_reset_addr;
16 module_param(emu8000_reset_addr, int, 0444);
17 MODULE_PARM_DESC(emu8000_reset_addr, "reset write address at each time (makes slowdown)");
18
19
20 /*
21  * Open up channels.
22  */
23 static int
24 snd_emu8000_open_dma(struct snd_emu8000 *emu, int write)
25 {
26         int i;
27
28         /* reserve all 30 voices for loading */
29         for (i = 0; i < EMU8000_DRAM_VOICES; i++) {
30                 snd_emux_lock_voice(emu->emu, i);
31                 snd_emu8000_dma_chan(emu, i, write);
32         }
33
34         /* assign voice 31 and 32 to ROM */
35         EMU8000_VTFT_WRITE(emu, 30, 0);
36         EMU8000_PSST_WRITE(emu, 30, 0x1d8);
37         EMU8000_CSL_WRITE(emu, 30, 0x1e0);
38         EMU8000_CCCA_WRITE(emu, 30, 0x1d8);
39         EMU8000_VTFT_WRITE(emu, 31, 0);
40         EMU8000_PSST_WRITE(emu, 31, 0x1d8);
41         EMU8000_CSL_WRITE(emu, 31, 0x1e0);
42         EMU8000_CCCA_WRITE(emu, 31, 0x1d8);
43
44         return 0;
45 }
46
47 /*
48  * Close all dram channels.
49  */
50 static void
51 snd_emu8000_close_dma(struct snd_emu8000 *emu)
52 {
53         int i;
54
55         for (i = 0; i < EMU8000_DRAM_VOICES; i++) {
56                 snd_emu8000_dma_chan(emu, i, EMU8000_RAM_CLOSE);
57                 snd_emux_unlock_voice(emu->emu, i);
58         }
59 }
60
61 /*
62  */
63
64 #define BLANK_LOOP_START        4
65 #define BLANK_LOOP_END          8
66 #define BLANK_LOOP_SIZE         12
67 #define BLANK_HEAD_SIZE         48
68
69 /*
70  * Read a word from userland, taking care of conversions from
71  * 8bit samples etc.
72  */
73 static unsigned short
74 read_word(const void __user *buf, int offset, int mode)
75 {
76         unsigned short c;
77         if (mode & SNDRV_SFNT_SAMPLE_8BITS) {
78                 unsigned char cc;
79                 get_user(cc, (unsigned char __user *)buf + offset);
80                 c = cc << 8; /* convert 8bit -> 16bit */
81         } else {
82 #ifdef SNDRV_LITTLE_ENDIAN
83                 get_user(c, (unsigned short __user *)buf + offset);
84 #else
85                 unsigned short cc;
86                 get_user(cc, (unsigned short __user *)buf + offset);
87                 c = swab16(cc);
88 #endif
89         }
90         if (mode & SNDRV_SFNT_SAMPLE_UNSIGNED)
91                 c ^= 0x8000; /* unsigned -> signed */
92         return c;
93 }
94
95 /*
96  */
97 static void
98 snd_emu8000_write_wait(struct snd_emu8000 *emu)
99 {
100         while ((EMU8000_SMALW_READ(emu) & 0x80000000) != 0) {
101                 schedule_timeout_interruptible(1);
102                 if (signal_pending(current))
103                         break;
104         }
105 }
106
107 /*
108  * write sample word data
109  *
110  * You should not have to keep resetting the address each time
111  * as the chip is supposed to step on the next address automatically.
112  * It mostly does, but during writes of some samples at random it
113  * completely loses words (every one in 16 roughly but with no
114  * obvious pattern).
115  *
116  * This is therefore much slower than need be, but is at least
117  * working.
118  */
119 static inline void
120 write_word(struct snd_emu8000 *emu, int *offset, unsigned short data)
121 {
122         if (emu8000_reset_addr) {
123                 if (emu8000_reset_addr > 1)
124                         snd_emu8000_write_wait(emu);
125                 EMU8000_SMALW_WRITE(emu, *offset);
126         }
127         EMU8000_SMLD_WRITE(emu, data);
128         *offset += 1;
129 }
130
131 /*
132  * Write the sample to EMU800 memory.  This routine is invoked out of
133  * the generic soundfont routines as a callback.
134  */
135 int
136 snd_emu8000_sample_new(struct snd_emux *rec, struct snd_sf_sample *sp,
137                        struct snd_util_memhdr *hdr,
138                        const void __user *data, long count)
139 {
140         int  i;
141         int  rc;
142         int  offset;
143         int  truesize;
144         int  dram_offset, dram_start;
145         struct snd_emu8000 *emu;
146
147         emu = rec->hw;
148         if (snd_BUG_ON(!sp))
149                 return -EINVAL;
150
151         if (sp->v.size == 0)
152                 return 0;
153
154         /* be sure loop points start < end */
155         if (sp->v.loopstart > sp->v.loopend)
156                 swap(sp->v.loopstart, sp->v.loopend);
157
158         /* compute true data size to be loaded */
159         truesize = sp->v.size;
160         if (sp->v.mode_flags & (SNDRV_SFNT_SAMPLE_BIDIR_LOOP|SNDRV_SFNT_SAMPLE_REVERSE_LOOP))
161                 truesize += sp->v.loopend - sp->v.loopstart;
162         if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_NO_BLANK)
163                 truesize += BLANK_LOOP_SIZE;
164
165         sp->block = snd_util_mem_alloc(hdr, truesize * 2);
166         if (sp->block == NULL) {
167                 /*snd_printd("EMU8000: out of memory\n");*/
168                 /* not ENOMEM (for compatibility) */
169                 return -ENOSPC;
170         }
171
172         if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_8BITS) {
173                 if (!access_ok(data, sp->v.size))
174                         return -EFAULT;
175         } else {
176                 if (!access_ok(data, sp->v.size * 2))
177                         return -EFAULT;
178         }
179
180         /* recalculate address offset */
181         sp->v.end -= sp->v.start;
182         sp->v.loopstart -= sp->v.start;
183         sp->v.loopend -= sp->v.start;
184         sp->v.start = 0;
185
186         /* dram position (in word) -- mem_offset is byte */
187         dram_offset = EMU8000_DRAM_OFFSET + (sp->block->offset >> 1);
188         dram_start = dram_offset;
189
190         /* set the total size (store onto obsolete checksum value) */
191         sp->v.truesize = truesize * 2; /* in bytes */
192
193         snd_emux_terminate_all(emu->emu);
194         if ((rc = snd_emu8000_open_dma(emu, EMU8000_RAM_WRITE)) != 0)
195                 return rc;
196
197         /* Set the address to start writing at */
198         snd_emu8000_write_wait(emu);
199         EMU8000_SMALW_WRITE(emu, dram_offset);
200
201         /*snd_emu8000_init_fm(emu);*/
202
203 #if 0
204         /* first block - write 48 samples for silence */
205         if (! sp->block->offset) {
206                 for (i = 0; i < BLANK_HEAD_SIZE; i++) {
207                         write_word(emu, &dram_offset, 0);
208                 }
209         }
210 #endif
211
212         offset = 0;
213         for (i = 0; i < sp->v.size; i++) {
214                 unsigned short s;
215
216                 s = read_word(data, offset, sp->v.mode_flags);
217                 offset++;
218                 write_word(emu, &dram_offset, s);
219
220                 /* we may take too long time in this loop.
221                  * so give controls back to kernel if needed.
222                  */
223                 cond_resched();
224
225                 if (i == sp->v.loopend &&
226                     (sp->v.mode_flags & (SNDRV_SFNT_SAMPLE_BIDIR_LOOP|SNDRV_SFNT_SAMPLE_REVERSE_LOOP)))
227                 {
228                         int looplen = sp->v.loopend - sp->v.loopstart;
229                         int k;
230
231                         /* copy reverse loop */
232                         for (k = 1; k <= looplen; k++) {
233                                 s = read_word(data, offset - k, sp->v.mode_flags);
234                                 write_word(emu, &dram_offset, s);
235                         }
236                         if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_BIDIR_LOOP) {
237                                 sp->v.loopend += looplen;
238                         } else {
239                                 sp->v.loopstart += looplen;
240                                 sp->v.loopend += looplen;
241                         }
242                         sp->v.end += looplen;
243                 }
244         }
245
246         /* if no blank loop is attached in the sample, add it */
247         if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_NO_BLANK) {
248                 for (i = 0; i < BLANK_LOOP_SIZE; i++) {
249                         write_word(emu, &dram_offset, 0);
250                 }
251                 if (sp->v.mode_flags & SNDRV_SFNT_SAMPLE_SINGLESHOT) {
252                         sp->v.loopstart = sp->v.end + BLANK_LOOP_START;
253                         sp->v.loopend = sp->v.end + BLANK_LOOP_END;
254                 }
255         }
256
257         /* add dram offset */
258         sp->v.start += dram_start;
259         sp->v.end += dram_start;
260         sp->v.loopstart += dram_start;
261         sp->v.loopend += dram_start;
262
263         snd_emu8000_close_dma(emu);
264         snd_emu8000_init_fm(emu);
265
266         return 0;
267 }
268
269 /*
270  * free a sample block
271  */
272 int
273 snd_emu8000_sample_free(struct snd_emux *rec, struct snd_sf_sample *sp,
274                         struct snd_util_memhdr *hdr)
275 {
276         if (sp->block) {
277                 snd_util_mem_free(hdr, sp->block);
278                 sp->block = NULL;
279         }
280         return 0;
281 }
282
283
284 /*
285  * sample_reset callback - terminate voices
286  */
287 void
288 snd_emu8000_sample_reset(struct snd_emux *rec)
289 {
290         snd_emux_terminate_all(rec);
291 }