drivers/s390/net/qeth_core_main.c

   1 /*
   2  *  drivers/s390/net/qeth_core_main.c
   3  *
   4  *    Copyright IBM Corp. 2007, 2009
   5  *    Author(s): Utz Bacher <utz.bacher@de.ibm.com>,
   6  *               Frank Pavlic <fpavlic@de.ibm.com>,
   7  *               Thomas Spatzier <tspat@de.ibm.com>,
   8  *               Frank Blaschka <frank.blaschka@de.ibm.com>
   9  */
  10
  11 #define KMSG_COMPONENT "qeth"
  12 #define pr_fmt(fmt) KMSG_COMPONENT ": " fmt
  13
  14 #include <linux/module.h>
  15 #include <linux/moduleparam.h>
  16 #include <linux/string.h>
  17 #include <linux/errno.h>
  18 #include <linux/kernel.h>
  19 #include <linux/ip.h>
  20 #include <linux/tcp.h>
  21 #include <linux/mii.h>
  22 #include <linux/kthread.h>
  23 #include <linux/slab.h>
  24
  25 #include <asm/ebcdic.h>
  26 #include <asm/io.h>
  27
  28 #include "qeth_core.h"
  29
  30 struct qeth_dbf_info qeth_dbf[QETH_DBF_INFOS] = {
  31         /* define dbf - Name, Pages, Areas, Maxlen, Level, View, Handle */
  32         /*                   N  P  A    M  L  V                      H  */
  33         [QETH_DBF_SETUP] = {"qeth_setup",
  34                                 8, 1,   8, 5, &debug_hex_ascii_view, NULL},
  35         [QETH_DBF_MSG]   = {"qeth_msg",
  36                                 8, 1, 128, 3, &debug_sprintf_view,   NULL},
  37         [QETH_DBF_CTRL]  = {"qeth_control",
  38                 8, 1, QETH_DBF_CTRL_LEN, 5, &debug_hex_ascii_view, NULL},
  39 };
  40 EXPORT_SYMBOL_GPL(qeth_dbf);
  41
  42 struct qeth_card_list_struct qeth_core_card_list;
  43 EXPORT_SYMBOL_GPL(qeth_core_card_list);
  44 struct kmem_cache *qeth_core_header_cache;
  45 EXPORT_SYMBOL_GPL(qeth_core_header_cache);
  46
  47 static struct device *qeth_core_root_dev;
  48 static unsigned int known_devices[][6] = QETH_MODELLIST_ARRAY;
  49 static struct lock_class_key qdio_out_skb_queue_key;
  50
  51 static void qeth_send_control_data_cb(struct qeth_channel *,
  52                         struct qeth_cmd_buffer *);
  53 static int qeth_issue_next_read(struct qeth_card *);
  54 static struct qeth_cmd_buffer *qeth_get_buffer(struct qeth_channel *);
  55 static void qeth_setup_ccw(struct qeth_channel *, unsigned char *, __u32);
  56 static void qeth_free_buffer_pool(struct qeth_card *);
  57 static int qeth_qdio_establish(struct qeth_card *);
  58
  59
  60 static inline const char *qeth_get_cardname(struct qeth_card *card)
  61 {
  62         if (card->info.guestlan) {
  63                 switch (card->info.type) {
  64                 case QETH_CARD_TYPE_OSD:
  65                         return " Guest LAN QDIO";
  66                 case QETH_CARD_TYPE_IQD:
  67                         return " Guest LAN Hiper";
  68                 case QETH_CARD_TYPE_OSM:
  69                         return " Guest LAN QDIO - OSM";
  70                 case QETH_CARD_TYPE_OSX:
  71                         return " Guest LAN QDIO - OSX";
  72                 default:
  73                         return " unknown";
  74                 }
  75         } else {
  76                 switch (card->info.type) {
  77                 case QETH_CARD_TYPE_OSD:
  78                         return " OSD Express";
  79                 case QETH_CARD_TYPE_IQD:
  80                         return " HiperSockets";
  81                 case QETH_CARD_TYPE_OSN:
  82                         return " OSN QDIO";
  83                 case QETH_CARD_TYPE_OSM:
  84                         return " OSM QDIO";
  85                 case QETH_CARD_TYPE_OSX:
  86                         return " OSX QDIO";
  87                 default:
  88                         return " unknown";
  89                 }
  90         }
  91         return " n/a";
  92 }
  93
  94 /* max length to be returned: 14 */
  95 const char *qeth_get_cardname_short(struct qeth_card *card)
  96 {
  97         if (card->info.guestlan) {
  98                 switch (card->info.type) {
  99                 case QETH_CARD_TYPE_OSD:
 100                         return "GuestLAN QDIO";
 101                 case QETH_CARD_TYPE_IQD:
 102                         return "GuestLAN Hiper";
 103                 case QETH_CARD_TYPE_OSM:
 104                         return "GuestLAN OSM";
 105                 case QETH_CARD_TYPE_OSX:
 106                         return "GuestLAN OSX";
 107                 default:
 108                         return "unknown";
 109                 }
 110         } else {
 111                 switch (card->info.type) {
 112                 case QETH_CARD_TYPE_OSD:
 113                         switch (card->info.link_type) {
 114                         case QETH_LINK_TYPE_FAST_ETH:
 115                                 return "OSD_100";
 116                         case QETH_LINK_TYPE_HSTR:
 117                                 return "HSTR";
 118                         case QETH_LINK_TYPE_GBIT_ETH:
 119                                 return "OSD_1000";
 120                         case QETH_LINK_TYPE_10GBIT_ETH:
 121                                 return "OSD_10GIG";
 122                         case QETH_LINK_TYPE_LANE_ETH100:
 123                                 return "OSD_FE_LANE";
 124                         case QETH_LINK_TYPE_LANE_TR:
 125                                 return "OSD_TR_LANE";
 126                         case QETH_LINK_TYPE_LANE_ETH1000:
 127                                 return "OSD_GbE_LANE";
 128                         case QETH_LINK_TYPE_LANE:
 129                                 return "OSD_ATM_LANE";
 130                         default:
 131                                 return "OSD_Express";
 132                         }
 133                 case QETH_CARD_TYPE_IQD:
 134                         return "HiperSockets";
 135                 case QETH_CARD_TYPE_OSN:
 136                         return "OSN";
 137                 case QETH_CARD_TYPE_OSM:
 138                         return "OSM_1000";
 139                 case QETH_CARD_TYPE_OSX:
 140                         return "OSX_10GIG";
 141                 default:
 142                         return "unknown";
 143                 }
 144         }
 145         return "n/a";
 146 }
 147
 148 void qeth_set_allowed_threads(struct qeth_card *card, unsigned long threads,
 149                          int clear_start_mask)
 150 {
 151         unsigned long flags;
 152
 153         spin_lock_irqsave(&card->thread_mask_lock, flags);
 154         card->thread_allowed_mask = threads;
 155         if (clear_start_mask)
 156                 card->thread_start_mask &= threads;
 157         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 158         wake_up(&card->wait_q);
 159 }
 160 EXPORT_SYMBOL_GPL(qeth_set_allowed_threads);
 161
 162 int qeth_threads_running(struct qeth_card *card, unsigned long threads)
 163 {
 164         unsigned long flags;
 165         int rc = 0;
 166
 167         spin_lock_irqsave(&card->thread_mask_lock, flags);
 168         rc = (card->thread_running_mask & threads);
 169         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 170         return rc;
 171 }
 172 EXPORT_SYMBOL_GPL(qeth_threads_running);
 173
 174 int qeth_wait_for_threads(struct qeth_card *card, unsigned long threads)
 175 {
 176         return wait_event_interruptible(card->wait_q,
 177                         qeth_threads_running(card, threads) == 0);
 178 }
 179 EXPORT_SYMBOL_GPL(qeth_wait_for_threads);
 180
 181 void qeth_clear_working_pool_list(struct qeth_card *card)
 182 {
 183         struct qeth_buffer_pool_entry *pool_entry, *tmp;
 184
 185         QETH_CARD_TEXT(card, 5, "clwrklst");
 186         list_for_each_entry_safe(pool_entry, tmp,
 187                             &card->qdio.in_buf_pool.entry_list, list){
 188                         list_del(&pool_entry->list);
 189         }
 190 }
 191 EXPORT_SYMBOL_GPL(qeth_clear_working_pool_list);
 192
 193 static int qeth_alloc_buffer_pool(struct qeth_card *card)
 194 {
 195         struct qeth_buffer_pool_entry *pool_entry;
 196         void *ptr;
 197         int i, j;
 198
 199         QETH_CARD_TEXT(card, 5, "alocpool");
 200         for (i = 0; i < card->qdio.init_pool.buf_count; ++i) {
 201                 pool_entry = kmalloc(sizeof(*pool_entry), GFP_KERNEL);
 202                 if (!pool_entry) {
 203                         qeth_free_buffer_pool(card);
 204                         return -ENOMEM;
 205                 }
 206                 for (j = 0; j < QETH_MAX_BUFFER_ELEMENTS(card); ++j) {
 207                         ptr = (void *) __get_free_page(GFP_KERNEL);
 208                         if (!ptr) {
 209                                 while (j > 0)
 210                                         free_page((unsigned long)
 211                                                   pool_entry->elements[--j]);
 212                                 kfree(pool_entry);
 213                                 qeth_free_buffer_pool(card);
 214                                 return -ENOMEM;
 215                         }
 216                         pool_entry->elements[j] = ptr;
 217                 }
 218                 list_add(&pool_entry->init_list,
 219                          &card->qdio.init_pool.entry_list);
 220         }
 221         return 0;
 222 }
 223
 224 int qeth_realloc_buffer_pool(struct qeth_card *card, int bufcnt)
 225 {
 226         QETH_CARD_TEXT(card, 2, "realcbp");
 227
 228         if ((card->state != CARD_STATE_DOWN) &&
 229             (card->state != CARD_STATE_RECOVER))
 230                 return -EPERM;
 231
 232         /* TODO: steel/add buffers from/to a running card's buffer pool (?) */
 233         qeth_clear_working_pool_list(card);
 234         qeth_free_buffer_pool(card);
 235         card->qdio.in_buf_pool.buf_count = bufcnt;
 236         card->qdio.init_pool.buf_count = bufcnt;
 237         return qeth_alloc_buffer_pool(card);
 238 }
 239 EXPORT_SYMBOL_GPL(qeth_realloc_buffer_pool);
 240
 241 static int qeth_issue_next_read(struct qeth_card *card)
 242 {
 243         int rc;
 244         struct qeth_cmd_buffer *iob;
 245
 246         QETH_CARD_TEXT(card, 5, "issnxrd");
 247         if (card->read.state != CH_STATE_UP)
 248                 return -EIO;
 249         iob = qeth_get_buffer(&card->read);
 250         if (!iob) {
 251                 dev_warn(&card->gdev->dev, "The qeth device driver "
 252                         "failed to recover an error on the device\n");
 253                 QETH_DBF_MESSAGE(2, "%s issue_next_read failed: no iob "
 254                         "available\n", dev_name(&card->gdev->dev));
 255                 return -ENOMEM;
 256         }
 257         qeth_setup_ccw(&card->read, iob->data, QETH_BUFSIZE);
 258         QETH_CARD_TEXT(card, 6, "noirqpnd");
 259         rc = ccw_device_start(card->read.ccwdev, &card->read.ccw,
 260                               (addr_t) iob, 0, 0);
 261         if (rc) {
 262                 QETH_DBF_MESSAGE(2, "%s error in starting next read ccw! "
 263                         "rc=%i\n", dev_name(&card->gdev->dev), rc);
 264                 atomic_set(&card->read.irq_pending, 0);
 265                 qeth_schedule_recovery(card);
 266                 wake_up(&card->wait_q);
 267         }
 268         return rc;
 269 }
 270
 271 static struct qeth_reply *qeth_alloc_reply(struct qeth_card *card)
 272 {
 273         struct qeth_reply *reply;
 274
 275         reply = kzalloc(sizeof(struct qeth_reply), GFP_ATOMIC);
 276         if (reply) {
 277                 atomic_set(&reply->refcnt, 1);
 278                 atomic_set(&reply->received, 0);
 279                 reply->card = card;
 280         };
 281         return reply;
 282 }
 283
 284 static void qeth_get_reply(struct qeth_reply *reply)
 285 {
 286         WARN_ON(atomic_read(&reply->refcnt) <= 0);
 287         atomic_inc(&reply->refcnt);
 288 }
 289
 290 static void qeth_put_reply(struct qeth_reply *reply)
 291 {
 292         WARN_ON(atomic_read(&reply->refcnt) <= 0);
 293         if (atomic_dec_and_test(&reply->refcnt))
 294                 kfree(reply);
 295 }
 296
 297 static void qeth_issue_ipa_msg(struct qeth_ipa_cmd *cmd, int rc,
 298                 struct qeth_card *card)
 299 {
 300         char *ipa_name;
 301         int com = cmd->hdr.command;
 302         ipa_name = qeth_get_ipa_cmd_name(com);
 303         if (rc)
 304                 QETH_DBF_MESSAGE(2, "IPA: %s(x%X) for %s returned x%X \"%s\"\n",
 305                                 ipa_name, com, QETH_CARD_IFNAME(card),
 306                                         rc, qeth_get_ipa_msg(rc));
 307         else
 308                 QETH_DBF_MESSAGE(5, "IPA: %s(x%X) for %s succeeded\n",
 309                                 ipa_name, com, QETH_CARD_IFNAME(card));
 310 }
 311
 312 static struct qeth_ipa_cmd *qeth_check_ipa_data(struct qeth_card *card,
 313                 struct qeth_cmd_buffer *iob)
 314 {
 315         struct qeth_ipa_cmd *cmd = NULL;
 316
 317         QETH_CARD_TEXT(card, 5, "chkipad");
 318         if (IS_IPA(iob->data)) {
 319                 cmd = (struct qeth_ipa_cmd *) PDU_ENCAPSULATION(iob->data);
 320                 if (IS_IPA_REPLY(cmd)) {
 321                         if (cmd->hdr.command != IPA_CMD_SETCCID &&
 322                             cmd->hdr.command != IPA_CMD_DELCCID &&
 323                             cmd->hdr.command != IPA_CMD_MODCCID &&
 324                             cmd->hdr.command != IPA_CMD_SET_DIAG_ASS)
 325                                 qeth_issue_ipa_msg(cmd,
 326                                                 cmd->hdr.return_code, card);
 327                         return cmd;
 328                 } else {
 329                         switch (cmd->hdr.command) {
 330                         case IPA_CMD_STOPLAN:
 331                                 dev_warn(&card->gdev->dev,
 332                                            "The link for interface %s on CHPID"
 333                                            " 0x%X failed\n",
 334                                            QETH_CARD_IFNAME(card),
 335                                            card->info.chpid);
 336                                 card->lan_online = 0;
 337                                 if (card->dev && netif_carrier_ok(card->dev))
 338                                         netif_carrier_off(card->dev);
 339                                 return NULL;
 340                         case IPA_CMD_STARTLAN:
 341                                 dev_info(&card->gdev->dev,
 342                                            "The link for %s on CHPID 0x%X has"
 343                                            " been restored\n",
 344                                            QETH_CARD_IFNAME(card),
 345                                            card->info.chpid);
 346                                 netif_carrier_on(card->dev);
 347                                 card->lan_online = 1;
 348                                 qeth_schedule_recovery(card);
 349                                 return NULL;
 350                         case IPA_CMD_MODCCID:
 351                                 return cmd;
 352                         case IPA_CMD_REGISTER_LOCAL_ADDR:
 353                                 QETH_CARD_TEXT(card, 3, "irla");
 354                                 break;
 355                         case IPA_CMD_UNREGISTER_LOCAL_ADDR:
 356                                 QETH_CARD_TEXT(card, 3, "urla");
 357                                 break;
 358                         default:
 359                                 QETH_DBF_MESSAGE(2, "Received data is IPA "
 360                                            "but not a reply!\n");
 361                                 break;
 362                         }
 363                 }
 364         }
 365         return cmd;
 366 }
 367
 368 void qeth_clear_ipacmd_list(struct qeth_card *card)
 369 {
 370         struct qeth_reply *reply, *r;
 371         unsigned long flags;
 372
 373         QETH_CARD_TEXT(card, 4, "clipalst");
 374
 375         spin_lock_irqsave(&card->lock, flags);
 376         list_for_each_entry_safe(reply, r, &card->cmd_waiter_list, list) {
 377                 qeth_get_reply(reply);
 378                 reply->rc = -EIO;
 379                 atomic_inc(&reply->received);
 380                 list_del_init(&reply->list);
 381                 wake_up(&reply->wait_q);
 382                 qeth_put_reply(reply);
 383         }
 384         spin_unlock_irqrestore(&card->lock, flags);
 385 }
 386 EXPORT_SYMBOL_GPL(qeth_clear_ipacmd_list);
 387
 388 static int qeth_check_idx_response(struct qeth_card *card,
 389         unsigned char *buffer)
 390 {
 391         if (!buffer)
 392                 return 0;
 393
 394         QETH_DBF_HEX(CTRL, 2, buffer, QETH_DBF_CTRL_LEN);
 395         if ((buffer[2] & 0xc0) == 0xc0) {
 396                 QETH_DBF_MESSAGE(2, "received an IDX TERMINATE "
 397                            "with cause code 0x%02x%s\n",
 398                            buffer[4],
 399                            ((buffer[4] == 0x22) ?
 400                             " -- try another portname" : ""));
 401                 QETH_CARD_TEXT(card, 2, "ckidxres");
 402                 QETH_CARD_TEXT(card, 2, " idxterm");
 403                 QETH_CARD_TEXT_(card, 2, "  rc%d", -EIO);
 404                 if (buffer[4] == 0xf6) {
 405                         dev_err(&card->gdev->dev,
 406                         "The qeth device is not configured "
 407                         "for the OSI layer required by z/VM\n");
 408                         return -EPERM;
 409                 }
 410                 return -EIO;
 411         }
 412         return 0;
 413 }
 414
 415 static void qeth_setup_ccw(struct qeth_channel *channel, unsigned char *iob,
 416                 __u32 len)
 417 {
 418         struct qeth_card *card;
 419
 420         card = CARD_FROM_CDEV(channel->ccwdev);
 421         QETH_CARD_TEXT(card, 4, "setupccw");
 422         if (channel == &card->read)
 423                 memcpy(&channel->ccw, READ_CCW, sizeof(struct ccw1));
 424         else
 425                 memcpy(&channel->ccw, WRITE_CCW, sizeof(struct ccw1));
 426         channel->ccw.count = len;
 427         channel->ccw.cda = (__u32) __pa(iob);
 428 }
 429
 430 static struct qeth_cmd_buffer *__qeth_get_buffer(struct qeth_channel *channel)
 431 {
 432         __u8 index;
 433
 434         QETH_CARD_TEXT(CARD_FROM_CDEV(channel->ccwdev), 6, "getbuff");
 435         index = channel->io_buf_no;
 436         do {
 437                 if (channel->iob[index].state == BUF_STATE_FREE) {
 438                         channel->iob[index].state = BUF_STATE_LOCKED;
 439                         channel->io_buf_no = (channel->io_buf_no + 1) %
 440                                 QETH_CMD_BUFFER_NO;
 441                         memset(channel->iob[index].data, 0, QETH_BUFSIZE);
 442                         return channel->iob + index;
 443                 }
 444                 index = (index + 1) % QETH_CMD_BUFFER_NO;
 445         } while (index != channel->io_buf_no);
 446
 447         return NULL;
 448 }
 449
 450 void qeth_release_buffer(struct qeth_channel *channel,
 451                 struct qeth_cmd_buffer *iob)
 452 {
 453         unsigned long flags;
 454
 455         QETH_CARD_TEXT(CARD_FROM_CDEV(channel->ccwdev), 6, "relbuff");
 456         spin_lock_irqsave(&channel->iob_lock, flags);
 457         memset(iob->data, 0, QETH_BUFSIZE);
 458         iob->state = BUF_STATE_FREE;
 459         iob->callback = qeth_send_control_data_cb;
 460         iob->rc = 0;
 461         spin_unlock_irqrestore(&channel->iob_lock, flags);
 462 }
 463 EXPORT_SYMBOL_GPL(qeth_release_buffer);
 464
 465 static struct qeth_cmd_buffer *qeth_get_buffer(struct qeth_channel *channel)
 466 {
 467         struct qeth_cmd_buffer *buffer = NULL;
 468         unsigned long flags;
 469
 470         spin_lock_irqsave(&channel->iob_lock, flags);
 471         buffer = __qeth_get_buffer(channel);
 472         spin_unlock_irqrestore(&channel->iob_lock, flags);
 473         return buffer;
 474 }
 475
 476 struct qeth_cmd_buffer *qeth_wait_for_buffer(struct qeth_channel *channel)
 477 {
 478         struct qeth_cmd_buffer *buffer;
 479         wait_event(channel->wait_q,
 480                    ((buffer = qeth_get_buffer(channel)) != NULL));
 481         return buffer;
 482 }
 483 EXPORT_SYMBOL_GPL(qeth_wait_for_buffer);
 484
 485 void qeth_clear_cmd_buffers(struct qeth_channel *channel)
 486 {
 487         int cnt;
 488
 489         for (cnt = 0; cnt < QETH_CMD_BUFFER_NO; cnt++)
 490                 qeth_release_buffer(channel, &channel->iob[cnt]);
 491         channel->buf_no = 0;
 492         channel->io_buf_no = 0;
 493 }
 494 EXPORT_SYMBOL_GPL(qeth_clear_cmd_buffers);
 495
 496 static void qeth_send_control_data_cb(struct qeth_channel *channel,
 497                   struct qeth_cmd_buffer *iob)
 498 {
 499         struct qeth_card *card;
 500         struct qeth_reply *reply, *r;
 501         struct qeth_ipa_cmd *cmd;
 502         unsigned long flags;
 503         int keep_reply;
 504         int rc = 0;
 505
 506         card = CARD_FROM_CDEV(channel->ccwdev);
 507         QETH_CARD_TEXT(card, 4, "sndctlcb");
 508         rc = qeth_check_idx_response(card, iob->data);
 509         switch (rc) {
 510         case 0:
 511                 break;
 512         case -EIO:
 513                 qeth_clear_ipacmd_list(card);
 514                 qeth_schedule_recovery(card);
 515                 /* fall through */
 516         default:
 517                 goto out;
 518         }
 519
 520         cmd = qeth_check_ipa_data(card, iob);
 521         if ((cmd == NULL) && (card->state != CARD_STATE_DOWN))
 522                 goto out;
 523         /*in case of OSN : check if cmd is set */
 524         if (card->info.type == QETH_CARD_TYPE_OSN &&
 525             cmd &&
 526             cmd->hdr.command != IPA_CMD_STARTLAN &&
 527             card->osn_info.assist_cb != NULL) {
 528                 card->osn_info.assist_cb(card->dev, cmd);
 529                 goto out;
 530         }
 531
 532         spin_lock_irqsave(&card->lock, flags);
 533         list_for_each_entry_safe(reply, r, &card->cmd_waiter_list, list) {
 534                 if ((reply->seqno == QETH_IDX_COMMAND_SEQNO) ||
 535                     ((cmd) && (reply->seqno == cmd->hdr.seqno))) {
 536                         qeth_get_reply(reply);
 537                         list_del_init(&reply->list);
 538                         spin_unlock_irqrestore(&card->lock, flags);
 539                         keep_reply = 0;
 540                         if (reply->callback != NULL) {
 541                                 if (cmd) {
 542                                         reply->offset = (__u16)((char *)cmd -
 543                                                         (char *)iob->data);
 544                                         keep_reply = reply->callback(card,
 545                                                         reply,
 546                                                         (unsigned long)cmd);
 547                                 } else
 548                                         keep_reply = reply->callback(card,
 549                                                         reply,
 550                                                         (unsigned long)iob);
 551                         }
 552                         if (cmd)
 553                                 reply->rc = (u16) cmd->hdr.return_code;
 554                         else if (iob->rc)
 555                                 reply->rc = iob->rc;
 556                         if (keep_reply) {
 557                                 spin_lock_irqsave(&card->lock, flags);
 558                                 list_add_tail(&reply->list,
 559                                               &card->cmd_waiter_list);
 560                                 spin_unlock_irqrestore(&card->lock, flags);
 561                         } else {
 562                                 atomic_inc(&reply->received);
 563                                 wake_up(&reply->wait_q);
 564                         }
 565                         qeth_put_reply(reply);
 566                         goto out;
 567                 }
 568         }
 569         spin_unlock_irqrestore(&card->lock, flags);
 570 out:
 571         memcpy(&card->seqno.pdu_hdr_ack,
 572                 QETH_PDU_HEADER_SEQ_NO(iob->data),
 573                 QETH_SEQ_NO_LENGTH);
 574         qeth_release_buffer(channel, iob);
 575 }
 576
 577 static int qeth_setup_channel(struct qeth_channel *channel)
 578 {
 579         int cnt;
 580
 581         QETH_DBF_TEXT(SETUP, 2, "setupch");
 582         for (cnt = 0; cnt < QETH_CMD_BUFFER_NO; cnt++) {
 583                 channel->iob[cnt].data =
 584                         kmalloc(QETH_BUFSIZE, GFP_DMA|GFP_KERNEL);
 585                 if (channel->iob[cnt].data == NULL)
 586                         break;
 587                 channel->iob[cnt].state = BUF_STATE_FREE;
 588                 channel->iob[cnt].channel = channel;
 589                 channel->iob[cnt].callback = qeth_send_control_data_cb;
 590                 channel->iob[cnt].rc = 0;
 591         }
 592         if (cnt < QETH_CMD_BUFFER_NO) {
 593                 while (cnt-- > 0)
 594                         kfree(channel->iob[cnt].data);
 595                 return -ENOMEM;
 596         }
 597         channel->buf_no = 0;
 598         channel->io_buf_no = 0;
 599         atomic_set(&channel->irq_pending, 0);
 600         spin_lock_init(&channel->iob_lock);
 601
 602         init_waitqueue_head(&channel->wait_q);
 603         return 0;
 604 }
 605
 606 static int qeth_set_thread_start_bit(struct qeth_card *card,
 607                 unsigned long thread)
 608 {
 609         unsigned long flags;
 610
 611         spin_lock_irqsave(&card->thread_mask_lock, flags);
 612         if (!(card->thread_allowed_mask & thread) ||
 613               (card->thread_start_mask & thread)) {
 614                 spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 615                 return -EPERM;
 616         }
 617         card->thread_start_mask |= thread;
 618         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 619         return 0;
 620 }
 621
 622 void qeth_clear_thread_start_bit(struct qeth_card *card, unsigned long thread)
 623 {
 624         unsigned long flags;
 625
 626         spin_lock_irqsave(&card->thread_mask_lock, flags);
 627         card->thread_start_mask &= ~thread;
 628         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 629         wake_up(&card->wait_q);
 630 }
 631 EXPORT_SYMBOL_GPL(qeth_clear_thread_start_bit);
 632
 633 void qeth_clear_thread_running_bit(struct qeth_card *card, unsigned long thread)
 634 {
 635         unsigned long flags;
 636
 637         spin_lock_irqsave(&card->thread_mask_lock, flags);
 638         card->thread_running_mask &= ~thread;
 639         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 640         wake_up(&card->wait_q);
 641 }
 642 EXPORT_SYMBOL_GPL(qeth_clear_thread_running_bit);
 643
 644 static int __qeth_do_run_thread(struct qeth_card *card, unsigned long thread)
 645 {
 646         unsigned long flags;
 647         int rc = 0;
 648
 649         spin_lock_irqsave(&card->thread_mask_lock, flags);
 650         if (card->thread_start_mask & thread) {
 651                 if ((card->thread_allowed_mask & thread) &&
 652                     !(card->thread_running_mask & thread)) {
 653                         rc = 1;
 654                         card->thread_start_mask &= ~thread;
 655                         card->thread_running_mask |= thread;
 656                 } else
 657                         rc = -EPERM;
 658         }
 659         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 660         return rc;
 661 }
 662
 663 int qeth_do_run_thread(struct qeth_card *card, unsigned long thread)
 664 {
 665         int rc = 0;
 666
 667         wait_event(card->wait_q,
 668                    (rc = __qeth_do_run_thread(card, thread)) >= 0);
 669         return rc;
 670 }
 671 EXPORT_SYMBOL_GPL(qeth_do_run_thread);
 672
 673 void qeth_schedule_recovery(struct qeth_card *card)
 674 {
 675         QETH_CARD_TEXT(card, 2, "startrec");
 676         if (qeth_set_thread_start_bit(card, QETH_RECOVER_THREAD) == 0)
 677                 schedule_work(&card->kernel_thread_starter);
 678 }
 679 EXPORT_SYMBOL_GPL(qeth_schedule_recovery);
 680
 681 static int qeth_get_problem(struct ccw_device *cdev, struct irb *irb)
 682 {
 683         int dstat, cstat;
 684         char *sense;
 685         struct qeth_card *card;
 686
 687         sense = (char *) irb->ecw;
 688         cstat = irb->scsw.cmd.cstat;
 689         dstat = irb->scsw.cmd.dstat;
 690         card = CARD_FROM_CDEV(cdev);
 691
 692         if (cstat & (SCHN_STAT_CHN_CTRL_CHK | SCHN_STAT_INTF_CTRL_CHK |
 693                      SCHN_STAT_CHN_DATA_CHK | SCHN_STAT_CHAIN_CHECK |
 694                      SCHN_STAT_PROT_CHECK | SCHN_STAT_PROG_CHECK)) {
 695                 QETH_CARD_TEXT(card, 2, "CGENCHK");
 696                 dev_warn(&cdev->dev, "The qeth device driver "
 697                         "failed to recover an error on the device\n");
 698                 QETH_DBF_MESSAGE(2, "%s check on device dstat=x%x, cstat=x%x\n",
 699                         dev_name(&cdev->dev), dstat, cstat);
 700                 print_hex_dump(KERN_WARNING, "qeth: irb ", DUMP_PREFIX_OFFSET,
 701                                 16, 1, irb, 64, 1);
 702                 return 1;
 703         }
 704
 705         if (dstat & DEV_STAT_UNIT_CHECK) {
 706                 if (sense[SENSE_RESETTING_EVENT_BYTE] &
 707                     SENSE_RESETTING_EVENT_FLAG) {
 708                         QETH_CARD_TEXT(card, 2, "REVIND");
 709                         return 1;
 710                 }
 711                 if (sense[SENSE_COMMAND_REJECT_BYTE] &
 712                     SENSE_COMMAND_REJECT_FLAG) {
 713                         QETH_CARD_TEXT(card, 2, "CMDREJi");
 714                         return 1;
 715                 }
 716                 if ((sense[2] == 0xaf) && (sense[3] == 0xfe)) {
 717                         QETH_CARD_TEXT(card, 2, "AFFE");
 718                         return 1;
 719                 }
 720                 if ((!sense[0]) && (!sense[1]) && (!sense[2]) && (!sense[3])) {
 721                         QETH_CARD_TEXT(card, 2, "ZEROSEN");
 722                         return 0;
 723                 }
 724                 QETH_CARD_TEXT(card, 2, "DGENCHK");
 725                         return 1;
 726         }
 727         return 0;
 728 }
 729
 730 static long __qeth_check_irb_error(struct ccw_device *cdev,
 731                 unsigned long intparm, struct irb *irb)
 732 {
 733         struct qeth_card *card;
 734
 735         card = CARD_FROM_CDEV(cdev);
 736
 737         if (!IS_ERR(irb))
 738                 return 0;
 739
 740         switch (PTR_ERR(irb)) {
 741         case -EIO:
 742                 QETH_DBF_MESSAGE(2, "%s i/o-error on device\n",
 743                         dev_name(&cdev->dev));
 744                 QETH_CARD_TEXT(card, 2, "ckirberr");
 745                 QETH_CARD_TEXT_(card, 2, "  rc%d", -EIO);
 746                 break;
 747         case -ETIMEDOUT:
 748                 dev_warn(&cdev->dev, "A hardware operation timed out"
 749                         " on the device\n");
 750                 QETH_CARD_TEXT(card, 2, "ckirberr");
 751                 QETH_CARD_TEXT_(card, 2, "  rc%d", -ETIMEDOUT);
 752                 if (intparm == QETH_RCD_PARM) {
 753                         if (card && (card->data.ccwdev == cdev)) {
 754                                 card->data.state = CH_STATE_DOWN;
 755                                 wake_up(&card->wait_q);
 756                         }
 757                 }
 758                 break;
 759         default:
 760                 QETH_DBF_MESSAGE(2, "%s unknown error %ld on device\n",
 761                         dev_name(&cdev->dev), PTR_ERR(irb));
 762                 QETH_CARD_TEXT(card, 2, "ckirberr");
 763                 QETH_CARD_TEXT(card, 2, "  rc???");
 764         }
 765         return PTR_ERR(irb);
 766 }
 767
 768 static void qeth_irq(struct ccw_device *cdev, unsigned long intparm,
 769                 struct irb *irb)
 770 {
 771         int rc;
 772         int cstat, dstat;
 773         struct qeth_cmd_buffer *buffer;
 774         struct qeth_channel *channel;
 775         struct qeth_card *card;
 776         struct qeth_cmd_buffer *iob;
 777         __u8 index;
 778
 779         if (__qeth_check_irb_error(cdev, intparm, irb))
 780                 return;
 781         cstat = irb->scsw.cmd.cstat;
 782         dstat = irb->scsw.cmd.dstat;
 783
 784         card = CARD_FROM_CDEV(cdev);
 785         if (!card)
 786                 return;
 787
 788         QETH_CARD_TEXT(card, 5, "irq");
 789
 790         if (card->read.ccwdev == cdev) {
 791                 channel = &card->read;
 792                 QETH_CARD_TEXT(card, 5, "read");
 793         } else if (card->write.ccwdev == cdev) {
 794                 channel = &card->write;
 795                 QETH_CARD_TEXT(card, 5, "write");
 796         } else {
 797                 channel = &card->data;
 798                 QETH_CARD_TEXT(card, 5, "data");
 799         }
 800         atomic_set(&channel->irq_pending, 0);
 801
 802         if (irb->scsw.cmd.fctl & (SCSW_FCTL_CLEAR_FUNC))
 803                 channel->state = CH_STATE_STOPPED;
 804
 805         if (irb->scsw.cmd.fctl & (SCSW_FCTL_HALT_FUNC))
 806                 channel->state = CH_STATE_HALTED;
 807
 808         /*let's wake up immediately on data channel*/
 809         if ((channel == &card->data) && (intparm != 0) &&
 810             (intparm != QETH_RCD_PARM))
 811                 goto out;
 812
 813         if (intparm == QETH_CLEAR_CHANNEL_PARM) {
 814                 QETH_CARD_TEXT(card, 6, "clrchpar");
 815                 /* we don't have to handle this further */
 816                 intparm = 0;
 817         }
 818         if (intparm == QETH_HALT_CHANNEL_PARM) {
 819                 QETH_CARD_TEXT(card, 6, "hltchpar");
 820                 /* we don't have to handle this further */
 821                 intparm = 0;
 822         }
 823         if ((dstat & DEV_STAT_UNIT_EXCEP) ||
 824             (dstat & DEV_STAT_UNIT_CHECK) ||
 825             (cstat)) {
 826                 if (irb->esw.esw0.erw.cons) {
 827                         dev_warn(&channel->ccwdev->dev,
 828                                 "The qeth device driver failed to recover "
 829                                 "an error on the device\n");
 830                         QETH_DBF_MESSAGE(2, "%s sense data available. cstat "
 831                                 "0x%X dstat 0x%X\n",
 832                                 dev_name(&channel->ccwdev->dev), cstat, dstat);
 833                         print_hex_dump(KERN_WARNING, "qeth: irb ",
 834                                 DUMP_PREFIX_OFFSET, 16, 1, irb, 32, 1);
 835                         print_hex_dump(KERN_WARNING, "qeth: sense data ",
 836                                 DUMP_PREFIX_OFFSET, 16, 1, irb->ecw, 32, 1);
 837                 }
 838                 if (intparm == QETH_RCD_PARM) {
 839                         channel->state = CH_STATE_DOWN;
 840                         goto out;
 841                 }
 842                 rc = qeth_get_problem(cdev, irb);
 843                 if (rc) {
 844                         qeth_clear_ipacmd_list(card);
 845                         qeth_schedule_recovery(card);
 846                         goto out;
 847                 }
 848         }
 849
 850         if (intparm == QETH_RCD_PARM) {
 851                 channel->state = CH_STATE_RCD_DONE;
 852                 goto out;
 853         }
 854         if (intparm) {
 855                 buffer = (struct qeth_cmd_buffer *) __va((addr_t)intparm);
 856                 buffer->state = BUF_STATE_PROCESSED;
 857         }
 858         if (channel == &card->data)
 859                 return;
 860         if (channel == &card->read &&
 861             channel->state == CH_STATE_UP)
 862                 qeth_issue_next_read(card);
 863
 864         iob = channel->iob;
 865         index = channel->buf_no;
 866         while (iob[index].state == BUF_STATE_PROCESSED) {
 867                 if (iob[index].callback != NULL)
 868                         iob[index].callback(channel, iob + index);
 869
 870                 index = (index + 1) % QETH_CMD_BUFFER_NO;
 871         }
 872         channel->buf_no = index;
 873 out:
 874         wake_up(&card->wait_q);
 875         return;
 876 }
 877
 878 static void __qeth_clear_output_buffer(struct qeth_qdio_out_q *queue,
 879                  struct qeth_qdio_out_buffer *buf, unsigned int qeth_skip_skb)
 880 {
 881         int i;
 882         struct sk_buff *skb;
 883
 884         /* is PCI flag set on buffer? */
 885         if (buf->buffer->element[0].flags & 0x40)
 886                 atomic_dec(&queue->set_pci_flags_count);
 887
 888         if (!qeth_skip_skb) {
 889                 skb = skb_dequeue(&buf->skb_list);
 890                 while (skb) {
 891                         atomic_dec(&skb->users);
 892                         dev_kfree_skb_any(skb);
 893                         skb = skb_dequeue(&buf->skb_list);
 894                 }
 895         }
 896         for (i = 0; i < QETH_MAX_BUFFER_ELEMENTS(queue->card); ++i) {
 897                 if (buf->buffer->element[i].addr && buf->is_header[i])
 898                         kmem_cache_free(qeth_core_header_cache,
 899                                 buf->buffer->element[i].addr);
 900                 buf->is_header[i] = 0;
 901                 buf->buffer->element[i].length = 0;
 902                 buf->buffer->element[i].addr = NULL;
 903                 buf->buffer->element[i].flags = 0;
 904         }
 905         buf->buffer->element[15].flags = 0;
 906         buf->next_element_to_fill = 0;
 907         atomic_set(&buf->state, QETH_QDIO_BUF_EMPTY);
 908 }
 909
 910 static void qeth_clear_output_buffer(struct qeth_qdio_out_q *queue,
 911                 struct qeth_qdio_out_buffer *buf)
 912 {
 913         __qeth_clear_output_buffer(queue, buf, 0);
 914 }
 915
 916 void qeth_clear_qdio_buffers(struct qeth_card *card)
 917 {
 918         int i, j;
 919
 920         QETH_CARD_TEXT(card, 2, "clearqdbf");
 921         /* clear outbound buffers to free skbs */
 922         for (i = 0; i < card->qdio.no_out_queues; ++i)
 923                 if (card->qdio.out_qs[i]) {
 924                         for (j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j)
 925                                 qeth_clear_output_buffer(card->qdio.out_qs[i],
 926                                                 &card->qdio.out_qs[i]->bufs[j]);
 927                 }
 928 }
 929 EXPORT_SYMBOL_GPL(qeth_clear_qdio_buffers);
 930
 931 static void qeth_free_buffer_pool(struct qeth_card *card)
 932 {
 933         struct qeth_buffer_pool_entry *pool_entry, *tmp;
 934         int i = 0;
 935         list_for_each_entry_safe(pool_entry, tmp,
 936                                  &card->qdio.init_pool.entry_list, init_list){
 937                 for (i = 0; i < QETH_MAX_BUFFER_ELEMENTS(card); ++i)
 938                         free_page((unsigned long)pool_entry->elements[i]);
 939                 list_del(&pool_entry->init_list);
 940                 kfree(pool_entry);
 941         }
 942 }
 943
 944 static void qeth_free_qdio_buffers(struct qeth_card *card)
 945 {
 946         int i, j;
 947
 948         if (atomic_xchg(&card->qdio.state, QETH_QDIO_UNINITIALIZED) ==
 949                 QETH_QDIO_UNINITIALIZED)
 950                 return;
 951         kfree(card->qdio.in_q);
 952         card->qdio.in_q = NULL;
 953         /* inbound buffer pool */
 954         qeth_free_buffer_pool(card);
 955         /* free outbound qdio_qs */
 956         if (card->qdio.out_qs) {
 957                 for (i = 0; i < card->qdio.no_out_queues; ++i) {
 958                         for (j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j)
 959                                 qeth_clear_output_buffer(card->qdio.out_qs[i],
 960                                                 &card->qdio.out_qs[i]->bufs[j]);
 961                         kfree(card->qdio.out_qs[i]);
 962                 }
 963                 kfree(card->qdio.out_qs);
 964                 card->qdio.out_qs = NULL;
 965         }
 966 }
 967
 968 static void qeth_clean_channel(struct qeth_channel *channel)
 969 {
 970         int cnt;
 971
 972         QETH_DBF_TEXT(SETUP, 2, "freech");
 973         for (cnt = 0; cnt < QETH_CMD_BUFFER_NO; cnt++)
 974                 kfree(channel->iob[cnt].data);
 975 }
 976
 977 static void qeth_get_channel_path_desc(struct qeth_card *card)
 978 {
 979         struct ccw_device *ccwdev;
 980         struct channelPath_dsc {
 981                 u8 flags;
 982                 u8 lsn;
 983                 u8 desc;
 984                 u8 chpid;
 985                 u8 swla;
 986                 u8 zeroes;
 987                 u8 chla;
 988                 u8 chpp;
 989         } *chp_dsc;
 990
 991         QETH_DBF_TEXT(SETUP, 2, "chp_desc");
 992
 993         ccwdev = card->data.ccwdev;
 994         chp_dsc = (struct channelPath_dsc *)ccw_device_get_chp_desc(ccwdev, 0);
 995         if (chp_dsc != NULL) {
 996                 /* CHPP field bit 6 == 1 -> single queue */
 997                 if ((chp_dsc->chpp & 0x02) == 0x02)
 998                         card->qdio.no_out_queues = 1;
 999                 card->info.func_level = 0x4100 + chp_dsc->desc;
1000                 kfree(chp_dsc);
1001         }
1002         if (card->qdio.no_out_queues == 1) {
1003                 card->qdio.default_out_queue = 0;
1004                 dev_info(&card->gdev->dev,
1005                         "Priority Queueing not supported\n");
1006         }
1007         QETH_DBF_TEXT_(SETUP, 2, "nr:%x", card->qdio.no_out_queues);
1008         QETH_DBF_TEXT_(SETUP, 2, "lvl:%02x", card->info.func_level);
1009         return;
1010 }
1011
1012 static void qeth_init_qdio_info(struct qeth_card *card)
1013 {
1014         QETH_DBF_TEXT(SETUP, 4, "intqdinf");
1015         atomic_set(&card->qdio.state, QETH_QDIO_UNINITIALIZED);
1016         /* inbound */
1017         card->qdio.in_buf_size = QETH_IN_BUF_SIZE_DEFAULT;
1018         card->qdio.init_pool.buf_count = QETH_IN_BUF_COUNT_DEFAULT;
1019         card->qdio.in_buf_pool.buf_count = card->qdio.init_pool.buf_count;
1020         INIT_LIST_HEAD(&card->qdio.in_buf_pool.entry_list);
1021         INIT_LIST_HEAD(&card->qdio.init_pool.entry_list);
1022 }
1023
1024 static void qeth_set_intial_options(struct qeth_card *card)
1025 {
1026         card->options.route4.type = NO_ROUTER;
1027         card->options.route6.type = NO_ROUTER;
1028         card->options.checksum_type = QETH_CHECKSUM_DEFAULT;
1029         card->options.broadcast_mode = QETH_TR_BROADCAST_ALLRINGS;
1030         card->options.macaddr_mode = QETH_TR_MACADDR_NONCANONICAL;
1031         card->options.fake_broadcast = 0;
1032         card->options.add_hhlen = DEFAULT_ADD_HHLEN;
1033         card->options.performance_stats = 0;
1034         card->options.rx_sg_cb = QETH_RX_SG_CB;
1035         card->options.isolation = ISOLATION_MODE_NONE;
1036 }
1037
1038 static int qeth_do_start_thread(struct qeth_card *card, unsigned long thread)
1039 {
1040         unsigned long flags;
1041         int rc = 0;
1042
1043         spin_lock_irqsave(&card->thread_mask_lock, flags);
1044         QETH_CARD_TEXT_(card, 4, "  %02x%02x%02x",
1045                         (u8) card->thread_start_mask,
1046                         (u8) card->thread_allowed_mask,
1047                         (u8) card->thread_running_mask);
1048         rc = (card->thread_start_mask & thread);
1049         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
1050         return rc;
1051 }
1052
1053 static void qeth_start_kernel_thread(struct work_struct *work)
1054 {
1055         struct qeth_card *card = container_of(work, struct qeth_card,
1056                                         kernel_thread_starter);
1057         QETH_CARD_TEXT(card , 2, "strthrd");
1058
1059         if (card->read.state != CH_STATE_UP &&
1060             card->write.state != CH_STATE_UP)
1061                 return;
1062         if (qeth_do_start_thread(card, QETH_RECOVER_THREAD))
1063                 kthread_run(card->discipline.recover, (void *) card,
1064                                 "qeth_recover");
1065 }
1066
1067 static int qeth_setup_card(struct qeth_card *card)
1068 {
1069
1070         QETH_DBF_TEXT(SETUP, 2, "setupcrd");
1071         QETH_DBF_HEX(SETUP, 2, &card, sizeof(void *));
1072
1073         card->read.state  = CH_STATE_DOWN;
1074         card->write.state = CH_STATE_DOWN;
1075         card->data.state  = CH_STATE_DOWN;
1076         card->state = CARD_STATE_DOWN;
1077         card->lan_online = 0;
1078         card->use_hard_stop = 0;
1079         card->dev = NULL;
1080         spin_lock_init(&card->vlanlock);
1081         spin_lock_init(&card->mclock);
1082         card->vlangrp = NULL;
1083         spin_lock_init(&card->lock);
1084         spin_lock_init(&card->ip_lock);
1085         spin_lock_init(&card->thread_mask_lock);
1086         mutex_init(&card->conf_mutex);
1087         card->thread_start_mask = 0;
1088         card->thread_allowed_mask = 0;
1089         card->thread_running_mask = 0;
1090         INIT_WORK(&card->kernel_thread_starter, qeth_start_kernel_thread);
1091         INIT_LIST_HEAD(&card->ip_list);
1092         INIT_LIST_HEAD(card->ip_tbd_list);
1093         INIT_LIST_HEAD(&card->cmd_waiter_list);
1094         init_waitqueue_head(&card->wait_q);
1095         /* intial options */
1096         qeth_set_intial_options(card);
1097         /* IP address takeover */
1098         INIT_LIST_HEAD(&card->ipato.entries);
1099         card->ipato.enabled = 0;
1100         card->ipato.invert4 = 0;
1101         card->ipato.invert6 = 0;
1102         /* init QDIO stuff */
1103         qeth_init_qdio_info(card);
1104         return 0;
1105 }
1106
1107 static void qeth_core_sl_print(struct seq_file *m, struct service_level *slr)
1108 {
1109         struct qeth_card *card = container_of(slr, struct qeth_card,
1110                                         qeth_service_level);
1111         if (card->info.mcl_level[0])
1112                 seq_printf(m, "qeth: %s firmware level %s\n",
1113                         CARD_BUS_ID(card), card->info.mcl_level);
1114 }
1115
1116 static struct qeth_card *qeth_alloc_card(void)
1117 {
1118         struct qeth_card *card;
1119
1120         QETH_DBF_TEXT(SETUP, 2, "alloccrd");
1121         card = kzalloc(sizeof(struct qeth_card), GFP_DMA|GFP_KERNEL);
1122         if (!card)
1123                 goto out;
1124         QETH_DBF_HEX(SETUP, 2, &card, sizeof(void *));
1125         card->ip_tbd_list = kmalloc(sizeof(struct list_head), GFP_KERNEL);
1126         if (!card->ip_tbd_list) {
1127                 QETH_DBF_TEXT(SETUP, 0, "iptbdnom");
1128                 goto out_card;
1129         }
1130         if (qeth_setup_channel(&card->read))
1131                 goto out_ip;
1132         if (qeth_setup_channel(&card->write))
1133                 goto out_channel;
1134         card->options.layer2 = -1;
1135         card->qeth_service_level.seq_print = qeth_core_sl_print;
1136         register_service_level(&card->qeth_service_level);
1137         return card;
1138
1139 out_channel:
1140         qeth_clean_channel(&card->read);
1141 out_ip:
1142         kfree(card->ip_tbd_list);
1143 out_card:
1144         kfree(card);
1145 out:
1146         return NULL;
1147 }
1148
1149 static int qeth_determine_card_type(struct qeth_card *card)
1150 {
1151         int i = 0;
1152
1153         QETH_DBF_TEXT(SETUP, 2, "detcdtyp");
1154
1155         card->qdio.do_prio_queueing = QETH_PRIOQ_DEFAULT;
1156         card->qdio.default_out_queue = QETH_DEFAULT_QUEUE;
1157         while (known_devices[i][QETH_DEV_MODEL_IND]) {
1158                 if ((CARD_RDEV(card)->id.dev_type ==
1159                                 known_devices[i][QETH_DEV_TYPE_IND]) &&
1160                     (CARD_RDEV(card)->id.dev_model ==
1161                                 known_devices[i][QETH_DEV_MODEL_IND])) {
1162                         card->info.type = known_devices[i][QETH_DEV_MODEL_IND];
1163                         card->qdio.no_out_queues =
1164                                 known_devices[i][QETH_QUEUE_NO_IND];
1165                         card->info.is_multicast_different =
1166                                 known_devices[i][QETH_MULTICAST_IND];
1167                         qeth_get_channel_path_desc(card);
1168                         return 0;
1169                 }
1170                 i++;
1171         }
1172         card->info.type = QETH_CARD_TYPE_UNKNOWN;
1173         dev_err(&card->gdev->dev, "The adapter hardware is of an "
1174                 "unknown type\n");
1175         return -ENOENT;
1176 }
1177
1178 static int qeth_clear_channel(struct qeth_channel *channel)
1179 {
1180         unsigned long flags;
1181         struct qeth_card *card;
1182         int rc;
1183
1184         card = CARD_FROM_CDEV(channel->ccwdev);
1185         QETH_CARD_TEXT(card, 3, "clearch");
1186         spin_lock_irqsave(get_ccwdev_lock(channel->ccwdev), flags);
1187         rc = ccw_device_clear(channel->ccwdev, QETH_CLEAR_CHANNEL_PARM);
1188         spin_unlock_irqrestore(get_ccwdev_lock(channel->ccwdev), flags);
1189
1190         if (rc)
1191                 return rc;
1192         rc = wait_event_interruptible_timeout(card->wait_q,
1193                         channel->state == CH_STATE_STOPPED, QETH_TIMEOUT);
1194         if (rc == -ERESTARTSYS)
1195                 return rc;
1196         if (channel->state != CH_STATE_STOPPED)
1197                 return -ETIME;
1198         channel->state = CH_STATE_DOWN;
1199         return 0;
1200 }
1201
1202 static int qeth_halt_channel(struct qeth_channel *channel)
1203 {
1204         unsigned long flags;
1205         struct qeth_card *card;
1206         int rc;
1207
1208         card = CARD_FROM_CDEV(channel->ccwdev);
1209         QETH_CARD_TEXT(card, 3, "haltch");
1210         spin_lock_irqsave(get_ccwdev_lock(channel->ccwdev), flags);
1211         rc = ccw_device_halt(channel->ccwdev, QETH_HALT_CHANNEL_PARM);
1212         spin_unlock_irqrestore(get_ccwdev_lock(channel->ccwdev), flags);
1213
1214         if (rc)
1215                 return rc;
1216         rc = wait_event_interruptible_timeout(card->wait_q,
1217                         channel->state == CH_STATE_HALTED, QETH_TIMEOUT);
1218         if (rc == -ERESTARTSYS)
1219                 return rc;
1220         if (channel->state != CH_STATE_HALTED)
1221                 return -ETIME;
1222         return 0;
1223 }
1224
1225 static int qeth_halt_channels(struct qeth_card *card)
1226 {
1227         int rc1 = 0, rc2 = 0, rc3 = 0;
1228
1229         QETH_CARD_TEXT(card, 3, "haltchs");
1230         rc1 = qeth_halt_channel(&card->read);
1231         rc2 = qeth_halt_channel(&card->write);
1232         rc3 = qeth_halt_channel(&card->data);
1233         if (rc1)
1234                 return rc1;
1235         if (rc2)
1236                 return rc2;
1237         return rc3;
1238 }
1239
1240 static int qeth_clear_channels(struct qeth_card *card)
1241 {
1242         int rc1 = 0, rc2 = 0, rc3 = 0;
1243
1244         QETH_CARD_TEXT(card, 3, "clearchs");
1245         rc1 = qeth_clear_channel(&card->read);
1246         rc2 = qeth_clear_channel(&card->write);
1247         rc3 = qeth_clear_channel(&card->data);
1248         if (rc1)
1249                 return rc1;
1250         if (rc2)
1251                 return rc2;
1252         return rc3;
1253 }
1254
1255 static int qeth_clear_halt_card(struct qeth_card *card, int halt)
1256 {
1257         int rc = 0;
1258
1259         QETH_CARD_TEXT(card, 3, "clhacrd");
1260
1261         if (halt)
1262                 rc = qeth_halt_channels(card);
1263         if (rc)
1264                 return rc;
1265         return qeth_clear_channels(card);
1266 }
1267
1268 int qeth_qdio_clear_card(struct qeth_card *card, int use_halt)
1269 {
1270         int rc = 0;
1271
1272         QETH_CARD_TEXT(card, 3, "qdioclr");
1273         switch (atomic_cmpxchg(&card->qdio.state, QETH_QDIO_ESTABLISHED,
1274                 QETH_QDIO_CLEANING)) {
1275         case QETH_QDIO_ESTABLISHED:
1276                 if (card->info.type == QETH_CARD_TYPE_IQD)
1277                         rc = qdio_shutdown(CARD_DDEV(card),
1278                                 QDIO_FLAG_CLEANUP_USING_HALT);
1279                 else
1280                         rc = qdio_shutdown(CARD_DDEV(card),
1281                                 QDIO_FLAG_CLEANUP_USING_CLEAR);
1282                 if (rc)
1283                         QETH_CARD_TEXT_(card, 3, "1err%d", rc);
1284                 qdio_free(CARD_DDEV(card));
1285                 atomic_set(&card->qdio.state, QETH_QDIO_ALLOCATED);
1286                 break;
1287         case QETH_QDIO_CLEANING:
1288                 return rc;
1289         default:
1290                 break;
1291         }
1292         rc = qeth_clear_halt_card(card, use_halt);
1293         if (rc)
1294                 QETH_CARD_TEXT_(card, 3, "2err%d", rc);
1295         card->state = CARD_STATE_DOWN;
1296         return rc;
1297 }
1298 EXPORT_SYMBOL_GPL(qeth_qdio_clear_card);
1299
1300 static int qeth_read_conf_data(struct qeth_card *card, void **buffer,
1301                                int *length)
1302 {
1303         struct ciw *ciw;
1304         char *rcd_buf;
1305         int ret;
1306         struct qeth_channel *channel = &card->data;
1307         unsigned long flags;
1308
1309         /*
1310          * scan for RCD command in extended SenseID data
1311          */
1312         ciw = ccw_device_get_ciw(channel->ccwdev, CIW_TYPE_RCD);
1313         if (!ciw || ciw->cmd == 0)
1314                 return -EOPNOTSUPP;
1315         rcd_buf = kzalloc(ciw->count, GFP_KERNEL | GFP_DMA);
1316         if (!rcd_buf)
1317                 return -ENOMEM;
1318
1319         channel->ccw.cmd_code = ciw->cmd;
1320         channel->ccw.cda = (__u32) __pa(rcd_buf);
1321         channel->ccw.count = ciw->count;
1322         channel->ccw.flags = CCW_FLAG_SLI;
1323         channel->state = CH_STATE_RCD;
1324         spin_lock_irqsave(get_ccwdev_lock(channel->ccwdev), flags);
1325         ret = ccw_device_start_timeout(channel->ccwdev, &channel->ccw,
1326                                        QETH_RCD_PARM, LPM_ANYPATH, 0,
1327                                        QETH_RCD_TIMEOUT);
1328         spin_unlock_irqrestore(get_ccwdev_lock(channel->ccwdev), flags);
1329         if (!ret)
1330                 wait_event(card->wait_q,
1331                            (channel->state == CH_STATE_RCD_DONE ||
1332                             channel->state == CH_STATE_DOWN));
1333         if (channel->state == CH_STATE_DOWN)
1334                 ret = -EIO;
1335         else
1336                 channel->state = CH_STATE_DOWN;
1337         if (ret) {
1338                 kfree(rcd_buf);
1339                 *buffer = NULL;
1340                 *length = 0;
1341         } else {
1342                 *length = ciw->count;
1343                 *buffer = rcd_buf;
1344         }
1345         return ret;
1346 }
1347
1348 static void qeth_configure_unitaddr(struct qeth_card *card, char *prcd)
1349 {
1350         QETH_DBF_TEXT(SETUP, 2, "cfgunit");
1351         card->info.chpid = prcd[30];
1352         card->info.unit_addr2 = prcd[31];
1353         card->info.cula = prcd[63];
1354         card->info.guestlan = ((prcd[0x10] == _ascebc['V']) &&
1355                                (prcd[0x11] == _ascebc['M']));
1356 }
1357
1358 static void qeth_configure_blkt_default(struct qeth_card *card, char *prcd)
1359 {
1360         QETH_DBF_TEXT(SETUP, 2, "cfgblkt");
1361
1362         if (prcd[74] == 0xF0 && prcd[75] == 0xF0 && prcd[76] == 0xF5) {
1363                 card->info.blkt.time_total = 250;
1364                 card->info.blkt.inter_packet = 5;
1365                 card->info.blkt.inter_packet_jumbo = 15;
1366         } else {
1367                 card->info.blkt.time_total = 0;
1368                 card->info.blkt.inter_packet = 0;
1369                 card->info.blkt.inter_packet_jumbo = 0;
1370         }
1371 }
1372
1373 static void qeth_init_tokens(struct qeth_card *card)
1374 {
1375         card->token.issuer_rm_w = 0x00010103UL;
1376         card->token.cm_filter_w = 0x00010108UL;
1377         card->token.cm_connection_w = 0x0001010aUL;
1378         card->token.ulp_filter_w = 0x0001010bUL;
1379         card->token.ulp_connection_w = 0x0001010dUL;
1380 }
1381
1382 static void qeth_init_func_level(struct qeth_card *card)
1383 {
1384         switch (card->info.type) {
1385         case QETH_CARD_TYPE_IQD:
1386                 card->info.func_level = QETH_IDX_FUNC_LEVEL_IQD;
1387                 break;
1388         case QETH_CARD_TYPE_OSD:
1389         case QETH_CARD_TYPE_OSN:
1390                 card->info.func_level = QETH_IDX_FUNC_LEVEL_OSD;
1391                 break;
1392         default:
1393                 break;
1394         }
1395 }
1396
1397 static int qeth_idx_activate_get_answer(struct qeth_channel *channel,
1398                 void (*idx_reply_cb)(struct qeth_channel *,
1399                         struct qeth_cmd_buffer *))
1400 {
1401         struct qeth_cmd_buffer *iob;
1402         unsigned long flags;
1403         int rc;
1404         struct qeth_card *card;
1405
1406         QETH_DBF_TEXT(SETUP, 2, "idxanswr");
1407         card = CARD_FROM_CDEV(channel->ccwdev);
1408         iob = qeth_get_buffer(channel);
1409         iob->callback = idx_reply_cb;
1410         memcpy(&channel->ccw, READ_CCW, sizeof(struct ccw1));
1411         channel->ccw.count = QETH_BUFSIZE;
1412         channel->ccw.cda = (__u32) __pa(iob->data);
1413
1414         wait_event(card->wait_q,
1415                    atomic_cmpxchg(&channel->irq_pending, 0, 1) == 0);
1416         QETH_DBF_TEXT(SETUP, 6, "noirqpnd");
1417         spin_lock_irqsave(get_ccwdev_lock(channel->ccwdev), flags);
1418         rc = ccw_device_start(channel->ccwdev,
1419                               &channel->ccw, (addr_t) iob, 0, 0);
1420         spin_unlock_irqrestore(get_ccwdev_lock(channel->ccwdev), flags);
1421
1422         if (rc) {
1423                 QETH_DBF_MESSAGE(2, "Error2 in activating channel rc=%d\n", rc);
1424                 QETH_DBF_TEXT_(SETUP, 2, "2err%d", rc);
1425                 atomic_set(&channel->irq_pending, 0);
1426                 wake_up(&card->wait_q);
1427                 return rc;
1428         }
1429         rc = wait_event_interruptible_timeout(card->wait_q,
1430                          channel->state == CH_STATE_UP, QETH_TIMEOUT);
1431         if (rc == -ERESTARTSYS)
1432                 return rc;
1433         if (channel->state != CH_STATE_UP) {
1434                 rc = -ETIME;
1435                 QETH_DBF_TEXT_(SETUP, 2, "3err%d", rc);
1436                 qeth_clear_cmd_buffers(channel);
1437         } else
1438                 rc = 0;
1439         return rc;
1440 }
1441
1442 static int qeth_idx_activate_channel(struct qeth_channel *channel,
1443                 void (*idx_reply_cb)(struct qeth_channel *,
1444                         struct qeth_cmd_buffer *))
1445 {
1446         struct qeth_card *card;
1447         struct qeth_cmd_buffer *iob;
1448         unsigned long flags;
1449         __u16 temp;
1450         __u8 tmp;
1451         int rc;
1452         struct ccw_dev_id temp_devid;
1453
1454         card = CARD_FROM_CDEV(channel->ccwdev);
1455
1456         QETH_DBF_TEXT(SETUP, 2, "idxactch");
1457
1458         iob = qeth_get_buffer(channel);
1459         iob->callback = idx_reply_cb;
1460         memcpy(&channel->ccw, WRITE_CCW, sizeof(struct ccw1));
1461         channel->ccw.count = IDX_ACTIVATE_SIZE;
1462         channel->ccw.cda = (__u32) __pa(iob->data);
1463         if (channel == &card->write) {
1464                 memcpy(iob->data, IDX_ACTIVATE_WRITE, IDX_ACTIVATE_SIZE);
1465                 memcpy(QETH_TRANSPORT_HEADER_SEQ_NO(iob->data),
1466                        &card->seqno.trans_hdr, QETH_SEQ_NO_LENGTH);
1467                 card->seqno.trans_hdr++;
1468         } else {
1469                 memcpy(iob->data, IDX_ACTIVATE_READ, IDX_ACTIVATE_SIZE);
1470                 memcpy(QETH_TRANSPORT_HEADER_SEQ_NO(iob->data),
1471                        &card->seqno.trans_hdr, QETH_SEQ_NO_LENGTH);
1472         }
1473         tmp = ((__u8)card->info.portno) | 0x80;
1474         memcpy(QETH_IDX_ACT_PNO(iob->data), &tmp, 1);
1475         memcpy(QETH_IDX_ACT_ISSUER_RM_TOKEN(iob->data),
1476                &card->token.issuer_rm_w, QETH_MPC_TOKEN_LENGTH);
1477         memcpy(QETH_IDX_ACT_FUNC_LEVEL(iob->data),
1478                &card->info.func_level, sizeof(__u16));
1479         ccw_device_get_id(CARD_DDEV(card), &temp_devid);
1480         memcpy(QETH_IDX_ACT_QDIO_DEV_CUA(iob->data), &temp_devid.devno, 2);
1481         temp = (card->info.cula << 8) + card->info.unit_addr2;
1482         memcpy(QETH_IDX_ACT_QDIO_DEV_REALADDR(iob->data), &temp, 2);
1483
1484         wait_event(card->wait_q,
1485                    atomic_cmpxchg(&channel->irq_pending, 0, 1) == 0);
1486         QETH_DBF_TEXT(SETUP, 6, "noirqpnd");
1487         spin_lock_irqsave(get_ccwdev_lock(channel->ccwdev), flags);
1488         rc = ccw_device_start(channel->ccwdev,
1489                               &channel->ccw, (addr_t) iob, 0, 0);
1490         spin_unlock_irqrestore(get_ccwdev_lock(channel->ccwdev), flags);
1491
1492         if (rc) {
1493                 QETH_DBF_MESSAGE(2, "Error1 in activating channel. rc=%d\n",
1494                         rc);
1495                 QETH_DBF_TEXT_(SETUP, 2, "1err%d", rc);
1496                 atomic_set(&channel->irq_pending, 0);
1497                 wake_up(&card->wait_q);
1498                 return rc;
1499         }
1500         rc = wait_event_interruptible_timeout(card->wait_q,
1501                         channel->state == CH_STATE_ACTIVATING, QETH_TIMEOUT);
1502         if (rc == -ERESTARTSYS)
1503                 return rc;
1504         if (channel->state != CH_STATE_ACTIVATING) {
1505                 dev_warn(&channel->ccwdev->dev, "The qeth device driver"
1506                         " failed to recover an error on the device\n");
1507                 QETH_DBF_MESSAGE(2, "%s IDX activate timed out\n",
1508                         dev_name(&channel->ccwdev->dev));
1509                 QETH_DBF_TEXT_(SETUP, 2, "2err%d", -ETIME);
1510                 qeth_clear_cmd_buffers(channel);
1511                 return -ETIME;
1512         }
1513         return qeth_idx_activate_get_answer(channel, idx_reply_cb);
1514 }
1515
1516 static int qeth_peer_func_level(int level)
1517 {
1518         if ((level & 0xff) == 8)
1519                 return (level & 0xff) + 0x400;
1520         if (((level >> 8) & 3) == 1)
1521                 return (level & 0xff) + 0x200;
1522         return level;
1523 }
1524
1525 static void qeth_idx_write_cb(struct qeth_channel *channel,
1526                 struct qeth_cmd_buffer *iob)
1527 {
1528         struct qeth_card *card;
1529         __u16 temp;
1530
1531         QETH_DBF_TEXT(SETUP , 2, "idxwrcb");
1532
1533         if (channel->state == CH_STATE_DOWN) {
1534                 channel->state = CH_STATE_ACTIVATING;
1535                 goto out;
1536         }
1537         card = CARD_FROM_CDEV(channel->ccwdev);
1538
1539         if (!(QETH_IS_IDX_ACT_POS_REPLY(iob->data))) {
1540                 if (QETH_IDX_ACT_CAUSE_CODE(iob->data) == QETH_IDX_ACT_ERR_EXCL)
1541                         dev_err(&card->write.ccwdev->dev,
1542                                 "The adapter is used exclusively by another "
1543                                 "host\n");
1544                 else
1545                         QETH_DBF_MESSAGE(2, "%s IDX_ACTIVATE on write channel:"
1546                                 " negative reply\n",
1547                                 dev_name(&card->write.ccwdev->dev));
1548                 goto out;
1549         }
1550         memcpy(&temp, QETH_IDX_ACT_FUNC_LEVEL(iob->data), 2);
1551         if ((temp & ~0x0100) != qeth_peer_func_level(card->info.func_level)) {
1552                 QETH_DBF_MESSAGE(2, "%s IDX_ACTIVATE on write channel: "
1553                         "function level mismatch (sent: 0x%x, received: "
1554                         "0x%x)\n", dev_name(&card->write.ccwdev->dev),
1555                         card->info.func_level, temp);
1556                 goto out;
1557         }
1558         channel->state = CH_STATE_UP;
1559 out:
1560         qeth_release_buffer(channel, iob);
1561 }
1562
1563 static void qeth_idx_read_cb(struct qeth_channel *channel,
1564                 struct qeth_cmd_buffer *iob)
1565 {
1566         struct qeth_card *card;
1567         __u16 temp;
1568
1569         QETH_DBF_TEXT(SETUP , 2, "idxrdcb");
1570         if (channel->state == CH_STATE_DOWN) {
1571                 channel->state = CH_STATE_ACTIVATING;
1572                 goto out;
1573         }
1574
1575         card = CARD_FROM_CDEV(channel->ccwdev);
1576         if (qeth_check_idx_response(card, iob->data))
1577                         goto out;
1578
1579         if (!(QETH_IS_IDX_ACT_POS_REPLY(iob->data))) {
1580                 switch (QETH_IDX_ACT_CAUSE_CODE(iob->data)) {
1581                 case QETH_IDX_ACT_ERR_EXCL:
1582                         dev_err(&card->write.ccwdev->dev,
1583                                 "The adapter is used exclusively by another "
1584                                 "host\n");
1585                         break;
1586                 case QETH_IDX_ACT_ERR_AUTH:
1587                 case QETH_IDX_ACT_ERR_AUTH_USER:
1588                         dev_err(&card->read.ccwdev->dev,
1589                                 "Setting the device online failed because of "
1590                                 "insufficient authorization\n");
1591                         break;
1592                 default:
1593                         QETH_DBF_MESSAGE(2, "%s IDX_ACTIVATE on read channel:"
1594                                 " negative reply\n",
1595                                 dev_name(&card->read.ccwdev->dev));
1596                 }
1597                 QETH_CARD_TEXT_(card, 2, "idxread%c",
1598                         QETH_IDX_ACT_CAUSE_CODE(iob->data));
1599                 goto out;
1600         }
1601
1602 /**
1603  *  * temporary fix for microcode bug
1604  *   * to revert it,replace OR by AND
1605  *    */
1606         if ((!QETH_IDX_NO_PORTNAME_REQUIRED(iob->data)) ||
1607              (card->info.type == QETH_CARD_TYPE_OSD))
1608                 card->info.portname_required = 1;
1609
1610         memcpy(&temp, QETH_IDX_ACT_FUNC_LEVEL(iob->data), 2);
1611         if (temp != qeth_peer_func_level(card->info.func_level)) {
1612                 QETH_DBF_MESSAGE(2, "%s IDX_ACTIVATE on read channel: function "
1613                         "level mismatch (sent: 0x%x, received: 0x%x)\n",
1614                         dev_name(&card->read.ccwdev->dev),
1615                         card->info.func_level, temp);
1616                 goto out;
1617         }
1618         memcpy(&card->token.issuer_rm_r,
1619                QETH_IDX_ACT_ISSUER_RM_TOKEN(iob->data),
1620                QETH_MPC_TOKEN_LENGTH);
1621         memcpy(&card->info.mcl_level[0],
1622                QETH_IDX_REPLY_LEVEL(iob->data), QETH_MCL_LENGTH);
1623         channel->state = CH_STATE_UP;
1624 out:
1625         qeth_release_buffer(channel, iob);
1626 }
1627
1628 void qeth_prepare_control_data(struct qeth_card *card, int len,
1629                 struct qeth_cmd_buffer *iob)
1630 {
1631         qeth_setup_ccw(&card->write, iob->data, len);
1632         iob->callback = qeth_release_buffer;
1633
1634         memcpy(QETH_TRANSPORT_HEADER_SEQ_NO(iob->data),
1635                &card->seqno.trans_hdr, QETH_SEQ_NO_LENGTH);
1636         card->seqno.trans_hdr++;
1637         memcpy(QETH_PDU_HEADER_SEQ_NO(iob->data),
1638                &card->seqno.pdu_hdr, QETH_SEQ_NO_LENGTH);
1639         card->seqno.pdu_hdr++;
1640         memcpy(QETH_PDU_HEADER_ACK_SEQ_NO(iob->data),
1641                &card->seqno.pdu_hdr_ack, QETH_SEQ_NO_LENGTH);
1642         QETH_DBF_HEX(CTRL, 2, iob->data, QETH_DBF_CTRL_LEN);
1643 }
1644 EXPORT_SYMBOL_GPL(qeth_prepare_control_data);
1645
1646 int qeth_send_control_data(struct qeth_card *card, int len,
1647                 struct qeth_cmd_buffer *iob,
1648                 int (*reply_cb)(struct qeth_card *, struct qeth_reply *,
1649                         unsigned long),
1650                 void *reply_param)
1651 {
1652         int rc;
1653         unsigned long flags;
1654         struct qeth_reply *reply = NULL;
1655         unsigned long timeout, event_timeout;
1656         struct qeth_ipa_cmd *cmd;
1657
1658         QETH_CARD_TEXT(card, 2, "sendctl");
1659
1660         reply = qeth_alloc_reply(card);
1661         if (!reply) {
1662                 return -ENOMEM;
1663         }
1664         reply->callback = reply_cb;
1665         reply->param = reply_param;
1666         if (card->state == CARD_STATE_DOWN)
1667                 reply->seqno = QETH_IDX_COMMAND_SEQNO;
1668         else
1669                 reply->seqno = card->seqno.ipa++;
1670         init_waitqueue_head(&reply->wait_q);
1671         spin_lock_irqsave(&card->lock, flags);
1672         list_add_tail(&reply->list, &card->cmd_waiter_list);
1673         spin_unlock_irqrestore(&card->lock, flags);
1674         QETH_DBF_HEX(CTRL, 2, iob->data, QETH_DBF_CTRL_LEN);
1675
1676         while (atomic_cmpxchg(&card->write.irq_pending, 0, 1)) ;
1677         qeth_prepare_control_data(card, len, iob);
1678
1679         if (IS_IPA(iob->data))
1680                 event_timeout = QETH_IPA_TIMEOUT;
1681         else
1682                 event_timeout = QETH_TIMEOUT;
1683         timeout = jiffies + event_timeout;
1684
1685         QETH_CARD_TEXT(card, 6, "noirqpnd");
1686         spin_lock_irqsave(get_ccwdev_lock(card->write.ccwdev), flags);
1687         rc = ccw_device_start(card->write.ccwdev, &card->write.ccw,
1688                               (addr_t) iob, 0, 0);
1689         spin_unlock_irqrestore(get_ccwdev_lock(card->write.ccwdev), flags);
1690         if (rc) {
1691                 QETH_DBF_MESSAGE(2, "%s qeth_send_control_data: "
1692                         "ccw_device_start rc = %i\n",
1693                         dev_name(&card->write.ccwdev->dev), rc);
1694                 QETH_CARD_TEXT_(card, 2, " err%d", rc);
1695                 spin_lock_irqsave(&card->lock, flags);
1696                 list_del_init(&reply->list);
1697                 qeth_put_reply(reply);
1698                 spin_unlock_irqrestore(&card->lock, flags);
1699                 qeth_release_buffer(iob->channel, iob);
1700                 atomic_set(&card->write.irq_pending, 0);
1701                 wake_up(&card->wait_q);
1702                 return rc;
1703         }
1704
1705         /* we have only one long running ipassist, since we can ensure
1706            process context of this command we can sleep */
1707         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
1708         if ((cmd->hdr.command == IPA_CMD_SETIP) &&
1709             (cmd->hdr.prot_version == QETH_PROT_IPV4)) {
1710                 if (!wait_event_timeout(reply->wait_q,
1711                     atomic_read(&reply->received), event_timeout))
1712                         goto time_err;
1713         } else {
1714                 while (!atomic_read(&reply->received)) {
1715                         if (time_after(jiffies, timeout))
1716                                 goto time_err;
1717                         cpu_relax();
1718                 };
1719         }
1720
1721         rc = reply->rc;
1722         qeth_put_reply(reply);
1723         return rc;
1724
1725 time_err:
1726         spin_lock_irqsave(&reply->card->lock, flags);
1727         list_del_init(&reply->list);
1728         spin_unlock_irqrestore(&reply->card->lock, flags);
1729         reply->rc = -ETIME;
1730         atomic_inc(&reply->received);
1731         wake_up(&reply->wait_q);
1732         rc = reply->rc;
1733         qeth_put_reply(reply);
1734         return rc;
1735 }
1736 EXPORT_SYMBOL_GPL(qeth_send_control_data);
1737
1738 static int qeth_cm_enable_cb(struct qeth_card *card, struct qeth_reply *reply,
1739                 unsigned long data)
1740 {
1741         struct qeth_cmd_buffer *iob;
1742
1743         QETH_DBF_TEXT(SETUP, 2, "cmenblcb");
1744
1745         iob = (struct qeth_cmd_buffer *) data;
1746         memcpy(&card->token.cm_filter_r,
1747                QETH_CM_ENABLE_RESP_FILTER_TOKEN(iob->data),
1748                QETH_MPC_TOKEN_LENGTH);
1749         QETH_DBF_TEXT_(SETUP, 2, "  rc%d", iob->rc);
1750         return 0;
1751 }
1752
1753 static int qeth_cm_enable(struct qeth_card *card)
1754 {
1755         int rc;
1756         struct qeth_cmd_buffer *iob;
1757
1758         QETH_DBF_TEXT(SETUP, 2, "cmenable");
1759
1760         iob = qeth_wait_for_buffer(&card->write);
1761         memcpy(iob->data, CM_ENABLE, CM_ENABLE_SIZE);
1762         memcpy(QETH_CM_ENABLE_ISSUER_RM_TOKEN(iob->data),
1763                &card->token.issuer_rm_r, QETH_MPC_TOKEN_LENGTH);
1764         memcpy(QETH_CM_ENABLE_FILTER_TOKEN(iob->data),
1765                &card->token.cm_filter_w, QETH_MPC_TOKEN_LENGTH);
1766
1767         rc = qeth_send_control_data(card, CM_ENABLE_SIZE, iob,
1768                                     qeth_cm_enable_cb, NULL);
1769         return rc;
1770 }
1771
1772 static int qeth_cm_setup_cb(struct qeth_card *card, struct qeth_reply *reply,
1773                 unsigned long data)
1774 {
1775
1776         struct qeth_cmd_buffer *iob;
1777
1778         QETH_DBF_TEXT(SETUP, 2, "cmsetpcb");
1779
1780         iob = (struct qeth_cmd_buffer *) data;
1781         memcpy(&card->token.cm_connection_r,
1782                QETH_CM_SETUP_RESP_DEST_ADDR(iob->data),
1783                QETH_MPC_TOKEN_LENGTH);
1784         QETH_DBF_TEXT_(SETUP, 2, "  rc%d", iob->rc);
1785         return 0;
1786 }
1787
1788 static int qeth_cm_setup(struct qeth_card *card)
1789 {
1790         int rc;
1791         struct qeth_cmd_buffer *iob;
1792
1793         QETH_DBF_TEXT(SETUP, 2, "cmsetup");
1794
1795         iob = qeth_wait_for_buffer(&card->write);
1796         memcpy(iob->data, CM_SETUP, CM_SETUP_SIZE);
1797         memcpy(QETH_CM_SETUP_DEST_ADDR(iob->data),
1798                &card->token.issuer_rm_r, QETH_MPC_TOKEN_LENGTH);
1799         memcpy(QETH_CM_SETUP_CONNECTION_TOKEN(iob->data),
1800                &card->token.cm_connection_w, QETH_MPC_TOKEN_LENGTH);
1801         memcpy(QETH_CM_SETUP_FILTER_TOKEN(iob->data),
1802                &card->token.cm_filter_r, QETH_MPC_TOKEN_LENGTH);
1803         rc = qeth_send_control_data(card, CM_SETUP_SIZE, iob,
1804                                     qeth_cm_setup_cb, NULL);
1805         return rc;
1806
1807 }
1808
1809 static inline int qeth_get_initial_mtu_for_card(struct qeth_card *card)
1810 {
1811         switch (card->info.type) {
1812         case QETH_CARD_TYPE_UNKNOWN:
1813                 return 1500;
1814         case QETH_CARD_TYPE_IQD:
1815                 return card->info.max_mtu;
1816         case QETH_CARD_TYPE_OSD:
1817                 switch (card->info.link_type) {
1818                 case QETH_LINK_TYPE_HSTR:
1819                 case QETH_LINK_TYPE_LANE_TR:
1820                         return 2000;
1821                 default:
1822                         return 1492;
1823                 }
1824         case QETH_CARD_TYPE_OSM:
1825         case QETH_CARD_TYPE_OSX:
1826                 return 1492;
1827         default:
1828                 return 1500;
1829         }
1830 }
1831
1832 static inline int qeth_get_max_mtu_for_card(int cardtype)
1833 {
1834         switch (cardtype) {
1835
1836         case QETH_CARD_TYPE_UNKNOWN:
1837         case QETH_CARD_TYPE_OSD:
1838         case QETH_CARD_TYPE_OSN:
1839         case QETH_CARD_TYPE_OSM:
1840         case QETH_CARD_TYPE_OSX:
1841                 return 61440;
1842         case QETH_CARD_TYPE_IQD:
1843                 return 57344;
1844         default:
1845                 return 1500;
1846         }
1847 }
1848
1849 static inline int qeth_get_mtu_out_of_mpc(int cardtype)
1850 {
1851         switch (cardtype) {
1852         case QETH_CARD_TYPE_IQD:
1853                 return 1;
1854         default:
1855                 return 0;
1856         }
1857 }
1858
1859 static inline int qeth_get_mtu_outof_framesize(int framesize)
1860 {
1861         switch (framesize) {
1862         case 0x4000:
1863                 return 8192;
1864         case 0x6000:
1865                 return 16384;
1866         case 0xa000:
1867                 return 32768;
1868         case 0xffff:
1869                 return 57344;
1870         default:
1871                 return 0;
1872         }
1873 }
1874
1875 static inline int qeth_mtu_is_valid(struct qeth_card *card, int mtu)
1876 {
1877         switch (card->info.type) {
1878         case QETH_CARD_TYPE_OSD:
1879         case QETH_CARD_TYPE_OSM:
1880         case QETH_CARD_TYPE_OSX:
1881                 return ((mtu >= 576) && (mtu <= 61440));
1882         case QETH_CARD_TYPE_IQD:
1883                 return ((mtu >= 576) &&
1884                         (mtu <= card->info.max_mtu + 4096 - 32));
1885         case QETH_CARD_TYPE_OSN:
1886         case QETH_CARD_TYPE_UNKNOWN:
1887         default:
1888                 return 1;
1889         }
1890 }
1891
1892 static int qeth_ulp_enable_cb(struct qeth_card *card, struct qeth_reply *reply,
1893                 unsigned long data)
1894 {
1895
1896         __u16 mtu, framesize;
1897         __u16 len;
1898         __u8 link_type;
1899         struct qeth_cmd_buffer *iob;
1900
1901         QETH_DBF_TEXT(SETUP, 2, "ulpenacb");
1902
1903         iob = (struct qeth_cmd_buffer *) data;
1904         memcpy(&card->token.ulp_filter_r,
1905                QETH_ULP_ENABLE_RESP_FILTER_TOKEN(iob->data),
1906                QETH_MPC_TOKEN_LENGTH);
1907         if (qeth_get_mtu_out_of_mpc(card->info.type)) {
1908                 memcpy(&framesize, QETH_ULP_ENABLE_RESP_MAX_MTU(iob->data), 2);
1909                 mtu = qeth_get_mtu_outof_framesize(framesize);
1910                 if (!mtu) {
1911                         iob->rc = -EINVAL;
1912                         QETH_DBF_TEXT_(SETUP, 2, "  rc%d", iob->rc);
1913                         return 0;
1914                 }
1915                 card->info.max_mtu = mtu;
1916                 card->info.initial_mtu = mtu;
1917                 card->qdio.in_buf_size = mtu + 2 * PAGE_SIZE;
1918         } else {
1919                 card->info.initial_mtu = qeth_get_initial_mtu_for_card(card);
1920                 card->info.max_mtu = qeth_get_max_mtu_for_card(card->info.type);
1921                 card->qdio.in_buf_size = QETH_IN_BUF_SIZE_DEFAULT;
1922         }
1923
1924         memcpy(&len, QETH_ULP_ENABLE_RESP_DIFINFO_LEN(iob->data), 2);
1925         if (len >= QETH_MPC_DIFINFO_LEN_INDICATES_LINK_TYPE) {
1926                 memcpy(&link_type,
1927                        QETH_ULP_ENABLE_RESP_LINK_TYPE(iob->data), 1);
1928                 card->info.link_type = link_type;
1929         } else
1930                 card->info.link_type = 0;
1931         QETH_DBF_TEXT_(SETUP, 2, "link%d", card->info.link_type);
1932         QETH_DBF_TEXT_(SETUP, 2, "  rc%d", iob->rc);
1933         return 0;
1934 }
1935
1936 static int qeth_ulp_enable(struct qeth_card *card)
1937 {
1938         int rc;
1939         char prot_type;
1940         struct qeth_cmd_buffer *iob;
1941
1942         /*FIXME: trace view callbacks*/
1943         QETH_DBF_TEXT(SETUP, 2, "ulpenabl");
1944
1945         iob = qeth_wait_for_buffer(&card->write);
1946         memcpy(iob->data, ULP_ENABLE, ULP_ENABLE_SIZE);
1947
1948         *(QETH_ULP_ENABLE_LINKNUM(iob->data)) =
1949                 (__u8) card->info.portno;
1950         if (card->options.layer2)
1951                 if (card->info.type == QETH_CARD_TYPE_OSN)
1952                         prot_type = QETH_PROT_OSN2;
1953                 else
1954                         prot_type = QETH_PROT_LAYER2;
1955         else
1956                 prot_type = QETH_PROT_TCPIP;
1957
1958         memcpy(QETH_ULP_ENABLE_PROT_TYPE(iob->data), &prot_type, 1);
1959         memcpy(QETH_ULP_ENABLE_DEST_ADDR(iob->data),
1960                &card->token.cm_connection_r, QETH_MPC_TOKEN_LENGTH);
1961         memcpy(QETH_ULP_ENABLE_FILTER_TOKEN(iob->data),
1962                &card->token.ulp_filter_w, QETH_MPC_TOKEN_LENGTH);
1963         memcpy(QETH_ULP_ENABLE_PORTNAME_AND_LL(iob->data),
1964                card->info.portname, 9);
1965         rc = qeth_send_control_data(card, ULP_ENABLE_SIZE, iob,
1966                                     qeth_ulp_enable_cb, NULL);
1967         return rc;
1968
1969 }
1970
1971 static int qeth_ulp_setup_cb(struct qeth_card *card, struct qeth_reply *reply,
1972                 unsigned long data)
1973 {
1974         struct qeth_cmd_buffer *iob;
1975         int rc = 0;
1976
1977         QETH_DBF_TEXT(SETUP, 2, "ulpstpcb");
1978
1979         iob = (struct qeth_cmd_buffer *) data;
1980         memcpy(&card->token.ulp_connection_r,
1981                QETH_ULP_SETUP_RESP_CONNECTION_TOKEN(iob->data),
1982                QETH_MPC_TOKEN_LENGTH);
1983         if (!strncmp("00S", QETH_ULP_SETUP_RESP_CONNECTION_TOKEN(iob->data),
1984                      3)) {
1985                 QETH_DBF_TEXT(SETUP, 2, "olmlimit");
1986                 dev_err(&card->gdev->dev, "A connection could not be "
1987                         "established because of an OLM limit\n");
1988                 rc = -EMLINK;
1989         }
1990         QETH_DBF_TEXT_(SETUP, 2, "  rc%d", iob->rc);
1991         return rc;
1992 }
1993
1994 static int qeth_ulp_setup(struct qeth_card *card)
1995 {
1996         int rc;
1997         __u16 temp;
1998         struct qeth_cmd_buffer *iob;
1999         struct ccw_dev_id dev_id;
2000
2001         QETH_DBF_TEXT(SETUP, 2, "ulpsetup");
2002
2003         iob = qeth_wait_for_buffer(&card->write);
2004         memcpy(iob->data, ULP_SETUP, ULP_SETUP_SIZE);
2005
2006         memcpy(QETH_ULP_SETUP_DEST_ADDR(iob->data),
2007                &card->token.cm_connection_r, QETH_MPC_TOKEN_LENGTH);
2008         memcpy(QETH_ULP_SETUP_CONNECTION_TOKEN(iob->data),
2009                &card->token.ulp_connection_w, QETH_MPC_TOKEN_LENGTH);
2010         memcpy(QETH_ULP_SETUP_FILTER_TOKEN(iob->data),
2011                &card->token.ulp_filter_r, QETH_MPC_TOKEN_LENGTH);
2012
2013         ccw_device_get_id(CARD_DDEV(card), &dev_id);
2014         memcpy(QETH_ULP_SETUP_CUA(iob->data), &dev_id.devno, 2);
2015         temp = (card->info.cula << 8) + card->info.unit_addr2;
2016         memcpy(QETH_ULP_SETUP_REAL_DEVADDR(iob->data), &temp, 2);
2017         rc = qeth_send_control_data(card, ULP_SETUP_SIZE, iob,
2018                                     qeth_ulp_setup_cb, NULL);
2019         return rc;
2020 }
2021
2022 static int qeth_alloc_qdio_buffers(struct qeth_card *card)
2023 {
2024         int i, j;
2025
2026         QETH_DBF_TEXT(SETUP, 2, "allcqdbf");
2027
2028         if (atomic_cmpxchg(&card->qdio.state, QETH_QDIO_UNINITIALIZED,
2029                 QETH_QDIO_ALLOCATED) != QETH_QDIO_UNINITIALIZED)
2030                 return 0;
2031
2032         card->qdio.in_q = kmalloc(sizeof(struct qeth_qdio_q),
2033                                   GFP_KERNEL);
2034         if (!card->qdio.in_q)
2035                 goto out_nomem;
2036         QETH_DBF_TEXT(SETUP, 2, "inq");
2037         QETH_DBF_HEX(SETUP, 2, &card->qdio.in_q, sizeof(void *));
2038         memset(card->qdio.in_q, 0, sizeof(struct qeth_qdio_q));
2039         /* give inbound qeth_qdio_buffers their qdio_buffers */
2040         for (i = 0; i < QDIO_MAX_BUFFERS_PER_Q; ++i)
2041                 card->qdio.in_q->bufs[i].buffer =
2042                         &card->qdio.in_q->qdio_bufs[i];
2043         /* inbound buffer pool */
2044         if (qeth_alloc_buffer_pool(card))
2045                 goto out_freeinq;
2046         /* outbound */
2047         card->qdio.out_qs =
2048                 kmalloc(card->qdio.no_out_queues *
2049                         sizeof(struct qeth_qdio_out_q *), GFP_KERNEL);
2050         if (!card->qdio.out_qs)
2051                 goto out_freepool;
2052         for (i = 0; i < card->qdio.no_out_queues; ++i) {
2053                 card->qdio.out_qs[i] = kmalloc(sizeof(struct qeth_qdio_out_q),
2054                                                GFP_KERNEL);
2055                 if (!card->qdio.out_qs[i])
2056                         goto out_freeoutq;
2057                 QETH_DBF_TEXT_(SETUP, 2, "outq %i", i);
2058                 QETH_DBF_HEX(SETUP, 2, &card->qdio.out_qs[i], sizeof(void *));
2059                 memset(card->qdio.out_qs[i], 0, sizeof(struct qeth_qdio_out_q));
2060                 card->qdio.out_qs[i]->queue_no = i;
2061                 /* give outbound qeth_qdio_buffers their qdio_buffers */
2062                 for (j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j) {
2063                         card->qdio.out_qs[i]->bufs[j].buffer =
2064                                 &card->qdio.out_qs[i]->qdio_bufs[j];
2065                         skb_queue_head_init(&card->qdio.out_qs[i]->bufs[j].
2066                                             skb_list);
2067                         lockdep_set_class(
2068                                 &card->qdio.out_qs[i]->bufs[j].skb_list.lock,
2069                                 &qdio_out_skb_queue_key);
2070                         INIT_LIST_HEAD(&card->qdio.out_qs[i]->bufs[j].ctx_list);
2071                 }
2072         }
2073         return 0;
2074
2075 out_freeoutq:
2076         while (i > 0)
2077                 kfree(card->qdio.out_qs[--i]);
2078         kfree(card->qdio.out_qs);
2079         card->qdio.out_qs = NULL;
2080 out_freepool:
2081         qeth_free_buffer_pool(card);
2082 out_freeinq:
2083         kfree(card->qdio.in_q);
2084         card->qdio.in_q = NULL;
2085 out_nomem:
2086         atomic_set(&card->qdio.state, QETH_QDIO_UNINITIALIZED);
2087         return -ENOMEM;
2088 }
2089
2090 static void qeth_create_qib_param_field(struct qeth_card *card,
2091                 char *param_field)
2092 {
2093
2094         param_field[0] = _ascebc['P'];
2095         param_field[1] = _ascebc['C'];
2096         param_field[2] = _ascebc['I'];
2097         param_field[3] = _ascebc['T'];
2098         *((unsigned int *) (&param_field[4])) = QETH_PCI_THRESHOLD_A(card);
2099         *((unsigned int *) (&param_field[8])) = QETH_PCI_THRESHOLD_B(card);
2100         *((unsigned int *) (&param_field[12])) = QETH_PCI_TIMER_VALUE(card);
2101 }
2102
2103 static void qeth_create_qib_param_field_blkt(struct qeth_card *card,
2104                 char *param_field)
2105 {
2106         param_field[16] = _ascebc['B'];
2107         param_field[17] = _ascebc['L'];
2108         param_field[18] = _ascebc['K'];
2109         param_field[19] = _ascebc['T'];
2110         *((unsigned int *) (&param_field[20])) = card->info.blkt.time_total;
2111         *((unsigned int *) (&param_field[24])) = card->info.blkt.inter_packet;
2112         *((unsigned int *) (&param_field[28])) =
2113                 card->info.blkt.inter_packet_jumbo;
2114 }
2115
2116 static int qeth_qdio_activate(struct qeth_card *card)
2117 {
2118         QETH_DBF_TEXT(SETUP, 3, "qdioact");
2119         return qdio_activate(CARD_DDEV(card));
2120 }
2121
2122 static int qeth_dm_act(struct qeth_card *card)
2123 {
2124         int rc;
2125         struct qeth_cmd_buffer *iob;
2126
2127         QETH_DBF_TEXT(SETUP, 2, "dmact");
2128
2129         iob = qeth_wait_for_buffer(&card->write);
2130         memcpy(iob->data, DM_ACT, DM_ACT_SIZE);
2131
2132         memcpy(QETH_DM_ACT_DEST_ADDR(iob->data),
2133                &card->token.cm_connection_r, QETH_MPC_TOKEN_LENGTH);
2134         memcpy(QETH_DM_ACT_CONNECTION_TOKEN(iob->data),
2135                &card->token.ulp_connection_r, QETH_MPC_TOKEN_LENGTH);
2136         rc = qeth_send_control_data(card, DM_ACT_SIZE, iob, NULL, NULL);
2137         return rc;
2138 }
2139
2140 static int qeth_mpc_initialize(struct qeth_card *card)
2141 {
2142         int rc;
2143
2144         QETH_DBF_TEXT(SETUP, 2, "mpcinit");
2145
2146         rc = qeth_issue_next_read(card);
2147         if (rc) {
2148                 QETH_DBF_TEXT_(SETUP, 2, "1err%d", rc);
2149                 return rc;
2150         }
2151         rc = qeth_cm_enable(card);
2152         if (rc) {
2153                 QETH_DBF_TEXT_(SETUP, 2, "2err%d", rc);
2154                 goto out_qdio;
2155         }
2156         rc = qeth_cm_setup(card);
2157         if (rc) {
2158                 QETH_DBF_TEXT_(SETUP, 2, "3err%d", rc);
2159                 goto out_qdio;
2160         }
2161         rc = qeth_ulp_enable(card);
2162         if (rc) {
2163                 QETH_DBF_TEXT_(SETUP, 2, "4err%d", rc);
2164                 goto out_qdio;
2165         }
2166         rc = qeth_ulp_setup(card);
2167         if (rc) {
2168                 QETH_DBF_TEXT_(SETUP, 2, "5err%d", rc);
2169                 goto out_qdio;
2170         }
2171         rc = qeth_alloc_qdio_buffers(card);
2172         if (rc) {
2173                 QETH_DBF_TEXT_(SETUP, 2, "5err%d", rc);
2174                 goto out_qdio;
2175         }
2176         rc = qeth_qdio_establish(card);
2177         if (rc) {
2178                 QETH_DBF_TEXT_(SETUP, 2, "6err%d", rc);
2179                 qeth_free_qdio_buffers(card);
2180                 goto out_qdio;
2181         }
2182         rc = qeth_qdio_activate(card);
2183         if (rc) {
2184                 QETH_DBF_TEXT_(SETUP, 2, "7err%d", rc);
2185                 goto out_qdio;
2186         }
2187         rc = qeth_dm_act(card);
2188         if (rc) {
2189                 QETH_DBF_TEXT_(SETUP, 2, "8err%d", rc);
2190                 goto out_qdio;
2191         }
2192
2193         return 0;
2194 out_qdio:
2195         qeth_qdio_clear_card(card, card->info.type != QETH_CARD_TYPE_IQD);
2196         return rc;
2197 }
2198
2199 static void qeth_print_status_with_portname(struct qeth_card *card)
2200 {
2201         char dbf_text[15];
2202         int i;
2203
2204         sprintf(dbf_text, "%s", card->info.portname + 1);
2205         for (i = 0; i < 8; i++)
2206                 dbf_text[i] =
2207                         (char) _ebcasc[(__u8) dbf_text[i]];
2208         dbf_text[8] = 0;
2209         dev_info(&card->gdev->dev, "Device is a%s card%s%s%s\n"
2210                "with link type %s (portname: %s)\n",
2211                qeth_get_cardname(card),
2212                (card->info.mcl_level[0]) ? " (level: " : "",
2213                (card->info.mcl_level[0]) ? card->info.mcl_level : "",
2214                (card->info.mcl_level[0]) ? ")" : "",
2215                qeth_get_cardname_short(card),
2216                dbf_text);
2217
2218 }
2219
2220 static void qeth_print_status_no_portname(struct qeth_card *card)
2221 {
2222         if (card->info.portname[0])
2223                 dev_info(&card->gdev->dev, "Device is a%s "
2224                        "card%s%s%s\nwith link type %s "
2225                        "(no portname needed by interface).\n",
2226                        qeth_get_cardname(card),
2227                        (card->info.mcl_level[0]) ? " (level: " : "",
2228                        (card->info.mcl_level[0]) ? card->info.mcl_level : "",
2229                        (card->info.mcl_level[0]) ? ")" : "",
2230                        qeth_get_cardname_short(card));
2231         else
2232                 dev_info(&card->gdev->dev, "Device is a%s "
2233                        "card%s%s%s\nwith link type %s.\n",
2234                        qeth_get_cardname(card),
2235                        (card->info.mcl_level[0]) ? " (level: " : "",
2236                        (card->info.mcl_level[0]) ? card->info.mcl_level : "",
2237                        (card->info.mcl_level[0]) ? ")" : "",
2238                        qeth_get_cardname_short(card));
2239 }
2240
2241 void qeth_print_status_message(struct qeth_card *card)
2242 {
2243         switch (card->info.type) {
2244         case QETH_CARD_TYPE_OSD:
2245         case QETH_CARD_TYPE_OSM:
2246         case QETH_CARD_TYPE_OSX:
2247                 /* VM will use a non-zero first character
2248                  * to indicate a HiperSockets like reporting
2249                  * of the level OSA sets the first character to zero
2250                  * */
2251                 if (!card->info.mcl_level[0]) {
2252                         sprintf(card->info.mcl_level, "%02x%02x",
2253                                 card->info.mcl_level[2],
2254                                 card->info.mcl_level[3]);
2255
2256                         card->info.mcl_level[QETH_MCL_LENGTH] = 0;
2257                         break;
2258                 }
2259                 /* fallthrough */
2260         case QETH_CARD_TYPE_IQD:
2261                 if ((card->info.guestlan) ||
2262                     (card->info.mcl_level[0] & 0x80)) {
2263                         card->info.mcl_level[0] = (char) _ebcasc[(__u8)
2264                                 card->info.mcl_level[0]];
2265                         card->info.mcl_level[1] = (char) _ebcasc[(__u8)
2266                                 card->info.mcl_level[1]];
2267                         card->info.mcl_level[2] = (char) _ebcasc[(__u8)
2268                                 card->info.mcl_level[2]];
2269                         card->info.mcl_level[3] = (char) _ebcasc[(__u8)
2270                                 card->info.mcl_level[3]];
2271                         card->info.mcl_level[QETH_MCL_LENGTH] = 0;
2272                 }
2273                 break;
2274         default:
2275                 memset(&card->info.mcl_level[0], 0, QETH_MCL_LENGTH + 1);
2276         }
2277         if (card->info.portname_required)
2278                 qeth_print_status_with_portname(card);
2279         else
2280                 qeth_print_status_no_portname(card);
2281 }
2282 EXPORT_SYMBOL_GPL(qeth_print_status_message);
2283
2284 static void qeth_initialize_working_pool_list(struct qeth_card *card)
2285 {
2286         struct qeth_buffer_pool_entry *entry;
2287
2288         QETH_CARD_TEXT(card, 5, "inwrklst");
2289
2290         list_for_each_entry(entry,
2291                             &card->qdio.init_pool.entry_list, init_list) {
2292                 qeth_put_buffer_pool_entry(card, entry);
2293         }
2294 }
2295
2296 static inline struct qeth_buffer_pool_entry *qeth_find_free_buffer_pool_entry(
2297                 struct qeth_card *card)
2298 {
2299         struct list_head *plh;
2300         struct qeth_buffer_pool_entry *entry;
2301         int i, free;
2302         struct page *page;
2303
2304         if (list_empty(&card->qdio.in_buf_pool.entry_list))
2305                 return NULL;
2306
2307         list_for_each(plh, &card->qdio.in_buf_pool.entry_list) {
2308                 entry = list_entry(plh, struct qeth_buffer_pool_entry, list);
2309                 free = 1;
2310                 for (i = 0; i < QETH_MAX_BUFFER_ELEMENTS(card); ++i) {
2311                         if (page_count(virt_to_page(entry->elements[i])) > 1) {
2312                                 free = 0;
2313                                 break;
2314                         }
2315                 }
2316                 if (free) {
2317                         list_del_init(&entry->list);
2318                         return entry;
2319                 }
2320         }
2321
2322         /* no free buffer in pool so take first one and swap pages */
2323         entry = list_entry(card->qdio.in_buf_pool.entry_list.next,
2324                         struct qeth_buffer_pool_entry, list);
2325         for (i = 0; i < QETH_MAX_BUFFER_ELEMENTS(card); ++i) {
2326                 if (page_count(virt_to_page(entry->elements[i])) > 1) {
2327                         page = alloc_page(GFP_ATOMIC);
2328                         if (!page) {
2329                                 return NULL;
2330                         } else {
2331                                 free_page((unsigned long)entry->elements[i]);
2332                                 entry->elements[i] = page_address(page);
2333                                 if (card->options.performance_stats)
2334                                         card->perf_stats.sg_alloc_page_rx++;
2335                         }
2336                 }
2337         }
2338         list_del_init(&entry->list);
2339         return entry;
2340 }
2341
2342 static int qeth_init_input_buffer(struct qeth_card *card,
2343                 struct qeth_qdio_buffer *buf)
2344 {
2345         struct qeth_buffer_pool_entry *pool_entry;
2346         int i;
2347
2348         pool_entry = qeth_find_free_buffer_pool_entry(card);
2349         if (!pool_entry)
2350                 return 1;
2351
2352         /*
2353          * since the buffer is accessed only from the input_tasklet
2354          * there shouldn't be a need to synchronize; also, since we use
2355          * the QETH_IN_BUF_REQUEUE_THRESHOLD we should never run  out off
2356          * buffers
2357          */
2358
2359         buf->pool_entry = pool_entry;
2360         for (i = 0; i < QETH_MAX_BUFFER_ELEMENTS(card); ++i) {
2361                 buf->buffer->element[i].length = PAGE_SIZE;
2362                 buf->buffer->element[i].addr =  pool_entry->elements[i];
2363                 if (i == QETH_MAX_BUFFER_ELEMENTS(card) - 1)
2364                         buf->buffer->element[i].flags = SBAL_FLAGS_LAST_ENTRY;
2365                 else
2366                         buf->buffer->element[i].flags = 0;
2367         }
2368         return 0;
2369 }
2370
2371 int qeth_init_qdio_queues(struct qeth_card *card)
2372 {
2373         int i, j;
2374         int rc;
2375
2376         QETH_DBF_TEXT(SETUP, 2, "initqdqs");
2377
2378         /* inbound queue */
2379         memset(card->qdio.in_q->qdio_bufs, 0,
2380                QDIO_MAX_BUFFERS_PER_Q * sizeof(struct qdio_buffer));
2381         qeth_initialize_working_pool_list(card);
2382         /*give only as many buffers to hardware as we have buffer pool entries*/
2383         for (i = 0; i < card->qdio.in_buf_pool.buf_count - 1; ++i)
2384                 qeth_init_input_buffer(card, &card->qdio.in_q->bufs[i]);
2385         card->qdio.in_q->next_buf_to_init =
2386                 card->qdio.in_buf_pool.buf_count - 1;
2387         rc = do_QDIO(CARD_DDEV(card), QDIO_FLAG_SYNC_INPUT, 0, 0,
2388                      card->qdio.in_buf_pool.buf_count - 1);
2389         if (rc) {
2390                 QETH_DBF_TEXT_(SETUP, 2, "1err%d", rc);
2391                 return rc;
2392         }
2393         /* outbound queue */
2394         for (i = 0; i < card->qdio.no_out_queues; ++i) {
2395                 memset(card->qdio.out_qs[i]->qdio_bufs, 0,
2396                        QDIO_MAX_BUFFERS_PER_Q * sizeof(struct qdio_buffer));
2397                 for (j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j) {
2398                         qeth_clear_output_buffer(card->qdio.out_qs[i],
2399                                         &card->qdio.out_qs[i]->bufs[j]);
2400                 }
2401                 card->qdio.out_qs[i]->card = card;
2402                 card->qdio.out_qs[i]->next_buf_to_fill = 0;
2403                 card->qdio.out_qs[i]->do_pack = 0;
2404                 atomic_set(&card->qdio.out_qs[i]->used_buffers, 0);
2405                 atomic_set(&card->qdio.out_qs[i]->set_pci_flags_count, 0);
2406                 atomic_set(&card->qdio.out_qs[i]->state,
2407                            QETH_OUT_Q_UNLOCKED);
2408         }
2409         return 0;
2410 }
2411 EXPORT_SYMBOL_GPL(qeth_init_qdio_queues);
2412
2413 static inline __u8 qeth_get_ipa_adp_type(enum qeth_link_types link_type)
2414 {
2415         switch (link_type) {
2416         case QETH_LINK_TYPE_HSTR:
2417                 return 2;
2418         default:
2419                 return 1;
2420         }
2421 }
2422
2423 static void qeth_fill_ipacmd_header(struct qeth_card *card,
2424                 struct qeth_ipa_cmd *cmd, __u8 command,
2425                 enum qeth_prot_versions prot)
2426 {
2427         memset(cmd, 0, sizeof(struct qeth_ipa_cmd));
2428         cmd->hdr.command = command;
2429         cmd->hdr.initiator = IPA_CMD_INITIATOR_HOST;
2430         cmd->hdr.seqno = card->seqno.ipa;
2431         cmd->hdr.adapter_type = qeth_get_ipa_adp_type(card->info.link_type);
2432         cmd->hdr.rel_adapter_no = (__u8) card->info.portno;
2433         if (card->options.layer2)
2434                 cmd->hdr.prim_version_no = 2;
2435         else
2436                 cmd->hdr.prim_version_no = 1;
2437         cmd->hdr.param_count = 1;
2438         cmd->hdr.prot_version = prot;
2439         cmd->hdr.ipa_supported = 0;
2440         cmd->hdr.ipa_enabled = 0;
2441 }
2442
2443 struct qeth_cmd_buffer *qeth_get_ipacmd_buffer(struct qeth_card *card,
2444                 enum qeth_ipa_cmds ipacmd, enum qeth_prot_versions prot)
2445 {
2446         struct qeth_cmd_buffer *iob;
2447         struct qeth_ipa_cmd *cmd;
2448
2449         iob = qeth_wait_for_buffer(&card->write);
2450         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
2451         qeth_fill_ipacmd_header(card, cmd, ipacmd, prot);
2452
2453         return iob;
2454 }
2455 EXPORT_SYMBOL_GPL(qeth_get_ipacmd_buffer);
2456
2457 void qeth_prepare_ipa_cmd(struct qeth_card *card, struct qeth_cmd_buffer *iob,
2458                 char prot_type)
2459 {
2460         memcpy(iob->data, IPA_PDU_HEADER, IPA_PDU_HEADER_SIZE);
2461         memcpy(QETH_IPA_CMD_PROT_TYPE(iob->data), &prot_type, 1);
2462         memcpy(QETH_IPA_CMD_DEST_ADDR(iob->data),
2463                &card->token.ulp_connection_r, QETH_MPC_TOKEN_LENGTH);
2464 }
2465 EXPORT_SYMBOL_GPL(qeth_prepare_ipa_cmd);
2466
2467 int qeth_send_ipa_cmd(struct qeth_card *card, struct qeth_cmd_buffer *iob,
2468                 int (*reply_cb)(struct qeth_card *, struct qeth_reply*,
2469                         unsigned long),
2470                 void *reply_param)
2471 {
2472         int rc;
2473         char prot_type;
2474
2475         QETH_CARD_TEXT(card, 4, "sendipa");
2476
2477         if (card->options.layer2)
2478                 if (card->info.type == QETH_CARD_TYPE_OSN)
2479                         prot_type = QETH_PROT_OSN2;
2480                 else
2481                         prot_type = QETH_PROT_LAYER2;
2482         else
2483                 prot_type = QETH_PROT_TCPIP;
2484         qeth_prepare_ipa_cmd(card, iob, prot_type);
2485         rc = qeth_send_control_data(card, IPA_CMD_LENGTH,
2486                                                 iob, reply_cb, reply_param);
2487         return rc;
2488 }
2489 EXPORT_SYMBOL_GPL(qeth_send_ipa_cmd);
2490
2491 static int qeth_send_startstoplan(struct qeth_card *card,
2492                 enum qeth_ipa_cmds ipacmd, enum qeth_prot_versions prot)
2493 {
2494         int rc;
2495         struct qeth_cmd_buffer *iob;
2496
2497         iob = qeth_get_ipacmd_buffer(card, ipacmd, prot);
2498         rc = qeth_send_ipa_cmd(card, iob, NULL, NULL);
2499
2500         return rc;
2501 }
2502
2503 int qeth_send_startlan(struct qeth_card *card)
2504 {
2505         int rc;
2506
2507         QETH_DBF_TEXT(SETUP, 2, "strtlan");
2508
2509         rc = qeth_send_startstoplan(card, IPA_CMD_STARTLAN, 0);
2510         return rc;
2511 }
2512 EXPORT_SYMBOL_GPL(qeth_send_startlan);
2513
2514 int qeth_send_stoplan(struct qeth_card *card)
2515 {
2516         int rc = 0;
2517
2518         /*
2519          * TODO: according to the IPA format document page 14,
2520          * TCP/IP (we!) never issue a STOPLAN
2521          * is this right ?!?
2522          */
2523         QETH_DBF_TEXT(SETUP, 2, "stoplan");
2524
2525         rc = qeth_send_startstoplan(card, IPA_CMD_STOPLAN, 0);
2526         return rc;
2527 }
2528 EXPORT_SYMBOL_GPL(qeth_send_stoplan);
2529
2530 int qeth_default_setadapterparms_cb(struct qeth_card *card,
2531                 struct qeth_reply *reply, unsigned long data)
2532 {
2533         struct qeth_ipa_cmd *cmd;
2534
2535         QETH_CARD_TEXT(card, 4, "defadpcb");
2536
2537         cmd = (struct qeth_ipa_cmd *) data;
2538         if (cmd->hdr.return_code == 0)
2539                 cmd->hdr.return_code =
2540                         cmd->data.setadapterparms.hdr.return_code;
2541         return 0;
2542 }
2543 EXPORT_SYMBOL_GPL(qeth_default_setadapterparms_cb);
2544
2545 static int qeth_query_setadapterparms_cb(struct qeth_card *card,
2546                 struct qeth_reply *reply, unsigned long data)
2547 {
2548         struct qeth_ipa_cmd *cmd;
2549
2550         QETH_CARD_TEXT(card, 3, "quyadpcb");
2551
2552         cmd = (struct qeth_ipa_cmd *) data;
2553         if (cmd->data.setadapterparms.data.query_cmds_supp.lan_type & 0x7f) {
2554                 card->info.link_type =
2555                       cmd->data.setadapterparms.data.query_cmds_supp.lan_type;
2556                 QETH_DBF_TEXT_(SETUP, 2, "lnk %d", card->info.link_type);
2557         }
2558         card->options.adp.supported_funcs =
2559                 cmd->data.setadapterparms.data.query_cmds_supp.supported_cmds;
2560         return qeth_default_setadapterparms_cb(card, reply, (unsigned long)cmd);
2561 }
2562
2563 struct qeth_cmd_buffer *qeth_get_adapter_cmd(struct qeth_card *card,
2564                 __u32 command, __u32 cmdlen)
2565 {
2566         struct qeth_cmd_buffer *iob;
2567         struct qeth_ipa_cmd *cmd;
2568
2569         iob = qeth_get_ipacmd_buffer(card, IPA_CMD_SETADAPTERPARMS,
2570                                      QETH_PROT_IPV4);
2571         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
2572         cmd->data.setadapterparms.hdr.cmdlength = cmdlen;
2573         cmd->data.setadapterparms.hdr.command_code = command;
2574         cmd->data.setadapterparms.hdr.used_total = 1;
2575         cmd->data.setadapterparms.hdr.seq_no = 1;
2576
2577         return iob;
2578 }
2579 EXPORT_SYMBOL_GPL(qeth_get_adapter_cmd);
2580
2581 int qeth_query_setadapterparms(struct qeth_card *card)
2582 {
2583         int rc;
2584         struct qeth_cmd_buffer *iob;
2585
2586         QETH_CARD_TEXT(card, 3, "queryadp");
2587         iob = qeth_get_adapter_cmd(card, IPA_SETADP_QUERY_COMMANDS_SUPPORTED,
2588                                    sizeof(struct qeth_ipacmd_setadpparms));
2589         rc = qeth_send_ipa_cmd(card, iob, qeth_query_setadapterparms_cb, NULL);
2590         return rc;
2591 }
2592 EXPORT_SYMBOL_GPL(qeth_query_setadapterparms);
2593
2594 int qeth_check_qdio_errors(struct qeth_card *card, struct qdio_buffer *buf,
2595                 unsigned int qdio_error, const char *dbftext)
2596 {
2597         if (qdio_error) {
2598                 QETH_CARD_TEXT(card, 2, dbftext);
2599                 QETH_CARD_TEXT_(card, 2, " F15=%02X",
2600                                buf->element[15].flags & 0xff);
2601                 QETH_CARD_TEXT_(card, 2, " F14=%02X",
2602                                buf->element[14].flags & 0xff);
2603                 QETH_CARD_TEXT_(card, 2, " qerr=%X", qdio_error);
2604                 if ((buf->element[15].flags & 0xff) == 0x12) {
2605                         card->stats.rx_dropped++;
2606                         return 0;
2607                 } else
2608                         return 1;
2609         }
2610         return 0;
2611 }
2612 EXPORT_SYMBOL_GPL(qeth_check_qdio_errors);
2613
2614 void qeth_queue_input_buffer(struct qeth_card *card, int index)
2615 {
2616         struct qeth_qdio_q *queue = card->qdio.in_q;
2617         int count;
2618         int i;
2619         int rc;
2620         int newcount = 0;
2621
2622         count = (index < queue->next_buf_to_init)?
2623                 card->qdio.in_buf_pool.buf_count -
2624                 (queue->next_buf_to_init - index) :
2625                 card->qdio.in_buf_pool.buf_count -
2626                 (queue->next_buf_to_init + QDIO_MAX_BUFFERS_PER_Q - index);
2627         /* only requeue at a certain threshold to avoid SIGAs */
2628         if (count >= QETH_IN_BUF_REQUEUE_THRESHOLD(card)) {
2629                 for (i = queue->next_buf_to_init;
2630                      i < queue->next_buf_to_init + count; ++i) {
2631                         if (qeth_init_input_buffer(card,
2632                                 &queue->bufs[i % QDIO_MAX_BUFFERS_PER_Q])) {
2633                                 break;
2634                         } else {
2635                                 newcount++;
2636                         }
2637                 }
2638
2639                 if (newcount < count) {
2640                         /* we are in memory shortage so we switch back to
2641                            traditional skb allocation and drop packages */
2642                         atomic_set(&card->force_alloc_skb, 3);
2643                         count = newcount;
2644                 } else {
2645                         atomic_add_unless(&card->force_alloc_skb, -1, 0);
2646                 }
2647
2648                 /*
2649                  * according to old code it should be avoided to requeue all
2650                  * 128 buffers in order to benefit from PCI avoidance.
2651                  * this function keeps at least one buffer (the buffer at
2652                  * 'index') un-requeued -> this buffer is the first buffer that
2653                  * will be requeued the next time
2654                  */
2655                 if (card->options.performance_stats) {
2656                         card->perf_stats.inbound_do_qdio_cnt++;
2657                         card->perf_stats.inbound_do_qdio_start_time =
2658                                 qeth_get_micros();
2659                 }
2660                 rc = do_QDIO(CARD_DDEV(card), QDIO_FLAG_SYNC_INPUT, 0,
2661                              queue->next_buf_to_init, count);
2662                 if (card->options.performance_stats)
2663                         card->perf_stats.inbound_do_qdio_time +=
2664                                 qeth_get_micros() -
2665                                 card->perf_stats.inbound_do_qdio_start_time;
2666                 if (rc) {
2667                         dev_warn(&card->gdev->dev,
2668                                 "QDIO reported an error, rc=%i\n", rc);
2669                         QETH_CARD_TEXT(card, 2, "qinberr");
2670                 }
2671                 queue->next_buf_to_init = (queue->next_buf_to_init + count) %
2672                                           QDIO_MAX_BUFFERS_PER_Q;
2673         }
2674 }
2675 EXPORT_SYMBOL_GPL(qeth_queue_input_buffer);
2676
2677 static int qeth_handle_send_error(struct qeth_card *card,
2678                 struct qeth_qdio_out_buffer *buffer, unsigned int qdio_err)
2679 {
2680         int sbalf15 = buffer->buffer->element[15].flags & 0xff;
2681
2682         QETH_CARD_TEXT(card, 6, "hdsnderr");
2683         if (card->info.type == QETH_CARD_TYPE_IQD) {
2684                 if (sbalf15 == 0) {
2685                         qdio_err = 0;
2686                 } else {
2687                         qdio_err = 1;
2688                 }
2689         }
2690         qeth_check_qdio_errors(card, buffer->buffer, qdio_err, "qouterr");
2691
2692         if (!qdio_err)
2693                 return QETH_SEND_ERROR_NONE;
2694
2695         if ((sbalf15 >= 15) && (sbalf15 <= 31))
2696                 return QETH_SEND_ERROR_RETRY;
2697
2698         QETH_CARD_TEXT(card, 1, "lnkfail");
2699         QETH_CARD_TEXT_(card, 1, "%04x %02x",
2700                        (u16)qdio_err, (u8)sbalf15);
2701         return QETH_SEND_ERROR_LINK_FAILURE;
2702 }
2703
2704 /*
2705  * Switched to packing state if the number of used buffers on a queue
2706  * reaches a certain limit.
2707  */
2708 static void qeth_switch_to_packing_if_needed(struct qeth_qdio_out_q *queue)
2709 {
2710         if (!queue->do_pack) {
2711                 if (atomic_read(&queue->used_buffers)
2712                     >= QETH_HIGH_WATERMARK_PACK){
2713                         /* switch non-PACKING -> PACKING */
2714                         QETH_CARD_TEXT(queue->card, 6, "np->pack");
2715                         if (queue->card->options.performance_stats)
2716                                 queue->card->perf_stats.sc_dp_p++;
2717                         queue->do_pack = 1;
2718                 }
2719         }
2720 }
2721
2722 /*
2723  * Switches from packing to non-packing mode. If there is a packing
2724  * buffer on the queue this buffer will be prepared to be flushed.
2725  * In that case 1 is returned to inform the caller. If no buffer
2726  * has to be flushed, zero is returned.
2727  */
2728 static int qeth_switch_to_nonpacking_if_needed(struct qeth_qdio_out_q *queue)
2729 {
2730         struct qeth_qdio_out_buffer *buffer;
2731         int flush_count = 0;
2732
2733         if (queue->do_pack) {
2734                 if (atomic_read(&queue->used_buffers)
2735                     <= QETH_LOW_WATERMARK_PACK) {
2736                         /* switch PACKING -> non-PACKING */
2737                         QETH_CARD_TEXT(queue->card, 6, "pack->np");
2738                         if (queue->card->options.performance_stats)
2739                                 queue->card->perf_stats.sc_p_dp++;
2740                         queue->do_pack = 0;
2741                         /* flush packing buffers */
2742                         buffer = &queue->bufs[queue->next_buf_to_fill];
2743                         if ((atomic_read(&buffer->state) ==
2744                                                 QETH_QDIO_BUF_EMPTY) &&
2745                             (buffer->next_element_to_fill > 0)) {
2746                                 atomic_set(&buffer->state,
2747                                                 QETH_QDIO_BUF_PRIMED);
2748                                 flush_count++;
2749                                 queue->next_buf_to_fill =
2750                                         (queue->next_buf_to_fill + 1) %
2751                                         QDIO_MAX_BUFFERS_PER_Q;
2752                         }
2753                 }
2754         }
2755         return flush_count;
2756 }
2757
2758 /*
2759  * Called to flush a packing buffer if no more pci flags are on the queue.
2760  * Checks if there is a packing buffer and prepares it to be flushed.
2761  * In that case returns 1, otherwise zero.
2762  */
2763 static int qeth_flush_buffers_on_no_pci(struct qeth_qdio_out_q *queue)
2764 {
2765         struct qeth_qdio_out_buffer *buffer;
2766
2767         buffer = &queue->bufs[queue->next_buf_to_fill];
2768         if ((atomic_read(&buffer->state) == QETH_QDIO_BUF_EMPTY) &&
2769            (buffer->next_element_to_fill > 0)) {
2770                 /* it's a packing buffer */
2771                 atomic_set(&buffer->state, QETH_QDIO_BUF_PRIMED);
2772                 queue->next_buf_to_fill =
2773                         (queue->next_buf_to_fill + 1) % QDIO_MAX_BUFFERS_PER_Q;
2774                 return 1;
2775         }
2776         return 0;
2777 }
2778
2779 static void qeth_flush_buffers(struct qeth_qdio_out_q *queue, int index,
2780                                int count)
2781 {
2782         struct qeth_qdio_out_buffer *buf;
2783         int rc;
2784         int i;
2785         unsigned int qdio_flags;
2786
2787         for (i = index; i < index + count; ++i) {
2788                 buf = &queue->bufs[i % QDIO_MAX_BUFFERS_PER_Q];
2789                 buf->buffer->element[buf->next_element_to_fill - 1].flags |=
2790                                 SBAL_FLAGS_LAST_ENTRY;
2791
2792                 if (queue->card->info.type == QETH_CARD_TYPE_IQD)
2793                         continue;
2794
2795                 if (!queue->do_pack) {
2796                         if ((atomic_read(&queue->used_buffers) >=
2797                                 (QETH_HIGH_WATERMARK_PACK -
2798                                  QETH_WATERMARK_PACK_FUZZ)) &&
2799                             !atomic_read(&queue->set_pci_flags_count)) {
2800                                 /* it's likely that we'll go to packing
2801                                  * mode soon */
2802                                 atomic_inc(&queue->set_pci_flags_count);
2803                                 buf->buffer->element[0].flags |= 0x40;
2804                         }
2805                 } else {
2806                         if (!atomic_read(&queue->set_pci_flags_count)) {
2807                                 /*
2808                                  * there's no outstanding PCI any more, so we
2809                                  * have to request a PCI to be sure the the PCI
2810                                  * will wake at some time in the future then we
2811                                  * can flush packed buffers that might still be
2812                                  * hanging around, which can happen if no
2813                                  * further send was requested by the stack
2814                                  */
2815                                 atomic_inc(&queue->set_pci_flags_count);
2816                                 buf->buffer->element[0].flags |= 0x40;
2817                         }
2818                 }
2819         }
2820
2821         queue->sync_iqdio_error = 0;
2822         queue->card->dev->trans_start = jiffies;
2823         if (queue->card->options.performance_stats) {
2824                 queue->card->perf_stats.outbound_do_qdio_cnt++;
2825                 queue->card->perf_stats.outbound_do_qdio_start_time =
2826                         qeth_get_micros();
2827         }
2828         qdio_flags = QDIO_FLAG_SYNC_OUTPUT;
2829         if (atomic_read(&queue->set_pci_flags_count))
2830                 qdio_flags |= QDIO_FLAG_PCI_OUT;
2831         rc = do_QDIO(CARD_DDEV(queue->card), qdio_flags,
2832                      queue->queue_no, index, count);
2833         if (queue->card->options.performance_stats)
2834                 queue->card->perf_stats.outbound_do_qdio_time +=
2835                         qeth_get_micros() -
2836                         queue->card->perf_stats.outbound_do_qdio_start_time;
2837         if (rc > 0) {
2838                 if (!(rc & QDIO_ERROR_SIGA_BUSY))
2839                         queue->sync_iqdio_error = rc & 3;
2840         }
2841         if (rc) {
2842                 queue->card->stats.tx_errors += count;
2843                 /* ignore temporary SIGA errors without busy condition */
2844                 if (rc == QDIO_ERROR_SIGA_TARGET)
2845                         return;
2846                 QETH_CARD_TEXT(queue->card, 2, "flushbuf");
2847                 QETH_CARD_TEXT_(queue->card, 2, " err%d", rc);
2848
2849                 /* this must not happen under normal circumstances. if it
2850                  * happens something is really wrong -> recover */
2851                 qeth_schedule_recovery(queue->card);
2852                 return;
2853         }
2854         atomic_add(count, &queue->used_buffers);
2855         if (queue->card->options.performance_stats)
2856                 queue->card->perf_stats.bufs_sent += count;
2857 }
2858
2859 static void qeth_check_outbound_queue(struct qeth_qdio_out_q *queue)
2860 {
2861         int index;
2862         int flush_cnt = 0;
2863         int q_was_packing = 0;
2864
2865         /*
2866          * check if weed have to switch to non-packing mode or if
2867          * we have to get a pci flag out on the queue
2868          */
2869         if ((atomic_read(&queue->used_buffers) <= QETH_LOW_WATERMARK_PACK) ||
2870             !atomic_read(&queue->set_pci_flags_count)) {
2871                 if (atomic_xchg(&queue->state, QETH_OUT_Q_LOCKED_FLUSH) ==
2872                                 QETH_OUT_Q_UNLOCKED) {
2873                         /*
2874                          * If we get in here, there was no action in
2875                          * do_send_packet. So, we check if there is a
2876                          * packing buffer to be flushed here.
2877                          */
2878                         netif_stop_queue(queue->card->dev);
2879                         index = queue->next_buf_to_fill;
2880                         q_was_packing = queue->do_pack;
2881                         /* queue->do_pack may change */
2882                         barrier();
2883                         flush_cnt += qeth_switch_to_nonpacking_if_needed(queue);
2884                         if (!flush_cnt &&
2885                             !atomic_read(&queue->set_pci_flags_count))
2886                                 flush_cnt +=
2887                                         qeth_flush_buffers_on_no_pci(queue);
2888                         if (queue->card->options.performance_stats &&
2889                             q_was_packing)
2890                                 queue->card->perf_stats.bufs_sent_pack +=
2891                                         flush_cnt;
2892                         if (flush_cnt)
2893                                 qeth_flush_buffers(queue, index, flush_cnt);
2894                         atomic_set(&queue->state, QETH_OUT_Q_UNLOCKED);
2895                 }
2896         }
2897 }
2898
2899 void qeth_qdio_output_handler(struct ccw_device *ccwdev,
2900                 unsigned int qdio_error, int __queue, int first_element,
2901                 int count, unsigned long card_ptr)
2902 {
2903         struct qeth_card *card        = (struct qeth_card *) card_ptr;
2904         struct qeth_qdio_out_q *queue = card->qdio.out_qs[__queue];
2905         struct qeth_qdio_out_buffer *buffer;
2906         int i;
2907         unsigned qeth_send_err;
2908
2909         QETH_CARD_TEXT(card, 6, "qdouhdl");
2910         if (qdio_error & QDIO_ERROR_ACTIVATE_CHECK_CONDITION) {
2911                 QETH_CARD_TEXT(card, 2, "achkcond");
2912                 netif_stop_queue(card->dev);
2913                 qeth_schedule_recovery(card);
2914                 return;
2915         }
2916         if (card->options.performance_stats) {
2917                 card->perf_stats.outbound_handler_cnt++;
2918                 card->perf_stats.outbound_handler_start_time =
2919                         qeth_get_micros();
2920         }
2921         for (i = first_element; i < (first_element + count); ++i) {
2922                 buffer = &queue->bufs[i % QDIO_MAX_BUFFERS_PER_Q];
2923                 qeth_send_err = qeth_handle_send_error(card, buffer, qdio_error);
2924                 __qeth_clear_output_buffer(queue, buffer,
2925                         (qeth_send_err == QETH_SEND_ERROR_RETRY) ? 1 : 0);
2926         }
2927         atomic_sub(count, &queue->used_buffers);
2928         /* check if we need to do something on this outbound queue */
2929         if (card->info.type != QETH_CARD_TYPE_IQD)
2930                 qeth_check_outbound_queue(queue);
2931
2932         netif_wake_queue(queue->card->dev);
2933         if (card->options.performance_stats)
2934                 card->perf_stats.outbound_handler_time += qeth_get_micros() -
2935                         card->perf_stats.outbound_handler_start_time;
2936 }
2937 EXPORT_SYMBOL_GPL(qeth_qdio_output_handler);
2938
2939 int qeth_get_priority_queue(struct qeth_card *card, struct sk_buff *skb,
2940                         int ipv, int cast_type)
2941 {
2942         if (!ipv && (card->info.type == QETH_CARD_TYPE_OSD ||
2943                      card->info.type == QETH_CARD_TYPE_OSX))
2944                 return card->qdio.default_out_queue;
2945         switch (card->qdio.no_out_queues) {
2946         case 4:
2947                 if (cast_type && card->info.is_multicast_different)
2948                         return card->info.is_multicast_different &
2949                                 (card->qdio.no_out_queues - 1);
2950                 if (card->qdio.do_prio_queueing && (ipv == 4)) {
2951                         const u8 tos = ip_hdr(skb)->tos;
2952
2953                         if (card->qdio.do_prio_queueing ==
2954                                 QETH_PRIO_Q_ING_TOS) {
2955                                 if (tos & IP_TOS_NOTIMPORTANT)
2956                                         return 3;
2957                                 if (tos & IP_TOS_HIGHRELIABILITY)
2958                                         return 2;
2959                                 if (tos & IP_TOS_HIGHTHROUGHPUT)
2960                                         return 1;
2961                                 if (tos & IP_TOS_LOWDELAY)
2962                                         return 0;
2963                         }
2964                         if (card->qdio.do_prio_queueing ==
2965                                 QETH_PRIO_Q_ING_PREC)
2966                                 return 3 - (tos >> 6);
2967                 } else if (card->qdio.do_prio_queueing && (ipv == 6)) {
2968                         /* TODO: IPv6!!! */
2969                 }
2970                 return card->qdio.default_out_queue;
2971         case 1: /* fallthrough for single-out-queue 1920-device */
2972         default:
2973                 return card->qdio.default_out_queue;
2974         }
2975 }
2976 EXPORT_SYMBOL_GPL(qeth_get_priority_queue);
2977
2978 int qeth_get_elements_no(struct qeth_card *card, void *hdr,
2979                      struct sk_buff *skb, int elems)
2980 {
2981         int dlen = skb->len - skb->data_len;
2982         int elements_needed = PFN_UP((unsigned long)skb->data + dlen - 1) -
2983                 PFN_DOWN((unsigned long)skb->data);
2984
2985         elements_needed += skb_shinfo(skb)->nr_frags;
2986         if ((elements_needed + elems) > QETH_MAX_BUFFER_ELEMENTS(card)) {
2987                 QETH_DBF_MESSAGE(2, "Invalid size of IP packet "
2988                         "(Number=%d / Length=%d). Discarded.\n",
2989                         (elements_needed+elems), skb->len);
2990                 return 0;
2991         }
2992         return elements_needed;
2993 }
2994 EXPORT_SYMBOL_GPL(qeth_get_elements_no);
2995
2996 int qeth_hdr_chk_and_bounce(struct sk_buff *skb, int len)
2997 {
2998         int hroom, inpage, rest;
2999
3000         if (((unsigned long)skb->data & PAGE_MASK) !=
3001             (((unsigned long)skb->data + len - 1) & PAGE_MASK)) {
3002                 hroom = skb_headroom(skb);
3003                 inpage = PAGE_SIZE - ((unsigned long) skb->data % PAGE_SIZE);
3004                 rest = len - inpage;
3005                 if (rest > hroom)
3006                         return 1;
3007                 memmove(skb->data - rest, skb->data, skb->len - skb->data_len);
3008                 skb->data -= rest;
3009                 QETH_DBF_MESSAGE(2, "skb bounce len: %d rest: %d\n", len, rest);
3010         }
3011         return 0;
3012 }
3013 EXPORT_SYMBOL_GPL(qeth_hdr_chk_and_bounce);
3014
3015 static inline void __qeth_fill_buffer(struct sk_buff *skb,
3016         struct qdio_buffer *buffer, int is_tso, int *next_element_to_fill,
3017         int offset)
3018 {
3019         int length = skb->len - skb->data_len;
3020         int length_here;
3021         int element;
3022         char *data;
3023         int first_lap, cnt;
3024         struct skb_frag_struct *frag;
3025
3026         element = *next_element_to_fill;
3027         data = skb->data;
3028         first_lap = (is_tso == 0 ? 1 : 0);
3029
3030         if (offset >= 0) {
3031                 data = skb->data + offset;
3032                 length -= offset;
3033                 first_lap = 0;
3034         }
3035
3036         while (length > 0) {
3037                 /* length_here is the remaining amount of data in this page */
3038                 length_here = PAGE_SIZE - ((unsigned long) data % PAGE_SIZE);
3039                 if (length < length_here)
3040                         length_here = length;
3041
3042                 buffer->element[element].addr = data;
3043                 buffer->element[element].length = length_here;
3044                 length -= length_here;
3045                 if (!length) {
3046                         if (first_lap)
3047                                 if (skb_shinfo(skb)->nr_frags)
3048                                         buffer->element[element].flags =
3049                                                 SBAL_FLAGS_FIRST_FRAG;
3050                                 else
3051                                         buffer->element[element].flags = 0;
3052                         else
3053                                 buffer->element[element].flags =
3054                                     SBAL_FLAGS_MIDDLE_FRAG;
3055                 } else {
3056                         if (first_lap)
3057                                 buffer->element[element].flags =
3058                                     SBAL_FLAGS_FIRST_FRAG;
3059                         else
3060                                 buffer->element[element].flags =
3061                                     SBAL_FLAGS_MIDDLE_FRAG;
3062                 }
3063                 data += length_here;
3064                 element++;
3065                 first_lap = 0;
3066         }
3067
3068         for (cnt = 0; cnt < skb_shinfo(skb)->nr_frags; cnt++) {
3069                 frag = &skb_shinfo(skb)->frags[cnt];
3070                 buffer->element[element].addr = (char *)page_to_phys(frag->page)
3071                         + frag->page_offset;
3072                 buffer->element[element].length = frag->size;
3073                 buffer->element[element].flags = SBAL_FLAGS_MIDDLE_FRAG;
3074                 element++;
3075         }
3076
3077         if (buffer->element[element - 1].flags)
3078                 buffer->element[element - 1].flags = SBAL_FLAGS_LAST_FRAG;
3079         *next_element_to_fill = element;
3080 }
3081
3082 static inline int qeth_fill_buffer(struct qeth_qdio_out_q *queue,
3083                 struct qeth_qdio_out_buffer *buf, struct sk_buff *skb,
3084                 struct qeth_hdr *hdr, int offset, int hd_len)
3085 {
3086         struct qdio_buffer *buffer;
3087         int flush_cnt = 0, hdr_len, large_send = 0;
3088
3089         buffer = buf->buffer;
3090         atomic_inc(&skb->users);
3091         skb_queue_tail(&buf->skb_list, skb);
3092
3093         /*check first on TSO ....*/
3094         if (hdr->hdr.l3.id == QETH_HEADER_TYPE_TSO) {
3095                 int element = buf->next_element_to_fill;
3096
3097                 hdr_len = sizeof(struct qeth_hdr_tso) +
3098                         ((struct qeth_hdr_tso *)hdr)->ext.dg_hdr_len;
3099                 /*fill first buffer entry only with header information */
3100                 buffer->element[element].addr = skb->data;
3101                 buffer->element[element].length = hdr_len;
3102                 buffer->element[element].flags = SBAL_FLAGS_FIRST_FRAG;
3103                 buf->next_element_to_fill++;
3104                 skb->data += hdr_len;
3105                 skb->len  -= hdr_len;
3106                 large_send = 1;
3107         }
3108
3109         if (offset >= 0) {
3110                 int element = buf->next_element_to_fill;
3111                 buffer->element[element].addr = hdr;
3112                 buffer->element[element].length = sizeof(struct qeth_hdr) +
3113                                                         hd_len;
3114                 buffer->element[element].flags = SBAL_FLAGS_FIRST_FRAG;
3115                 buf->is_header[element] = 1;
3116                 buf->next_element_to_fill++;
3117         }
3118
3119         __qeth_fill_buffer(skb, buffer, large_send,
3120                 (int *)&buf->next_element_to_fill, offset);
3121
3122         if (!queue->do_pack) {
3123                 QETH_CARD_TEXT(queue->card, 6, "fillbfnp");
3124                 /* set state to PRIMED -> will be flushed */
3125                 atomic_set(&buf->state, QETH_QDIO_BUF_PRIMED);
3126                 flush_cnt = 1;
3127         } else {
3128                 QETH_CARD_TEXT(queue->card, 6, "fillbfpa");
3129                 if (queue->card->options.performance_stats)
3130                         queue->card->perf_stats.skbs_sent_pack++;
3131                 if (buf->next_element_to_fill >=
3132                                 QETH_MAX_BUFFER_ELEMENTS(queue->card)) {
3133                         /*
3134                          * packed buffer if full -> set state PRIMED
3135                          * -> will be flushed
3136                          */
3137                         atomic_set(&buf->state, QETH_QDIO_BUF_PRIMED);
3138                         flush_cnt = 1;
3139                 }
3140         }
3141         return flush_cnt;
3142 }
3143
3144 int qeth_do_send_packet_fast(struct qeth_card *card,
3145                 struct qeth_qdio_out_q *queue, struct sk_buff *skb,
3146                 struct qeth_hdr *hdr, int elements_needed,
3147                 int offset, int hd_len)
3148 {
3149         struct qeth_qdio_out_buffer *buffer;
3150         struct sk_buff *skb1;
3151         struct qeth_skb_data *retry_ctrl;
3152         int index;
3153         int rc;
3154
3155         /* spin until we get the queue ... */
3156         while (atomic_cmpxchg(&queue->state, QETH_OUT_Q_UNLOCKED,
3157                               QETH_OUT_Q_LOCKED) != QETH_OUT_Q_UNLOCKED);
3158         /* ... now we've got the queue */
3159         index = queue->next_buf_to_fill;
3160         buffer = &queue->bufs[queue->next_buf_to_fill];
3161         /*
3162          * check if buffer is empty to make sure that we do not 'overtake'
3163          * ourselves and try to fill a buffer that is already primed
3164          */
3165         if (atomic_read(&buffer->state) != QETH_QDIO_BUF_EMPTY)
3166                 goto out;
3167         queue->next_buf_to_fill = (queue->next_buf_to_fill + 1) %
3168                                           QDIO_MAX_BUFFERS_PER_Q;
3169         atomic_set(&queue->state, QETH_OUT_Q_UNLOCKED);
3170         qeth_fill_buffer(queue, buffer, skb, hdr, offset, hd_len);
3171         qeth_flush_buffers(queue, index, 1);
3172         if (queue->sync_iqdio_error == 2) {
3173                 skb1 = skb_dequeue(&buffer->skb_list);
3174                 while (skb1) {
3175                         atomic_dec(&skb1->users);
3176                         skb1 = skb_dequeue(&buffer->skb_list);
3177                 }
3178                 retry_ctrl = (struct qeth_skb_data *) &skb->cb[16];
3179                 if (retry_ctrl->magic != QETH_SKB_MAGIC) {
3180                         retry_ctrl->magic = QETH_SKB_MAGIC;
3181                         retry_ctrl->count = 0;
3182                 }
3183                 if (retry_ctrl->count < QETH_SIGA_CC2_RETRIES) {
3184                         retry_ctrl->count++;
3185                         rc = dev_queue_xmit(skb);
3186                 } else {
3187                         dev_kfree_skb_any(skb);
3188                         QETH_CARD_TEXT(card, 2, "qrdrop");
3189                 }
3190         }
3191         return 0;
3192 out:
3193         atomic_set(&queue->state, QETH_OUT_Q_UNLOCKED);
3194         return -EBUSY;
3195 }
3196 EXPORT_SYMBOL_GPL(qeth_do_send_packet_fast);
3197
3198 int qeth_do_send_packet(struct qeth_card *card, struct qeth_qdio_out_q *queue,
3199                 struct sk_buff *skb, struct qeth_hdr *hdr,
3200                 int elements_needed)
3201 {
3202         struct qeth_qdio_out_buffer *buffer;
3203         int start_index;
3204         int flush_count = 0;
3205         int do_pack = 0;
3206         int tmp;
3207         int rc = 0;
3208
3209         /* spin until we get the queue ... */
3210         while (atomic_cmpxchg(&queue->state, QETH_OUT_Q_UNLOCKED,
3211                               QETH_OUT_Q_LOCKED) != QETH_OUT_Q_UNLOCKED);
3212         start_index = queue->next_buf_to_fill;
3213         buffer = &queue->bufs[queue->next_buf_to_fill];
3214         /*
3215          * check if buffer is empty to make sure that we do not 'overtake'
3216          * ourselves and try to fill a buffer that is already primed
3217          */
3218         if (atomic_read(&buffer->state) != QETH_QDIO_BUF_EMPTY) {
3219                 atomic_set(&queue->state, QETH_OUT_Q_UNLOCKED);
3220                 return -EBUSY;
3221         }
3222         /* check if we need to switch packing state of this queue */
3223         qeth_switch_to_packing_if_needed(queue);
3224         if (queue->do_pack) {
3225                 do_pack = 1;
3226                 /* does packet fit in current buffer? */
3227                 if ((QETH_MAX_BUFFER_ELEMENTS(card) -
3228                     buffer->next_element_to_fill) < elements_needed) {
3229                         /* ... no -> set state PRIMED */
3230                         atomic_set(&buffer->state, QETH_QDIO_BUF_PRIMED);
3231                         flush_count++;
3232                         queue->next_buf_to_fill =
3233                                 (queue->next_buf_to_fill + 1) %
3234                                 QDIO_MAX_BUFFERS_PER_Q;
3235                         buffer = &queue->bufs[queue->next_buf_to_fill];
3236                         /* we did a step forward, so check buffer state
3237                          * again */
3238                         if (atomic_read(&buffer->state) !=
3239                             QETH_QDIO_BUF_EMPTY) {
3240                                 qeth_flush_buffers(queue, start_index,
3241                                                            flush_count);
3242                                 atomic_set(&queue->state,
3243                                                 QETH_OUT_Q_UNLOCKED);
3244                                 return -EBUSY;
3245                         }
3246                 }
3247         }
3248         tmp = qeth_fill_buffer(queue, buffer, skb, hdr, -1, 0);
3249         queue->next_buf_to_fill = (queue->next_buf_to_fill + tmp) %
3250                                   QDIO_MAX_BUFFERS_PER_Q;
3251         flush_count += tmp;
3252         if (flush_count)
3253                 qeth_flush_buffers(queue, start_index, flush_count);
3254         else if (!atomic_read(&queue->set_pci_flags_count))
3255                 atomic_xchg(&queue->state, QETH_OUT_Q_LOCKED_FLUSH);
3256         /*
3257          * queue->state will go from LOCKED -> UNLOCKED or from
3258          * LOCKED_FLUSH -> LOCKED if output_handler wanted to 'notify' us
3259          * (switch packing state or flush buffer to get another pci flag out).
3260          * In that case we will enter this loop
3261          */
3262         while (atomic_dec_return(&queue->state)) {
3263                 flush_count = 0;
3264                 start_index = queue->next_buf_to_fill;
3265                 /* check if we can go back to non-packing state */
3266                 flush_count += qeth_switch_to_nonpacking_if_needed(queue);
3267                 /*
3268                  * check if we need to flush a packing buffer to get a pci
3269                  * flag out on the queue
3270                  */
3271                 if (!flush_count && !atomic_read(&queue->set_pci_flags_count))
3272                         flush_count += qeth_flush_buffers_on_no_pci(queue);
3273                 if (flush_count)
3274                         qeth_flush_buffers(queue, start_index, flush_count);
3275         }
3276         /* at this point the queue is UNLOCKED again */
3277         if (queue->card->options.performance_stats && do_pack)
3278                 queue->card->perf_stats.bufs_sent_pack += flush_count;
3279
3280         return rc;
3281 }
3282 EXPORT_SYMBOL_GPL(qeth_do_send_packet);
3283
3284 static int qeth_setadp_promisc_mode_cb(struct qeth_card *card,
3285                 struct qeth_reply *reply, unsigned long data)
3286 {
3287         struct qeth_ipa_cmd *cmd;
3288         struct qeth_ipacmd_setadpparms *setparms;
3289
3290         QETH_CARD_TEXT(card, 4, "prmadpcb");
3291
3292         cmd = (struct qeth_ipa_cmd *) data;
3293         setparms = &(cmd->data.setadapterparms);
3294
3295         qeth_default_setadapterparms_cb(card, reply, (unsigned long)cmd);
3296         if (cmd->hdr.return_code) {
3297                 QETH_CARD_TEXT_(card, 4, "prmrc%2.2x", cmd->hdr.return_code);
3298                 setparms->data.mode = SET_PROMISC_MODE_OFF;
3299         }
3300         card->info.promisc_mode = setparms->data.mode;
3301         return 0;
3302 }
3303
3304 void qeth_setadp_promisc_mode(struct qeth_card *card)
3305 {
3306         enum qeth_ipa_promisc_modes mode;
3307         struct net_device *dev = card->dev;
3308         struct qeth_cmd_buffer *iob;
3309         struct qeth_ipa_cmd *cmd;
3310
3311         QETH_CARD_TEXT(card, 4, "setprom");
3312
3313         if (((dev->flags & IFF_PROMISC) &&
3314              (card->info.promisc_mode == SET_PROMISC_MODE_ON)) ||
3315             (!(dev->flags & IFF_PROMISC) &&
3316              (card->info.promisc_mode == SET_PROMISC_MODE_OFF)))
3317                 return;
3318         mode = SET_PROMISC_MODE_OFF;
3319         if (dev->flags & IFF_PROMISC)
3320                 mode = SET_PROMISC_MODE_ON;
3321         QETH_CARD_TEXT_(card, 4, "mode:%x", mode);
3322
3323         iob = qeth_get_adapter_cmd(card, IPA_SETADP_SET_PROMISC_MODE,
3324                         sizeof(struct qeth_ipacmd_setadpparms));
3325         cmd = (struct qeth_ipa_cmd *)(iob->data + IPA_PDU_HEADER_SIZE);
3326         cmd->data.setadapterparms.data.mode = mode;
3327         qeth_send_ipa_cmd(card, iob, qeth_setadp_promisc_mode_cb, NULL);
3328 }
3329 EXPORT_SYMBOL_GPL(qeth_setadp_promisc_mode);
3330
3331 int qeth_change_mtu(struct net_device *dev, int new_mtu)
3332 {
3333         struct qeth_card *card;
3334         char dbf_text[15];
3335
3336         card = dev->ml_priv;
3337
3338         QETH_CARD_TEXT(card, 4, "chgmtu");
3339         sprintf(dbf_text, "%8x", new_mtu);
3340         QETH_CARD_TEXT(card, 4, dbf_text);
3341
3342         if (new_mtu < 64)
3343                 return -EINVAL;
3344         if (new_mtu > 65535)
3345                 return -EINVAL;
3346         if ((!qeth_is_supported(card, IPA_IP_FRAGMENTATION)) &&
3347             (!qeth_mtu_is_valid(card, new_mtu)))
3348                 return -EINVAL;
3349         dev->mtu = new_mtu;
3350         return 0;
3351 }
3352 EXPORT_SYMBOL_GPL(qeth_change_mtu);
3353
3354 struct net_device_stats *qeth_get_stats(struct net_device *dev)
3355 {
3356         struct qeth_card *card;
3357
3358         card = dev->ml_priv;
3359
3360         QETH_CARD_TEXT(card, 5, "getstat");
3361
3362         return &card->stats;
3363 }
3364 EXPORT_SYMBOL_GPL(qeth_get_stats);
3365
3366 static int qeth_setadpparms_change_macaddr_cb(struct qeth_card *card,
3367                 struct qeth_reply *reply, unsigned long data)
3368 {
3369         struct qeth_ipa_cmd *cmd;
3370
3371         QETH_CARD_TEXT(card, 4, "chgmaccb");
3372
3373         cmd = (struct qeth_ipa_cmd *) data;
3374         if (!card->options.layer2 ||
3375             !(card->info.mac_bits & QETH_LAYER2_MAC_READ)) {
3376                 memcpy(card->dev->dev_addr,
3377                        &cmd->data.setadapterparms.data.change_addr.addr,
3378                        OSA_ADDR_LEN);
3379                 card->info.mac_bits |= QETH_LAYER2_MAC_READ;
3380         }
3381         qeth_default_setadapterparms_cb(card, reply, (unsigned long) cmd);
3382         return 0;
3383 }
3384
3385 int qeth_setadpparms_change_macaddr(struct qeth_card *card)
3386 {
3387         int rc;
3388         struct qeth_cmd_buffer *iob;
3389         struct qeth_ipa_cmd *cmd;
3390
3391         QETH_CARD_TEXT(card, 4, "chgmac");
3392
3393         iob = qeth_get_adapter_cmd(card, IPA_SETADP_ALTER_MAC_ADDRESS,
3394                                    sizeof(struct qeth_ipacmd_setadpparms));
3395         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
3396         cmd->data.setadapterparms.data.change_addr.cmd = CHANGE_ADDR_READ_MAC;
3397         cmd->data.setadapterparms.data.change_addr.addr_size = OSA_ADDR_LEN;
3398         memcpy(&cmd->data.setadapterparms.data.change_addr.addr,
3399                card->dev->dev_addr, OSA_ADDR_LEN);
3400         rc = qeth_send_ipa_cmd(card, iob, qeth_setadpparms_change_macaddr_cb,
3401                                NULL);
3402         return rc;
3403 }
3404 EXPORT_SYMBOL_GPL(qeth_setadpparms_change_macaddr);
3405
3406 static int qeth_setadpparms_set_access_ctrl_cb(struct qeth_card *card,
3407                 struct qeth_reply *reply, unsigned long data)
3408 {
3409         struct qeth_ipa_cmd *cmd;
3410         struct qeth_set_access_ctrl *access_ctrl_req;
3411         int rc;
3412
3413         QETH_CARD_TEXT(card, 4, "setaccb");
3414
3415         cmd = (struct qeth_ipa_cmd *) data;
3416         access_ctrl_req = &cmd->data.setadapterparms.data.set_access_ctrl;
3417         QETH_DBF_TEXT_(SETUP, 2, "setaccb");
3418         QETH_DBF_TEXT_(SETUP, 2, "%s", card->gdev->dev.kobj.name);
3419         QETH_DBF_TEXT_(SETUP, 2, "rc=%d",
3420                 cmd->data.setadapterparms.hdr.return_code);
3421         switch (cmd->data.setadapterparms.hdr.return_code) {
3422         case SET_ACCESS_CTRL_RC_SUCCESS:
3423         case SET_ACCESS_CTRL_RC_ALREADY_NOT_ISOLATED:
3424         case SET_ACCESS_CTRL_RC_ALREADY_ISOLATED:
3425         {
3426                 card->options.isolation = access_ctrl_req->subcmd_code;
3427                 if (card->options.isolation == ISOLATION_MODE_NONE) {
3428                         dev_info(&card->gdev->dev,
3429                             "QDIO data connection isolation is deactivated\n");
3430                 } else {
3431                         dev_info(&card->gdev->dev,
3432                             "QDIO data connection isolation is activated\n");
3433                 }
3434                 QETH_DBF_MESSAGE(3, "OK:SET_ACCESS_CTRL(%s, %d)==%d\n",
3435                         card->gdev->dev.kobj.name,
3436                         access_ctrl_req->subcmd_code,
3437                         cmd->data.setadapterparms.hdr.return_code);
3438                 rc = 0;
3439                 break;
3440         }
3441         case SET_ACCESS_CTRL_RC_NOT_SUPPORTED:
3442         {
3443                 QETH_DBF_MESSAGE(3, "ERR:SET_ACCESS_CTRL(%s,%d)==%d\n",
3444                         card->gdev->dev.kobj.name,
3445                         access_ctrl_req->subcmd_code,
3446                         cmd->data.setadapterparms.hdr.return_code);
3447                 dev_err(&card->gdev->dev, "Adapter does not "
3448                         "support QDIO data connection isolation\n");
3449
3450                 /* ensure isolation mode is "none" */
3451                 card->options.isolation = ISOLATION_MODE_NONE;
3452                 rc = -EOPNOTSUPP;
3453                 break;
3454         }
3455         case SET_ACCESS_CTRL_RC_NONE_SHARED_ADAPTER:
3456         {
3457                 QETH_DBF_MESSAGE(3, "ERR:SET_ACCESS_MODE(%s,%d)==%d\n",
3458                         card->gdev->dev.kobj.name,
3459                         access_ctrl_req->subcmd_code,
3460                         cmd->data.setadapterparms.hdr.return_code);
3461                 dev_err(&card->gdev->dev,
3462                         "Adapter is dedicated. "
3463                         "QDIO data connection isolation not supported\n");
3464
3465                 /* ensure isolation mode is "none" */
3466                 card->options.isolation = ISOLATION_MODE_NONE;
3467                 rc = -EOPNOTSUPP;
3468                 break;
3469         }
3470         case SET_ACCESS_CTRL_RC_ACTIVE_CHECKSUM_OFF:
3471         {
3472                 QETH_DBF_MESSAGE(3, "ERR:SET_ACCESS_MODE(%s,%d)==%d\n",
3473                         card->gdev->dev.kobj.name,
3474                         access_ctrl_req->subcmd_code,
3475                         cmd->data.setadapterparms.hdr.return_code);
3476                 dev_err(&card->gdev->dev,
3477                         "TSO does not permit QDIO data connection isolation\n");
3478
3479                 /* ensure isolation mode is "none" */
3480                 card->options.isolation = ISOLATION_MODE_NONE;
3481                 rc = -EPERM;
3482                 break;
3483         }
3484         default:
3485         {
3486                 /* this should never happen */
3487                 QETH_DBF_MESSAGE(3, "ERR:SET_ACCESS_MODE(%s,%d)==%d"
3488                         "==UNKNOWN\n",
3489                         card->gdev->dev.kobj.name,
3490                         access_ctrl_req->subcmd_code,
3491                         cmd->data.setadapterparms.hdr.return_code);
3492
3493                 /* ensure isolation mode is "none" */
3494                 card->options.isolation = ISOLATION_MODE_NONE;
3495                 rc = 0;
3496                 break;
3497         }
3498         }
3499         qeth_default_setadapterparms_cb(card, reply, (unsigned long) cmd);
3500         return rc;
3501 }
3502
3503 static int qeth_setadpparms_set_access_ctrl(struct qeth_card *card,
3504                 enum qeth_ipa_isolation_modes isolation)
3505 {
3506         int rc;
3507         struct qeth_cmd_buffer *iob;
3508         struct qeth_ipa_cmd *cmd;
3509         struct qeth_set_access_ctrl *access_ctrl_req;
3510
3511         QETH_CARD_TEXT(card, 4, "setacctl");
3512
3513         QETH_DBF_TEXT_(SETUP, 2, "setacctl");
3514         QETH_DBF_TEXT_(SETUP, 2, "%s", card->gdev->dev.kobj.name);
3515
3516         iob = qeth_get_adapter_cmd(card, IPA_SETADP_SET_ACCESS_CONTROL,
3517                                    sizeof(struct qeth_ipacmd_setadpparms_hdr) +
3518                                    sizeof(struct qeth_set_access_ctrl));
3519         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
3520         access_ctrl_req = &cmd->data.setadapterparms.data.set_access_ctrl;
3521         access_ctrl_req->subcmd_code = isolation;
3522
3523         rc = qeth_send_ipa_cmd(card, iob, qeth_setadpparms_set_access_ctrl_cb,
3524                                NULL);
3525         QETH_DBF_TEXT_(SETUP, 2, "rc=%d", rc);
3526         return rc;
3527 }
3528
3529 int qeth_set_access_ctrl_online(struct qeth_card *card)
3530 {
3531         int rc = 0;
3532
3533         QETH_CARD_TEXT(card, 4, "setactlo");
3534
3535         if ((card->info.type == QETH_CARD_TYPE_OSD ||
3536              card->info.type == QETH_CARD_TYPE_OSX) &&
3537              qeth_adp_supported(card, IPA_SETADP_SET_ACCESS_CONTROL)) {
3538                 rc = qeth_setadpparms_set_access_ctrl(card,
3539                         card->options.isolation);
3540                 if (rc) {
3541                         QETH_DBF_MESSAGE(3,
3542                                 "IPA(SET_ACCESS_CTRL,%s,%d) sent failed\n",
3543                                 card->gdev->dev.kobj.name,
3544                                 rc);
3545                 }
3546         } else if (card->options.isolation != ISOLATION_MODE_NONE) {
3547                 card->options.isolation = ISOLATION_MODE_NONE;
3548
3549                 dev_err(&card->gdev->dev, "Adapter does not "
3550                         "support QDIO data connection isolation\n");
3551                 rc = -EOPNOTSUPP;
3552         }
3553         return rc;
3554 }
3555 EXPORT_SYMBOL_GPL(qeth_set_access_ctrl_online);
3556
3557 void qeth_tx_timeout(struct net_device *dev)
3558 {
3559         struct qeth_card *card;
3560
3561         card = dev->ml_priv;
3562         QETH_CARD_TEXT(card, 4, "txtimeo");
3563         card->stats.tx_errors++;
3564         qeth_schedule_recovery(card);
3565 }
3566 EXPORT_SYMBOL_GPL(qeth_tx_timeout);
3567
3568 int qeth_mdio_read(struct net_device *dev, int phy_id, int regnum)
3569 {
3570         struct qeth_card *card = dev->ml_priv;
3571         int rc = 0;
3572
3573         switch (regnum) {
3574         case MII_BMCR: /* Basic mode control register */
3575                 rc = BMCR_FULLDPLX;
3576                 if ((card->info.link_type != QETH_LINK_TYPE_GBIT_ETH) &&
3577                     (card->info.link_type != QETH_LINK_TYPE_OSN) &&
3578                     (card->info.link_type != QETH_LINK_TYPE_10GBIT_ETH))
3579                         rc |= BMCR_SPEED100;
3580                 break;
3581         case MII_BMSR: /* Basic mode status register */
3582                 rc = BMSR_ERCAP | BMSR_ANEGCOMPLETE | BMSR_LSTATUS |
3583                      BMSR_10HALF | BMSR_10FULL | BMSR_100HALF | BMSR_100FULL |
3584                      BMSR_100BASE4;
3585                 break;
3586         case MII_PHYSID1: /* PHYS ID 1 */
3587                 rc = (dev->dev_addr[0] << 16) | (dev->dev_addr[1] << 8) |
3588                      dev->dev_addr[2];
3589                 rc = (rc >> 5) & 0xFFFF;
3590                 break;
3591         case MII_PHYSID2: /* PHYS ID 2 */
3592                 rc = (dev->dev_addr[2] << 10) & 0xFFFF;
3593                 break;
3594         case MII_ADVERTISE: /* Advertisement control reg */
3595                 rc = ADVERTISE_ALL;
3596                 break;
3597         case MII_LPA: /* Link partner ability reg */
3598                 rc = LPA_10HALF | LPA_10FULL | LPA_100HALF | LPA_100FULL |
3599                      LPA_100BASE4 | LPA_LPACK;
3600                 break;
3601         case MII_EXPANSION: /* Expansion register */
3602                 break;
3603         case MII_DCOUNTER: /* disconnect counter */
3604                 break;
3605         case MII_FCSCOUNTER: /* false carrier counter */
3606                 break;
3607         case MII_NWAYTEST: /* N-way auto-neg test register */
3608                 break;
3609         case MII_RERRCOUNTER: /* rx error counter */
3610                 rc = card->stats.rx_errors;
3611                 break;
3612         case MII_SREVISION: /* silicon revision */
3613                 break;
3614         case MII_RESV1: /* reserved 1 */
3615                 break;
3616         case MII_LBRERROR: /* loopback, rx, bypass error */
3617                 break;
3618         case MII_PHYADDR: /* physical address */
3619                 break;
3620         case MII_RESV2: /* reserved 2 */
3621                 break;
3622         case MII_TPISTATUS: /* TPI status for 10mbps */
3623                 break;
3624         case MII_NCONFIG: /* network interface config */
3625                 break;
3626         default:
3627                 break;
3628         }
3629         return rc;
3630 }
3631 EXPORT_SYMBOL_GPL(qeth_mdio_read);
3632
3633 static int qeth_send_ipa_snmp_cmd(struct qeth_card *card,
3634                 struct qeth_cmd_buffer *iob, int len,
3635                 int (*reply_cb)(struct qeth_card *, struct qeth_reply *,
3636                         unsigned long),
3637                 void *reply_param)
3638 {
3639         u16 s1, s2;
3640
3641         QETH_CARD_TEXT(card, 4, "sendsnmp");
3642
3643         memcpy(iob->data, IPA_PDU_HEADER, IPA_PDU_HEADER_SIZE);
3644         memcpy(QETH_IPA_CMD_DEST_ADDR(iob->data),
3645                &card->token.ulp_connection_r, QETH_MPC_TOKEN_LENGTH);
3646         /* adjust PDU length fields in IPA_PDU_HEADER */
3647         s1 = (u32) IPA_PDU_HEADER_SIZE + len;
3648         s2 = (u32) len;
3649         memcpy(QETH_IPA_PDU_LEN_TOTAL(iob->data), &s1, 2);
3650         memcpy(QETH_IPA_PDU_LEN_PDU1(iob->data), &s2, 2);
3651         memcpy(QETH_IPA_PDU_LEN_PDU2(iob->data), &s2, 2);
3652         memcpy(QETH_IPA_PDU_LEN_PDU3(iob->data), &s2, 2);
3653         return qeth_send_control_data(card, IPA_PDU_HEADER_SIZE + len, iob,
3654                                       reply_cb, reply_param);
3655 }
3656
3657 static int qeth_snmp_command_cb(struct qeth_card *card,
3658                 struct qeth_reply *reply, unsigned long sdata)
3659 {
3660         struct qeth_ipa_cmd *cmd;
3661         struct qeth_arp_query_info *qinfo;
3662         struct qeth_snmp_cmd *snmp;
3663         unsigned char *data;
3664         __u16 data_len;
3665
3666         QETH_CARD_TEXT(card, 3, "snpcmdcb");
3667
3668         cmd = (struct qeth_ipa_cmd *) sdata;
3669         data = (unsigned char *)((char *)cmd - reply->offset);
3670         qinfo = (struct qeth_arp_query_info *) reply->param;
3671         snmp = &cmd->data.setadapterparms.data.snmp;
3672
3673         if (cmd->hdr.return_code) {
3674                 QETH_CARD_TEXT_(card, 4, "scer1%i", cmd->hdr.return_code);
3675                 return 0;
3676         }
3677         if (cmd->data.setadapterparms.hdr.return_code) {
3678                 cmd->hdr.return_code =
3679                         cmd->data.setadapterparms.hdr.return_code;
3680                 QETH_CARD_TEXT_(card, 4, "scer2%i", cmd->hdr.return_code);
3681                 return 0;
3682         }
3683         data_len = *((__u16 *)QETH_IPA_PDU_LEN_PDU1(data));
3684         if (cmd->data.setadapterparms.hdr.seq_no == 1)
3685                 data_len -= (__u16)((char *)&snmp->data - (char *)cmd);
3686         else
3687                 data_len -= (__u16)((char *)&snmp->request - (char *)cmd);
3688
3689         /* check if there is enough room in userspace */
3690         if ((qinfo->udata_len - qinfo->udata_offset) < data_len) {
3691                 QETH_CARD_TEXT_(card, 4, "scer3%i", -ENOMEM);
3692                 cmd->hdr.return_code = -ENOMEM;
3693                 return 0;
3694         }
3695         QETH_CARD_TEXT_(card, 4, "snore%i",
3696                        cmd->data.setadapterparms.hdr.used_total);
3697         QETH_CARD_TEXT_(card, 4, "sseqn%i",
3698                 cmd->data.setadapterparms.hdr.seq_no);
3699         /*copy entries to user buffer*/
3700         if (cmd->data.setadapterparms.hdr.seq_no == 1) {
3701                 memcpy(qinfo->udata + qinfo->udata_offset,
3702                        (char *)snmp,
3703                        data_len + offsetof(struct qeth_snmp_cmd, data));
3704                 qinfo->udata_offset += offsetof(struct qeth_snmp_cmd, data);
3705         } else {
3706                 memcpy(qinfo->udata + qinfo->udata_offset,
3707                        (char *)&snmp->request, data_len);
3708         }
3709         qinfo->udata_offset += data_len;
3710         /* check if all replies received ... */
3711                 QETH_CARD_TEXT_(card, 4, "srtot%i",
3712                                cmd->data.setadapterparms.hdr.used_total);
3713                 QETH_CARD_TEXT_(card, 4, "srseq%i",
3714                                cmd->data.setadapterparms.hdr.seq_no);
3715         if (cmd->data.setadapterparms.hdr.seq_no <
3716             cmd->data.setadapterparms.hdr.used_total)
3717                 return 1;
3718         return 0;
3719 }
3720
3721 int qeth_snmp_command(struct qeth_card *card, char __user *udata)
3722 {
3723         struct qeth_cmd_buffer *iob;
3724         struct qeth_ipa_cmd *cmd;
3725         struct qeth_snmp_ureq *ureq;
3726         int req_len;
3727         struct qeth_arp_query_info qinfo = {0, };
3728         int rc = 0;
3729
3730         QETH_CARD_TEXT(card, 3, "snmpcmd");
3731
3732         if (card->info.guestlan)
3733                 return -EOPNOTSUPP;
3734
3735         if ((!qeth_adp_supported(card, IPA_SETADP_SET_SNMP_CONTROL)) &&
3736             (!card->options.layer2)) {
3737                 return -EOPNOTSUPP;
3738         }
3739         /* skip 4 bytes (data_len struct member) to get req_len */
3740         if (copy_from_user(&req_len, udata + sizeof(int), sizeof(int)))
3741                 return -EFAULT;
3742         ureq = kmalloc(req_len+sizeof(struct qeth_snmp_ureq_hdr), GFP_KERNEL);
3743         if (!ureq) {
3744                 QETH_CARD_TEXT(card, 2, "snmpnome");
3745                 return -ENOMEM;
3746         }
3747         if (copy_from_user(ureq, udata,
3748                         req_len + sizeof(struct qeth_snmp_ureq_hdr))) {
3749                 kfree(ureq);
3750                 return -EFAULT;
3751         }
3752         qinfo.udata_len = ureq->hdr.data_len;
3753         qinfo.udata = kzalloc(qinfo.udata_len, GFP_KERNEL);
3754         if (!qinfo.udata) {
3755                 kfree(ureq);
3756                 return -ENOMEM;
3757         }
3758         qinfo.udata_offset = sizeof(struct qeth_snmp_ureq_hdr);
3759
3760         iob = qeth_get_adapter_cmd(card, IPA_SETADP_SET_SNMP_CONTROL,
3761                                    QETH_SNMP_SETADP_CMDLENGTH + req_len);
3762         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
3763         memcpy(&cmd->data.setadapterparms.data.snmp, &ureq->cmd, req_len);
3764         rc = qeth_send_ipa_snmp_cmd(card, iob, QETH_SETADP_BASE_LEN + req_len,
3765                                     qeth_snmp_command_cb, (void *)&qinfo);
3766         if (rc)
3767                 QETH_DBF_MESSAGE(2, "SNMP command failed on %s: (0x%x)\n",
3768                            QETH_CARD_IFNAME(card), rc);
3769         else {
3770                 if (copy_to_user(udata, qinfo.udata, qinfo.udata_len))
3771                         rc = -EFAULT;
3772         }
3773
3774         kfree(ureq);
3775         kfree(qinfo.udata);
3776         return rc;
3777 }
3778 EXPORT_SYMBOL_GPL(qeth_snmp_command);
3779
3780 static inline int qeth_get_qdio_q_format(struct qeth_card *card)
3781 {
3782         switch (card->info.type) {
3783         case QETH_CARD_TYPE_IQD:
3784                 return 2;
3785         default:
3786                 return 0;
3787         }
3788 }
3789
3790 static int qeth_qdio_establish(struct qeth_card *card)
3791 {
3792         struct qdio_initialize init_data;
3793         char *qib_param_field;
3794         struct qdio_buffer **in_sbal_ptrs;
3795         struct qdio_buffer **out_sbal_ptrs;
3796         int i, j, k;
3797         int rc = 0;
3798
3799         QETH_DBF_TEXT(SETUP, 2, "qdioest");
3800
3801         qib_param_field = kzalloc(QDIO_MAX_BUFFERS_PER_Q * sizeof(char),
3802                               GFP_KERNEL);
3803         if (!qib_param_field)
3804                 return -ENOMEM;
3805
3806         qeth_create_qib_param_field(card, qib_param_field);
3807         qeth_create_qib_param_field_blkt(card, qib_param_field);
3808
3809         in_sbal_ptrs = kmalloc(QDIO_MAX_BUFFERS_PER_Q * sizeof(void *),
3810                                GFP_KERNEL);
3811         if (!in_sbal_ptrs) {
3812                 kfree(qib_param_field);
3813                 return -ENOMEM;
3814         }
3815         for (i = 0; i < QDIO_MAX_BUFFERS_PER_Q; ++i)
3816                 in_sbal_ptrs[i] = (struct qdio_buffer *)
3817                         virt_to_phys(card->qdio.in_q->bufs[i].buffer);
3818
3819         out_sbal_ptrs =
3820                 kmalloc(card->qdio.no_out_queues * QDIO_MAX_BUFFERS_PER_Q *
3821                         sizeof(void *), GFP_KERNEL);
3822         if (!out_sbal_ptrs) {
3823                 kfree(in_sbal_ptrs);
3824                 kfree(qib_param_field);
3825                 return -ENOMEM;
3826         }
3827         for (i = 0, k = 0; i < card->qdio.no_out_queues; ++i)
3828                 for (j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j, ++k) {
3829                         out_sbal_ptrs[k] = (struct qdio_buffer *)virt_to_phys(
3830                                 card->qdio.out_qs[i]->bufs[j].buffer);
3831                 }
3832
3833         memset(&init_data, 0, sizeof(struct qdio_initialize));
3834         init_data.cdev                   = CARD_DDEV(card);
3835         init_data.q_format               = qeth_get_qdio_q_format(card);
3836         init_data.qib_param_field_format = 0;
3837         init_data.qib_param_field        = qib_param_field;
3838         init_data.no_input_qs            = 1;
3839         init_data.no_output_qs           = card->qdio.no_out_queues;
3840         init_data.input_handler          = card->discipline.input_handler;
3841         init_data.output_handler         = card->discipline.output_handler;
3842         init_data.int_parm               = (unsigned long) card;
3843         init_data.input_sbal_addr_array  = (void **) in_sbal_ptrs;
3844         init_data.output_sbal_addr_array = (void **) out_sbal_ptrs;
3845
3846         if (atomic_cmpxchg(&card->qdio.state, QETH_QDIO_ALLOCATED,
3847                 QETH_QDIO_ESTABLISHED) == QETH_QDIO_ALLOCATED) {
3848                 rc = qdio_allocate(&init_data);
3849                 if (rc) {
3850                         atomic_set(&card->qdio.state, QETH_QDIO_ALLOCATED);
3851                         goto out;
3852                 }
3853                 rc = qdio_establish(&init_data);
3854                 if (rc) {
3855                         atomic_set(&card->qdio.state, QETH_QDIO_ALLOCATED);
3856                         qdio_free(CARD_DDEV(card));
3857                 }
3858         }
3859 out:
3860         kfree(out_sbal_ptrs);
3861         kfree(in_sbal_ptrs);
3862         kfree(qib_param_field);
3863         return rc;
3864 }
3865
3866 static void qeth_core_free_card(struct qeth_card *card)
3867 {
3868
3869         QETH_DBF_TEXT(SETUP, 2, "freecrd");
3870         QETH_DBF_HEX(SETUP, 2, &card, sizeof(void *));
3871         qeth_clean_channel(&card->read);
3872         qeth_clean_channel(&card->write);
3873         if (card->dev)
3874                 free_netdev(card->dev);
3875         kfree(card->ip_tbd_list);
3876         qeth_free_qdio_buffers(card);
3877         unregister_service_level(&card->qeth_service_level);
3878         kfree(card);
3879 }
3880
3881 static struct ccw_device_id qeth_ids[] = {
3882         {CCW_DEVICE_DEVTYPE(0x1731, 0x01, 0x1732, 0x01),
3883                                         .driver_info = QETH_CARD_TYPE_OSD},
3884         {CCW_DEVICE_DEVTYPE(0x1731, 0x05, 0x1732, 0x05),
3885                                         .driver_info = QETH_CARD_TYPE_IQD},
3886         {CCW_DEVICE_DEVTYPE(0x1731, 0x06, 0x1732, 0x06),
3887                                         .driver_info = QETH_CARD_TYPE_OSN},
3888         {CCW_DEVICE_DEVTYPE(0x1731, 0x02, 0x1732, 0x03),
3889                                         .driver_info = QETH_CARD_TYPE_OSM},
3890         {CCW_DEVICE_DEVTYPE(0x1731, 0x02, 0x1732, 0x02),
3891                                         .driver_info = QETH_CARD_TYPE_OSX},
3892         {},
3893 };
3894 MODULE_DEVICE_TABLE(ccw, qeth_ids);
3895
3896 static struct ccw_driver qeth_ccw_driver = {
3897         .name = "qeth",
3898         .ids = qeth_ids,
3899         .probe = ccwgroup_probe_ccwdev,
3900         .remove = ccwgroup_remove_ccwdev,
3901 };
3902
3903 static int qeth_core_driver_group(const char *buf, struct device *root_dev,
3904                                 unsigned long driver_id)
3905 {
3906         return ccwgroup_create_from_string(root_dev, driver_id,
3907                                            &qeth_ccw_driver, 3, buf);
3908 }
3909
3910 int qeth_core_hardsetup_card(struct qeth_card *card)
3911 {
3912         int retries = 0;
3913         int rc;
3914
3915         QETH_DBF_TEXT(SETUP, 2, "hrdsetup");
3916         atomic_set(&card->force_alloc_skb, 0);
3917 retry:
3918         if (retries)
3919                 QETH_DBF_MESSAGE(2, "%s Retrying to do IDX activates.\n",
3920                         dev_name(&card->gdev->dev));
3921         ccw_device_set_offline(CARD_DDEV(card));
3922         ccw_device_set_offline(CARD_WDEV(card));
3923         ccw_device_set_offline(CARD_RDEV(card));
3924         rc = ccw_device_set_online(CARD_RDEV(card));
3925         if (rc)
3926                 goto retriable;
3927         rc = ccw_device_set_online(CARD_WDEV(card));
3928         if (rc)
3929                 goto retriable;
3930         rc = ccw_device_set_online(CARD_DDEV(card));
3931         if (rc)
3932                 goto retriable;
3933         rc = qeth_qdio_clear_card(card, card->info.type != QETH_CARD_TYPE_IQD);
3934 retriable:
3935         if (rc == -ERESTARTSYS) {
3936                 QETH_DBF_TEXT(SETUP, 2, "break1");
3937                 return rc;
3938         } else if (rc) {
3939                 QETH_DBF_TEXT_(SETUP, 2, "1err%d", rc);
3940                 if (++retries > 3)
3941                         goto out;
3942                 else
3943                         goto retry;
3944         }
3945         qeth_init_tokens(card);
3946         qeth_init_func_level(card);
3947         rc = qeth_idx_activate_channel(&card->read, qeth_idx_read_cb);
3948         if (rc == -ERESTARTSYS) {
3949                 QETH_DBF_TEXT(SETUP, 2, "break2");
3950                 return rc;
3951         } else if (rc) {
3952                 QETH_DBF_TEXT_(SETUP, 2, "3err%d", rc);
3953                 if (--retries < 0)
3954                         goto out;
3955                 else
3956                         goto retry;
3957         }
3958         rc = qeth_idx_activate_channel(&card->write, qeth_idx_write_cb);
3959         if (rc == -ERESTARTSYS) {
3960                 QETH_DBF_TEXT(SETUP, 2, "break3");
3961                 return rc;
3962         } else if (rc) {
3963                 QETH_DBF_TEXT_(SETUP, 2, "4err%d", rc);
3964                 if (--retries < 0)
3965                         goto out;
3966                 else
3967                         goto retry;
3968         }
3969         rc = qeth_mpc_initialize(card);
3970         if (rc) {
3971                 QETH_DBF_TEXT_(SETUP, 2, "5err%d", rc);
3972                 goto out;
3973         }
3974         return 0;
3975 out:
3976         dev_warn(&card->gdev->dev, "The qeth device driver failed to recover "
3977                 "an error on the device\n");
3978         QETH_DBF_MESSAGE(2, "%s Initialization in hardsetup failed! rc=%d\n",
3979                 dev_name(&card->gdev->dev), rc);
3980         return rc;
3981 }
3982 EXPORT_SYMBOL_GPL(qeth_core_hardsetup_card);
3983
3984 static inline int qeth_create_skb_frag(struct qdio_buffer_element *element,
3985                 struct sk_buff **pskb, int offset, int *pfrag, int data_len)
3986 {
3987         struct page *page = virt_to_page(element->addr);
3988         if (*pskb == NULL) {
3989                 /* the upper protocol layers assume that there is data in the
3990                  * skb itself. Copy a small amount (64 bytes) to make them
3991                  * happy. */
3992                 *pskb = dev_alloc_skb(64 + ETH_HLEN);
3993                 if (!(*pskb))
3994                         return -ENOMEM;
3995                 skb_reserve(*pskb, ETH_HLEN);
3996                 if (data_len <= 64) {
3997                         memcpy(skb_put(*pskb, data_len), element->addr + offset,
3998                                 data_len);
3999                 } else {
4000                         get_page(page);
4001                         memcpy(skb_put(*pskb, 64), element->addr + offset, 64);
4002                         skb_fill_page_desc(*pskb, *pfrag, page, offset + 64,
4003                                 data_len - 64);
4004                         (*pskb)->data_len += data_len - 64;
4005                         (*pskb)->len      += data_len - 64;
4006                         (*pskb)->truesize += data_len - 64;
4007                         (*pfrag)++;
4008                 }
4009         } else {
4010                 get_page(page);
4011                 skb_fill_page_desc(*pskb, *pfrag, page, offset, data_len);
4012                 (*pskb)->data_len += data_len;
4013                 (*pskb)->len      += data_len;
4014                 (*pskb)->truesize += data_len;
4015                 (*pfrag)++;
4016         }
4017         return 0;
4018 }
4019
4020 struct sk_buff *qeth_core_get_next_skb(struct qeth_card *card,
4021                 struct qdio_buffer *buffer,
4022                 struct qdio_buffer_element **__element, int *__offset,
4023                 struct qeth_hdr **hdr)
4024 {
4025         struct qdio_buffer_element *element = *__element;
4026         int offset = *__offset;
4027         struct sk_buff *skb = NULL;
4028         int skb_len = 0;
4029         void *data_ptr;
4030         int data_len;
4031         int headroom = 0;
4032         int use_rx_sg = 0;
4033         int frag = 0;
4034
4035         /* qeth_hdr must not cross element boundaries */
4036         if (element->length < offset + sizeof(struct qeth_hdr)) {
4037                 if (qeth_is_last_sbale(element))
4038                         return NULL;
4039                 element++;
4040                 offset = 0;
4041                 if (element->length < sizeof(struct qeth_hdr))
4042                         return NULL;
4043         }
4044         *hdr = element->addr + offset;
4045
4046         offset += sizeof(struct qeth_hdr);
4047         switch ((*hdr)->hdr.l2.id) {
4048         case QETH_HEADER_TYPE_LAYER2:
4049                 skb_len = (*hdr)->hdr.l2.pkt_length;
4050                 break;
4051         case QETH_HEADER_TYPE_LAYER3:
4052                 skb_len = (*hdr)->hdr.l3.length;
4053                 if ((card->info.link_type == QETH_LINK_TYPE_LANE_TR) ||
4054                     (card->info.link_type == QETH_LINK_TYPE_HSTR))
4055                         headroom = TR_HLEN;
4056                 else
4057                         headroom = ETH_HLEN;
4058                 break;
4059         case QETH_HEADER_TYPE_OSN:
4060                 skb_len = (*hdr)->hdr.osn.pdu_length;
4061                 headroom = sizeof(struct qeth_hdr);
4062                 break;
4063         default:
4064                 break;
4065         }
4066
4067         if (!skb_len)
4068                 return NULL;
4069
4070         if ((skb_len >= card->options.rx_sg_cb) &&
4071             (!(card->info.type == QETH_CARD_TYPE_OSN)) &&
4072             (!atomic_read(&card->force_alloc_skb))) {
4073                 use_rx_sg = 1;
4074         } else {
4075                 skb = dev_alloc_skb(skb_len + headroom);
4076                 if (!skb)
4077                         goto no_mem;
4078                 if (headroom)
4079                         skb_reserve(skb, headroom);
4080         }
4081
4082         data_ptr = element->addr + offset;
4083         while (skb_len) {
4084                 data_len = min(skb_len, (int)(element->length - offset));
4085                 if (data_len) {
4086                         if (use_rx_sg) {
4087                                 if (qeth_create_skb_frag(element, &skb, offset,
4088                                     &frag, data_len))
4089                                         goto no_mem;
4090                         } else {
4091                                 memcpy(skb_put(skb, data_len), data_ptr,
4092                                         data_len);
4093                         }
4094                 }
4095                 skb_len -= data_len;
4096                 if (skb_len) {
4097                         if (qeth_is_last_sbale(element)) {
4098                                 QETH_CARD_TEXT(card, 4, "unexeob");
4099                                 QETH_CARD_HEX(card, 2, buffer, sizeof(void *));
4100                                 dev_kfree_skb_any(skb);
4101                                 card->stats.rx_errors++;
4102                                 return NULL;
4103                         }
4104                         element++;
4105                         offset = 0;
4106                         data_ptr = element->addr;
4107                 } else {
4108                         offset += data_len;
4109                 }
4110         }
4111         *__element = element;
4112         *__offset = offset;
4113         if (use_rx_sg && card->options.performance_stats) {
4114                 card->perf_stats.sg_skbs_rx++;
4115                 card->perf_stats.sg_frags_rx += skb_shinfo(skb)->nr_frags;
4116         }
4117         return skb;
4118 no_mem:
4119         if (net_ratelimit()) {
4120                 QETH_CARD_TEXT(card, 2, "noskbmem");
4121         }
4122         card->stats.rx_dropped++;
4123         return NULL;
4124 }
4125 EXPORT_SYMBOL_GPL(qeth_core_get_next_skb);
4126
4127 static void qeth_unregister_dbf_views(void)
4128 {
4129         int x;
4130         for (x = 0; x < QETH_DBF_INFOS; x++) {
4131                 debug_unregister(qeth_dbf[x].id);
4132                 qeth_dbf[x].id = NULL;
4133         }
4134 }
4135
4136 void qeth_dbf_longtext(debug_info_t *id, int level, char *fmt, ...)
4137 {
4138         char dbf_txt_buf[32];
4139         va_list args;
4140
4141         if (level > id->level)
4142                 return;
4143         va_start(args, fmt);
4144         vsnprintf(dbf_txt_buf, sizeof(dbf_txt_buf), fmt, args);
4145         va_end(args);
4146         debug_text_event(id, level, dbf_txt_buf);
4147 }
4148 EXPORT_SYMBOL_GPL(qeth_dbf_longtext);
4149
4150 static int qeth_register_dbf_views(void)
4151 {
4152         int ret;
4153         int x;
4154
4155         for (x = 0; x < QETH_DBF_INFOS; x++) {
4156                 /* register the areas */
4157                 qeth_dbf[x].id = debug_register(qeth_dbf[x].name,
4158                                                 qeth_dbf[x].pages,
4159                                                 qeth_dbf[x].areas,
4160                                                 qeth_dbf[x].len);
4161                 if (qeth_dbf[x].id == NULL) {
4162                         qeth_unregister_dbf_views();
4163                         return -ENOMEM;
4164                 }
4165
4166                 /* register a view */
4167                 ret = debug_register_view(qeth_dbf[x].id, qeth_dbf[x].view);
4168                 if (ret) {
4169                         qeth_unregister_dbf_views();
4170                         return ret;
4171                 }
4172
4173                 /* set a passing level */
4174                 debug_set_level(qeth_dbf[x].id, qeth_dbf[x].level);
4175         }
4176
4177         return 0;
4178 }
4179
4180 int qeth_core_load_discipline(struct qeth_card *card,
4181                 enum qeth_discipline_id discipline)
4182 {
4183         int rc = 0;
4184         switch (discipline) {
4185         case QETH_DISCIPLINE_LAYER3:
4186                 card->discipline.ccwgdriver = try_then_request_module(
4187                         symbol_get(qeth_l3_ccwgroup_driver),
4188                         "qeth_l3");
4189                 break;
4190         case QETH_DISCIPLINE_LAYER2:
4191                 card->discipline.ccwgdriver = try_then_request_module(
4192                         symbol_get(qeth_l2_ccwgroup_driver),
4193                         "qeth_l2");
4194                 break;
4195         }
4196         if (!card->discipline.ccwgdriver) {
4197                 dev_err(&card->gdev->dev, "There is no kernel module to "
4198                         "support discipline %d\n", discipline);
4199                 rc = -EINVAL;
4200         }
4201         return rc;
4202 }
4203
4204 void qeth_core_free_discipline(struct qeth_card *card)
4205 {
4206         if (card->options.layer2)
4207                 symbol_put(qeth_l2_ccwgroup_driver);
4208         else
4209                 symbol_put(qeth_l3_ccwgroup_driver);
4210         card->discipline.ccwgdriver = NULL;
4211 }
4212
4213 static void qeth_determine_capabilities(struct qeth_card *card)
4214 {
4215         int rc;
4216         int length;
4217         char *prcd;
4218
4219         QETH_DBF_TEXT(SETUP, 2, "detcapab");
4220         rc = ccw_device_set_online(CARD_DDEV(card));
4221         if (rc) {
4222                 QETH_DBF_TEXT_(SETUP, 2, "3err%d", rc);
4223                 goto out;
4224         }
4225
4226
4227         rc = qeth_read_conf_data(card, (void **) &prcd, &length);
4228         if (rc) {
4229                 QETH_DBF_MESSAGE(2, "%s qeth_read_conf_data returned %i\n",
4230                         dev_name(&card->gdev->dev), rc);
4231                 QETH_DBF_TEXT_(SETUP, 2, "5err%d", rc);
4232                 goto out_offline;
4233         }
4234         qeth_configure_unitaddr(card, prcd);
4235         qeth_configure_blkt_default(card, prcd);
4236         kfree(prcd);
4237
4238         rc = qdio_get_ssqd_desc(CARD_DDEV(card), &card->ssqd);
4239         if (rc)
4240                 QETH_DBF_TEXT_(SETUP, 2, "6err%d", rc);
4241
4242 out_offline:
4243         ccw_device_set_offline(CARD_DDEV(card));
4244 out:
4245         return;
4246 }
4247
4248 static int qeth_core_probe_device(struct ccwgroup_device *gdev)
4249 {
4250         struct qeth_card *card;
4251         struct device *dev;
4252         int rc;
4253         unsigned long flags;
4254         char dbf_name[20];
4255
4256         QETH_DBF_TEXT(SETUP, 2, "probedev");
4257
4258         dev = &gdev->dev;
4259         if (!get_device(dev))
4260                 return -ENODEV;
4261
4262         QETH_DBF_TEXT_(SETUP, 2, "%s", dev_name(&gdev->dev));
4263
4264         card = qeth_alloc_card();
4265         if (!card) {
4266                 QETH_DBF_TEXT_(SETUP, 2, "1err%d", -ENOMEM);
4267                 rc = -ENOMEM;
4268                 goto err_dev;
4269         }
4270
4271         snprintf(dbf_name, sizeof(dbf_name), "qeth_card_%s",
4272                 dev_name(&gdev->dev));
4273         card->debug = debug_register(dbf_name, 2, 1, 8);
4274         if (!card->debug) {
4275                 QETH_DBF_TEXT_(SETUP, 2, "%s", "qcdbf");
4276                 rc = -ENOMEM;
4277                 goto err_card;
4278         }
4279         debug_register_view(card->debug, &debug_hex_ascii_view);
4280
4281         card->read.ccwdev  = gdev->cdev[0];
4282         card->write.ccwdev = gdev->cdev[1];
4283         card->data.ccwdev  = gdev->cdev[2];
4284         dev_set_drvdata(&gdev->dev, card);
4285         card->gdev = gdev;
4286         gdev->cdev[0]->handler = qeth_irq;
4287         gdev->cdev[1]->handler = qeth_irq;
4288         gdev->cdev[2]->handler = qeth_irq;
4289
4290         rc = qeth_determine_card_type(card);
4291         if (rc) {
4292                 QETH_DBF_TEXT_(SETUP, 2, "3err%d", rc);
4293                 goto err_dbf;
4294         }
4295         rc = qeth_setup_card(card);
4296         if (rc) {
4297                 QETH_DBF_TEXT_(SETUP, 2, "2err%d", rc);
4298                 goto err_dbf;
4299         }
4300
4301         if (card->info.type == QETH_CARD_TYPE_OSN)
4302                 rc = qeth_core_create_osn_attributes(dev);
4303         else
4304                 rc = qeth_core_create_device_attributes(dev);
4305         if (rc)
4306                 goto err_dbf;
4307         switch (card->info.type) {
4308         case QETH_CARD_TYPE_OSN:
4309         case QETH_CARD_TYPE_OSM:
4310                 rc = qeth_core_load_discipline(card, QETH_DISCIPLINE_LAYER2);
4311                 if (rc)
4312                         goto err_attr;
4313                 rc = card->discipline.ccwgdriver->probe(card->gdev);
4314                 if (rc)
4315                         goto err_disc;
4316         case QETH_CARD_TYPE_OSD:
4317         case QETH_CARD_TYPE_OSX:
4318         default:
4319                 break;
4320         }
4321
4322         write_lock_irqsave(&qeth_core_card_list.rwlock, flags);
4323         list_add_tail(&card->list, &qeth_core_card_list.list);
4324         write_unlock_irqrestore(&qeth_core_card_list.rwlock, flags);
4325
4326         qeth_determine_capabilities(card);
4327         return 0;
4328
4329 err_disc:
4330         qeth_core_free_discipline(card);
4331 err_attr:
4332         if (card->info.type == QETH_CARD_TYPE_OSN)
4333                 qeth_core_remove_osn_attributes(dev);
4334         else
4335                 qeth_core_remove_device_attributes(dev);
4336 err_dbf:
4337         debug_unregister(card->debug);
4338 err_card:
4339         qeth_core_free_card(card);
4340 err_dev:
4341         put_device(dev);
4342         return rc;
4343 }
4344
4345 static void qeth_core_remove_device(struct ccwgroup_device *gdev)
4346 {
4347         unsigned long flags;
4348         struct qeth_card *card = dev_get_drvdata(&gdev->dev);
4349
4350         QETH_DBF_TEXT(SETUP, 2, "removedv");
4351         if (card->discipline.ccwgdriver) {
4352                 card->discipline.ccwgdriver->remove(gdev);
4353                 qeth_core_free_discipline(card);
4354         }
4355
4356         if (card->info.type == QETH_CARD_TYPE_OSN) {
4357                 qeth_core_remove_osn_attributes(&gdev->dev);
4358         } else {
4359                 qeth_core_remove_device_attributes(&gdev->dev);
4360         }
4361         debug_unregister(card->debug);
4362         write_lock_irqsave(&qeth_core_card_list.rwlock, flags);
4363         list_del(&card->list);
4364         write_unlock_irqrestore(&qeth_core_card_list.rwlock, flags);
4365         qeth_core_free_card(card);
4366         dev_set_drvdata(&gdev->dev, NULL);
4367         put_device(&gdev->dev);
4368         return;
4369 }
4370
4371 static int qeth_core_set_online(struct ccwgroup_device *gdev)
4372 {
4373         struct qeth_card *card = dev_get_drvdata(&gdev->dev);
4374         int rc = 0;
4375         int def_discipline;
4376
4377         if (!card->discipline.ccwgdriver) {
4378                 if (card->info.type == QETH_CARD_TYPE_IQD)
4379                         def_discipline = QETH_DISCIPLINE_LAYER3;
4380                 else
4381                         def_discipline = QETH_DISCIPLINE_LAYER2;
4382                 rc = qeth_core_load_discipline(card, def_discipline);
4383                 if (rc)
4384                         goto err;
4385                 rc = card->discipline.ccwgdriver->probe(card->gdev);
4386                 if (rc)
4387                         goto err;
4388         }
4389         rc = card->discipline.ccwgdriver->set_online(gdev);
4390 err:
4391         return rc;
4392 }
4393
4394 static int qeth_core_set_offline(struct ccwgroup_device *gdev)
4395 {
4396         struct qeth_card *card = dev_get_drvdata(&gdev->dev);
4397         return card->discipline.ccwgdriver->set_offline(gdev);
4398 }
4399
4400 static void qeth_core_shutdown(struct ccwgroup_device *gdev)
4401 {
4402         struct qeth_card *card = dev_get_drvdata(&gdev->dev);
4403         if (card->discipline.ccwgdriver &&
4404             card->discipline.ccwgdriver->shutdown)
4405                 card->discipline.ccwgdriver->shutdown(gdev);
4406 }
4407
4408 static int qeth_core_prepare(struct ccwgroup_device *gdev)
4409 {
4410         struct qeth_card *card = dev_get_drvdata(&gdev->dev);
4411         if (card->discipline.ccwgdriver &&
4412             card->discipline.ccwgdriver->prepare)
4413                 return card->discipline.ccwgdriver->prepare(gdev);
4414         return 0;
4415 }
4416
4417 static void qeth_core_complete(struct ccwgroup_device *gdev)
4418 {
4419         struct qeth_card *card = dev_get_drvdata(&gdev->dev);
4420         if (card->discipline.ccwgdriver &&
4421             card->discipline.ccwgdriver->complete)
4422                 card->discipline.ccwgdriver->complete(gdev);
4423 }
4424
4425 static int qeth_core_freeze(struct ccwgroup_device *gdev)
4426 {
4427         struct qeth_card *card = dev_get_drvdata(&gdev->dev);
4428         if (card->discipline.ccwgdriver &&
4429             card->discipline.ccwgdriver->freeze)
4430                 return card->discipline.ccwgdriver->freeze(gdev);
4431         return 0;
4432 }
4433
4434 static int qeth_core_thaw(struct ccwgroup_device *gdev)
4435 {
4436         struct qeth_card *card = dev_get_drvdata(&gdev->dev);
4437         if (card->discipline.ccwgdriver &&
4438             card->discipline.ccwgdriver->thaw)
4439                 return card->discipline.ccwgdriver->thaw(gdev);
4440         return 0;
4441 }
4442
4443 static int qeth_core_restore(struct ccwgroup_device *gdev)
4444 {
4445         struct qeth_card *card = dev_get_drvdata(&gdev->dev);
4446         if (card->discipline.ccwgdriver &&
4447             card->discipline.ccwgdriver->restore)
4448                 return card->discipline.ccwgdriver->restore(gdev);
4449         return 0;
4450 }
4451
4452 static struct ccwgroup_driver qeth_core_ccwgroup_driver = {
4453         .owner = THIS_MODULE,
4454         .name = "qeth",
4455         .driver_id = 0xD8C5E3C8,
4456         .probe = qeth_core_probe_device,
4457         .remove = qeth_core_remove_device,
4458         .set_online = qeth_core_set_online,
4459         .set_offline = qeth_core_set_offline,
4460         .shutdown = qeth_core_shutdown,
4461         .prepare = qeth_core_prepare,
4462         .complete = qeth_core_complete,
4463         .freeze = qeth_core_freeze,
4464         .thaw = qeth_core_thaw,
4465         .restore = qeth_core_restore,
4466 };
4467
4468 static ssize_t
4469 qeth_core_driver_group_store(struct device_driver *ddrv, const char *buf,
4470                            size_t count)
4471 {
4472         int err;
4473         err = qeth_core_driver_group(buf, qeth_core_root_dev,
4474                                         qeth_core_ccwgroup_driver.driver_id);
4475         if (err)
4476                 return err;
4477         else
4478                 return count;
4479 }
4480
4481 static DRIVER_ATTR(group, 0200, NULL, qeth_core_driver_group_store);
4482
4483 static struct {
4484         const char str[ETH_GSTRING_LEN];
4485 } qeth_ethtool_stats_keys[] = {
4486 /*  0 */{"rx skbs"},
4487         {"rx buffers"},
4488         {"tx skbs"},
4489         {"tx buffers"},
4490         {"tx skbs no packing"},
4491         {"tx buffers no packing"},
4492         {"tx skbs packing"},
4493         {"tx buffers packing"},
4494         {"tx sg skbs"},
4495         {"tx sg frags"},
4496 /* 10 */{"rx sg skbs"},
4497         {"rx sg frags"},
4498         {"rx sg page allocs"},
4499         {"tx large kbytes"},
4500         {"tx large count"},
4501         {"tx pk state ch n->p"},
4502         {"tx pk state ch p->n"},
4503         {"tx pk watermark low"},
4504         {"tx pk watermark high"},
4505         {"queue 0 buffer usage"},
4506 /* 20 */{"queue 1 buffer usage"},
4507         {"queue 2 buffer usage"},
4508         {"queue 3 buffer usage"},
4509         {"rx handler time"},
4510         {"rx handler count"},
4511         {"rx do_QDIO time"},
4512         {"rx do_QDIO count"},
4513         {"tx handler time"},
4514         {"tx handler count"},
4515         {"tx time"},
4516 /* 30 */{"tx count"},
4517         {"tx do_QDIO time"},
4518         {"tx do_QDIO count"},
4519         {"tx csum"},
4520         {"tx lin"},
4521 };
4522
4523 int qeth_core_get_sset_count(struct net_device *dev, int stringset)
4524 {
4525         switch (stringset) {
4526         case ETH_SS_STATS:
4527                 return (sizeof(qeth_ethtool_stats_keys) / ETH_GSTRING_LEN);
4528         default:
4529                 return -EINVAL;
4530         }
4531 }
4532 EXPORT_SYMBOL_GPL(qeth_core_get_sset_count);
4533
4534 void qeth_core_get_ethtool_stats(struct net_device *dev,
4535                 struct ethtool_stats *stats, u64 *data)
4536 {
4537         struct qeth_card *card = dev->ml_priv;
4538         data[0] = card->stats.rx_packets -
4539                                 card->perf_stats.initial_rx_packets;
4540         data[1] = card->perf_stats.bufs_rec;
4541         data[2] = card->stats.tx_packets -
4542                                 card->perf_stats.initial_tx_packets;
4543         data[3] = card->perf_stats.bufs_sent;
4544         data[4] = card->stats.tx_packets - card->perf_stats.initial_tx_packets
4545                         - card->perf_stats.skbs_sent_pack;
4546         data[5] = card->perf_stats.bufs_sent - card->perf_stats.bufs_sent_pack;
4547         data[6] = card->perf_stats.skbs_sent_pack;
4548         data[7] = card->perf_stats.bufs_sent_pack;
4549         data[8] = card->perf_stats.sg_skbs_sent;
4550         data[9] = card->perf_stats.sg_frags_sent;
4551         data[10] = card->perf_stats.sg_skbs_rx;
4552         data[11] = card->perf_stats.sg_frags_rx;
4553         data[12] = card->perf_stats.sg_alloc_page_rx;
4554         data[13] = (card->perf_stats.large_send_bytes >> 10);
4555         data[14] = card->perf_stats.large_send_cnt;
4556         data[15] = card->perf_stats.sc_dp_p;
4557         data[16] = card->perf_stats.sc_p_dp;
4558         data[17] = QETH_LOW_WATERMARK_PACK;
4559         data[18] = QETH_HIGH_WATERMARK_PACK;
4560         data[19] = atomic_read(&card->qdio.out_qs[0]->used_buffers);
4561         data[20] = (card->qdio.no_out_queues > 1) ?
4562                         atomic_read(&card->qdio.out_qs[1]->used_buffers) : 0;
4563         data[21] = (card->qdio.no_out_queues > 2) ?
4564                         atomic_read(&card->qdio.out_qs[2]->used_buffers) : 0;
4565         data[22] = (card->qdio.no_out_queues > 3) ?
4566                         atomic_read(&card->qdio.out_qs[3]->used_buffers) : 0;
4567         data[23] = card->perf_stats.inbound_time;
4568         data[24] = card->perf_stats.inbound_cnt;
4569         data[25] = card->perf_stats.inbound_do_qdio_time;
4570         data[26] = card->perf_stats.inbound_do_qdio_cnt;
4571         data[27] = card->perf_stats.outbound_handler_time;
4572         data[28] = card->perf_stats.outbound_handler_cnt;
4573         data[29] = card->perf_stats.outbound_time;
4574         data[30] = card->perf_stats.outbound_cnt;
4575         data[31] = card->perf_stats.outbound_do_qdio_time;
4576         data[32] = card->perf_stats.outbound_do_qdio_cnt;
4577         data[33] = card->perf_stats.tx_csum;
4578         data[34] = card->perf_stats.tx_lin;
4579 }
4580 EXPORT_SYMBOL_GPL(qeth_core_get_ethtool_stats);
4581
4582 void qeth_core_get_strings(struct net_device *dev, u32 stringset, u8 *data)
4583 {
4584         switch (stringset) {
4585         case ETH_SS_STATS:
4586                 memcpy(data, &qeth_ethtool_stats_keys,
4587                         sizeof(qeth_ethtool_stats_keys));
4588                 break;
4589         default:
4590                 WARN_ON(1);
4591                 break;
4592         }
4593 }
4594 EXPORT_SYMBOL_GPL(qeth_core_get_strings);
4595
4596 void qeth_core_get_drvinfo(struct net_device *dev,
4597                 struct ethtool_drvinfo *info)
4598 {
4599         struct qeth_card *card = dev->ml_priv;
4600         if (card->options.layer2)
4601                 strcpy(info->driver, "qeth_l2");
4602         else
4603                 strcpy(info->driver, "qeth_l3");
4604
4605         strcpy(info->version, "1.0");
4606         strcpy(info->fw_version, card->info.mcl_level);
4607         sprintf(info->bus_info, "%s/%s/%s",
4608                         CARD_RDEV_ID(card),
4609                         CARD_WDEV_ID(card),
4610                         CARD_DDEV_ID(card));
4611 }
4612 EXPORT_SYMBOL_GPL(qeth_core_get_drvinfo);
4613
4614 int qeth_core_ethtool_get_settings(struct net_device *netdev,
4615                                         struct ethtool_cmd *ecmd)
4616 {
4617         struct qeth_card *card = netdev->ml_priv;
4618         enum qeth_link_types link_type;
4619
4620         if ((card->info.type == QETH_CARD_TYPE_IQD) || (card->info.guestlan))
4621                 link_type = QETH_LINK_TYPE_10GBIT_ETH;
4622         else
4623                 link_type = card->info.link_type;
4624
4625         ecmd->transceiver = XCVR_INTERNAL;
4626         ecmd->supported = SUPPORTED_Autoneg;
4627         ecmd->advertising = ADVERTISED_Autoneg;
4628         ecmd->duplex = DUPLEX_FULL;
4629         ecmd->autoneg = AUTONEG_ENABLE;
4630
4631         switch (link_type) {
4632         case QETH_LINK_TYPE_FAST_ETH:
4633         case QETH_LINK_TYPE_LANE_ETH100:
4634                 ecmd->supported |= SUPPORTED_10baseT_Half |
4635                                         SUPPORTED_10baseT_Full |
4636                                         SUPPORTED_100baseT_Half |
4637                                         SUPPORTED_100baseT_Full |
4638                                         SUPPORTED_TP;
4639                 ecmd->advertising |= ADVERTISED_10baseT_Half |
4640                                         ADVERTISED_10baseT_Full |
4641                                         ADVERTISED_100baseT_Half |
4642                                         ADVERTISED_100baseT_Full |
4643                                         ADVERTISED_TP;
4644                 ecmd->speed = SPEED_100;
4645                 ecmd->port = PORT_TP;
4646                 break;
4647
4648         case QETH_LINK_TYPE_GBIT_ETH:
4649         case QETH_LINK_TYPE_LANE_ETH1000:
4650                 ecmd->supported |= SUPPORTED_10baseT_Half |
4651                                         SUPPORTED_10baseT_Full |
4652                                         SUPPORTED_100baseT_Half |
4653                                         SUPPORTED_100baseT_Full |
4654                                         SUPPORTED_1000baseT_Half |
4655                                         SUPPORTED_1000baseT_Full |
4656                                         SUPPORTED_FIBRE;
4657                 ecmd->advertising |= ADVERTISED_10baseT_Half |
4658                                         ADVERTISED_10baseT_Full |
4659                                         ADVERTISED_100baseT_Half |
4660                                         ADVERTISED_100baseT_Full |
4661                                         ADVERTISED_1000baseT_Half |
4662                                         ADVERTISED_1000baseT_Full |
4663                                         ADVERTISED_FIBRE;
4664                 ecmd->speed = SPEED_1000;
4665                 ecmd->port = PORT_FIBRE;
4666                 break;
4667
4668         case QETH_LINK_TYPE_10GBIT_ETH:
4669                 ecmd->supported |= SUPPORTED_10baseT_Half |
4670                                         SUPPORTED_10baseT_Full |
4671                                         SUPPORTED_100baseT_Half |
4672                                         SUPPORTED_100baseT_Full |
4673                                         SUPPORTED_1000baseT_Half |
4674                                         SUPPORTED_1000baseT_Full |
4675                                         SUPPORTED_10000baseT_Full |
4676                                         SUPPORTED_FIBRE;
4677                 ecmd->advertising |= ADVERTISED_10baseT_Half |
4678                                         ADVERTISED_10baseT_Full |
4679                                         ADVERTISED_100baseT_Half |
4680                                         ADVERTISED_100baseT_Full |
4681                                         ADVERTISED_1000baseT_Half |
4682                                         ADVERTISED_1000baseT_Full |
4683                                         ADVERTISED_10000baseT_Full |
4684                                         ADVERTISED_FIBRE;
4685                 ecmd->speed = SPEED_10000;
4686                 ecmd->port = PORT_FIBRE;
4687                 break;
4688
4689         default:
4690                 ecmd->supported |= SUPPORTED_10baseT_Half |
4691                                         SUPPORTED_10baseT_Full |
4692                                         SUPPORTED_TP;
4693                 ecmd->advertising |= ADVERTISED_10baseT_Half |
4694                                         ADVERTISED_10baseT_Full |
4695                                         ADVERTISED_TP;
4696                 ecmd->speed = SPEED_10;
4697                 ecmd->port = PORT_TP;
4698         }
4699
4700         return 0;
4701 }
4702 EXPORT_SYMBOL_GPL(qeth_core_ethtool_get_settings);
4703
4704 static int __init qeth_core_init(void)
4705 {
4706         int rc;
4707
4708         pr_info("loading core functions\n");
4709         INIT_LIST_HEAD(&qeth_core_card_list.list);
4710         rwlock_init(&qeth_core_card_list.rwlock);
4711
4712         rc = qeth_register_dbf_views();
4713         if (rc)
4714                 goto out_err;
4715         rc = ccw_driver_register(&qeth_ccw_driver);
4716         if (rc)
4717                 goto ccw_err;
4718         rc = ccwgroup_driver_register(&qeth_core_ccwgroup_driver);
4719         if (rc)
4720                 goto ccwgroup_err;
4721         rc = driver_create_file(&qeth_core_ccwgroup_driver.driver,
4722                                 &driver_attr_group);
4723         if (rc)
4724                 goto driver_err;
4725         qeth_core_root_dev = root_device_register("qeth");
4726         rc = IS_ERR(qeth_core_root_dev) ? PTR_ERR(qeth_core_root_dev) : 0;
4727         if (rc)
4728                 goto register_err;
4729
4730         qeth_core_header_cache = kmem_cache_create("qeth_hdr",
4731                         sizeof(struct qeth_hdr) + ETH_HLEN, 64, 0, NULL);
4732         if (!qeth_core_header_cache) {
4733                 rc = -ENOMEM;
4734                 goto slab_err;
4735         }
4736
4737         return 0;
4738 slab_err:
4739         root_device_unregister(qeth_core_root_dev);
4740 register_err:
4741         driver_remove_file(&qeth_core_ccwgroup_driver.driver,
4742                            &driver_attr_group);
4743 driver_err:
4744         ccwgroup_driver_unregister(&qeth_core_ccwgroup_driver);
4745 ccwgroup_err:
4746         ccw_driver_unregister(&qeth_ccw_driver);
4747 ccw_err:
4748         QETH_DBF_MESSAGE(2, "Initialization failed with code %d\n", rc);
4749         qeth_unregister_dbf_views();
4750 out_err:
4751         pr_err("Initializing the qeth device driver failed\n");
4752         return rc;
4753 }
4754
4755 static void __exit qeth_core_exit(void)
4756 {
4757         root_device_unregister(qeth_core_root_dev);
4758         driver_remove_file(&qeth_core_ccwgroup_driver.driver,
4759                            &driver_attr_group);
4760         ccwgroup_driver_unregister(&qeth_core_ccwgroup_driver);
4761         ccw_driver_unregister(&qeth_ccw_driver);
4762         kmem_cache_destroy(qeth_core_header_cache);
4763         qeth_unregister_dbf_views();
4764         pr_info("core functions removed\n");
4765 }
4766
4767 module_init(qeth_core_init);
4768 module_exit(qeth_core_exit);
4769 MODULE_AUTHOR("Frank Blaschka <frank.blaschka@de.ibm.com>");
4770 MODULE_DESCRIPTION("qeth core functions");
4771 MODULE_LICENSE("GPL");