1/*
2 * Sclp "store data in absolut storage"
3 *
4 * Copyright IBM Corp. 2003,2007
5 * Author(s): Michael Holzheu
6 */
7
8#define KMSG_COMPONENT "sclp_sdias"
9#define pr_fmt(fmt) KMSG_COMPONENT ": " fmt
10
11#include <linux/sched.h>
12#include <asm/sclp.h>
13#include <asm/debug.h>
14#include <asm/ipl.h>
15
16#include "sclp.h"
17#include "sclp_rw.h"
18
19#define TRACE(x...) debug_sprintf_event(sdias_dbf, 1, x)
20
21#define SDIAS_RETRIES 300
22#define SDIAS_SLEEP_TICKS 50
23
24#define EQ_STORE_DATA	0x0
25#define EQ_SIZE		0x1
26#define DI_FCP_DUMP	0x0
27#define ASA_SIZE_32	0x0
28#define ASA_SIZE_64	0x1
29#define EVSTATE_ALL_STORED	0x0
30#define EVSTATE_NO_DATA		0x3
31#define EVSTATE_PART_STORED	0x10
32
33static struct debug_info *sdias_dbf;
34
35static struct sclp_register sclp_sdias_register = {
36	.send_mask = EVTYP_SDIAS_MASK,
37};
38
39struct sdias_evbuf {
40	struct	evbuf_header hdr;
41	u8	event_qual;
42	u8	data_id;
43	u64	reserved2;
44	u32	event_id;
45	u16	reserved3;
46	u8	asa_size;
47	u8	event_status;
48	u32	reserved4;
49	u32	blk_cnt;
50	u64	asa;
51	u32	reserved5;
52	u32	fbn;
53	u32	reserved6;
54	u32	lbn;
55	u16	reserved7;
56	u16	dbs;
57} __attribute__((packed));
58
59struct sdias_sccb {
60	struct sccb_header  hdr;
61	struct sdias_evbuf  evbuf;
62} __attribute__((packed));
63
64static struct sdias_sccb sccb __attribute__((aligned(4096)));
65
66static int sclp_req_done;
67static wait_queue_head_t sdias_wq;
68static DEFINE_MUTEX(sdias_mutex);
69
70static void sdias_callback(struct sclp_req *request, void *data)
71{
72	sclp_req_done = 1;
73	wake_up(&sdias_wq); /* Inform caller, that request is complete */
74	TRACE("callback done\n");
75}
76
77static int sdias_sclp_send(struct sclp_req *req)
78{
79	int retries;
80	int rc;
81
82	for (retries = SDIAS_RETRIES; retries; retries--) {
83		sclp_req_done = 0;
84		TRACE("add request\n");
85		rc = sclp_add_request(req);
86		if (rc) {
87			/* not initiated, wait some time and retry */
88			set_current_state(TASK_INTERRUPTIBLE);
89			TRACE("add request failed: rc = %i\n",rc);
90			schedule_timeout(SDIAS_SLEEP_TICKS);
91			continue;
92		}
93		/* initiated, wait for completion of service call */
94		wait_event(sdias_wq, (sclp_req_done == 1));
95		if (req->status == SCLP_REQ_FAILED) {
96			TRACE("sclp request failed\n");
97			rc = -EIO;
98			continue;
99		}
100		TRACE("request done\n");
101		break;
102	}
103	return rc;
104}
105
106/*
107 * Get number of blocks (4K) available in the HSA
108 */
109int sclp_sdias_blk_count(void)
110{
111	struct sclp_req request;
112	int rc;
113
114	mutex_lock(&sdias_mutex);
115
116	memset(&sccb, 0, sizeof(sccb));
117	memset(&request, 0, sizeof(request));
118
119	sccb.hdr.length = sizeof(sccb);
120	sccb.evbuf.hdr.length = sizeof(struct sdias_evbuf);
121	sccb.evbuf.hdr.type = EVTYP_SDIAS;
122	sccb.evbuf.event_qual = EQ_SIZE;
123	sccb.evbuf.data_id = DI_FCP_DUMP;
124	sccb.evbuf.event_id = 4712;
125	sccb.evbuf.dbs = 1;
126
127	request.sccb = &sccb;
128	request.command = SCLP_CMDW_WRITE_EVENT_DATA;
129	request.status = SCLP_REQ_FILLED;
130	request.callback = sdias_callback;
131
132	rc = sdias_sclp_send(&request);
133	if (rc) {
134		pr_err("sclp_send failed for get_nr_blocks\n");
135		goto out;
136	}
137	if (sccb.hdr.response_code != 0x0020) {
138		TRACE("send failed: %x\n", sccb.hdr.response_code);
139		rc = -EIO;
140		goto out;
141	}
142
143	switch (sccb.evbuf.event_status) {
144		case 0:
145			rc = sccb.evbuf.blk_cnt;
146			break;
147		default:
148			pr_err("SCLP error: %x\n",
149			       sccb.evbuf.event_status);
150			rc = -EIO;
151			goto out;
152	}
153	TRACE("%i blocks\n", rc);
154out:
155	mutex_unlock(&sdias_mutex);
156	return rc;
157}
158
159/*
160 * Copy from HSA to absolute storage (not reentrant):
161 *
162 * @dest     : Address of buffer where data should be copied
163 * @start_blk: Start Block (beginning with 1)
164 * @nr_blks  : Number of 4K blocks to copy
165 *
166 * Return Value: 0 : Requested 'number' of blocks of data copied
167 *		 <0: ERROR - negative event status
168 */
169int sclp_sdias_copy(void *dest, int start_blk, int nr_blks)
170{
171	struct sclp_req request;
172	int rc;
173
174	mutex_lock(&sdias_mutex);
175
176	memset(&sccb, 0, sizeof(sccb));
177	memset(&request, 0, sizeof(request));
178
179	sccb.hdr.length = sizeof(sccb);
180	sccb.evbuf.hdr.length = sizeof(struct sdias_evbuf);
181	sccb.evbuf.hdr.type = EVTYP_SDIAS;
182	sccb.evbuf.hdr.flags = 0;
183	sccb.evbuf.event_qual = EQ_STORE_DATA;
184	sccb.evbuf.data_id = DI_FCP_DUMP;
185	sccb.evbuf.event_id = 4712;
186#ifdef __s390x__
187	sccb.evbuf.asa_size = ASA_SIZE_64;
188#else
189	sccb.evbuf.asa_size = ASA_SIZE_32;
190#endif
191	sccb.evbuf.event_status = 0;
192	sccb.evbuf.blk_cnt = nr_blks;
193	sccb.evbuf.asa = (unsigned long)dest;
194	sccb.evbuf.fbn = start_blk;
195	sccb.evbuf.lbn = 0;
196	sccb.evbuf.dbs = 1;
197
198	request.sccb	 = &sccb;
199	request.command  = SCLP_CMDW_WRITE_EVENT_DATA;
200	request.status	 = SCLP_REQ_FILLED;
201	request.callback = sdias_callback;
202
203	rc = sdias_sclp_send(&request);
204	if (rc) {
205		pr_err("sclp_send failed: %x\n", rc);
206		goto out;
207	}
208	if (sccb.hdr.response_code != 0x0020) {
209		TRACE("copy failed: %x\n", sccb.hdr.response_code);
210		rc = -EIO;
211		goto out;
212	}
213
214	switch (sccb.evbuf.event_status) {
215		case EVSTATE_ALL_STORED:
216			TRACE("all stored\n");
217		case EVSTATE_PART_STORED:
218			TRACE("part stored: %i\n", sccb.evbuf.blk_cnt);
219			break;
220		case EVSTATE_NO_DATA:
221			TRACE("no data\n");
222		default:
223			pr_err("Error from SCLP while copying hsa. "
224			       "Event status = %x\n",
225			       sccb.evbuf.event_status);
226			rc = -EIO;
227	}
228out:
229	mutex_unlock(&sdias_mutex);
230	return rc;
231}
232
233int __init sclp_sdias_init(void)
234{
235	int rc;
236
237	if (ipl_info.type != IPL_TYPE_FCP_DUMP)
238		return 0;
239	sdias_dbf = debug_register("dump_sdias", 4, 1, 4 * sizeof(long));
240	debug_register_view(sdias_dbf, &debug_sprintf_view);
241	debug_set_level(sdias_dbf, 6);
242	rc = sclp_register(&sclp_sdias_register);
243	if (rc)
244		return rc;
245	init_waitqueue_head(&sdias_wq);
246	TRACE("init done\n");
247	return 0;
248}
249
250void __exit sclp_sdias_exit(void)
251{
252	debug_unregister(sdias_dbf);
253	sclp_unregister(&sclp_sdias_register);
254}
255