1 // SPDX-License-Identifier: GPL-2.0-only
2 /*
3  * Copyright 2012 Red Hat
4  *
5  * Authors: Matthew Garrett
6  *          Dave Airlie
7  */
8 
9 #include <linux/console.h>
10 #include <linux/module.h>
11 #include <linux/pci.h>
12 #include <linux/vmalloc.h>
13 
14 #include <drm/drm_aperture.h>
15 #include <drm/drm_drv.h>
16 #include <drm/drm_file.h>
17 #include <drm/drm_ioctl.h>
18 #include <drm/drm_pciids.h>
19 
20 #include "mgag200_drv.h"
21 
22 int mgag200_modeset = -1;
23 MODULE_PARM_DESC(modeset, "Disable/Enable modesetting");
24 module_param_named(modeset, mgag200_modeset, int, 0400);
25 
26 /*
27  * DRM driver
28  */
29 
30 DEFINE_DRM_GEM_FOPS(mgag200_driver_fops);
31 
32 static const struct drm_driver mgag200_driver = {
33 	.driver_features = DRIVER_ATOMIC | DRIVER_GEM | DRIVER_MODESET,
34 	.fops = &mgag200_driver_fops,
35 	.name = DRIVER_NAME,
36 	.desc = DRIVER_DESC,
37 	.date = DRIVER_DATE,
38 	.major = DRIVER_MAJOR,
39 	.minor = DRIVER_MINOR,
40 	.patchlevel = DRIVER_PATCHLEVEL,
41 	DRM_GEM_SHMEM_DRIVER_OPS,
42 };
43 
44 /*
45  * DRM device
46  */
47 
48 static bool mgag200_has_sgram(struct mga_device *mdev)
49 {
50 	struct drm_device *dev = &mdev->base;
51 	struct pci_dev *pdev = to_pci_dev(dev->dev);
52 	u32 option;
53 	int ret;
54 
55 	ret = pci_read_config_dword(pdev, PCI_MGA_OPTION, &option);
56 	if (drm_WARN(dev, ret, "failed to read PCI config dword: %d\n", ret))
57 		return false;
58 
59 	return !!(option & PCI_MGA_OPTION_HARDPWMSK);
60 }
61 
62 static int mgag200_regs_init(struct mga_device *mdev)
63 {
64 	struct drm_device *dev = &mdev->base;
65 	struct pci_dev *pdev = to_pci_dev(dev->dev);
66 	u32 option, option2;
67 	u8 crtcext3;
68 
69 	switch (mdev->type) {
70 	case G200_PCI:
71 	case G200_AGP:
72 		if (mgag200_has_sgram(mdev))
73 			option = 0x4049cd21;
74 		else
75 			option = 0x40499121;
76 		option2 = 0x00008000;
77 		break;
78 	case G200_SE_A:
79 	case G200_SE_B:
80 		option = 0x40049120;
81 		if (mgag200_has_sgram(mdev))
82 			option |= PCI_MGA_OPTION_HARDPWMSK;
83 		option2 = 0x00008000;
84 		break;
85 	case G200_WB:
86 	case G200_EW3:
87 		option = 0x41049120;
88 		option2 = 0x0000b000;
89 		break;
90 	case G200_EV:
91 		option = 0x00000120;
92 		option2 = 0x0000b000;
93 		break;
94 	case G200_EH:
95 	case G200_EH3:
96 		option = 0x00000120;
97 		option2 = 0x0000b000;
98 		break;
99 	default:
100 		option = 0;
101 		option2 = 0;
102 	}
103 
104 	if (option)
105 		pci_write_config_dword(pdev, PCI_MGA_OPTION, option);
106 	if (option2)
107 		pci_write_config_dword(pdev, PCI_MGA_OPTION2, option2);
108 
109 	/* BAR 1 contains registers */
110 	mdev->rmmio_base = pci_resource_start(pdev, 1);
111 	mdev->rmmio_size = pci_resource_len(pdev, 1);
112 
113 	if (!devm_request_mem_region(dev->dev, mdev->rmmio_base,
114 				     mdev->rmmio_size, "mgadrmfb_mmio")) {
115 		drm_err(dev, "can't reserve mmio registers\n");
116 		return -ENOMEM;
117 	}
118 
119 	mdev->rmmio = pcim_iomap(pdev, 1, 0);
120 	if (mdev->rmmio == NULL)
121 		return -ENOMEM;
122 
123 	RREG_ECRT(0x03, crtcext3);
124 	crtcext3 |= MGAREG_CRTCEXT3_MGAMODE;
125 	WREG_ECRT(0x03, crtcext3);
126 
127 	return 0;
128 }
129 
130 static void mgag200_g200_interpret_bios(struct mga_device *mdev,
131 					const unsigned char *bios,
132 					size_t size)
133 {
134 	static const char matrox[] = {'M', 'A', 'T', 'R', 'O', 'X'};
135 	static const unsigned int expected_length[6] = {
136 		0, 64, 64, 64, 128, 128
137 	};
138 	struct drm_device *dev = &mdev->base;
139 	const unsigned char *pins;
140 	unsigned int pins_len, version;
141 	int offset;
142 	int tmp;
143 
144 	/* Test for MATROX string. */
145 	if (size < 45 + sizeof(matrox))
146 		return;
147 	if (memcmp(&bios[45], matrox, sizeof(matrox)) != 0)
148 		return;
149 
150 	/* Get the PInS offset. */
151 	if (size < MGA_BIOS_OFFSET + 2)
152 		return;
153 	offset = (bios[MGA_BIOS_OFFSET + 1] << 8) | bios[MGA_BIOS_OFFSET];
154 
155 	/* Get PInS data structure. */
156 
157 	if (size < offset + 6)
158 		return;
159 	pins = bios + offset;
160 	if (pins[0] == 0x2e && pins[1] == 0x41) {
161 		version = pins[5];
162 		pins_len = pins[2];
163 	} else {
164 		version = 1;
165 		pins_len = pins[0] + (pins[1] << 8);
166 	}
167 
168 	if (version < 1 || version > 5) {
169 		drm_warn(dev, "Unknown BIOS PInS version: %d\n", version);
170 		return;
171 	}
172 	if (pins_len != expected_length[version]) {
173 		drm_warn(dev, "Unexpected BIOS PInS size: %d expected: %d\n",
174 			 pins_len, expected_length[version]);
175 		return;
176 	}
177 	if (size < offset + pins_len)
178 		return;
179 
180 	drm_dbg_kms(dev, "MATROX BIOS PInS version %d size: %d found\n",
181 		    version, pins_len);
182 
183 	/* Extract the clock values */
184 
185 	switch (version) {
186 	case 1:
187 		tmp = pins[24] + (pins[25] << 8);
188 		if (tmp)
189 			mdev->model.g200.pclk_max = tmp * 10;
190 		break;
191 	case 2:
192 		if (pins[41] != 0xff)
193 			mdev->model.g200.pclk_max = (pins[41] + 100) * 1000;
194 		break;
195 	case 3:
196 		if (pins[36] != 0xff)
197 			mdev->model.g200.pclk_max = (pins[36] + 100) * 1000;
198 		if (pins[52] & 0x20)
199 			mdev->model.g200.ref_clk = 14318;
200 		break;
201 	case 4:
202 		if (pins[39] != 0xff)
203 			mdev->model.g200.pclk_max = pins[39] * 4 * 1000;
204 		if (pins[92] & 0x01)
205 			mdev->model.g200.ref_clk = 14318;
206 		break;
207 	case 5:
208 		tmp = pins[4] ? 8000 : 6000;
209 		if (pins[123] != 0xff)
210 			mdev->model.g200.pclk_min = pins[123] * tmp;
211 		if (pins[38] != 0xff)
212 			mdev->model.g200.pclk_max = pins[38] * tmp;
213 		if (pins[110] & 0x01)
214 			mdev->model.g200.ref_clk = 14318;
215 		break;
216 	default:
217 		break;
218 	}
219 }
220 
221 static void mgag200_g200_init_refclk(struct mga_device *mdev)
222 {
223 	struct drm_device *dev = &mdev->base;
224 	struct pci_dev *pdev = to_pci_dev(dev->dev);
225 	unsigned char __iomem *rom;
226 	unsigned char *bios;
227 	size_t size;
228 
229 	mdev->model.g200.pclk_min = 50000;
230 	mdev->model.g200.pclk_max = 230000;
231 	mdev->model.g200.ref_clk = 27050;
232 
233 	rom = pci_map_rom(pdev, &size);
234 	if (!rom)
235 		return;
236 
237 	bios = vmalloc(size);
238 	if (!bios)
239 		goto out;
240 	memcpy_fromio(bios, rom, size);
241 
242 	if (size != 0 && bios[0] == 0x55 && bios[1] == 0xaa)
243 		mgag200_g200_interpret_bios(mdev, bios, size);
244 
245 	drm_dbg_kms(dev, "pclk_min: %ld pclk_max: %ld ref_clk: %ld\n",
246 		    mdev->model.g200.pclk_min, mdev->model.g200.pclk_max,
247 		    mdev->model.g200.ref_clk);
248 
249 	vfree(bios);
250 out:
251 	pci_unmap_rom(pdev, rom);
252 }
253 
254 static void mgag200_g200se_init_unique_id(struct mga_device *mdev)
255 {
256 	struct drm_device *dev = &mdev->base;
257 
258 	/* stash G200 SE model number for later use */
259 	mdev->model.g200se.unique_rev_id = RREG32(0x1e24);
260 
261 	drm_dbg(dev, "G200 SE unique revision id is 0x%x\n",
262 		mdev->model.g200se.unique_rev_id);
263 }
264 
265 static int mgag200_device_init(struct mga_device *mdev, unsigned long flags)
266 {
267 	struct drm_device *dev = &mdev->base;
268 	int ret;
269 
270 	mdev->flags = mgag200_flags_from_driver_data(flags);
271 	mdev->type = mgag200_type_from_driver_data(flags);
272 
273 	ret = mgag200_regs_init(mdev);
274 	if (ret)
275 		return ret;
276 
277 	if (mdev->type == G200_PCI || mdev->type == G200_AGP)
278 		mgag200_g200_init_refclk(mdev);
279 	else if (IS_G200_SE(mdev))
280 		mgag200_g200se_init_unique_id(mdev);
281 
282 	ret = mgag200_mm_init(mdev);
283 	if (ret)
284 		return ret;
285 
286 	ret = mgag200_modeset_init(mdev);
287 	if (ret) {
288 		drm_err(dev, "Fatal error during modeset init: %d\n", ret);
289 		return ret;
290 	}
291 
292 	return 0;
293 }
294 
295 static struct mga_device *
296 mgag200_device_create(struct pci_dev *pdev, unsigned long flags)
297 {
298 	struct drm_device *dev;
299 	struct mga_device *mdev;
300 	int ret;
301 
302 	mdev = devm_drm_dev_alloc(&pdev->dev, &mgag200_driver,
303 				  struct mga_device, base);
304 	if (IS_ERR(mdev))
305 		return mdev;
306 	dev = &mdev->base;
307 
308 	pci_set_drvdata(pdev, dev);
309 
310 	ret = mgag200_device_init(mdev, flags);
311 	if (ret)
312 		return ERR_PTR(ret);
313 
314 	return mdev;
315 }
316 
317 /*
318  * PCI driver
319  */
320 
321 static const struct pci_device_id mgag200_pciidlist[] = {
322 	{ PCI_VENDOR_ID_MATROX, 0x520, PCI_ANY_ID, PCI_ANY_ID, 0, 0, G200_PCI },
323 	{ PCI_VENDOR_ID_MATROX, 0x521, PCI_ANY_ID, PCI_ANY_ID, 0, 0, G200_AGP },
324 	{ PCI_VENDOR_ID_MATROX, 0x522, PCI_ANY_ID, PCI_ANY_ID, 0, 0,
325 		G200_SE_A | MGAG200_FLAG_HW_BUG_NO_STARTADD},
326 	{ PCI_VENDOR_ID_MATROX, 0x524, PCI_ANY_ID, PCI_ANY_ID, 0, 0, G200_SE_B },
327 	{ PCI_VENDOR_ID_MATROX, 0x530, PCI_ANY_ID, PCI_ANY_ID, 0, 0, G200_EV },
328 	{ PCI_VENDOR_ID_MATROX, 0x532, PCI_ANY_ID, PCI_ANY_ID, 0, 0, G200_WB },
329 	{ PCI_VENDOR_ID_MATROX, 0x533, PCI_ANY_ID, PCI_ANY_ID, 0, 0, G200_EH },
330 	{ PCI_VENDOR_ID_MATROX, 0x534, PCI_ANY_ID, PCI_ANY_ID, 0, 0, G200_ER },
331 	{ PCI_VENDOR_ID_MATROX, 0x536, PCI_ANY_ID, PCI_ANY_ID, 0, 0, G200_EW3 },
332 	{ PCI_VENDOR_ID_MATROX, 0x538, PCI_ANY_ID, PCI_ANY_ID, 0, 0, G200_EH3 },
333 	{0,}
334 };
335 
336 MODULE_DEVICE_TABLE(pci, mgag200_pciidlist);
337 
338 static int
339 mgag200_pci_probe(struct pci_dev *pdev, const struct pci_device_id *ent)
340 {
341 	struct mga_device *mdev;
342 	struct drm_device *dev;
343 	int ret;
344 
345 	ret = drm_aperture_remove_conflicting_pci_framebuffers(pdev, "mgag200drmfb");
346 	if (ret)
347 		return ret;
348 
349 	ret = pcim_enable_device(pdev);
350 	if (ret)
351 		return ret;
352 
353 	mdev = mgag200_device_create(pdev, ent->driver_data);
354 	if (IS_ERR(mdev))
355 		return PTR_ERR(mdev);
356 	dev = &mdev->base;
357 
358 	ret = drm_dev_register(dev, ent->driver_data);
359 	if (ret)
360 		return ret;
361 
362 	drm_fbdev_generic_setup(dev, 0);
363 
364 	return 0;
365 }
366 
367 static void mgag200_pci_remove(struct pci_dev *pdev)
368 {
369 	struct drm_device *dev = pci_get_drvdata(pdev);
370 
371 	drm_dev_unregister(dev);
372 }
373 
374 static struct pci_driver mgag200_pci_driver = {
375 	.name = DRIVER_NAME,
376 	.id_table = mgag200_pciidlist,
377 	.probe = mgag200_pci_probe,
378 	.remove = mgag200_pci_remove,
379 };
380 
381 static int __init mgag200_init(void)
382 {
383 	if (vgacon_text_force() && mgag200_modeset == -1)
384 		return -EINVAL;
385 
386 	if (mgag200_modeset == 0)
387 		return -EINVAL;
388 
389 	return pci_register_driver(&mgag200_pci_driver);
390 }
391 
392 static void __exit mgag200_exit(void)
393 {
394 	pci_unregister_driver(&mgag200_pci_driver);
395 }
396 
397 module_init(mgag200_init);
398 module_exit(mgag200_exit);
399 
400 MODULE_AUTHOR(DRIVER_AUTHOR);
401 MODULE_DESCRIPTION(DRIVER_DESC);
402 MODULE_LICENSE("GPL");
403