1 /*
2  *  linux/drivers/net/ethernet/ibm/ehea/ehea_qmr.c
3  *
4  *  eHEA ethernet device driver for IBM eServer System p
5  *
6  *  (C) Copyright IBM Corp. 2006
7  *
8  *  Authors:
9  *       Christoph Raisch <raisch@de.ibm.com>
10  *       Jan-Bernd Themann <themann@de.ibm.com>
11  *       Thomas Klein <tklein@de.ibm.com>
12  *
13  *
14  * This program is free software; you can redistribute it and/or modify
15  * it under the terms of the GNU General Public License as published by
16  * the Free Software Foundation; either version 2, or (at your option)
17  * any later version.
18  *
19  * This program is distributed in the hope that it will be useful,
20  * but WITHOUT ANY WARRANTY; without even the implied warranty of
21  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	 See the
22  * GNU General Public License for more details.
23  *
24  * You should have received a copy of the GNU General Public License
25  * along with this program; if not, write to the Free Software
26  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
27  */
28 
29 #define pr_fmt(fmt) KBUILD_MODNAME ": " fmt
30 
31 #include <linux/mm.h>
32 #include <linux/slab.h>
33 #include "ehea.h"
34 #include "ehea_phyp.h"
35 #include "ehea_qmr.h"
36 
37 static struct ehea_bmap *ehea_bmap;
38 
39 static void *hw_qpageit_get_inc(struct hw_queue *queue)
40 {
41 	void *retvalue = hw_qeit_get(queue);
42 
43 	queue->current_q_offset += queue->pagesize;
44 	if (queue->current_q_offset > queue->queue_length) {
45 		queue->current_q_offset -= queue->pagesize;
46 		retvalue = NULL;
47 	} else if (((u64) retvalue) & (EHEA_PAGESIZE-1)) {
48 		pr_err("not on pageboundary\n");
49 		retvalue = NULL;
50 	}
51 	return retvalue;
52 }
53 
54 static int hw_queue_ctor(struct hw_queue *queue, const u32 nr_of_pages,
55 			  const u32 pagesize, const u32 qe_size)
56 {
57 	int pages_per_kpage = PAGE_SIZE / pagesize;
58 	int i, k;
59 
60 	if ((pagesize > PAGE_SIZE) || (!pages_per_kpage)) {
61 		pr_err("pagesize conflict! kernel pagesize=%d, ehea pagesize=%d\n",
62 		       (int)PAGE_SIZE, (int)pagesize);
63 		return -EINVAL;
64 	}
65 
66 	queue->queue_length = nr_of_pages * pagesize;
67 	queue->queue_pages = kmalloc_array(nr_of_pages, sizeof(void *),
68 					   GFP_KERNEL);
69 	if (!queue->queue_pages)
70 		return -ENOMEM;
71 
72 	/*
73 	 * allocate pages for queue:
74 	 * outer loop allocates whole kernel pages (page aligned) and
75 	 * inner loop divides a kernel page into smaller hea queue pages
76 	 */
77 	i = 0;
78 	while (i < nr_of_pages) {
79 		u8 *kpage = (u8 *)get_zeroed_page(GFP_KERNEL);
80 		if (!kpage)
81 			goto out_nomem;
82 		for (k = 0; k < pages_per_kpage && i < nr_of_pages; k++) {
83 			(queue->queue_pages)[i] = (struct ehea_page *)kpage;
84 			kpage += pagesize;
85 			i++;
86 		}
87 	}
88 
89 	queue->current_q_offset = 0;
90 	queue->qe_size = qe_size;
91 	queue->pagesize = pagesize;
92 	queue->toggle_state = 1;
93 
94 	return 0;
95 out_nomem:
96 	for (i = 0; i < nr_of_pages; i += pages_per_kpage) {
97 		if (!(queue->queue_pages)[i])
98 			break;
99 		free_page((unsigned long)(queue->queue_pages)[i]);
100 	}
101 	return -ENOMEM;
102 }
103 
104 static void hw_queue_dtor(struct hw_queue *queue)
105 {
106 	int pages_per_kpage = PAGE_SIZE / queue->pagesize;
107 	int i, nr_pages;
108 
109 	if (!queue || !queue->queue_pages)
110 		return;
111 
112 	nr_pages = queue->queue_length / queue->pagesize;
113 
114 	for (i = 0; i < nr_pages; i += pages_per_kpage)
115 		free_page((unsigned long)(queue->queue_pages)[i]);
116 
117 	kfree(queue->queue_pages);
118 }
119 
120 struct ehea_cq *ehea_create_cq(struct ehea_adapter *adapter,
121 			       int nr_of_cqe, u64 eq_handle, u32 cq_token)
122 {
123 	struct ehea_cq *cq;
124 	struct h_epa epa;
125 	u64 *cq_handle_ref, hret, rpage;
126 	u32 act_nr_of_entries, act_pages, counter;
127 	int ret;
128 	void *vpage;
129 
130 	cq = kzalloc(sizeof(*cq), GFP_KERNEL);
131 	if (!cq)
132 		goto out_nomem;
133 
134 	cq->attr.max_nr_of_cqes = nr_of_cqe;
135 	cq->attr.cq_token = cq_token;
136 	cq->attr.eq_handle = eq_handle;
137 
138 	cq->adapter = adapter;
139 
140 	cq_handle_ref = &cq->fw_handle;
141 	act_nr_of_entries = 0;
142 	act_pages = 0;
143 
144 	hret = ehea_h_alloc_resource_cq(adapter->handle, &cq->attr,
145 					&cq->fw_handle, &cq->epas);
146 	if (hret != H_SUCCESS) {
147 		pr_err("alloc_resource_cq failed\n");
148 		goto out_freemem;
149 	}
150 
151 	ret = hw_queue_ctor(&cq->hw_queue, cq->attr.nr_pages,
152 			    EHEA_PAGESIZE, sizeof(struct ehea_cqe));
153 	if (ret)
154 		goto out_freeres;
155 
156 	for (counter = 0; counter < cq->attr.nr_pages; counter++) {
157 		vpage = hw_qpageit_get_inc(&cq->hw_queue);
158 		if (!vpage) {
159 			pr_err("hw_qpageit_get_inc failed\n");
160 			goto out_kill_hwq;
161 		}
162 
163 		rpage = __pa(vpage);
164 		hret = ehea_h_register_rpage(adapter->handle,
165 					     0, EHEA_CQ_REGISTER_ORIG,
166 					     cq->fw_handle, rpage, 1);
167 		if (hret < H_SUCCESS) {
168 			pr_err("register_rpage_cq failed ehea_cq=%p hret=%llx counter=%i act_pages=%i\n",
169 			       cq, hret, counter, cq->attr.nr_pages);
170 			goto out_kill_hwq;
171 		}
172 
173 		if (counter == (cq->attr.nr_pages - 1)) {
174 			vpage = hw_qpageit_get_inc(&cq->hw_queue);
175 
176 			if ((hret != H_SUCCESS) || (vpage)) {
177 				pr_err("registration of pages not complete hret=%llx\n",
178 				       hret);
179 				goto out_kill_hwq;
180 			}
181 		} else {
182 			if (hret != H_PAGE_REGISTERED) {
183 				pr_err("CQ: registration of page failed hret=%llx\n",
184 				       hret);
185 				goto out_kill_hwq;
186 			}
187 		}
188 	}
189 
190 	hw_qeit_reset(&cq->hw_queue);
191 	epa = cq->epas.kernel;
192 	ehea_reset_cq_ep(cq);
193 	ehea_reset_cq_n1(cq);
194 
195 	return cq;
196 
197 out_kill_hwq:
198 	hw_queue_dtor(&cq->hw_queue);
199 
200 out_freeres:
201 	ehea_h_free_resource(adapter->handle, cq->fw_handle, FORCE_FREE);
202 
203 out_freemem:
204 	kfree(cq);
205 
206 out_nomem:
207 	return NULL;
208 }
209 
210 static u64 ehea_destroy_cq_res(struct ehea_cq *cq, u64 force)
211 {
212 	u64 hret;
213 	u64 adapter_handle = cq->adapter->handle;
214 
215 	/* deregister all previous registered pages */
216 	hret = ehea_h_free_resource(adapter_handle, cq->fw_handle, force);
217 	if (hret != H_SUCCESS)
218 		return hret;
219 
220 	hw_queue_dtor(&cq->hw_queue);
221 	kfree(cq);
222 
223 	return hret;
224 }
225 
226 int ehea_destroy_cq(struct ehea_cq *cq)
227 {
228 	u64 hret, aer, aerr;
229 	if (!cq)
230 		return 0;
231 
232 	hcp_epas_dtor(&cq->epas);
233 	hret = ehea_destroy_cq_res(cq, NORMAL_FREE);
234 	if (hret == H_R_STATE) {
235 		ehea_error_data(cq->adapter, cq->fw_handle, &aer, &aerr);
236 		hret = ehea_destroy_cq_res(cq, FORCE_FREE);
237 	}
238 
239 	if (hret != H_SUCCESS) {
240 		pr_err("destroy CQ failed\n");
241 		return -EIO;
242 	}
243 
244 	return 0;
245 }
246 
247 struct ehea_eq *ehea_create_eq(struct ehea_adapter *adapter,
248 			       const enum ehea_eq_type type,
249 			       const u32 max_nr_of_eqes, const u8 eqe_gen)
250 {
251 	int ret, i;
252 	u64 hret, rpage;
253 	void *vpage;
254 	struct ehea_eq *eq;
255 
256 	eq = kzalloc(sizeof(*eq), GFP_KERNEL);
257 	if (!eq)
258 		return NULL;
259 
260 	eq->adapter = adapter;
261 	eq->attr.type = type;
262 	eq->attr.max_nr_of_eqes = max_nr_of_eqes;
263 	eq->attr.eqe_gen = eqe_gen;
264 	spin_lock_init(&eq->spinlock);
265 
266 	hret = ehea_h_alloc_resource_eq(adapter->handle,
267 					&eq->attr, &eq->fw_handle);
268 	if (hret != H_SUCCESS) {
269 		pr_err("alloc_resource_eq failed\n");
270 		goto out_freemem;
271 	}
272 
273 	ret = hw_queue_ctor(&eq->hw_queue, eq->attr.nr_pages,
274 			    EHEA_PAGESIZE, sizeof(struct ehea_eqe));
275 	if (ret) {
276 		pr_err("can't allocate eq pages\n");
277 		goto out_freeres;
278 	}
279 
280 	for (i = 0; i < eq->attr.nr_pages; i++) {
281 		vpage = hw_qpageit_get_inc(&eq->hw_queue);
282 		if (!vpage) {
283 			pr_err("hw_qpageit_get_inc failed\n");
284 			hret = H_RESOURCE;
285 			goto out_kill_hwq;
286 		}
287 
288 		rpage = __pa(vpage);
289 
290 		hret = ehea_h_register_rpage(adapter->handle, 0,
291 					     EHEA_EQ_REGISTER_ORIG,
292 					     eq->fw_handle, rpage, 1);
293 
294 		if (i == (eq->attr.nr_pages - 1)) {
295 			/* last page */
296 			vpage = hw_qpageit_get_inc(&eq->hw_queue);
297 			if ((hret != H_SUCCESS) || (vpage))
298 				goto out_kill_hwq;
299 
300 		} else {
301 			if (hret != H_PAGE_REGISTERED)
302 				goto out_kill_hwq;
303 
304 		}
305 	}
306 
307 	hw_qeit_reset(&eq->hw_queue);
308 	return eq;
309 
310 out_kill_hwq:
311 	hw_queue_dtor(&eq->hw_queue);
312 
313 out_freeres:
314 	ehea_h_free_resource(adapter->handle, eq->fw_handle, FORCE_FREE);
315 
316 out_freemem:
317 	kfree(eq);
318 	return NULL;
319 }
320 
321 struct ehea_eqe *ehea_poll_eq(struct ehea_eq *eq)
322 {
323 	struct ehea_eqe *eqe;
324 	unsigned long flags;
325 
326 	spin_lock_irqsave(&eq->spinlock, flags);
327 	eqe = hw_eqit_eq_get_inc_valid(&eq->hw_queue);
328 	spin_unlock_irqrestore(&eq->spinlock, flags);
329 
330 	return eqe;
331 }
332 
333 static u64 ehea_destroy_eq_res(struct ehea_eq *eq, u64 force)
334 {
335 	u64 hret;
336 	unsigned long flags;
337 
338 	spin_lock_irqsave(&eq->spinlock, flags);
339 
340 	hret = ehea_h_free_resource(eq->adapter->handle, eq->fw_handle, force);
341 	spin_unlock_irqrestore(&eq->spinlock, flags);
342 
343 	if (hret != H_SUCCESS)
344 		return hret;
345 
346 	hw_queue_dtor(&eq->hw_queue);
347 	kfree(eq);
348 
349 	return hret;
350 }
351 
352 int ehea_destroy_eq(struct ehea_eq *eq)
353 {
354 	u64 hret, aer, aerr;
355 	if (!eq)
356 		return 0;
357 
358 	hcp_epas_dtor(&eq->epas);
359 
360 	hret = ehea_destroy_eq_res(eq, NORMAL_FREE);
361 	if (hret == H_R_STATE) {
362 		ehea_error_data(eq->adapter, eq->fw_handle, &aer, &aerr);
363 		hret = ehea_destroy_eq_res(eq, FORCE_FREE);
364 	}
365 
366 	if (hret != H_SUCCESS) {
367 		pr_err("destroy EQ failed\n");
368 		return -EIO;
369 	}
370 
371 	return 0;
372 }
373 
374 /* allocates memory for a queue and registers pages in phyp */
375 static int ehea_qp_alloc_register(struct ehea_qp *qp, struct hw_queue *hw_queue,
376 			   int nr_pages, int wqe_size, int act_nr_sges,
377 			   struct ehea_adapter *adapter, int h_call_q_selector)
378 {
379 	u64 hret, rpage;
380 	int ret, cnt;
381 	void *vpage;
382 
383 	ret = hw_queue_ctor(hw_queue, nr_pages, EHEA_PAGESIZE, wqe_size);
384 	if (ret)
385 		return ret;
386 
387 	for (cnt = 0; cnt < nr_pages; cnt++) {
388 		vpage = hw_qpageit_get_inc(hw_queue);
389 		if (!vpage) {
390 			pr_err("hw_qpageit_get_inc failed\n");
391 			goto out_kill_hwq;
392 		}
393 		rpage = __pa(vpage);
394 		hret = ehea_h_register_rpage(adapter->handle,
395 					     0, h_call_q_selector,
396 					     qp->fw_handle, rpage, 1);
397 		if (hret < H_SUCCESS) {
398 			pr_err("register_rpage_qp failed\n");
399 			goto out_kill_hwq;
400 		}
401 	}
402 	hw_qeit_reset(hw_queue);
403 	return 0;
404 
405 out_kill_hwq:
406 	hw_queue_dtor(hw_queue);
407 	return -EIO;
408 }
409 
410 static inline u32 map_wqe_size(u8 wqe_enc_size)
411 {
412 	return 128 << wqe_enc_size;
413 }
414 
415 struct ehea_qp *ehea_create_qp(struct ehea_adapter *adapter,
416 			       u32 pd, struct ehea_qp_init_attr *init_attr)
417 {
418 	int ret;
419 	u64 hret;
420 	struct ehea_qp *qp;
421 	u32 wqe_size_in_bytes_sq, wqe_size_in_bytes_rq1;
422 	u32 wqe_size_in_bytes_rq2, wqe_size_in_bytes_rq3;
423 
424 
425 	qp = kzalloc(sizeof(*qp), GFP_KERNEL);
426 	if (!qp)
427 		return NULL;
428 
429 	qp->adapter = adapter;
430 
431 	hret = ehea_h_alloc_resource_qp(adapter->handle, init_attr, pd,
432 					&qp->fw_handle, &qp->epas);
433 	if (hret != H_SUCCESS) {
434 		pr_err("ehea_h_alloc_resource_qp failed\n");
435 		goto out_freemem;
436 	}
437 
438 	wqe_size_in_bytes_sq = map_wqe_size(init_attr->act_wqe_size_enc_sq);
439 	wqe_size_in_bytes_rq1 = map_wqe_size(init_attr->act_wqe_size_enc_rq1);
440 	wqe_size_in_bytes_rq2 = map_wqe_size(init_attr->act_wqe_size_enc_rq2);
441 	wqe_size_in_bytes_rq3 = map_wqe_size(init_attr->act_wqe_size_enc_rq3);
442 
443 	ret = ehea_qp_alloc_register(qp, &qp->hw_squeue, init_attr->nr_sq_pages,
444 				     wqe_size_in_bytes_sq,
445 				     init_attr->act_wqe_size_enc_sq, adapter,
446 				     0);
447 	if (ret) {
448 		pr_err("can't register for sq ret=%x\n", ret);
449 		goto out_freeres;
450 	}
451 
452 	ret = ehea_qp_alloc_register(qp, &qp->hw_rqueue1,
453 				     init_attr->nr_rq1_pages,
454 				     wqe_size_in_bytes_rq1,
455 				     init_attr->act_wqe_size_enc_rq1,
456 				     adapter, 1);
457 	if (ret) {
458 		pr_err("can't register for rq1 ret=%x\n", ret);
459 		goto out_kill_hwsq;
460 	}
461 
462 	if (init_attr->rq_count > 1) {
463 		ret = ehea_qp_alloc_register(qp, &qp->hw_rqueue2,
464 					     init_attr->nr_rq2_pages,
465 					     wqe_size_in_bytes_rq2,
466 					     init_attr->act_wqe_size_enc_rq2,
467 					     adapter, 2);
468 		if (ret) {
469 			pr_err("can't register for rq2 ret=%x\n", ret);
470 			goto out_kill_hwr1q;
471 		}
472 	}
473 
474 	if (init_attr->rq_count > 2) {
475 		ret = ehea_qp_alloc_register(qp, &qp->hw_rqueue3,
476 					     init_attr->nr_rq3_pages,
477 					     wqe_size_in_bytes_rq3,
478 					     init_attr->act_wqe_size_enc_rq3,
479 					     adapter, 3);
480 		if (ret) {
481 			pr_err("can't register for rq3 ret=%x\n", ret);
482 			goto out_kill_hwr2q;
483 		}
484 	}
485 
486 	qp->init_attr = *init_attr;
487 
488 	return qp;
489 
490 out_kill_hwr2q:
491 	hw_queue_dtor(&qp->hw_rqueue2);
492 
493 out_kill_hwr1q:
494 	hw_queue_dtor(&qp->hw_rqueue1);
495 
496 out_kill_hwsq:
497 	hw_queue_dtor(&qp->hw_squeue);
498 
499 out_freeres:
500 	ehea_h_disable_and_get_hea(adapter->handle, qp->fw_handle);
501 	ehea_h_free_resource(adapter->handle, qp->fw_handle, FORCE_FREE);
502 
503 out_freemem:
504 	kfree(qp);
505 	return NULL;
506 }
507 
508 static u64 ehea_destroy_qp_res(struct ehea_qp *qp, u64 force)
509 {
510 	u64 hret;
511 	struct ehea_qp_init_attr *qp_attr = &qp->init_attr;
512 
513 
514 	ehea_h_disable_and_get_hea(qp->adapter->handle, qp->fw_handle);
515 	hret = ehea_h_free_resource(qp->adapter->handle, qp->fw_handle, force);
516 	if (hret != H_SUCCESS)
517 		return hret;
518 
519 	hw_queue_dtor(&qp->hw_squeue);
520 	hw_queue_dtor(&qp->hw_rqueue1);
521 
522 	if (qp_attr->rq_count > 1)
523 		hw_queue_dtor(&qp->hw_rqueue2);
524 	if (qp_attr->rq_count > 2)
525 		hw_queue_dtor(&qp->hw_rqueue3);
526 	kfree(qp);
527 
528 	return hret;
529 }
530 
531 int ehea_destroy_qp(struct ehea_qp *qp)
532 {
533 	u64 hret, aer, aerr;
534 	if (!qp)
535 		return 0;
536 
537 	hcp_epas_dtor(&qp->epas);
538 
539 	hret = ehea_destroy_qp_res(qp, NORMAL_FREE);
540 	if (hret == H_R_STATE) {
541 		ehea_error_data(qp->adapter, qp->fw_handle, &aer, &aerr);
542 		hret = ehea_destroy_qp_res(qp, FORCE_FREE);
543 	}
544 
545 	if (hret != H_SUCCESS) {
546 		pr_err("destroy QP failed\n");
547 		return -EIO;
548 	}
549 
550 	return 0;
551 }
552 
553 static inline int ehea_calc_index(unsigned long i, unsigned long s)
554 {
555 	return (i >> s) & EHEA_INDEX_MASK;
556 }
557 
558 static inline int ehea_init_top_bmap(struct ehea_top_bmap *ehea_top_bmap,
559 				     int dir)
560 {
561 	if (!ehea_top_bmap->dir[dir]) {
562 		ehea_top_bmap->dir[dir] =
563 			kzalloc(sizeof(struct ehea_dir_bmap), GFP_KERNEL);
564 		if (!ehea_top_bmap->dir[dir])
565 			return -ENOMEM;
566 	}
567 	return 0;
568 }
569 
570 static inline int ehea_init_bmap(struct ehea_bmap *ehea_bmap, int top, int dir)
571 {
572 	if (!ehea_bmap->top[top]) {
573 		ehea_bmap->top[top] =
574 			kzalloc(sizeof(struct ehea_top_bmap), GFP_KERNEL);
575 		if (!ehea_bmap->top[top])
576 			return -ENOMEM;
577 	}
578 	return ehea_init_top_bmap(ehea_bmap->top[top], dir);
579 }
580 
581 static DEFINE_MUTEX(ehea_busmap_mutex);
582 static unsigned long ehea_mr_len;
583 
584 #define EHEA_BUSMAP_ADD_SECT 1
585 #define EHEA_BUSMAP_REM_SECT 0
586 
587 static void ehea_rebuild_busmap(void)
588 {
589 	u64 vaddr = EHEA_BUSMAP_START;
590 	int top, dir, idx;
591 
592 	for (top = 0; top < EHEA_MAP_ENTRIES; top++) {
593 		struct ehea_top_bmap *ehea_top;
594 		int valid_dir_entries = 0;
595 
596 		if (!ehea_bmap->top[top])
597 			continue;
598 		ehea_top = ehea_bmap->top[top];
599 		for (dir = 0; dir < EHEA_MAP_ENTRIES; dir++) {
600 			struct ehea_dir_bmap *ehea_dir;
601 			int valid_entries = 0;
602 
603 			if (!ehea_top->dir[dir])
604 				continue;
605 			valid_dir_entries++;
606 			ehea_dir = ehea_top->dir[dir];
607 			for (idx = 0; idx < EHEA_MAP_ENTRIES; idx++) {
608 				if (!ehea_dir->ent[idx])
609 					continue;
610 				valid_entries++;
611 				ehea_dir->ent[idx] = vaddr;
612 				vaddr += EHEA_SECTSIZE;
613 			}
614 			if (!valid_entries) {
615 				ehea_top->dir[dir] = NULL;
616 				kfree(ehea_dir);
617 			}
618 		}
619 		if (!valid_dir_entries) {
620 			ehea_bmap->top[top] = NULL;
621 			kfree(ehea_top);
622 		}
623 	}
624 }
625 
626 static int ehea_update_busmap(unsigned long pfn, unsigned long nr_pages, int add)
627 {
628 	unsigned long i, start_section, end_section;
629 
630 	if (!nr_pages)
631 		return 0;
632 
633 	if (!ehea_bmap) {
634 		ehea_bmap = kzalloc(sizeof(struct ehea_bmap), GFP_KERNEL);
635 		if (!ehea_bmap)
636 			return -ENOMEM;
637 	}
638 
639 	start_section = (pfn * PAGE_SIZE) / EHEA_SECTSIZE;
640 	end_section = start_section + ((nr_pages * PAGE_SIZE) / EHEA_SECTSIZE);
641 	/* Mark entries as valid or invalid only; address is assigned later */
642 	for (i = start_section; i < end_section; i++) {
643 		u64 flag;
644 		int top = ehea_calc_index(i, EHEA_TOP_INDEX_SHIFT);
645 		int dir = ehea_calc_index(i, EHEA_DIR_INDEX_SHIFT);
646 		int idx = i & EHEA_INDEX_MASK;
647 
648 		if (add) {
649 			int ret = ehea_init_bmap(ehea_bmap, top, dir);
650 			if (ret)
651 				return ret;
652 			flag = 1; /* valid */
653 			ehea_mr_len += EHEA_SECTSIZE;
654 		} else {
655 			if (!ehea_bmap->top[top])
656 				continue;
657 			if (!ehea_bmap->top[top]->dir[dir])
658 				continue;
659 			flag = 0; /* invalid */
660 			ehea_mr_len -= EHEA_SECTSIZE;
661 		}
662 
663 		ehea_bmap->top[top]->dir[dir]->ent[idx] = flag;
664 	}
665 	ehea_rebuild_busmap(); /* Assign contiguous addresses for mr */
666 	return 0;
667 }
668 
669 int ehea_add_sect_bmap(unsigned long pfn, unsigned long nr_pages)
670 {
671 	int ret;
672 
673 	mutex_lock(&ehea_busmap_mutex);
674 	ret = ehea_update_busmap(pfn, nr_pages, EHEA_BUSMAP_ADD_SECT);
675 	mutex_unlock(&ehea_busmap_mutex);
676 	return ret;
677 }
678 
679 int ehea_rem_sect_bmap(unsigned long pfn, unsigned long nr_pages)
680 {
681 	int ret;
682 
683 	mutex_lock(&ehea_busmap_mutex);
684 	ret = ehea_update_busmap(pfn, nr_pages, EHEA_BUSMAP_REM_SECT);
685 	mutex_unlock(&ehea_busmap_mutex);
686 	return ret;
687 }
688 
689 static int ehea_is_hugepage(unsigned long pfn)
690 {
691 	int page_order;
692 
693 	if (pfn & EHEA_HUGEPAGE_PFN_MASK)
694 		return 0;
695 
696 	page_order = compound_order(pfn_to_page(pfn));
697 	if (page_order + PAGE_SHIFT != EHEA_HUGEPAGESHIFT)
698 		return 0;
699 
700 	return 1;
701 }
702 
703 static int ehea_create_busmap_callback(unsigned long initial_pfn,
704 				       unsigned long total_nr_pages, void *arg)
705 {
706 	int ret;
707 	unsigned long pfn, start_pfn, end_pfn, nr_pages;
708 
709 	if ((total_nr_pages * PAGE_SIZE) < EHEA_HUGEPAGE_SIZE)
710 		return ehea_update_busmap(initial_pfn, total_nr_pages,
711 					  EHEA_BUSMAP_ADD_SECT);
712 
713 	/* Given chunk is >= 16GB -> check for hugepages */
714 	start_pfn = initial_pfn;
715 	end_pfn = initial_pfn + total_nr_pages;
716 	pfn = start_pfn;
717 
718 	while (pfn < end_pfn) {
719 		if (ehea_is_hugepage(pfn)) {
720 			/* Add mem found in front of the hugepage */
721 			nr_pages = pfn - start_pfn;
722 			ret = ehea_update_busmap(start_pfn, nr_pages,
723 						 EHEA_BUSMAP_ADD_SECT);
724 			if (ret)
725 				return ret;
726 
727 			/* Skip the hugepage */
728 			pfn += (EHEA_HUGEPAGE_SIZE / PAGE_SIZE);
729 			start_pfn = pfn;
730 		} else
731 			pfn += (EHEA_SECTSIZE / PAGE_SIZE);
732 	}
733 
734 	/* Add mem found behind the hugepage(s)  */
735 	nr_pages = pfn - start_pfn;
736 	return ehea_update_busmap(start_pfn, nr_pages, EHEA_BUSMAP_ADD_SECT);
737 }
738 
739 int ehea_create_busmap(void)
740 {
741 	int ret;
742 
743 	mutex_lock(&ehea_busmap_mutex);
744 	ehea_mr_len = 0;
745 	ret = walk_system_ram_range(0, 1ULL << MAX_PHYSMEM_BITS, NULL,
746 				   ehea_create_busmap_callback);
747 	mutex_unlock(&ehea_busmap_mutex);
748 	return ret;
749 }
750 
751 void ehea_destroy_busmap(void)
752 {
753 	int top, dir;
754 	mutex_lock(&ehea_busmap_mutex);
755 	if (!ehea_bmap)
756 		goto out_destroy;
757 
758 	for (top = 0; top < EHEA_MAP_ENTRIES; top++) {
759 		if (!ehea_bmap->top[top])
760 			continue;
761 
762 		for (dir = 0; dir < EHEA_MAP_ENTRIES; dir++) {
763 			if (!ehea_bmap->top[top]->dir[dir])
764 				continue;
765 
766 			kfree(ehea_bmap->top[top]->dir[dir]);
767 		}
768 
769 		kfree(ehea_bmap->top[top]);
770 	}
771 
772 	kfree(ehea_bmap);
773 	ehea_bmap = NULL;
774 out_destroy:
775 	mutex_unlock(&ehea_busmap_mutex);
776 }
777 
778 u64 ehea_map_vaddr(void *caddr)
779 {
780 	int top, dir, idx;
781 	unsigned long index, offset;
782 
783 	if (!ehea_bmap)
784 		return EHEA_INVAL_ADDR;
785 
786 	index = __pa(caddr) >> SECTION_SIZE_BITS;
787 	top = (index >> EHEA_TOP_INDEX_SHIFT) & EHEA_INDEX_MASK;
788 	if (!ehea_bmap->top[top])
789 		return EHEA_INVAL_ADDR;
790 
791 	dir = (index >> EHEA_DIR_INDEX_SHIFT) & EHEA_INDEX_MASK;
792 	if (!ehea_bmap->top[top]->dir[dir])
793 		return EHEA_INVAL_ADDR;
794 
795 	idx = index & EHEA_INDEX_MASK;
796 	if (!ehea_bmap->top[top]->dir[dir]->ent[idx])
797 		return EHEA_INVAL_ADDR;
798 
799 	offset = (unsigned long)caddr & (EHEA_SECTSIZE - 1);
800 	return ehea_bmap->top[top]->dir[dir]->ent[idx] | offset;
801 }
802 
803 static inline void *ehea_calc_sectbase(int top, int dir, int idx)
804 {
805 	unsigned long ret = idx;
806 	ret |= dir << EHEA_DIR_INDEX_SHIFT;
807 	ret |= top << EHEA_TOP_INDEX_SHIFT;
808 	return __va(ret << SECTION_SIZE_BITS);
809 }
810 
811 static u64 ehea_reg_mr_section(int top, int dir, int idx, u64 *pt,
812 			       struct ehea_adapter *adapter,
813 			       struct ehea_mr *mr)
814 {
815 	void *pg;
816 	u64 j, m, hret;
817 	unsigned long k = 0;
818 	u64 pt_abs = __pa(pt);
819 
820 	void *sectbase = ehea_calc_sectbase(top, dir, idx);
821 
822 	for (j = 0; j < (EHEA_PAGES_PER_SECTION / EHEA_MAX_RPAGE); j++) {
823 
824 		for (m = 0; m < EHEA_MAX_RPAGE; m++) {
825 			pg = sectbase + ((k++) * EHEA_PAGESIZE);
826 			pt[m] = __pa(pg);
827 		}
828 		hret = ehea_h_register_rpage_mr(adapter->handle, mr->handle, 0,
829 						0, pt_abs, EHEA_MAX_RPAGE);
830 
831 		if ((hret != H_SUCCESS) &&
832 		    (hret != H_PAGE_REGISTERED)) {
833 			ehea_h_free_resource(adapter->handle, mr->handle,
834 					     FORCE_FREE);
835 			pr_err("register_rpage_mr failed\n");
836 			return hret;
837 		}
838 	}
839 	return hret;
840 }
841 
842 static u64 ehea_reg_mr_sections(int top, int dir, u64 *pt,
843 				struct ehea_adapter *adapter,
844 				struct ehea_mr *mr)
845 {
846 	u64 hret = H_SUCCESS;
847 	int idx;
848 
849 	for (idx = 0; idx < EHEA_MAP_ENTRIES; idx++) {
850 		if (!ehea_bmap->top[top]->dir[dir]->ent[idx])
851 			continue;
852 
853 		hret = ehea_reg_mr_section(top, dir, idx, pt, adapter, mr);
854 		if ((hret != H_SUCCESS) && (hret != H_PAGE_REGISTERED))
855 			return hret;
856 	}
857 	return hret;
858 }
859 
860 static u64 ehea_reg_mr_dir_sections(int top, u64 *pt,
861 				    struct ehea_adapter *adapter,
862 				    struct ehea_mr *mr)
863 {
864 	u64 hret = H_SUCCESS;
865 	int dir;
866 
867 	for (dir = 0; dir < EHEA_MAP_ENTRIES; dir++) {
868 		if (!ehea_bmap->top[top]->dir[dir])
869 			continue;
870 
871 		hret = ehea_reg_mr_sections(top, dir, pt, adapter, mr);
872 		if ((hret != H_SUCCESS) && (hret != H_PAGE_REGISTERED))
873 			return hret;
874 	}
875 	return hret;
876 }
877 
878 int ehea_reg_kernel_mr(struct ehea_adapter *adapter, struct ehea_mr *mr)
879 {
880 	int ret;
881 	u64 *pt;
882 	u64 hret;
883 	u32 acc_ctrl = EHEA_MR_ACC_CTRL;
884 
885 	unsigned long top;
886 
887 	pt = (void *)get_zeroed_page(GFP_KERNEL);
888 	if (!pt) {
889 		pr_err("no mem\n");
890 		ret = -ENOMEM;
891 		goto out;
892 	}
893 
894 	hret = ehea_h_alloc_resource_mr(adapter->handle, EHEA_BUSMAP_START,
895 					ehea_mr_len, acc_ctrl, adapter->pd,
896 					&mr->handle, &mr->lkey);
897 
898 	if (hret != H_SUCCESS) {
899 		pr_err("alloc_resource_mr failed\n");
900 		ret = -EIO;
901 		goto out;
902 	}
903 
904 	if (!ehea_bmap) {
905 		ehea_h_free_resource(adapter->handle, mr->handle, FORCE_FREE);
906 		pr_err("no busmap available\n");
907 		ret = -EIO;
908 		goto out;
909 	}
910 
911 	for (top = 0; top < EHEA_MAP_ENTRIES; top++) {
912 		if (!ehea_bmap->top[top])
913 			continue;
914 
915 		hret = ehea_reg_mr_dir_sections(top, pt, adapter, mr);
916 		if((hret != H_PAGE_REGISTERED) && (hret != H_SUCCESS))
917 			break;
918 	}
919 
920 	if (hret != H_SUCCESS) {
921 		ehea_h_free_resource(adapter->handle, mr->handle, FORCE_FREE);
922 		pr_err("registering mr failed\n");
923 		ret = -EIO;
924 		goto out;
925 	}
926 
927 	mr->vaddr = EHEA_BUSMAP_START;
928 	mr->adapter = adapter;
929 	ret = 0;
930 out:
931 	free_page((unsigned long)pt);
932 	return ret;
933 }
934 
935 int ehea_rem_mr(struct ehea_mr *mr)
936 {
937 	u64 hret;
938 
939 	if (!mr || !mr->adapter)
940 		return -EINVAL;
941 
942 	hret = ehea_h_free_resource(mr->adapter->handle, mr->handle,
943 				    FORCE_FREE);
944 	if (hret != H_SUCCESS) {
945 		pr_err("destroy MR failed\n");
946 		return -EIO;
947 	}
948 
949 	return 0;
950 }
951 
952 int ehea_gen_smr(struct ehea_adapter *adapter, struct ehea_mr *old_mr,
953 		 struct ehea_mr *shared_mr)
954 {
955 	u64 hret;
956 
957 	hret = ehea_h_register_smr(adapter->handle, old_mr->handle,
958 				   old_mr->vaddr, EHEA_MR_ACC_CTRL,
959 				   adapter->pd, shared_mr);
960 	if (hret != H_SUCCESS)
961 		return -EIO;
962 
963 	shared_mr->adapter = adapter;
964 
965 	return 0;
966 }
967 
968 static void print_error_data(u64 *data)
969 {
970 	int length;
971 	u64 type = EHEA_BMASK_GET(ERROR_DATA_TYPE, data[2]);
972 	u64 resource = data[1];
973 
974 	length = EHEA_BMASK_GET(ERROR_DATA_LENGTH, data[0]);
975 
976 	if (length > EHEA_PAGESIZE)
977 		length = EHEA_PAGESIZE;
978 
979 	if (type == EHEA_AER_RESTYPE_QP)
980 		pr_err("QP (resource=%llX) state: AER=0x%llX, AERR=0x%llX, port=%llX\n",
981 		       resource, data[6], data[12], data[22]);
982 	else if (type == EHEA_AER_RESTYPE_CQ)
983 		pr_err("CQ (resource=%llX) state: AER=0x%llX\n",
984 		       resource, data[6]);
985 	else if (type == EHEA_AER_RESTYPE_EQ)
986 		pr_err("EQ (resource=%llX) state: AER=0x%llX\n",
987 		       resource, data[6]);
988 
989 	ehea_dump(data, length, "error data");
990 }
991 
992 u64 ehea_error_data(struct ehea_adapter *adapter, u64 res_handle,
993 		    u64 *aer, u64 *aerr)
994 {
995 	unsigned long ret;
996 	u64 *rblock;
997 	u64 type = 0;
998 
999 	rblock = (void *)get_zeroed_page(GFP_KERNEL);
1000 	if (!rblock) {
1001 		pr_err("Cannot allocate rblock memory\n");
1002 		goto out;
1003 	}
1004 
1005 	ret = ehea_h_error_data(adapter->handle, res_handle, rblock);
1006 
1007 	if (ret == H_SUCCESS) {
1008 		type = EHEA_BMASK_GET(ERROR_DATA_TYPE, rblock[2]);
1009 		*aer = rblock[6];
1010 		*aerr = rblock[12];
1011 		print_error_data(rblock);
1012 	} else if (ret == H_R_STATE) {
1013 		pr_err("No error data available: %llX\n", res_handle);
1014 	} else
1015 		pr_err("Error data could not be fetched: %llX\n", res_handle);
1016 
1017 	free_page((unsigned long)rblock);
1018 out:
1019 	return type;
1020 }
1021