Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 1 | /* |
| 2 | * File...........: linux/drivers/s390/block/dasd.c |
| 3 | * Author(s)......: Holger Smolinski <Holger.Smolinski@de.ibm.com> |
| 4 | * Horst Hummel <Horst.Hummel@de.ibm.com> |
| 5 | * Carsten Otte <Cotte@de.ibm.com> |
| 6 | * Martin Schwidefsky <schwidefsky@de.ibm.com> |
| 7 | * Bugreports.to..: <Linux390@de.ibm.com> |
| 8 | * (C) IBM Corporation, IBM Deutschland Entwicklung GmbH, 1999-2001 |
| 9 | * |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 10 | */ |
| 11 | |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 12 | #include <linux/ctype.h> |
| 13 | #include <linux/init.h> |
| 14 | |
| 15 | #include <asm/debug.h> |
| 16 | #include <asm/ebcdic.h> |
| 17 | #include <asm/uaccess.h> |
| 18 | |
| 19 | /* This is ugly... */ |
| 20 | #define PRINTK_HEADER "dasd_erp:" |
| 21 | |
| 22 | #include "dasd_int.h" |
| 23 | |
| 24 | struct dasd_ccw_req * |
| 25 | dasd_alloc_erp_request(char *magic, int cplength, int datasize, |
| 26 | struct dasd_device * device) |
| 27 | { |
| 28 | unsigned long flags; |
| 29 | struct dasd_ccw_req *cqr; |
| 30 | char *data; |
| 31 | int size; |
| 32 | |
| 33 | /* Sanity checks */ |
Eric Sesterhenn | e048a8a | 2006-04-01 01:27:08 +0200 | [diff] [blame] | 34 | BUG_ON( magic == NULL || datasize > PAGE_SIZE || |
| 35 | (cplength*sizeof(struct ccw1)) > PAGE_SIZE); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 36 | |
| 37 | size = (sizeof(struct dasd_ccw_req) + 7L) & -8L; |
| 38 | if (cplength > 0) |
| 39 | size += cplength * sizeof(struct ccw1); |
| 40 | if (datasize > 0) |
| 41 | size += datasize; |
| 42 | spin_lock_irqsave(&device->mem_lock, flags); |
| 43 | cqr = (struct dasd_ccw_req *) |
| 44 | dasd_alloc_chunk(&device->erp_chunks, size); |
| 45 | spin_unlock_irqrestore(&device->mem_lock, flags); |
| 46 | if (cqr == NULL) |
| 47 | return ERR_PTR(-ENOMEM); |
| 48 | memset(cqr, 0, sizeof(struct dasd_ccw_req)); |
| 49 | data = (char *) cqr + ((sizeof(struct dasd_ccw_req) + 7L) & -8L); |
| 50 | cqr->cpaddr = NULL; |
| 51 | if (cplength > 0) { |
| 52 | cqr->cpaddr = (struct ccw1 *) data; |
| 53 | data += cplength*sizeof(struct ccw1); |
| 54 | memset(cqr->cpaddr, 0, cplength*sizeof(struct ccw1)); |
| 55 | } |
| 56 | cqr->data = NULL; |
| 57 | if (datasize > 0) { |
| 58 | cqr->data = data; |
| 59 | memset(cqr->data, 0, datasize); |
| 60 | } |
| 61 | strncpy((char *) &cqr->magic, magic, 4); |
| 62 | ASCEBC((char *) &cqr->magic, 4); |
| 63 | set_bit(DASD_CQR_FLAGS_USE_ERP, &cqr->flags); |
| 64 | dasd_get_device(device); |
| 65 | return cqr; |
| 66 | } |
| 67 | |
| 68 | void |
| 69 | dasd_free_erp_request(struct dasd_ccw_req * cqr, struct dasd_device * device) |
| 70 | { |
| 71 | unsigned long flags; |
| 72 | |
| 73 | spin_lock_irqsave(&device->mem_lock, flags); |
| 74 | dasd_free_chunk(&device->erp_chunks, cqr); |
| 75 | spin_unlock_irqrestore(&device->mem_lock, flags); |
| 76 | atomic_dec(&device->ref_count); |
| 77 | } |
| 78 | |
| 79 | |
| 80 | /* |
| 81 | * dasd_default_erp_action just retries the current cqr |
| 82 | */ |
| 83 | struct dasd_ccw_req * |
| 84 | dasd_default_erp_action(struct dasd_ccw_req * cqr) |
| 85 | { |
| 86 | struct dasd_device *device; |
| 87 | |
| 88 | device = cqr->device; |
| 89 | |
| 90 | /* just retry - there is nothing to save ... I got no sense data.... */ |
| 91 | if (cqr->retries > 0) { |
Horst Hummel | 138c014 | 2006-06-29 14:58:12 +0200 | [diff] [blame] | 92 | DEV_MESSAGE (KERN_DEBUG, device, |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 93 | "default ERP called (%i retries left)", |
| 94 | cqr->retries); |
| 95 | cqr->lpm = LPM_ANYPATH; |
| 96 | cqr->status = DASD_CQR_QUEUED; |
| 97 | } else { |
| 98 | DEV_MESSAGE (KERN_WARNING, device, "%s", |
| 99 | "default ERP called (NO retry left)"); |
| 100 | cqr->status = DASD_CQR_FAILED; |
| 101 | cqr->stopclk = get_clock (); |
| 102 | } |
| 103 | return cqr; |
| 104 | } /* end dasd_default_erp_action */ |
| 105 | |
| 106 | /* |
| 107 | * DESCRIPTION |
| 108 | * Frees all ERPs of the current ERP Chain and set the status |
| 109 | * of the original CQR either to DASD_CQR_DONE if ERP was successful |
| 110 | * or to DASD_CQR_FAILED if ERP was NOT successful. |
| 111 | * NOTE: This function is only called if no discipline postaction |
| 112 | * is available |
| 113 | * |
| 114 | * PARAMETER |
| 115 | * erp current erp_head |
| 116 | * |
| 117 | * RETURN VALUES |
| 118 | * cqr pointer to the original CQR |
| 119 | */ |
| 120 | struct dasd_ccw_req * |
| 121 | dasd_default_erp_postaction(struct dasd_ccw_req * cqr) |
| 122 | { |
| 123 | struct dasd_device *device; |
| 124 | int success; |
| 125 | |
Eric Sesterhenn | e048a8a | 2006-04-01 01:27:08 +0200 | [diff] [blame] | 126 | BUG_ON(cqr->refers == NULL || cqr->function == NULL); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 127 | |
| 128 | device = cqr->device; |
| 129 | success = cqr->status == DASD_CQR_DONE; |
| 130 | |
| 131 | /* free all ERPs - but NOT the original cqr */ |
| 132 | while (cqr->refers != NULL) { |
| 133 | struct dasd_ccw_req *refers; |
| 134 | |
| 135 | refers = cqr->refers; |
| 136 | /* remove the request from the device queue */ |
| 137 | list_del(&cqr->list); |
| 138 | /* free the finished erp request */ |
| 139 | dasd_free_erp_request(cqr, device); |
| 140 | cqr = refers; |
| 141 | } |
| 142 | |
| 143 | /* set corresponding status to original cqr */ |
| 144 | if (success) |
| 145 | cqr->status = DASD_CQR_DONE; |
| 146 | else { |
| 147 | cqr->status = DASD_CQR_FAILED; |
| 148 | cqr->stopclk = get_clock(); |
| 149 | } |
| 150 | |
| 151 | return cqr; |
| 152 | |
| 153 | } /* end default_erp_postaction */ |
| 154 | |
| 155 | /* |
| 156 | * Print the hex dump of the memory used by a request. This includes |
Horst Hummel | 138c014 | 2006-06-29 14:58:12 +0200 | [diff] [blame] | 157 | * all error recovery ccws that have been chained in from of the |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 158 | * real request. |
| 159 | */ |
| 160 | static inline void |
| 161 | hex_dump_memory(struct dasd_device *device, void *data, int len) |
| 162 | { |
| 163 | int *pint; |
| 164 | |
| 165 | pint = (int *) data; |
| 166 | while (len > 0) { |
| 167 | DEV_MESSAGE(KERN_ERR, device, "%p: %08x %08x %08x %08x", |
| 168 | pint, pint[0], pint[1], pint[2], pint[3]); |
| 169 | pint += 4; |
| 170 | len -= 16; |
| 171 | } |
| 172 | } |
| 173 | |
| 174 | void |
| 175 | dasd_log_sense(struct dasd_ccw_req *cqr, struct irb *irb) |
| 176 | { |
| 177 | struct dasd_device *device; |
| 178 | |
| 179 | device = cqr->device; |
| 180 | /* dump sense data */ |
| 181 | if (device->discipline && device->discipline->dump_sense) |
| 182 | device->discipline->dump_sense(device, cqr, irb); |
| 183 | } |
| 184 | |
| 185 | void |
| 186 | dasd_log_ccw(struct dasd_ccw_req * cqr, int caller, __u32 cpa) |
| 187 | { |
| 188 | struct dasd_device *device; |
| 189 | struct dasd_ccw_req *lcqr; |
| 190 | struct ccw1 *ccw; |
| 191 | int cplength; |
| 192 | |
| 193 | device = cqr->device; |
| 194 | /* log the channel program */ |
| 195 | for (lcqr = cqr; lcqr != NULL; lcqr = lcqr->refers) { |
| 196 | DEV_MESSAGE(KERN_ERR, device, |
| 197 | "(%s) ERP chain report for req: %p", |
| 198 | caller == 0 ? "EXAMINE" : "ACTION", lcqr); |
| 199 | hex_dump_memory(device, lcqr, sizeof(struct dasd_ccw_req)); |
| 200 | |
| 201 | cplength = 1; |
| 202 | ccw = lcqr->cpaddr; |
| 203 | while (ccw++->flags & (CCW_FLAG_DC | CCW_FLAG_CC)) |
| 204 | cplength++; |
| 205 | |
| 206 | if (cplength > 40) { /* log only parts of the CP */ |
| 207 | DEV_MESSAGE(KERN_ERR, device, "%s", |
| 208 | "Start of channel program:"); |
| 209 | hex_dump_memory(device, lcqr->cpaddr, |
| 210 | 40*sizeof(struct ccw1)); |
| 211 | |
| 212 | DEV_MESSAGE(KERN_ERR, device, "%s", |
| 213 | "End of channel program:"); |
| 214 | hex_dump_memory(device, lcqr->cpaddr + cplength - 10, |
| 215 | 10*sizeof(struct ccw1)); |
| 216 | } else { /* log the whole CP */ |
| 217 | DEV_MESSAGE(KERN_ERR, device, "%s", |
| 218 | "Channel program (complete):"); |
| 219 | hex_dump_memory(device, lcqr->cpaddr, |
| 220 | cplength*sizeof(struct ccw1)); |
| 221 | } |
| 222 | |
| 223 | if (lcqr != cqr) |
| 224 | continue; |
| 225 | |
| 226 | /* |
| 227 | * Log bytes arround failed CCW but only if we did |
| 228 | * not log the whole CP of the CCW is outside the |
Horst Hummel | 138c014 | 2006-06-29 14:58:12 +0200 | [diff] [blame] | 229 | * logged CP. |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 230 | */ |
| 231 | if (cplength > 40 || |
| 232 | ((addr_t) cpa < (addr_t) lcqr->cpaddr && |
| 233 | (addr_t) cpa > (addr_t) (lcqr->cpaddr + cplength + 4))) { |
Horst Hummel | 138c014 | 2006-06-29 14:58:12 +0200 | [diff] [blame] | 234 | |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 235 | DEV_MESSAGE(KERN_ERR, device, |
| 236 | "Failed CCW (%p) (area):", |
| 237 | (void *) (long) cpa); |
| 238 | hex_dump_memory(device, cqr->cpaddr - 10, |
| 239 | 20*sizeof(struct ccw1)); |
| 240 | } |
| 241 | } |
| 242 | |
| 243 | } /* end log_erp_chain */ |
| 244 | |
| 245 | EXPORT_SYMBOL(dasd_default_erp_action); |
| 246 | EXPORT_SYMBOL(dasd_default_erp_postaction); |
| 247 | EXPORT_SYMBOL(dasd_alloc_erp_request); |
| 248 | EXPORT_SYMBOL(dasd_free_erp_request); |
| 249 | EXPORT_SYMBOL(dasd_log_sense); |
| 250 | EXPORT_SYMBOL(dasd_log_ccw); |