]> git.proxmox.com Git - mirror_ubuntu-jammy-kernel.git/blob - drivers/video/leo.c
[SPARC64]: Fix of_iounmap() region release.
[mirror_ubuntu-jammy-kernel.git] / drivers / video / leo.c
1 /* leo.c: LEO frame buffer driver
2 *
3 * Copyright (C) 2003, 2006 David S. Miller (davem@davemloft.net)
4 * Copyright (C) 1996-1999 Jakub Jelinek (jj@ultra.linux.cz)
5 * Copyright (C) 1997 Michal Rehacek (Michal.Rehacek@st.mff.cuni.cz)
6 *
7 * Driver layout based loosely on tgafb.c, see that file for credits.
8 */
9
10 #include <linux/module.h>
11 #include <linux/kernel.h>
12 #include <linux/errno.h>
13 #include <linux/string.h>
14 #include <linux/slab.h>
15 #include <linux/delay.h>
16 #include <linux/init.h>
17 #include <linux/fb.h>
18 #include <linux/mm.h>
19
20 #include <asm/io.h>
21 #include <asm/prom.h>
22 #include <asm/of_device.h>
23 #include <asm/fbio.h>
24
25 #include "sbuslib.h"
26
27 /*
28 * Local functions.
29 */
30
31 static int leo_setcolreg(unsigned, unsigned, unsigned, unsigned,
32 unsigned, struct fb_info *);
33 static int leo_blank(int, struct fb_info *);
34
35 static int leo_mmap(struct fb_info *, struct vm_area_struct *);
36 static int leo_ioctl(struct fb_info *, unsigned int, unsigned long);
37 static int leo_pan_display(struct fb_var_screeninfo *, struct fb_info *);
38
39 /*
40 * Frame buffer operations
41 */
42
43 static struct fb_ops leo_ops = {
44 .owner = THIS_MODULE,
45 .fb_setcolreg = leo_setcolreg,
46 .fb_blank = leo_blank,
47 .fb_pan_display = leo_pan_display,
48 .fb_fillrect = cfb_fillrect,
49 .fb_copyarea = cfb_copyarea,
50 .fb_imageblit = cfb_imageblit,
51 .fb_mmap = leo_mmap,
52 .fb_ioctl = leo_ioctl,
53 #ifdef CONFIG_COMPAT
54 .fb_compat_ioctl = sbusfb_compat_ioctl,
55 #endif
56 };
57
58 #define LEO_OFF_LC_SS0_KRN 0x00200000UL
59 #define LEO_OFF_LC_SS0_USR 0x00201000UL
60 #define LEO_OFF_LC_SS1_KRN 0x01200000UL
61 #define LEO_OFF_LC_SS1_USR 0x01201000UL
62 #define LEO_OFF_LD_SS0 0x00400000UL
63 #define LEO_OFF_LD_SS1 0x01400000UL
64 #define LEO_OFF_LD_GBL 0x00401000UL
65 #define LEO_OFF_LX_KRN 0x00600000UL
66 #define LEO_OFF_LX_CURSOR 0x00601000UL
67 #define LEO_OFF_SS0 0x00800000UL
68 #define LEO_OFF_SS1 0x01800000UL
69 #define LEO_OFF_UNK 0x00602000UL
70 #define LEO_OFF_UNK2 0x00000000UL
71
72 #define LEO_CUR_ENABLE 0x00000080
73 #define LEO_CUR_UPDATE 0x00000030
74 #define LEO_CUR_PROGRESS 0x00000006
75 #define LEO_CUR_UPDATECMAP 0x00000003
76
77 #define LEO_CUR_TYPE_MASK 0x00000000
78 #define LEO_CUR_TYPE_IMAGE 0x00000020
79 #define LEO_CUR_TYPE_CMAP 0x00000050
80
81 struct leo_cursor {
82 u8 xxx0[16];
83 u32 cur_type;
84 u32 cur_misc;
85 u32 cur_cursxy;
86 u32 cur_data;
87 };
88
89 #define LEO_KRN_TYPE_CLUT0 0x00001000
90 #define LEO_KRN_TYPE_CLUT1 0x00001001
91 #define LEO_KRN_TYPE_CLUT2 0x00001002
92 #define LEO_KRN_TYPE_WID 0x00001003
93 #define LEO_KRN_TYPE_UNK 0x00001006
94 #define LEO_KRN_TYPE_VIDEO 0x00002003
95 #define LEO_KRN_TYPE_CLUTDATA 0x00004000
96 #define LEO_KRN_CSR_ENABLE 0x00000008
97 #define LEO_KRN_CSR_PROGRESS 0x00000004
98 #define LEO_KRN_CSR_UNK 0x00000002
99 #define LEO_KRN_CSR_UNK2 0x00000001
100
101 struct leo_lx_krn {
102 u32 krn_type;
103 u32 krn_csr;
104 u32 krn_value;
105 };
106
107 struct leo_lc_ss0_krn {
108 u32 misc;
109 u8 xxx0[0x800-4];
110 u32 rev;
111 };
112
113 struct leo_lc_ss0_usr {
114 u32 csr;
115 u32 addrspace;
116 u32 fontmsk;
117 u32 fontt;
118 u32 extent;
119 u32 src;
120 u32 dst;
121 u32 copy;
122 u32 fill;
123 };
124
125 struct leo_lc_ss1_krn {
126 u8 unknown;
127 };
128
129 struct leo_lc_ss1_usr {
130 u8 unknown;
131 };
132
133 struct leo_ld {
134 u8 xxx0[0xe00];
135 u32 csr;
136 u32 wid;
137 u32 wmask;
138 u32 widclip;
139 u32 vclipmin;
140 u32 vclipmax;
141 u32 pickmin; /* SS1 only */
142 u32 pickmax; /* SS1 only */
143 u32 fg;
144 u32 bg;
145 u32 src; /* Copy/Scroll (SS0 only) */
146 u32 dst; /* Copy/Scroll/Fill (SS0 only) */
147 u32 extent; /* Copy/Scroll/Fill size (SS0 only) */
148 u32 xxx1[3];
149 u32 setsem; /* SS1 only */
150 u32 clrsem; /* SS1 only */
151 u32 clrpick; /* SS1 only */
152 u32 clrdat; /* SS1 only */
153 u32 alpha; /* SS1 only */
154 u8 xxx2[0x2c];
155 u32 winbg;
156 u32 planemask;
157 u32 rop;
158 u32 z;
159 u32 dczf; /* SS1 only */
160 u32 dczb; /* SS1 only */
161 u32 dcs; /* SS1 only */
162 u32 dczs; /* SS1 only */
163 u32 pickfb; /* SS1 only */
164 u32 pickbb; /* SS1 only */
165 u32 dcfc; /* SS1 only */
166 u32 forcecol; /* SS1 only */
167 u32 door[8]; /* SS1 only */
168 u32 pick[5]; /* SS1 only */
169 };
170
171 #define LEO_SS1_MISC_ENABLE 0x00000001
172 #define LEO_SS1_MISC_STEREO 0x00000002
173 struct leo_ld_ss1 {
174 u8 xxx0[0xef4];
175 u32 ss1_misc;
176 };
177
178 struct leo_ld_gbl {
179 u8 unknown;
180 };
181
182 struct leo_par {
183 spinlock_t lock;
184 struct leo_lx_krn __iomem *lx_krn;
185 struct leo_lc_ss0_usr __iomem *lc_ss0_usr;
186 struct leo_ld_ss0 __iomem *ld_ss0;
187 struct leo_ld_ss1 __iomem *ld_ss1;
188 struct leo_cursor __iomem *cursor;
189 u32 extent;
190 u32 clut_data[256];
191
192 u32 flags;
193 #define LEO_FLAG_BLANKED 0x00000001
194
195 unsigned long physbase;
196 unsigned long which_io;
197 unsigned long fbsize;
198 };
199
200 static void leo_wait(struct leo_lx_krn __iomem *lx_krn)
201 {
202 int i;
203
204 for (i = 0;
205 (sbus_readl(&lx_krn->krn_csr) & LEO_KRN_CSR_PROGRESS) && i < 300000;
206 i++)
207 udelay (1); /* Busy wait at most 0.3 sec */
208 return;
209 }
210
211 /**
212 * leo_setcolreg - Optional function. Sets a color register.
213 * @regno: boolean, 0 copy local, 1 get_user() function
214 * @red: frame buffer colormap structure
215 * @green: The green value which can be up to 16 bits wide
216 * @blue: The blue value which can be up to 16 bits wide.
217 * @transp: If supported the alpha value which can be up to 16 bits wide.
218 * @info: frame buffer info structure
219 */
220 static int leo_setcolreg(unsigned regno,
221 unsigned red, unsigned green, unsigned blue,
222 unsigned transp, struct fb_info *info)
223 {
224 struct leo_par *par = (struct leo_par *) info->par;
225 struct leo_lx_krn __iomem *lx_krn = par->lx_krn;
226 unsigned long flags;
227 u32 val;
228 int i;
229
230 if (regno >= 256)
231 return 1;
232
233 red >>= 8;
234 green >>= 8;
235 blue >>= 8;
236
237 par->clut_data[regno] = red | (green << 8) | (blue << 16);
238
239 spin_lock_irqsave(&par->lock, flags);
240
241 leo_wait(lx_krn);
242
243 sbus_writel(LEO_KRN_TYPE_CLUTDATA, &lx_krn->krn_type);
244 for (i = 0; i < 256; i++)
245 sbus_writel(par->clut_data[i], &lx_krn->krn_value);
246 sbus_writel(LEO_KRN_TYPE_CLUT0, &lx_krn->krn_type);
247
248 val = sbus_readl(&lx_krn->krn_csr);
249 val |= (LEO_KRN_CSR_UNK | LEO_KRN_CSR_UNK2);
250 sbus_writel(val, &lx_krn->krn_csr);
251
252 spin_unlock_irqrestore(&par->lock, flags);
253
254 return 0;
255 }
256
257 /**
258 * leo_blank - Optional function. Blanks the display.
259 * @blank_mode: the blank mode we want.
260 * @info: frame buffer structure that represents a single frame buffer
261 */
262 static int leo_blank(int blank, struct fb_info *info)
263 {
264 struct leo_par *par = (struct leo_par *) info->par;
265 struct leo_lx_krn __iomem *lx_krn = par->lx_krn;
266 unsigned long flags;
267 u32 val;
268
269 spin_lock_irqsave(&par->lock, flags);
270
271 switch (blank) {
272 case FB_BLANK_UNBLANK: /* Unblanking */
273 val = sbus_readl(&lx_krn->krn_csr);
274 val |= LEO_KRN_CSR_ENABLE;
275 sbus_writel(val, &lx_krn->krn_csr);
276 par->flags &= ~LEO_FLAG_BLANKED;
277 break;
278
279 case FB_BLANK_NORMAL: /* Normal blanking */
280 case FB_BLANK_VSYNC_SUSPEND: /* VESA blank (vsync off) */
281 case FB_BLANK_HSYNC_SUSPEND: /* VESA blank (hsync off) */
282 case FB_BLANK_POWERDOWN: /* Poweroff */
283 val = sbus_readl(&lx_krn->krn_csr);
284 val &= ~LEO_KRN_CSR_ENABLE;
285 sbus_writel(val, &lx_krn->krn_csr);
286 par->flags |= LEO_FLAG_BLANKED;
287 break;
288 }
289
290 spin_unlock_irqrestore(&par->lock, flags);
291
292 return 0;
293 }
294
295 static struct sbus_mmap_map leo_mmap_map[] = {
296 {
297 .voff = LEO_SS0_MAP,
298 .poff = LEO_OFF_SS0,
299 .size = 0x800000
300 },
301 {
302 .voff = LEO_LC_SS0_USR_MAP,
303 .poff = LEO_OFF_LC_SS0_USR,
304 .size = 0x1000
305 },
306 {
307 .voff = LEO_LD_SS0_MAP,
308 .poff = LEO_OFF_LD_SS0,
309 .size = 0x1000
310 },
311 {
312 .voff = LEO_LX_CURSOR_MAP,
313 .poff = LEO_OFF_LX_CURSOR,
314 .size = 0x1000
315 },
316 {
317 .voff = LEO_SS1_MAP,
318 .poff = LEO_OFF_SS1,
319 .size = 0x800000
320 },
321 {
322 .voff = LEO_LC_SS1_USR_MAP,
323 .poff = LEO_OFF_LC_SS1_USR,
324 .size = 0x1000
325 },
326 {
327 .voff = LEO_LD_SS1_MAP,
328 .poff = LEO_OFF_LD_SS1,
329 .size = 0x1000
330 },
331 {
332 .voff = LEO_UNK_MAP,
333 .poff = LEO_OFF_UNK,
334 .size = 0x1000
335 },
336 {
337 .voff = LEO_LX_KRN_MAP,
338 .poff = LEO_OFF_LX_KRN,
339 .size = 0x1000
340 },
341 {
342 .voff = LEO_LC_SS0_KRN_MAP,
343 .poff = LEO_OFF_LC_SS0_KRN,
344 .size = 0x1000
345 },
346 {
347 .voff = LEO_LC_SS1_KRN_MAP,
348 .poff = LEO_OFF_LC_SS1_KRN,
349 .size = 0x1000
350 },
351 {
352 .voff = LEO_LD_GBL_MAP,
353 .poff = LEO_OFF_LD_GBL,
354 .size = 0x1000
355 },
356 {
357 .voff = LEO_UNK2_MAP,
358 .poff = LEO_OFF_UNK2,
359 .size = 0x100000
360 },
361 { .size = 0 }
362 };
363
364 static int leo_mmap(struct fb_info *info, struct vm_area_struct *vma)
365 {
366 struct leo_par *par = (struct leo_par *)info->par;
367
368 return sbusfb_mmap_helper(leo_mmap_map,
369 par->physbase, par->fbsize,
370 par->which_io, vma);
371 }
372
373 static int leo_ioctl(struct fb_info *info, unsigned int cmd, unsigned long arg)
374 {
375 struct leo_par *par = (struct leo_par *) info->par;
376
377 return sbusfb_ioctl_helper(cmd, arg, info,
378 FBTYPE_SUNLEO, 32, par->fbsize);
379 }
380
381 /*
382 * Initialisation
383 */
384
385 static void
386 leo_init_fix(struct fb_info *info, struct device_node *dp)
387 {
388 strlcpy(info->fix.id, dp->name, sizeof(info->fix.id));
389
390 info->fix.type = FB_TYPE_PACKED_PIXELS;
391 info->fix.visual = FB_VISUAL_TRUECOLOR;
392
393 info->fix.line_length = 8192;
394
395 info->fix.accel = FB_ACCEL_SUN_LEO;
396 }
397
398 static void leo_wid_put(struct fb_info *info, struct fb_wid_list *wl)
399 {
400 struct leo_par *par = (struct leo_par *) info->par;
401 struct leo_lx_krn __iomem *lx_krn = par->lx_krn;
402 struct fb_wid_item *wi;
403 unsigned long flags;
404 u32 val;
405 int i, j;
406
407 spin_lock_irqsave(&par->lock, flags);
408
409 leo_wait(lx_krn);
410
411 for (i = 0, wi = wl->wl_list; i < wl->wl_count; i++, wi++) {
412 switch(wi->wi_type) {
413 case FB_WID_DBL_8:
414 j = (wi->wi_index & 0xf) + 0x40;
415 break;
416
417 case FB_WID_DBL_24:
418 j = wi->wi_index & 0x3f;
419 break;
420
421 default:
422 continue;
423 };
424 sbus_writel(0x5800 + j, &lx_krn->krn_type);
425 sbus_writel(wi->wi_values[0], &lx_krn->krn_value);
426 }
427 sbus_writel(LEO_KRN_TYPE_WID, &lx_krn->krn_type);
428
429 val = sbus_readl(&lx_krn->krn_csr);
430 val |= (LEO_KRN_CSR_UNK | LEO_KRN_CSR_UNK2);
431 sbus_writel(val, &lx_krn->krn_csr);
432
433 spin_unlock_irqrestore(&par->lock, flags);
434 }
435
436 static void leo_init_wids(struct fb_info *info)
437 {
438 struct fb_wid_item wi;
439 struct fb_wid_list wl;
440
441 wl.wl_count = 1;
442 wl.wl_list = &wi;
443 wi.wi_type = FB_WID_DBL_8;
444 wi.wi_index = 0;
445 wi.wi_values [0] = 0x2c0;
446 leo_wid_put(info, &wl);
447 wi.wi_index = 1;
448 wi.wi_values [0] = 0x30;
449 leo_wid_put(info, &wl);
450 wi.wi_index = 2;
451 wi.wi_values [0] = 0x20;
452 leo_wid_put(info, &wl);
453 wi.wi_type = FB_WID_DBL_24;
454 wi.wi_index = 1;
455 wi.wi_values [0] = 0x30;
456 leo_wid_put(info, &wl);
457
458 }
459
460 static void leo_switch_from_graph(struct fb_info *info)
461 {
462 struct leo_par *par = (struct leo_par *) info->par;
463 struct leo_ld __iomem *ss = (struct leo_ld __iomem *) par->ld_ss0;
464 unsigned long flags;
465 u32 val;
466
467 spin_lock_irqsave(&par->lock, flags);
468
469 par->extent = ((info->var.xres - 1) |
470 ((info->var.yres - 1) << 16));
471
472 sbus_writel(0xffffffff, &ss->wid);
473 sbus_writel(0xffff, &ss->wmask);
474 sbus_writel(0, &ss->vclipmin);
475 sbus_writel(par->extent, &ss->vclipmax);
476 sbus_writel(0, &ss->fg);
477 sbus_writel(0xff000000, &ss->planemask);
478 sbus_writel(0x310850, &ss->rop);
479 sbus_writel(0, &ss->widclip);
480 sbus_writel((info->var.xres-1) | ((info->var.yres-1) << 11),
481 &par->lc_ss0_usr->extent);
482 sbus_writel(4, &par->lc_ss0_usr->addrspace);
483 sbus_writel(0x80000000, &par->lc_ss0_usr->fill);
484 sbus_writel(0, &par->lc_ss0_usr->fontt);
485 do {
486 val = sbus_readl(&par->lc_ss0_usr->csr);
487 } while (val & 0x20000000);
488
489 spin_unlock_irqrestore(&par->lock, flags);
490 }
491
492 static int leo_pan_display(struct fb_var_screeninfo *var, struct fb_info *info)
493 {
494 /* We just use this to catch switches out of
495 * graphics mode.
496 */
497 leo_switch_from_graph(info);
498
499 if (var->xoffset || var->yoffset || var->vmode)
500 return -EINVAL;
501 return 0;
502 }
503
504 static void leo_init_hw(struct fb_info *info)
505 {
506 struct leo_par *par = (struct leo_par *) info->par;
507 u32 val;
508
509 val = sbus_readl(&par->ld_ss1->ss1_misc);
510 val |= LEO_SS1_MISC_ENABLE;
511 sbus_writel(val, &par->ld_ss1->ss1_misc);
512
513 leo_switch_from_graph(info);
514 }
515
516 static void leo_fixup_var_rgb(struct fb_var_screeninfo *var)
517 {
518 var->red.offset = 0;
519 var->red.length = 8;
520 var->green.offset = 8;
521 var->green.length = 8;
522 var->blue.offset = 16;
523 var->blue.length = 8;
524 var->transp.offset = 0;
525 var->transp.length = 0;
526 }
527
528 struct all_info {
529 struct fb_info info;
530 struct leo_par par;
531 };
532
533 static void leo_unmap_regs(struct of_device *op, struct all_info *all)
534 {
535 if (all->par.lc_ss0_usr)
536 of_iounmap(&op->resource[0], all->par.lc_ss0_usr, 0x1000);
537 if (all->par.ld_ss0)
538 of_iounmap(&op->resource[0], all->par.ld_ss0, 0x1000);
539 if (all->par.ld_ss1)
540 of_iounmap(&op->resource[0], all->par.ld_ss1, 0x1000);
541 if (all->par.lx_krn)
542 of_iounmap(&op->resource[0], all->par.lx_krn, 0x1000);
543 if (all->par.cursor)
544 of_iounmap(&op->resource[0],
545 all->par.cursor, sizeof(struct leo_cursor));
546 if (all->info.screen_base)
547 of_iounmap(&op->resource[0], all->info.screen_base, 0x800000);
548 }
549
550 static int __devinit leo_init_one(struct of_device *op)
551 {
552 struct device_node *dp = op->node;
553 struct all_info *all;
554 int linebytes, err;
555
556 all = kzalloc(sizeof(*all), GFP_KERNEL);
557 if (!all)
558 return -ENOMEM;
559
560 spin_lock_init(&all->par.lock);
561
562 all->par.physbase = op->resource[0].start;
563 all->par.which_io = op->resource[0].flags & IORESOURCE_BITS;
564
565 sbusfb_fill_var(&all->info.var, dp->node, 32);
566 leo_fixup_var_rgb(&all->info.var);
567
568 linebytes = of_getintprop_default(dp, "linebytes",
569 all->info.var.xres);
570 all->par.fbsize = PAGE_ALIGN(linebytes * all->info.var.yres);
571
572 all->par.lc_ss0_usr =
573 of_ioremap(&op->resource[0], LEO_OFF_LC_SS0_USR,
574 0x1000, "leolc ss0usr");
575 all->par.ld_ss0 =
576 of_ioremap(&op->resource[0], LEO_OFF_LD_SS0,
577 0x1000, "leold ss0");
578 all->par.ld_ss1 =
579 of_ioremap(&op->resource[0], LEO_OFF_LD_SS1,
580 0x1000, "leold ss1");
581 all->par.lx_krn =
582 of_ioremap(&op->resource[0], LEO_OFF_LX_KRN,
583 0x1000, "leolx krn");
584 all->par.cursor =
585 of_ioremap(&op->resource[0], LEO_OFF_LX_CURSOR,
586 sizeof(struct leo_cursor), "leolx cursor");
587 all->info.screen_base =
588 of_ioremap(&op->resource[0], LEO_OFF_SS0,
589 0x800000, "leo ram");
590 if (!all->par.lc_ss0_usr ||
591 !all->par.ld_ss0 ||
592 !all->par.ld_ss1 ||
593 !all->par.lx_krn ||
594 !all->par.cursor ||
595 !all->info.screen_base) {
596 leo_unmap_regs(op, all);
597 kfree(all);
598 return -ENOMEM;
599 }
600
601 all->info.flags = FBINFO_DEFAULT | FBINFO_HWACCEL_YPAN;
602 all->info.fbops = &leo_ops;
603 all->info.par = &all->par;
604
605 leo_init_wids(&all->info);
606 leo_init_hw(&all->info);
607
608 leo_blank(0, &all->info);
609
610 if (fb_alloc_cmap(&all->info.cmap, 256, 0)) {
611 leo_unmap_regs(op, all);
612 kfree(all);
613 return -ENOMEM;;
614 }
615
616 leo_init_fix(&all->info, dp);
617
618 err = register_framebuffer(&all->info);
619 if (err < 0) {
620 fb_dealloc_cmap(&all->info.cmap);
621 leo_unmap_regs(op, all);
622 kfree(all);
623 return err;
624 }
625
626 dev_set_drvdata(&op->dev, all);
627
628 printk("%s: leo at %lx:%lx\n",
629 dp->full_name,
630 all->par.which_io, all->par.physbase);
631
632 return 0;
633 }
634
635 static int __devinit leo_probe(struct of_device *dev, const struct of_device_id *match)
636 {
637 struct of_device *op = to_of_device(&dev->dev);
638
639 return leo_init_one(op);
640 }
641
642 static int __devexit leo_remove(struct of_device *op)
643 {
644 struct all_info *all = dev_get_drvdata(&op->dev);
645
646 unregister_framebuffer(&all->info);
647 fb_dealloc_cmap(&all->info.cmap);
648
649 leo_unmap_regs(op, all);
650
651 kfree(all);
652
653 dev_set_drvdata(&op->dev, NULL);
654
655 return 0;
656 }
657
658 static struct of_device_id leo_match[] = {
659 {
660 .name = "leo",
661 },
662 {},
663 };
664 MODULE_DEVICE_TABLE(of, leo_match);
665
666 static struct of_platform_driver leo_driver = {
667 .name = "leo",
668 .match_table = leo_match,
669 .probe = leo_probe,
670 .remove = __devexit_p(leo_remove),
671 };
672
673 static int __init leo_init(void)
674 {
675 if (fb_get_options("leofb", NULL))
676 return -ENODEV;
677
678 return of_register_driver(&leo_driver, &of_bus_type);
679 }
680
681 static void __exit leo_exit(void)
682 {
683 of_unregister_driver(&leo_driver);
684 }
685
686 module_init(leo_init);
687 module_exit(leo_exit);
688
689 MODULE_DESCRIPTION("framebuffer driver for LEO chipsets");
690 MODULE_AUTHOR("David S. Miller <davem@davemloft.net>");
691 MODULE_VERSION("2.0");
692 MODULE_LICENSE("GPL");