chsc.c 27.0 KB
Newer Older
L
Linus Torvalds 已提交
1 2 3 4 5 6 7
/*
 *  drivers/s390/cio/chsc.c
 *   S/390 common I/O routines -- channel subsystem call
 *
 *    Copyright (C) 1999-2002 IBM Deutschland Entwicklung GmbH,
 *			      IBM Corporation
 *    Author(s): Ingo Adlung (adlung@de.ibm.com)
8
 *		 Cornelia Huck (cornelia.huck@de.ibm.com)
L
Linus Torvalds 已提交
9 10 11 12 13 14 15 16 17
 *		 Arnd Bergmann (arndb@de.ibm.com)
 */

#include <linux/module.h>
#include <linux/slab.h>
#include <linux/init.h>
#include <linux/device.h>

#include <asm/cio.h>
18
#include <asm/chpid.h>
L
Linus Torvalds 已提交
19 20 21 22 23

#include "css.h"
#include "cio.h"
#include "cio_debug.h"
#include "ioasm.h"
24
#include "chp.h"
L
Linus Torvalds 已提交
25 26 27 28 29 30 31 32 33 34 35 36 37
#include "chsc.h"

static void *sei_page;

/* FIXME: this is _always_ called for every subchannel. shouldn't we
 *	  process more than one at a time? */
static int
chsc_get_sch_desc_irq(struct subchannel *sch, void *page)
{
	int ccode, j;

	struct {
		struct chsc_header request;
38 39 40
		u16 reserved1a:10;
		u16 ssid:2;
		u16 reserved1b:4;
L
Linus Torvalds 已提交
41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
		u16 f_sch;	  /* first subchannel */
		u16 reserved2;
		u16 l_sch;	  /* last subchannel */
		u32 reserved3;
		struct chsc_header response;
		u32 reserved4;
		u8 sch_valid : 1;
		u8 dev_valid : 1;
		u8 st	     : 3; /* subchannel type */
		u8 zeroes    : 3;
		u8  unit_addr;	  /* unit address */
		u16 devno;	  /* device number */
		u8 path_mask;
		u8 fla_valid_mask;
		u16 sch;	  /* subchannel */
		u8 chpid[8];	  /* chpids 0-7 */
		u16 fla[8];	  /* full link addresses 0-7 */
58
	} __attribute__ ((packed)) *ssd_area;
L
Linus Torvalds 已提交
59 60 61

	ssd_area = page;

62 63
	ssd_area->request.length = 0x0010;
	ssd_area->request.code = 0x0004;
L
Linus Torvalds 已提交
64

65
	ssd_area->ssid = sch->schid.ssid;
66 67
	ssd_area->f_sch = sch->schid.sch_no;
	ssd_area->l_sch = sch->schid.sch_no;
L
Linus Torvalds 已提交
68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108

	ccode = chsc(ssd_area);
	if (ccode > 0) {
		pr_debug("chsc returned with ccode = %d\n", ccode);
		return (ccode == 3) ? -ENODEV : -EBUSY;
	}

	switch (ssd_area->response.code) {
	case 0x0001: /* everything ok */
		break;
	case 0x0002:
		CIO_CRW_EVENT(2, "Invalid command!\n");
		return -EINVAL;
	case 0x0003:
		CIO_CRW_EVENT(2, "Error in chsc request block!\n");
		return -EINVAL;
	case 0x0004:
		CIO_CRW_EVENT(2, "Model does not provide ssd\n");
		return -EOPNOTSUPP;
	default:
		CIO_CRW_EVENT(2, "Unknown CHSC response %d\n",
			      ssd_area->response.code);
		return -EIO;
	}

	/*
	 * ssd_area->st stores the type of the detected
	 * subchannel, with the following definitions:
	 *
	 * 0: I/O subchannel:	  All fields have meaning
	 * 1: CHSC subchannel:	  Only sch_val, st and sch
	 *			  have meaning
	 * 2: Message subchannel: All fields except unit_addr
	 *			  have meaning
	 * 3: ADM subchannel:	  Only sch_val, st and sch
	 *			  have meaning
	 *
	 * Other types are currently undefined.
	 */
	if (ssd_area->st > 3) { /* uhm, that looks strange... */
		CIO_CRW_EVENT(0, "Strange subchannel type %d"
109 110
			      " for sch 0.%x.%04x\n", ssd_area->st,
			      sch->schid.ssid, sch->schid.sch_no);
L
Linus Torvalds 已提交
111 112 113 114 115 116 117 118
		/*
		 * There may have been a new subchannel type defined in the
		 * time since this code was written; since we don't know which
		 * fields have meaning and what to do with it we just jump out
		 */
		return 0;
	} else {
		const char *type[4] = {"I/O", "chsc", "message", "ADM"};
119 120 121
		CIO_CRW_EVENT(6, "ssd: sch 0.%x.%04x is %s subchannel\n",
			      sch->schid.ssid, sch->schid.sch_no,
			      type[ssd_area->st]);
L
Linus Torvalds 已提交
122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147

		sch->ssd_info.valid = 1;
		sch->ssd_info.type = ssd_area->st;
	}

	if (ssd_area->st == 0 || ssd_area->st == 2) {
		for (j = 0; j < 8; j++) {
			if (!((0x80 >> j) & ssd_area->path_mask &
			      ssd_area->fla_valid_mask))
				continue;
			sch->ssd_info.chpid[j] = ssd_area->chpid[j];
			sch->ssd_info.fla[j]   = ssd_area->fla[j];
		}
	}
	return 0;
}

int
css_get_ssd_info(struct subchannel *sch)
{
	int ret;
	void *page;

	page = (void *)get_zeroed_page(GFP_KERNEL | GFP_DMA);
	if (!page)
		return -ENOMEM;
C
Cornelia Huck 已提交
148
	spin_lock_irq(sch->lock);
L
Linus Torvalds 已提交
149 150 151 152 153 154 155 156 157 158 159 160 161
	ret = chsc_get_sch_desc_irq(sch, page);
	if (ret) {
		static int cio_chsc_err_msg;
		
		if (!cio_chsc_err_msg) {
			printk(KERN_ERR
			       "chsc_get_sch_descriptions:"
			       " Error %d while doing chsc; "
			       "processing some machine checks may "
			       "not work\n", ret);
			cio_chsc_err_msg = 1;
		}
	}
C
Cornelia Huck 已提交
162
	spin_unlock_irq(sch->lock);
L
Linus Torvalds 已提交
163 164
	free_page((unsigned long)page);
	if (!ret) {
165 166 167 168
		int j, mask;
		struct chp_id chpid;

		chp_id_init(&chpid);
L
Linus Torvalds 已提交
169 170
		/* Allocate channel path structures, if needed. */
		for (j = 0; j < 8; j++) {
C
Cornelia Huck 已提交
171
			mask = 0x80 >> j;
172
			chpid.id = sch->ssd_info.chpid[j];
C
Cornelia Huck 已提交
173
			if ((sch->schib.pmcw.pim & mask) &&
174 175
			    !chp_is_registered(chpid))
				chp_new(chpid);
L
Linus Torvalds 已提交
176 177 178 179 180
		}
	}
	return ret;
}

181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197
static int check_for_io_on_path(struct subchannel *sch, int mask)
{
	int cc;

	cc = stsch(sch->schid, &sch->schib);
	if (cc)
		return 0;
	if (sch->schib.scsw.actl && sch->schib.pmcw.lpum == mask)
		return 1;
	return 0;
}

static void terminate_internal_io(struct subchannel *sch)
{
	if (cio_clear(sch)) {
		/* Recheck device in case clear failed. */
		sch->lpm = 0;
198 199
		if (device_trigger_verify(sch) != 0)
			css_schedule_eval(sch->schid);
200 201 202 203 204 205 206 207 208
		return;
	}
	/* Request retry of internal operation. */
	device_set_intretry(sch);
	/* Call handler. */
	if (sch->driver && sch->driver->termination)
		sch->driver->termination(&sch->dev);
}

L
Linus Torvalds 已提交
209 210 211 212 213 214
static int
s390_subchannel_remove_chpid(struct device *dev, void *data)
{
	int j;
	int mask;
	struct subchannel *sch;
215
	struct chp_id *chpid;
L
Linus Torvalds 已提交
216 217 218 219
	struct schib schib;

	sch = to_subchannel(dev);
	chpid = data;
C
Cornelia Huck 已提交
220 221 222
	for (j = 0; j < 8; j++) {
		mask = 0x80 >> j;
		if ((sch->schib.pmcw.pim & mask) &&
223
		    (sch->schib.pmcw.chpid[j] == chpid->id))
L
Linus Torvalds 已提交
224
			break;
C
Cornelia Huck 已提交
225
	}
L
Linus Torvalds 已提交
226 227 228
	if (j >= 8)
		return 0;

C
Cornelia Huck 已提交
229
	spin_lock_irq(sch->lock);
L
Linus Torvalds 已提交
230

231
	stsch(sch->schid, &schib);
L
Linus Torvalds 已提交
232 233 234 235 236 237 238
	if (!schib.pmcw.dnv)
		goto out_unreg;
	memcpy(&sch->schib, &schib, sizeof(struct schib));
	/* Check for single path devices. */
	if (sch->schib.pmcw.pim == 0x80)
		goto out_unreg;

239 240 241 242 243 244 245 246 247 248 249 250 251 252
	if (check_for_io_on_path(sch, mask)) {
		if (device_is_online(sch))
			device_kill_io(sch);
		else {
			terminate_internal_io(sch);
			/* Re-start path verification. */
			if (sch->driver && sch->driver->verify)
				sch->driver->verify(&sch->dev);
		}
	} else {
		/* trigger path verification. */
		if (sch->driver && sch->driver->verify)
			sch->driver->verify(&sch->dev);
		else if (sch->lpm == mask)
L
Linus Torvalds 已提交
253 254 255
			goto out_unreg;
	}

C
Cornelia Huck 已提交
256
	spin_unlock_irq(sch->lock);
L
Linus Torvalds 已提交
257
	return 0;
258

L
Linus Torvalds 已提交
259 260
out_unreg:
	sch->lpm = 0;
261
	spin_unlock_irq(sch->lock);
262
	css_schedule_eval(sch->schid);
L
Linus Torvalds 已提交
263 264 265
	return 0;
}

266
void chsc_chp_offline(struct chp_id chpid)
L
Linus Torvalds 已提交
267 268 269
{
	char dbf_txt[15];

270
	sprintf(dbf_txt, "chpr%x.%02x", chpid.cssid, chpid.id);
L
Linus Torvalds 已提交
271 272
	CIO_TRACE_EVENT(2, dbf_txt);

273
	if (chp_get_status(chpid) <= 0)
L
Linus Torvalds 已提交
274
		return;
275
	bus_for_each_dev(&css_bus_type, NULL, &chpid,
L
Linus Torvalds 已提交
276 277 278
			 s390_subchannel_remove_chpid);
}

279
struct res_acc_data {
280
	struct chp_id chpid;
281 282 283 284
	u32 fla_mask;
	u16 fla;
};

285 286
static int s390_process_res_acc_sch(struct res_acc_data *res_data,
				    struct subchannel *sch)
L
Linus Torvalds 已提交
287 288 289 290
{
	int found;
	int chp;
	int ccode;
291

L
Linus Torvalds 已提交
292 293 294 295 296 297
	found = 0;
	for (chp = 0; chp <= 7; chp++)
		/*
		 * check if chpid is in information updated by ssd
		 */
		if (sch->ssd_info.valid &&
298
		    sch->ssd_info.chpid[chp] == res_data->chpid.id &&
299 300
		    (sch->ssd_info.fla[chp] & res_data->fla_mask)
		    == res_data->fla) {
L
Linus Torvalds 已提交
301 302 303
			found = 1;
			break;
		}
304

L
Linus Torvalds 已提交
305 306 307 308 309 310 311 312
	if (found == 0)
		return 0;

	/*
	 * Do a stsch to update our subchannel structure with the
	 * new path information and eventually check for logically
	 * offline chpids.
	 */
313
	ccode = stsch(sch->schid, &sch->schib);
L
Linus Torvalds 已提交
314 315 316 317 318 319
	if (ccode > 0)
		return 0;

	return 0x80 >> chp;
}

320
static int
321 322 323 324 325 326 327 328 329 330 331
s390_process_res_acc_new_sch(struct subchannel_id schid)
{
	struct schib schib;
	/*
	 * We don't know the device yet, but since a path
	 * may be available now to the device we'll have
	 * to do recognition again.
	 * Since we don't have any idea about which chpid
	 * that beast may be on we'll have to do a stsch
	 * on all devices, grr...
	 */
332
	if (stsch_err(schid, &schib))
333
		/* We're through */
334
		return -ENXIO;
335 336

	/* Put it on the slow path. */
337
	css_schedule_eval(schid);
338 339 340
	return 0;
}

L
Linus Torvalds 已提交
341
static int
342
__s390_process_res_acc(struct subchannel_id schid, void *data)
L
Linus Torvalds 已提交
343
{
344 345
	int chp_mask, old_lpm;
	struct res_acc_data *res_data;
L
Linus Torvalds 已提交
346
	struct subchannel *sch;
347

348
	res_data = data;
349 350 351 352 353
	sch = get_subchannel_by_schid(schid);
	if (!sch)
		/* Check if a subchannel is newly available. */
		return s390_process_res_acc_new_sch(schid);

C
Cornelia Huck 已提交
354
	spin_lock_irq(sch->lock);
355 356 357 358

	chp_mask = s390_process_res_acc_sch(res_data, sch);

	if (chp_mask == 0) {
C
Cornelia Huck 已提交
359
		spin_unlock_irq(sch->lock);
360
		put_device(&sch->dev);
361 362 363 364 365 366 367 368 369 370 371 372
		return 0;
	}
	old_lpm = sch->lpm;
	sch->lpm = ((sch->schib.pmcw.pim &
		     sch->schib.pmcw.pam &
		     sch->schib.pmcw.pom)
		    | chp_mask) & sch->opm;
	if (!old_lpm && sch->lpm)
		device_trigger_reprobe(sch);
	else if (sch->driver && sch->driver->verify)
		sch->driver->verify(&sch->dev);

C
Cornelia Huck 已提交
373
	spin_unlock_irq(sch->lock);
374
	put_device(&sch->dev);
375
	return 0;
376 377 378
}


379
static void s390_process_res_acc (struct res_acc_data *res_data)
380
{
L
Linus Torvalds 已提交
381 382
	char dbf_txt[15];

383 384
	sprintf(dbf_txt, "accpr%x.%02x", res_data->chpid.cssid,
		res_data->chpid.id);
L
Linus Torvalds 已提交
385
	CIO_TRACE_EVENT( 2, dbf_txt);
386 387
	if (res_data->fla != 0) {
		sprintf(dbf_txt, "fla%x", res_data->fla);
L
Linus Torvalds 已提交
388 389 390 391 392 393 394 395 396 397
		CIO_TRACE_EVENT( 2, dbf_txt);
	}

	/*
	 * I/O resources may have become accessible.
	 * Scan through all subchannels that may be concerned and
	 * do a validation on those.
	 * The more information we have (info), the less scanning
	 * will we have to do.
	 */
398
	for_each_subchannel(__s390_process_res_acc, res_data);
L
Linus Torvalds 已提交
399 400 401 402 403 404 405 406 407 408 409 410 411 412 413
}

static int
__get_chpid_from_lir(void *data)
{
	struct lir {
		u8  iq;
		u8  ic;
		u16 sci;
		/* incident-node descriptor */
		u32 indesc[28];
		/* attached-node descriptor */
		u32 andesc[28];
		/* incident-specific information */
		u32 isinfo[28];
414
	} __attribute__ ((packed)) *lir;
L
Linus Torvalds 已提交
415

416
	lir = data;
L
Linus Torvalds 已提交
417 418 419 420 421 422 423 424 425 426 427 428 429 430
	if (!(lir->iq&0x80))
		/* NULL link incident record */
		return -EINVAL;
	if (!(lir->indesc[0]&0xc0000000))
		/* node descriptor not valid */
		return -EINVAL;
	if (!(lir->indesc[0]&0x10000000))
		/* don't handle device-type nodes - FIXME */
		return -EINVAL;
	/* Byte 3 contains the chpid. Could also be CTCA, but we don't care */

	return (u16) (lir->indesc[0]&0x000000ff);
}

431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449
struct chsc_sei_area {
	struct chsc_header request;
	u32 reserved1;
	u32 reserved2;
	u32 reserved3;
	struct chsc_header response;
	u32 reserved4;
	u8  flags;
	u8  vf;		/* validity flags */
	u8  rs;		/* reporting source */
	u8  cc;		/* content code */
	u16 fla;	/* full link address */
	u16 rsid;	/* reporting source id */
	u32 reserved5;
	u32 reserved6;
	u8 ccdf[4096 - 16 - 24];	/* content-code dependent field */
	/* ccdf has to be big enough for a link-incident record */
} __attribute__ ((packed));

450
static void chsc_process_sei_link_incident(struct chsc_sei_area *sei_area)
451
{
452 453
	struct chp_id chpid;
	int id;
454 455 456 457

	CIO_CRW_EVENT(4, "chsc: link incident (rs=%02x, rs_id=%04x)\n",
		      sei_area->rs, sei_area->rsid);
	if (sei_area->rs != 4)
458
		return;
459 460
	id = __get_chpid_from_lir(sei_area->ccdf);
	if (id < 0)
461
		CIO_CRW_EVENT(4, "chsc: link incident - invalid LIR\n");
462 463 464
	else {
		chp_id_init(&chpid);
		chpid.id = id;
465
		chsc_chp_offline(chpid);
466
	}
467 468
}

469
static void chsc_process_sei_res_acc(struct chsc_sei_area *sei_area)
L
Linus Torvalds 已提交
470
{
471
	struct res_acc_data res_data;
472
	struct chp_id chpid;
473 474 475 476 477
	int status;

	CIO_CRW_EVENT(4, "chsc: resource accessibility event (rs=%02x, "
		      "rs_id=%04x)\n", sei_area->rs, sei_area->rsid);
	if (sei_area->rs != 4)
478
		return;
479 480
	chp_id_init(&chpid);
	chpid.id = sei_area->rsid;
481
	/* allocate a new channel path structure, if needed */
482
	status = chp_get_status(chpid);
483
	if (status < 0)
484
		chp_new(chpid);
485
	else if (!status)
486
		return;
487
	memset(&res_data, 0, sizeof(struct res_acc_data));
488
	res_data.chpid = chpid;
489 490 491 492 493 494 495 496 497
	if ((sei_area->vf & 0xc0) != 0) {
		res_data.fla = sei_area->fla;
		if ((sei_area->vf & 0xc0) == 0xc0)
			/* full link address */
			res_data.fla_mask = 0xffff;
		else
			/* link address */
			res_data.fla_mask = 0xff00;
	}
498
	s390_process_res_acc(&res_data);
499 500
}

501 502 503 504 505 506
struct chp_config_data {
	u8 map[32];
	u8 op;
	u8 pc;
};

507
static void chsc_process_sei_chp_config(struct chsc_sei_area *sei_area)
508 509 510 511 512 513 514
{
	struct chp_config_data *data;
	struct chp_id chpid;
	int num;

	CIO_CRW_EVENT(4, "chsc: channel-path-configuration notification\n");
	if (sei_area->rs != 0)
515
		return;
516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537
	data = (struct chp_config_data *) &(sei_area->ccdf);
	chp_id_init(&chpid);
	for (num = 0; num <= __MAX_CHPID; num++) {
		if (!chp_test_bit(data->map, num))
			continue;
		chpid.id = num;
		printk(KERN_WARNING "cio: processing configure event %d for "
		       "chpid %x.%02x\n", data->op, chpid.cssid, chpid.id);
		switch (data->op) {
		case 0:
			chp_cfg_schedule(chpid, 1);
			break;
		case 1:
			chp_cfg_schedule(chpid, 0);
			break;
		case 2:
			chp_cfg_cancel_deconfigure(chpid);
			break;
		}
	}
}

538
static void chsc_process_sei(struct chsc_sei_area *sei_area)
539 540
{
	/* Check if we might have lost some information. */
541
	if (sei_area->flags & 0x40) {
542
		CIO_CRW_EVENT(2, "chsc: event overflow\n");
543 544
		css_schedule_eval_all();
	}
545 546 547
	/* which kind of information was stored? */
	switch (sei_area->cc) {
	case 1: /* link incident*/
548
		chsc_process_sei_link_incident(sei_area);
549 550
		break;
	case 2: /* i/o resource accessibiliy */
551
		chsc_process_sei_res_acc(sei_area);
552
		break;
553
	case 8: /* channel-path-configuration notification */
554
		chsc_process_sei_chp_config(sei_area);
555
		break;
556 557 558 559 560 561 562
	default: /* other stuff */
		CIO_CRW_EVENT(4, "chsc: unhandled sei content code %d\n",
			      sei_area->cc);
		break;
	}
}

563
void chsc_process_crw(void)
564 565
{
	struct chsc_sei_area *sei_area;
L
Linus Torvalds 已提交
566 567

	if (!sei_page)
568
		return;
569 570
	/* Access to sei_page is serialized through machine check handler
	 * thread, so no need for locking. */
L
Linus Torvalds 已提交
571 572 573 574 575
	sei_area = sei_page;

	CIO_TRACE_EVENT( 2, "prcss");
	do {
		memset(sei_area, 0, sizeof(*sei_area));
576 577
		sei_area->request.length = 0x0010;
		sei_area->request.code = 0x000e;
578 579
		if (chsc(sei_area))
			break;
L
Linus Torvalds 已提交
580

581 582
		if (sei_area->response.code == 0x0001) {
			CIO_CRW_EVENT(4, "chsc: sei successful\n");
583
			chsc_process_sei(sei_area);
584 585
		} else {
			CIO_CRW_EVENT(2, "chsc: sei failed (rc=%04x)\n",
L
Linus Torvalds 已提交
586 587 588 589 590 591
				      sei_area->response.code);
			break;
		}
	} while (sei_area->flags & 0x80);
}

592
static int
593 594 595 596
__chp_add_new_sch(struct subchannel_id schid)
{
	struct schib schib;

597
	if (stsch_err(schid, &schib))
598
		/* We're through */
599
		return -ENXIO;
600 601

	/* Put it on the slow path. */
602
	css_schedule_eval(schid);
603 604 605 606
	return 0;
}


L
Linus Torvalds 已提交
607
static int
608
__chp_add(struct subchannel_id schid, void *data)
L
Linus Torvalds 已提交
609
{
C
Cornelia Huck 已提交
610
	int i, mask;
611
	struct chp_id *chpid;
L
Linus Torvalds 已提交
612
	struct subchannel *sch;
613

614
	chpid = data;
615 616 617 618
	sch = get_subchannel_by_schid(schid);
	if (!sch)
		/* Check if the subchannel is now available. */
		return __chp_add_new_sch(schid);
C
Cornelia Huck 已提交
619
	spin_lock_irq(sch->lock);
C
Cornelia Huck 已提交
620 621 622
	for (i=0; i<8; i++) {
		mask = 0x80 >> i;
		if ((sch->schib.pmcw.pim & mask) &&
623
		    (sch->schib.pmcw.chpid[i] == chpid->id)) {
624 625
			if (stsch(sch->schid, &sch->schib) != 0) {
				/* Endgame. */
C
Cornelia Huck 已提交
626
				spin_unlock_irq(sch->lock);
627 628 629 630
				return -ENXIO;
			}
			break;
		}
C
Cornelia Huck 已提交
631
	}
632
	if (i==8) {
C
Cornelia Huck 已提交
633
		spin_unlock_irq(sch->lock);
634 635 636 637 638
		return 0;
	}
	sch->lpm = ((sch->schib.pmcw.pim &
		     sch->schib.pmcw.pam &
		     sch->schib.pmcw.pom)
C
Cornelia Huck 已提交
639
		    | mask) & sch->opm;
640 641 642 643

	if (sch->driver && sch->driver->verify)
		sch->driver->verify(&sch->dev);

C
Cornelia Huck 已提交
644
	spin_unlock_irq(sch->lock);
645 646 647 648
	put_device(&sch->dev);
	return 0;
}

649
void chsc_chp_online(struct chp_id chpid)
650
{
L
Linus Torvalds 已提交
651 652
	char dbf_txt[15];

653
	sprintf(dbf_txt, "cadd%x.%02x", chpid.cssid, chpid.id);
L
Linus Torvalds 已提交
654 655
	CIO_TRACE_EVENT(2, dbf_txt);

656 657
	if (chp_get_status(chpid) != 0)
		for_each_subchannel(__chp_add, &chpid);
L
Linus Torvalds 已提交
658 659
}

660 661
static void __s390_subchannel_vary_chpid(struct subchannel *sch,
					 struct chp_id chpid, int on)
L
Linus Torvalds 已提交
662 663 664 665 666 667 668
{
	int chp, old_lpm;
	unsigned long flags;

	if (!sch->ssd_info.valid)
		return;
	
C
Cornelia Huck 已提交
669
	spin_lock_irqsave(sch->lock, flags);
L
Linus Torvalds 已提交
670 671
	old_lpm = sch->lpm;
	for (chp = 0; chp < 8; chp++) {
672
		if (sch->ssd_info.chpid[chp] != chpid.id)
L
Linus Torvalds 已提交
673 674 675 676 677 678 679 680 681
			continue;

		if (on) {
			sch->opm |= (0x80 >> chp);
			sch->lpm |= (0x80 >> chp);
			if (!old_lpm)
				device_trigger_reprobe(sch);
			else if (sch->driver && sch->driver->verify)
				sch->driver->verify(&sch->dev);
682 683 684 685
			break;
		}
		sch->opm &= ~(0x80 >> chp);
		sch->lpm &= ~(0x80 >> chp);
686
		if (check_for_io_on_path(sch, (0x80 >> chp))) {
687 688 689
			if (device_is_online(sch))
				/* Path verification is done after killing. */
				device_kill_io(sch);
690
			else {
691 692
				/* Kill and retry internal I/O. */
				terminate_internal_io(sch);
693 694 695 696
				/* Re-start path verification. */
				if (sch->driver && sch->driver->verify)
					sch->driver->verify(&sch->dev);
			}
697
		} else if (!sch->lpm) {
698 699
			if (device_trigger_verify(sch) != 0)
				css_schedule_eval(sch->schid);
700 701
		} else if (sch->driver && sch->driver->verify)
			sch->driver->verify(&sch->dev);
L
Linus Torvalds 已提交
702 703
		break;
	}
C
Cornelia Huck 已提交
704
	spin_unlock_irqrestore(sch->lock, flags);
L
Linus Torvalds 已提交
705 706
}

707
static int s390_subchannel_vary_chpid_off(struct device *dev, void *data)
L
Linus Torvalds 已提交
708 709
{
	struct subchannel *sch;
710
	struct chp_id *chpid;
L
Linus Torvalds 已提交
711 712 713 714 715 716 717 718

	sch = to_subchannel(dev);
	chpid = data;

	__s390_subchannel_vary_chpid(sch, *chpid, 0);
	return 0;
}

719
static int s390_subchannel_vary_chpid_on(struct device *dev, void *data)
L
Linus Torvalds 已提交
720 721
{
	struct subchannel *sch;
722
	struct chp_id *chpid;
L
Linus Torvalds 已提交
723 724 725 726 727 728 729 730

	sch = to_subchannel(dev);
	chpid = data;

	__s390_subchannel_vary_chpid(sch, *chpid, 1);
	return 0;
}

731 732 733 734 735 736 737 738 739 740 741
static int
__s390_vary_chpid_on(struct subchannel_id schid, void *data)
{
	struct schib schib;
	struct subchannel *sch;

	sch = get_subchannel_by_schid(schid);
	if (sch) {
		put_device(&sch->dev);
		return 0;
	}
742
	if (stsch_err(schid, &schib))
743 744 745
		/* We're through */
		return -ENXIO;
	/* Put it on the slow path. */
746
	css_schedule_eval(schid);
747 748 749
	return 0;
}

750 751 752 753
/**
 * chsc_chp_vary - propagate channel-path vary operation to subchannels
 * @chpid: channl-path ID
 * @on: non-zero for vary online, zero for vary offline
L
Linus Torvalds 已提交
754
 */
755
int chsc_chp_vary(struct chp_id chpid, int on)
L
Linus Torvalds 已提交
756 757 758 759 760 761 762 763
{
	/*
	 * Redo PathVerification on the devices the chpid connects to
	 */

	bus_for_each_dev(&css_bus_type, NULL, &chpid, on ?
			 s390_subchannel_vary_chpid_on :
			 s390_subchannel_vary_chpid_off);
764 765 766
	if (on)
		/* Scan for new devices on varied on path. */
		for_each_subchannel(__s390_vary_chpid_on, NULL);
L
Linus Torvalds 已提交
767 768 769
	return 0;
}

770 771 772 773 774 775 776 777
static void
chsc_remove_cmg_attr(struct channel_subsystem *css)
{
	int i;

	for (i = 0; i <= __MAX_CHPID; i++) {
		if (!css->chps[i])
			continue;
778
		chp_remove_cmg_attr(css->chps[i]);
779 780 781 782 783 784 785 786 787 788 789 790
	}
}

static int
chsc_add_cmg_attr(struct channel_subsystem *css)
{
	int i, ret;

	ret = 0;
	for (i = 0; i <= __MAX_CHPID; i++) {
		if (!css->chps[i])
			continue;
791
		ret = chp_add_cmg_attr(css->chps[i]);
792 793 794 795 796 797 798 799
		if (ret)
			goto cleanup;
	}
	return ret;
cleanup:
	for (--i; i >= 0; i--) {
		if (!css->chps[i])
			continue;
800
		chp_remove_cmg_attr(css->chps[i]);
801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823
	}
	return ret;
}

static int
__chsc_do_secm(struct channel_subsystem *css, int enable, void *page)
{
	struct {
		struct chsc_header request;
		u32 operation_code : 2;
		u32 : 30;
		u32 key : 4;
		u32 : 28;
		u32 zeroes1;
		u32 cub_addr1;
		u32 zeroes2;
		u32 cub_addr2;
		u32 reserved[13];
		struct chsc_header response;
		u32 status : 8;
		u32 : 4;
		u32 fmt : 4;
		u32 : 16;
824
	} __attribute__ ((packed)) *secm_area;
825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918
	int ret, ccode;

	secm_area = page;
	secm_area->request.length = 0x0050;
	secm_area->request.code = 0x0016;

	secm_area->key = PAGE_DEFAULT_KEY;
	secm_area->cub_addr1 = (u64)(unsigned long)css->cub_addr1;
	secm_area->cub_addr2 = (u64)(unsigned long)css->cub_addr2;

	secm_area->operation_code = enable ? 0 : 1;

	ccode = chsc(secm_area);
	if (ccode > 0)
		return (ccode == 3) ? -ENODEV : -EBUSY;

	switch (secm_area->response.code) {
	case 0x0001: /* Success. */
		ret = 0;
		break;
	case 0x0003: /* Invalid block. */
	case 0x0007: /* Invalid format. */
	case 0x0008: /* Other invalid block. */
		CIO_CRW_EVENT(2, "Error in chsc request block!\n");
		ret = -EINVAL;
		break;
	case 0x0004: /* Command not provided in model. */
		CIO_CRW_EVENT(2, "Model does not provide secm\n");
		ret = -EOPNOTSUPP;
		break;
	case 0x0102: /* cub adresses incorrect */
		CIO_CRW_EVENT(2, "Invalid addresses in chsc request block\n");
		ret = -EINVAL;
		break;
	case 0x0103: /* key error */
		CIO_CRW_EVENT(2, "Access key error in secm\n");
		ret = -EINVAL;
		break;
	case 0x0105: /* error while starting */
		CIO_CRW_EVENT(2, "Error while starting channel measurement\n");
		ret = -EIO;
		break;
	default:
		CIO_CRW_EVENT(2, "Unknown CHSC response %d\n",
			      secm_area->response.code);
		ret = -EIO;
	}
	return ret;
}

int
chsc_secm(struct channel_subsystem *css, int enable)
{
	void  *secm_area;
	int ret;

	secm_area = (void *)get_zeroed_page(GFP_KERNEL |  GFP_DMA);
	if (!secm_area)
		return -ENOMEM;

	mutex_lock(&css->mutex);
	if (enable && !css->cm_enabled) {
		css->cub_addr1 = (void *)get_zeroed_page(GFP_KERNEL | GFP_DMA);
		css->cub_addr2 = (void *)get_zeroed_page(GFP_KERNEL | GFP_DMA);
		if (!css->cub_addr1 || !css->cub_addr2) {
			free_page((unsigned long)css->cub_addr1);
			free_page((unsigned long)css->cub_addr2);
			free_page((unsigned long)secm_area);
			mutex_unlock(&css->mutex);
			return -ENOMEM;
		}
	}
	ret = __chsc_do_secm(css, enable, secm_area);
	if (!ret) {
		css->cm_enabled = enable;
		if (css->cm_enabled) {
			ret = chsc_add_cmg_attr(css);
			if (ret) {
				memset(secm_area, 0, PAGE_SIZE);
				__chsc_do_secm(css, 0, secm_area);
				css->cm_enabled = 0;
			}
		} else
			chsc_remove_cmg_attr(css);
	}
	if (enable && !css->cm_enabled) {
		free_page((unsigned long)css->cub_addr1);
		free_page((unsigned long)css->cub_addr2);
	}
	mutex_unlock(&css->mutex);
	free_page((unsigned long)secm_area);
	return ret;
}

919 920
int chsc_determine_channel_path_description(struct chp_id chpid,
					    struct channel_path_desc *desc)
L
Linus Torvalds 已提交
921 922 923 924 925 926 927 928 929 930 931 932 933
{
	int ccode, ret;

	struct {
		struct chsc_header request;
		u32 : 24;
		u32 first_chpid : 8;
		u32 : 24;
		u32 last_chpid : 8;
		u32 zeroes1;
		struct chsc_header response;
		u32 zeroes2;
		struct channel_path_desc desc;
934
	} __attribute__ ((packed)) *scpd_area;
L
Linus Torvalds 已提交
935 936 937 938 939

	scpd_area = (void *)get_zeroed_page(GFP_KERNEL | GFP_DMA);
	if (!scpd_area)
		return -ENOMEM;

940 941
	scpd_area->request.length = 0x0010;
	scpd_area->request.code = 0x0002;
L
Linus Torvalds 已提交
942

943 944
	scpd_area->first_chpid = chpid.id;
	scpd_area->last_chpid = chpid.id;
L
Linus Torvalds 已提交
945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977

	ccode = chsc(scpd_area);
	if (ccode > 0) {
		ret = (ccode == 3) ? -ENODEV : -EBUSY;
		goto out;
	}

	switch (scpd_area->response.code) {
	case 0x0001: /* Success. */
		memcpy(desc, &scpd_area->desc,
		       sizeof(struct channel_path_desc));
		ret = 0;
		break;
	case 0x0003: /* Invalid block. */
	case 0x0007: /* Invalid format. */
	case 0x0008: /* Other invalid block. */
		CIO_CRW_EVENT(2, "Error in chsc request block!\n");
		ret = -EINVAL;
		break;
	case 0x0004: /* Command not provided in model. */
		CIO_CRW_EVENT(2, "Model does not provide scpd\n");
		ret = -EOPNOTSUPP;
		break;
	default:
		CIO_CRW_EVENT(2, "Unknown CHSC response %d\n",
			      scpd_area->response.code);
		ret = -EIO;
	}
out:
	free_page((unsigned long)scpd_area);
	return ret;
}

978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006
static void
chsc_initialize_cmg_chars(struct channel_path *chp, u8 cmcv,
			  struct cmg_chars *chars)
{
	switch (chp->cmg) {
	case 2:
	case 3:
		chp->cmg_chars = kmalloc(sizeof(struct cmg_chars),
					 GFP_KERNEL);
		if (chp->cmg_chars) {
			int i, mask;
			struct cmg_chars *cmg_chars;

			cmg_chars = chp->cmg_chars;
			for (i = 0; i < NR_MEASUREMENT_CHARS; i++) {
				mask = 0x80 >> (i + 3);
				if (cmcv & mask)
					cmg_chars->values[i] = chars->values[i];
				else
					cmg_chars->values[i] = 0;
			}
		}
		break;
	default:
		/* No cmg-dependent data. */
		break;
	}
}

1007
int chsc_get_channel_measurement_chars(struct channel_path *chp)
1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029
{
	int ccode, ret;

	struct {
		struct chsc_header request;
		u32 : 24;
		u32 first_chpid : 8;
		u32 : 24;
		u32 last_chpid : 8;
		u32 zeroes1;
		struct chsc_header response;
		u32 zeroes2;
		u32 not_valid : 1;
		u32 shared : 1;
		u32 : 22;
		u32 chpid : 8;
		u32 cmcv : 5;
		u32 : 11;
		u32 cmgq : 8;
		u32 cmg : 8;
		u32 zeroes3;
		u32 data[NR_MEASUREMENT_CHARS];
1030
	} __attribute__ ((packed)) *scmc_area;
1031 1032 1033 1034 1035 1036 1037 1038

	scmc_area = (void *)get_zeroed_page(GFP_KERNEL | GFP_DMA);
	if (!scmc_area)
		return -ENOMEM;

	scmc_area->request.length = 0x0010;
	scmc_area->request.code = 0x0022;

1039 1040
	scmc_area->first_chpid = chp->chpid.id;
	scmc_area->last_chpid = chp->chpid.id;
1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081

	ccode = chsc(scmc_area);
	if (ccode > 0) {
		ret = (ccode == 3) ? -ENODEV : -EBUSY;
		goto out;
	}

	switch (scmc_area->response.code) {
	case 0x0001: /* Success. */
		if (!scmc_area->not_valid) {
			chp->cmg = scmc_area->cmg;
			chp->shared = scmc_area->shared;
			chsc_initialize_cmg_chars(chp, scmc_area->cmcv,
						  (struct cmg_chars *)
						  &scmc_area->data);
		} else {
			chp->cmg = -1;
			chp->shared = -1;
		}
		ret = 0;
		break;
	case 0x0003: /* Invalid block. */
	case 0x0007: /* Invalid format. */
	case 0x0008: /* Invalid bit combination. */
		CIO_CRW_EVENT(2, "Error in chsc request block!\n");
		ret = -EINVAL;
		break;
	case 0x0004: /* Command not provided. */
		CIO_CRW_EVENT(2, "Model does not provide scmc\n");
		ret = -EOPNOTSUPP;
		break;
	default:
		CIO_CRW_EVENT(2, "Unknown CHSC response %d\n",
			      scmc_area->response.code);
		ret = -EIO;
	}
out:
	free_page((unsigned long)scmc_area);
	return ret;
}

L
Linus Torvalds 已提交
1082 1083 1084 1085 1086 1087 1088 1089 1090 1091
static int __init
chsc_alloc_sei_area(void)
{
	sei_page = (void *)get_zeroed_page(GFP_KERNEL | GFP_DMA);
	if (!sei_page)
		printk(KERN_WARNING"Can't allocate page for processing of " \
		       "chsc machine checks!\n");
	return (sei_page ? 0 : -ENOMEM);
}

1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108
int __init
chsc_enable_facility(int operation_code)
{
	int ret;
	struct {
		struct chsc_header request;
		u8 reserved1:4;
		u8 format:4;
		u8 reserved2;
		u16 operation_code;
		u32 reserved3;
		u32 reserved4;
		u32 operation_data_area[252];
		struct chsc_header response;
		u32 reserved5:4;
		u32 format2:4;
		u32 reserved6:24;
1109
	} __attribute__ ((packed)) *sda_area;
1110 1111 1112 1113

	sda_area = (void *)get_zeroed_page(GFP_KERNEL|GFP_DMA);
	if (!sda_area)
		return -ENOMEM;
1114 1115
	sda_area->request.length = 0x0400;
	sda_area->request.code = 0x0031;
1116 1117 1118 1119 1120 1121 1122 1123
	sda_area->operation_code = operation_code;

	ret = chsc(sda_area);
	if (ret > 0) {
		ret = (ret == 3) ? -ENODEV : -EBUSY;
		goto out;
	}
	switch (sda_area->response.code) {
1124 1125 1126
	case 0x0001: /* everything ok */
		ret = 0;
		break;
1127 1128 1129 1130 1131 1132 1133 1134
	case 0x0003: /* invalid request block */
	case 0x0007:
		ret = -EINVAL;
		break;
	case 0x0004: /* command not provided */
	case 0x0101: /* facility not provided */
		ret = -EOPNOTSUPP;
		break;
1135 1136
	default: /* something went wrong */
		ret = -EIO;
1137 1138 1139 1140 1141 1142
	}
 out:
	free_page((unsigned long)sda_area);
	return ret;
}

L
Linus Torvalds 已提交
1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160
subsys_initcall(chsc_alloc_sei_area);

struct css_general_char css_general_characteristics;
struct css_chsc_char css_chsc_characteristics;

int __init
chsc_determine_css_characteristics(void)
{
	int result;
	struct {
		struct chsc_header request;
		u32 reserved1;
		u32 reserved2;
		u32 reserved3;
		struct chsc_header response;
		u32 reserved4;
		u32 general_char[510];
		u32 chsc_char[518];
1161
	} __attribute__ ((packed)) *scsc_area;
L
Linus Torvalds 已提交
1162 1163 1164 1165 1166 1167 1168 1169

	scsc_area = (void *)get_zeroed_page(GFP_KERNEL | GFP_DMA);
	if (!scsc_area) {
	        printk(KERN_WARNING"cio: Was not able to determine available" \
		       "CHSCs due to no memory.\n");
		return -ENOMEM;
	}

1170 1171
	scsc_area->request.length = 0x0010;
	scsc_area->request.code = 0x0010;
L
Linus Torvalds 已提交
1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197

	result = chsc(scsc_area);
	if (result) {
		printk(KERN_WARNING"cio: Was not able to determine " \
		       "available CHSCs, cc=%i.\n", result);
		result = -EIO;
		goto exit;
	}

	if (scsc_area->response.code != 1) {
		printk(KERN_WARNING"cio: Was not able to determine " \
		       "available CHSCs.\n");
		result = -EIO;
		goto exit;
	}
	memcpy(&css_general_characteristics, scsc_area->general_char,
	       sizeof(css_general_characteristics));
	memcpy(&css_chsc_characteristics, scsc_area->chsc_char,
	       sizeof(css_chsc_characteristics));
exit:
	free_page ((unsigned long) scsc_area);
	return result;
}

EXPORT_SYMBOL_GPL(css_general_characteristics);
EXPORT_SYMBOL_GPL(css_chsc_characteristics);