drivers/s390/net/qeth_main.c

   1 /*
   2  *
   3  * linux/drivers/s390/net/qeth_main.c ($Revision: 1.191 $)
   4  *
   5  * Linux on zSeries OSA Express and HiperSockets support
   6  *
   7  * Copyright 2000,2003 IBM Corporation
   8  *
   9  *    Author(s): Original Code written by
  10  *                        Utz Bacher (utz.bacher@de.ibm.com)
  11  *               Rewritten by
  12  *                        Frank Pavlic (pavlic@de.ibm.com) and
  13  *                        Thomas Spatzier <tspat@de.ibm.com>
  14  *
  15  *    $Revision: 1.191 $         $Date: 2005/01/31 13:13:57 $
  16  *
  17  * This program is free software; you can redistribute it and/or modify
  18  * it under the terms of the GNU General Public License as published by
  19  * the Free Software Foundation; either version 2, or (at your option)
  20  * any later version.
  21  *
  22  * This program is distributed in the hope that it will be useful,
  23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25  * GNU General Public License for more details.
  26  *
  27  * You should have received a copy of the GNU General Public License
  28  * along with this program; if not, write to the Free Software
  29  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  30  */
  31
  32 /***
  33  * eye catcher; just for debugging purposes
  34  */
  35 void volatile
  36 qeth_eyecatcher(void)
  37 {
  38         return;
  39 }
  40
  41 #include <linux/config.h>
  42 #include <linux/module.h>
  43 #include <linux/moduleparam.h>
  44 #include <linux/string.h>
  45 #include <linux/errno.h>
  46 #include <linux/mm.h>
  47 #include <linux/ip.h>
  48 #include <linux/inetdevice.h>
  49 #include <linux/netdevice.h>
  50 #include <linux/sched.h>
  51 #include <linux/workqueue.h>
  52 #include <linux/kernel.h>
  53 #include <linux/slab.h>
  54 #include <linux/interrupt.h>
  55 #include <linux/tcp.h>
  56 #include <linux/icmp.h>
  57 #include <linux/skbuff.h>
  58 #include <linux/in.h>
  59 #include <linux/igmp.h>
  60 #include <linux/init.h>
  61 #include <linux/reboot.h>
  62 #include <linux/mii.h>
  63 #include <linux/rcupdate.h>
  64
  65 #include <net/arp.h>
  66 #include <net/ip.h>
  67 #include <net/route.h>
  68
  69 #include <asm/ebcdic.h>
  70 #include <asm/io.h>
  71 #include <asm/qeth.h>
  72 #include <asm/timex.h>
  73 #include <asm/semaphore.h>
  74 #include <asm/uaccess.h>
  75
  76 #include "qeth.h"
  77 #include "qeth_mpc.h"
  78 #include "qeth_fs.h"
  79
  80 #define VERSION_QETH_C "$Revision: 1.191 $"
  81 static const char *version = "qeth S/390 OSA-Express driver";
  82
  83 /**
  84  * Debug Facility Stuff
  85  */
  86 static debug_info_t *qeth_dbf_setup = NULL;
  87 static debug_info_t *qeth_dbf_data = NULL;
  88 static debug_info_t *qeth_dbf_misc = NULL;
  89 static debug_info_t *qeth_dbf_control = NULL;
  90 static debug_info_t *qeth_dbf_trace = NULL;
  91 static debug_info_t *qeth_dbf_sense = NULL;
  92 static debug_info_t *qeth_dbf_qerr = NULL;
  93
  94 DEFINE_PER_CPU(char[256], qeth_dbf_txt_buf);
  95
  96 /**
  97  * some more definitions and declarations
  98  */
  99 static unsigned int known_devices[][10] = QETH_MODELLIST_ARRAY;
 100
 101 /* list of our cards */
 102 struct qeth_card_list_struct qeth_card_list;
 103 /*process list want to be notified*/
 104 spinlock_t qeth_notify_lock;
 105 struct list_head qeth_notify_list;
 106
 107 static void qeth_send_control_data_cb(struct qeth_channel *,
 108                                       struct qeth_cmd_buffer *);
 109
 110 /**
 111  * here we go with function implementation
 112  */
 113 static void
 114 qeth_init_qdio_info(struct qeth_card *card);
 115
 116 static int
 117 qeth_init_qdio_queues(struct qeth_card *card);
 118
 119 static int
 120 qeth_alloc_qdio_buffers(struct qeth_card *card);
 121
 122 static void
 123 qeth_free_qdio_buffers(struct qeth_card *);
 124
 125 static void
 126 qeth_clear_qdio_buffers(struct qeth_card *);
 127
 128 static void
 129 qeth_clear_ip_list(struct qeth_card *, int, int);
 130
 131 static void
 132 qeth_clear_ipacmd_list(struct qeth_card *);
 133
 134 static int
 135 qeth_qdio_clear_card(struct qeth_card *, int);
 136
 137 static void
 138 qeth_clear_working_pool_list(struct qeth_card *);
 139
 140 static void
 141 qeth_clear_cmd_buffers(struct qeth_channel *);
 142
 143 static int
 144 qeth_stop(struct net_device *);
 145
 146 static void
 147 qeth_clear_ipato_list(struct qeth_card *);
 148
 149 static int
 150 qeth_is_addr_covered_by_ipato(struct qeth_card *, struct qeth_ipaddr *);
 151
 152 static void
 153 qeth_irq_tasklet(unsigned long);
 154
 155 static int
 156 qeth_set_online(struct ccwgroup_device *);
 157
 158 static struct qeth_ipaddr *
 159 qeth_get_addr_buffer(enum qeth_prot_versions);
 160
 161 static void
 162 qeth_set_multicast_list(struct net_device *);
 163
 164 static void
 165 qeth_notify_processes(void)
 166 {
 167         /*notify all  registered processes */
 168         struct qeth_notify_list_struct *n_entry;
 169
 170         QETH_DBF_TEXT(trace,3,"procnoti");
 171         spin_lock(&qeth_notify_lock);
 172         list_for_each_entry(n_entry, &qeth_notify_list, list) {
 173                 send_sig(n_entry->signum, n_entry->task, 1);
 174         }
 175         spin_unlock(&qeth_notify_lock);
 176
 177 }
 178 int
 179 qeth_notifier_unregister(struct task_struct *p)
 180 {
 181         struct qeth_notify_list_struct *n_entry, *tmp;
 182
 183         QETH_DBF_TEXT(trace, 2, "notunreg");
 184         spin_lock(&qeth_notify_lock);
 185         list_for_each_entry_safe(n_entry, tmp, &qeth_notify_list, list) {
 186                 if (n_entry->task == p) {
 187                         list_del(&n_entry->list);
 188                         kfree(n_entry);
 189                         goto out;
 190                 }
 191         }
 192 out:
 193         spin_unlock(&qeth_notify_lock);
 194         return 0;
 195 }
 196 int
 197 qeth_notifier_register(struct task_struct *p, int signum)
 198 {
 199         struct qeth_notify_list_struct *n_entry;
 200
 201
 202         /*check first if entry already exists*/
 203         spin_lock(&qeth_notify_lock);
 204         list_for_each_entry(n_entry, &qeth_notify_list, list) {
 205                 if (n_entry->task == p) {
 206                         n_entry->signum = signum;
 207                         spin_unlock(&qeth_notify_lock);
 208                         return 0;
 209                 }
 210         }
 211         spin_unlock(&qeth_notify_lock);
 212
 213         n_entry = (struct qeth_notify_list_struct *)
 214                 kmalloc(sizeof(struct qeth_notify_list_struct),GFP_KERNEL);
 215         if (!n_entry)
 216                 return -ENOMEM;
 217         n_entry->task = p;
 218         n_entry->signum = signum;
 219         spin_lock(&qeth_notify_lock);
 220         list_add(&n_entry->list,&qeth_notify_list);
 221         spin_unlock(&qeth_notify_lock);
 222         return 0;
 223 }
 224
 225
 226 /**
 227  * free channel command buffers
 228  */
 229 static void
 230 qeth_clean_channel(struct qeth_channel *channel)
 231 {
 232         int cnt;
 233
 234         QETH_DBF_TEXT(setup, 2, "freech");
 235         for (cnt = 0; cnt < QETH_CMD_BUFFER_NO; cnt++)
 236                 kfree(channel->iob[cnt].data);
 237 }
 238
 239 /**
 240  * free card
 241  */
 242 static void
 243 qeth_free_card(struct qeth_card *card)
 244 {
 245
 246         QETH_DBF_TEXT(setup, 2, "freecrd");
 247         QETH_DBF_HEX(setup, 2, &card, sizeof(void *));
 248         qeth_clean_channel(&card->read);
 249         qeth_clean_channel(&card->write);
 250         if (card->dev)
 251                 free_netdev(card->dev);
 252         qeth_clear_ip_list(card, 0, 0);
 253         qeth_clear_ipato_list(card);
 254         kfree(card->ip_tbd_list);
 255         qeth_free_qdio_buffers(card);
 256         kfree(card);
 257 }
 258
 259 /**
 260  * alloc memory for command buffer per channel
 261  */
 262 static int
 263 qeth_setup_channel(struct qeth_channel *channel)
 264 {
 265         int cnt;
 266
 267         QETH_DBF_TEXT(setup, 2, "setupch");
 268         for (cnt=0; cnt < QETH_CMD_BUFFER_NO; cnt++) {
 269                 channel->iob[cnt].data = (char *)
 270                         kmalloc(QETH_BUFSIZE, GFP_DMA|GFP_KERNEL);
 271                 if (channel->iob[cnt].data == NULL)
 272                         break;
 273                 channel->iob[cnt].state = BUF_STATE_FREE;
 274                 channel->iob[cnt].channel = channel;
 275                 channel->iob[cnt].callback = qeth_send_control_data_cb;
 276                 channel->iob[cnt].rc = 0;
 277         }
 278         if (cnt < QETH_CMD_BUFFER_NO) {
 279                 while (cnt-- > 0)
 280                         kfree(channel->iob[cnt].data);
 281                 return -ENOMEM;
 282         }
 283         channel->buf_no = 0;
 284         channel->io_buf_no = 0;
 285         atomic_set(&channel->irq_pending, 0);
 286         spin_lock_init(&channel->iob_lock);
 287
 288         init_waitqueue_head(&channel->wait_q);
 289         channel->irq_tasklet.data = (unsigned long) channel;
 290         channel->irq_tasklet.func = qeth_irq_tasklet;
 291         return 0;
 292 }
 293
 294 /**
 295  * alloc memory for card structure
 296  */
 297 static struct qeth_card *
 298 qeth_alloc_card(void)
 299 {
 300         struct qeth_card *card;
 301
 302         QETH_DBF_TEXT(setup, 2, "alloccrd");
 303         card = (struct qeth_card *) kmalloc(sizeof(struct qeth_card),
 304                                             GFP_DMA|GFP_KERNEL);
 305         if (!card)
 306                 return NULL;
 307         QETH_DBF_HEX(setup, 2, &card, sizeof(void *));
 308         memset(card, 0, sizeof(struct qeth_card));
 309         if (qeth_setup_channel(&card->read)) {
 310                 kfree(card);
 311                 return NULL;
 312         }
 313         if (qeth_setup_channel(&card->write)) {
 314                 qeth_clean_channel(&card->read);
 315                 kfree(card);
 316                 return NULL;
 317         }
 318         return card;
 319 }
 320
 321 static long
 322 __qeth_check_irb_error(struct ccw_device *cdev, struct irb *irb)
 323 {
 324         if (!IS_ERR(irb))
 325                 return 0;
 326
 327         switch (PTR_ERR(irb)) {
 328         case -EIO:
 329                 PRINT_WARN("i/o-error on device %s\n", cdev->dev.bus_id);
 330                 QETH_DBF_TEXT(trace, 2, "ckirberr");
 331                 QETH_DBF_TEXT_(trace, 2, "  rc%d", -EIO);
 332                 break;
 333         case -ETIMEDOUT:
 334                 PRINT_WARN("timeout on device %s\n", cdev->dev.bus_id);
 335                 QETH_DBF_TEXT(trace, 2, "ckirberr");
 336                 QETH_DBF_TEXT_(trace, 2, "  rc%d", -ETIMEDOUT);
 337                 break;
 338         default:
 339                 PRINT_WARN("unknown error %ld on device %s\n", PTR_ERR(irb),
 340                            cdev->dev.bus_id);
 341                 QETH_DBF_TEXT(trace, 2, "ckirberr");
 342                 QETH_DBF_TEXT(trace, 2, "  rc???");
 343         }
 344         return PTR_ERR(irb);
 345 }
 346
 347 static int
 348 qeth_get_problem(struct ccw_device *cdev, struct irb *irb)
 349 {
 350         int dstat,cstat;
 351         char *sense;
 352
 353         sense = (char *) irb->ecw;
 354         cstat = irb->scsw.cstat;
 355         dstat = irb->scsw.dstat;
 356
 357         if (cstat & (SCHN_STAT_CHN_CTRL_CHK | SCHN_STAT_INTF_CTRL_CHK |
 358                      SCHN_STAT_CHN_DATA_CHK | SCHN_STAT_CHAIN_CHECK |
 359                      SCHN_STAT_PROT_CHECK | SCHN_STAT_PROG_CHECK)) {
 360                 QETH_DBF_TEXT(trace,2, "CGENCHK");
 361                 PRINT_WARN("check on device %s, dstat=x%x, cstat=x%x ",
 362                            cdev->dev.bus_id, dstat, cstat);
 363                 HEXDUMP16(WARN, "irb: ", irb);
 364                 HEXDUMP16(WARN, "irb: ", ((char *) irb) + 32);
 365                 return 1;
 366         }
 367
 368         if (dstat & DEV_STAT_UNIT_CHECK) {
 369                 if (sense[SENSE_RESETTING_EVENT_BYTE] &
 370                     SENSE_RESETTING_EVENT_FLAG) {
 371                         QETH_DBF_TEXT(trace,2,"REVIND");
 372                         return 1;
 373                 }
 374                 if (sense[SENSE_COMMAND_REJECT_BYTE] &
 375                     SENSE_COMMAND_REJECT_FLAG) {
 376                         QETH_DBF_TEXT(trace,2,"CMDREJi");
 377                         return 0;
 378                 }
 379                 if ((sense[2] == 0xaf) && (sense[3] == 0xfe)) {
 380                         QETH_DBF_TEXT(trace,2,"AFFE");
 381                         return 1;
 382                 }
 383                 if ((!sense[0]) && (!sense[1]) && (!sense[2]) && (!sense[3])) {
 384                         QETH_DBF_TEXT(trace,2,"ZEROSEN");
 385                         return 0;
 386                 }
 387                 QETH_DBF_TEXT(trace,2,"DGENCHK");
 388                         return 1;
 389         }
 390         return 0;
 391 }
 392 static int qeth_issue_next_read(struct qeth_card *);
 393
 394 /**
 395  * interrupt handler
 396  */
 397 static void
 398 qeth_irq(struct ccw_device *cdev, unsigned long intparm, struct irb *irb)
 399 {
 400         int rc;
 401         int cstat,dstat;
 402         struct qeth_cmd_buffer *buffer;
 403         struct qeth_channel *channel;
 404         struct qeth_card *card;
 405
 406         QETH_DBF_TEXT(trace,5,"irq");
 407
 408         if (__qeth_check_irb_error(cdev, irb))
 409                 return;
 410         cstat = irb->scsw.cstat;
 411         dstat = irb->scsw.dstat;
 412
 413         card = CARD_FROM_CDEV(cdev);
 414         if (!card)
 415                 return;
 416
 417         if (card->read.ccwdev == cdev){
 418                 channel = &card->read;
 419                 QETH_DBF_TEXT(trace,5,"read");
 420         } else if (card->write.ccwdev == cdev) {
 421                 channel = &card->write;
 422                 QETH_DBF_TEXT(trace,5,"write");
 423         } else {
 424                 channel = &card->data;
 425                 QETH_DBF_TEXT(trace,5,"data");
 426         }
 427         atomic_set(&channel->irq_pending, 0);
 428
 429         if (irb->scsw.fctl & (SCSW_FCTL_CLEAR_FUNC))
 430                 channel->state = CH_STATE_STOPPED;
 431
 432         if (irb->scsw.fctl & (SCSW_FCTL_HALT_FUNC))
 433                 channel->state = CH_STATE_HALTED;
 434
 435         /*let's wake up immediately on data channel*/
 436         if ((channel == &card->data) && (intparm != 0))
 437                 goto out;
 438
 439         if (intparm == QETH_CLEAR_CHANNEL_PARM) {
 440                 QETH_DBF_TEXT(trace, 6, "clrchpar");
 441                 /* we don't have to handle this further */
 442                 intparm = 0;
 443         }
 444         if (intparm == QETH_HALT_CHANNEL_PARM) {
 445                 QETH_DBF_TEXT(trace, 6, "hltchpar");
 446                 /* we don't have to handle this further */
 447                 intparm = 0;
 448         }
 449         if ((dstat & DEV_STAT_UNIT_EXCEP) ||
 450             (dstat & DEV_STAT_UNIT_CHECK) ||
 451             (cstat)) {
 452                 if (irb->esw.esw0.erw.cons) {
 453                         /* TODO: we should make this s390dbf */
 454                         PRINT_WARN("sense data available on channel %s.\n",
 455                                    CHANNEL_ID(channel));
 456                         PRINT_WARN(" cstat 0x%X\n dstat 0x%X\n", cstat, dstat);
 457                         HEXDUMP16(WARN,"irb: ",irb);
 458                         HEXDUMP16(WARN,"sense data: ",irb->ecw);
 459                 }
 460                 rc = qeth_get_problem(cdev,irb);
 461                 if (rc) {
 462                         qeth_schedule_recovery(card);
 463                         goto out;
 464                 }
 465         }
 466
 467         if (intparm) {
 468                 buffer = (struct qeth_cmd_buffer *) __va((addr_t)intparm);
 469                 buffer->state = BUF_STATE_PROCESSED;
 470         }
 471         if (channel == &card->data)
 472                 return;
 473
 474         if (channel == &card->read &&
 475             channel->state == CH_STATE_UP)
 476                 qeth_issue_next_read(card);
 477
 478         tasklet_schedule(&channel->irq_tasklet);
 479         return;
 480 out:
 481         wake_up(&card->wait_q);
 482 }
 483
 484 /**
 485  * tasklet function scheduled from irq handler
 486  */
 487 static void
 488 qeth_irq_tasklet(unsigned long data)
 489 {
 490         struct qeth_card *card;
 491         struct qeth_channel *channel;
 492         struct qeth_cmd_buffer *iob;
 493         __u8 index;
 494
 495         QETH_DBF_TEXT(trace,5,"irqtlet");
 496         channel = (struct qeth_channel *) data;
 497         iob = channel->iob;
 498         index = channel->buf_no;
 499         card = CARD_FROM_CDEV(channel->ccwdev);
 500         while (iob[index].state == BUF_STATE_PROCESSED) {
 501                 if (iob[index].callback !=NULL) {
 502                         iob[index].callback(channel,iob + index);
 503                 }
 504                 index = (index + 1) % QETH_CMD_BUFFER_NO;
 505         }
 506         channel->buf_no = index;
 507         wake_up(&card->wait_q);
 508 }
 509
 510 static int qeth_stop_card(struct qeth_card *);
 511
 512 static int
 513 qeth_set_offline(struct ccwgroup_device *cgdev)
 514 {
 515         struct qeth_card *card = (struct qeth_card *) cgdev->dev.driver_data;
 516         int rc = 0;
 517         enum qeth_card_states recover_flag;
 518
 519         QETH_DBF_TEXT(setup, 3, "setoffl");
 520         QETH_DBF_HEX(setup, 3, &card, sizeof(void *));
 521
 522         recover_flag = card->state;
 523         if (qeth_stop_card(card) == -ERESTARTSYS){
 524                 PRINT_WARN("Stopping card %s interrupted by user!\n",
 525                            CARD_BUS_ID(card));
 526                 return -ERESTARTSYS;
 527         }
 528         if ((rc = ccw_device_set_offline(CARD_DDEV(card))) ||
 529             (rc = ccw_device_set_offline(CARD_WDEV(card))) ||
 530             (rc = ccw_device_set_offline(CARD_RDEV(card)))) {
 531                 QETH_DBF_TEXT_(setup, 2, "1err%d", rc);
 532         }
 533         if (recover_flag == CARD_STATE_UP)
 534                 card->state = CARD_STATE_RECOVER;
 535         qeth_notify_processes();
 536         return 0;
 537 }
 538
 539 static int
 540 qeth_wait_for_threads(struct qeth_card *card, unsigned long threads);
 541
 542
 543 static void
 544 qeth_remove_device(struct ccwgroup_device *cgdev)
 545 {
 546         struct qeth_card *card = (struct qeth_card *) cgdev->dev.driver_data;
 547         unsigned long flags;
 548
 549         QETH_DBF_TEXT(setup, 3, "rmdev");
 550         QETH_DBF_HEX(setup, 3, &card, sizeof(void *));
 551
 552         if (!card)
 553                 return;
 554
 555         if (qeth_wait_for_threads(card, 0xffffffff))
 556                 return;
 557
 558         if (cgdev->state == CCWGROUP_ONLINE){
 559                 card->use_hard_stop = 1;
 560                 qeth_set_offline(cgdev);
 561         }
 562         /* remove form our internal list */
 563         write_lock_irqsave(&qeth_card_list.rwlock, flags);
 564         list_del(&card->list);
 565         write_unlock_irqrestore(&qeth_card_list.rwlock, flags);
 566         if (card->dev)
 567                 unregister_netdev(card->dev);
 568         qeth_remove_device_attributes(&cgdev->dev);
 569         qeth_free_card(card);
 570         cgdev->dev.driver_data = NULL;
 571         put_device(&cgdev->dev);
 572 }
 573
 574 static int
 575 qeth_register_addr_entry(struct qeth_card *, struct qeth_ipaddr *);
 576 static int
 577 qeth_deregister_addr_entry(struct qeth_card *, struct qeth_ipaddr *);
 578
 579 /**
 580  * Add/remove address to/from card's ip list, i.e. try to add or remove
 581  * reference to/from an IP address that is already registered on the card.
 582  * Returns:
 583  *      0  address was on card and its reference count has been adjusted,
 584  *         but is still > 0, so nothing has to be done
 585  *         also returns 0 if card was not on card and the todo was to delete
 586  *         the address -> there is also nothing to be done
 587  *      1  address was not on card and the todo is to add it to the card's ip
 588  *         list
 589  *      -1 address was on card and its reference count has been decremented
 590  *         to <= 0 by the todo -> address must be removed from card
 591  */
 592 static int
 593 __qeth_ref_ip_on_card(struct qeth_card *card, struct qeth_ipaddr *todo,
 594                       struct qeth_ipaddr **__addr)
 595 {
 596         struct qeth_ipaddr *addr;
 597         int found = 0;
 598
 599         list_for_each_entry(addr, &card->ip_list, entry) {
 600                 if ((addr->proto     == QETH_PROT_IPV4)  &&
 601                     (todo->proto     == QETH_PROT_IPV4)  &&
 602                     (addr->type      == todo->type)      &&
 603                     (addr->u.a4.addr == todo->u.a4.addr) &&
 604                     (addr->u.a4.mask == todo->u.a4.mask)   ){
 605                         found = 1;
 606                         break;
 607                 }
 608                 if ((addr->proto       == QETH_PROT_IPV6)     &&
 609                     (todo->proto       == QETH_PROT_IPV6)     &&
 610                     (addr->type        == todo->type)         &&
 611                     (addr->u.a6.pfxlen == todo->u.a6.pfxlen)  &&
 612                     (memcmp(&addr->u.a6.addr, &todo->u.a6.addr,
 613                             sizeof(struct in6_addr)) == 0))     {
 614                         found = 1;
 615                         break;
 616                 }
 617         }
 618         if (found){
 619                 addr->users += todo->users;
 620                 if (addr->users <= 0){
 621                         *__addr = addr;
 622                         return -1;
 623                 } else {
 624                         /* for VIPA and RXIP limit refcount to 1 */
 625                         if (addr->type != QETH_IP_TYPE_NORMAL)
 626                                 addr->users = 1;
 627                         return 0;
 628                 }
 629         }
 630         if (todo->users > 0){
 631                 /* for VIPA and RXIP limit refcount to 1 */
 632                 if (todo->type != QETH_IP_TYPE_NORMAL)
 633                         todo->users = 1;
 634                 return 1;
 635         } else
 636                 return 0;
 637 }
 638
 639 static inline int
 640 __qeth_address_exists_in_list(struct list_head *list, struct qeth_ipaddr *addr,
 641                               int same_type)
 642 {
 643         struct qeth_ipaddr *tmp;
 644
 645         list_for_each_entry(tmp, list, entry) {
 646                 if ((tmp->proto     == QETH_PROT_IPV4)            &&
 647                     (addr->proto    == QETH_PROT_IPV4)            &&
 648                     ((same_type && (tmp->type == addr->type)) ||
 649                      (!same_type && (tmp->type != addr->type))  ) &&
 650                     (tmp->u.a4.addr == addr->u.a4.addr)             ){
 651                         return 1;
 652                 }
 653                 if ((tmp->proto  == QETH_PROT_IPV6)               &&
 654                     (addr->proto == QETH_PROT_IPV6)               &&
 655                     ((same_type && (tmp->type == addr->type)) ||
 656                      (!same_type && (tmp->type != addr->type))  ) &&
 657                     (memcmp(&tmp->u.a6.addr, &addr->u.a6.addr,
 658                             sizeof(struct in6_addr)) == 0)          ) {
 659                         return 1;
 660                 }
 661         }
 662         return 0;
 663 }
 664
 665 /*
 666  * Add IP to be added to todo list. If there is already an "add todo"
 667  * in this list we just incremenent the reference count.
 668  * Returns 0 if we  just incremented reference count.
 669  */
 670 static int
 671 __qeth_insert_ip_todo(struct qeth_card *card, struct qeth_ipaddr *addr, int add)
 672 {
 673         struct qeth_ipaddr *tmp, *t;
 674         int found = 0;
 675
 676         list_for_each_entry_safe(tmp, t, card->ip_tbd_list, entry) {
 677                 if ((addr->type == QETH_IP_TYPE_DEL_ALL_MC) &&
 678                     (tmp->type == QETH_IP_TYPE_DEL_ALL_MC))
 679                         return 0;
 680                 if ((tmp->proto        == QETH_PROT_IPV4)     &&
 681                     (addr->proto       == QETH_PROT_IPV4)     &&
 682                     (tmp->type         == addr->type)         &&
 683                     (tmp->is_multicast == addr->is_multicast) &&
 684                     (tmp->u.a4.addr    == addr->u.a4.addr)    &&
 685                     (tmp->u.a4.mask    == addr->u.a4.mask)      ){
 686                         found = 1;
 687                         break;
 688                 }
 689                 if ((tmp->proto        == QETH_PROT_IPV6)      &&
 690                     (addr->proto       == QETH_PROT_IPV6)      &&
 691                     (tmp->type         == addr->type)          &&
 692                     (tmp->is_multicast == addr->is_multicast)  &&
 693                     (tmp->u.a6.pfxlen  == addr->u.a6.pfxlen)   &&
 694                     (memcmp(&tmp->u.a6.addr, &addr->u.a6.addr,
 695                             sizeof(struct in6_addr)) == 0)        ){
 696                         found = 1;
 697                         break;
 698                 }
 699         }
 700         if (found){
 701                 if (addr->users != 0)
 702                         tmp->users += addr->users;
 703                 else
 704                         tmp->users += add? 1:-1;
 705                 if (tmp->users == 0){
 706                         list_del(&tmp->entry);
 707                         kfree(tmp);
 708                 }
 709                 return 0;
 710         } else {
 711                 if (addr->type == QETH_IP_TYPE_DEL_ALL_MC)
 712                         list_add(&addr->entry, card->ip_tbd_list);
 713                 else {
 714                         if (addr->users == 0)
 715                                 addr->users += add? 1:-1;
 716                         if (add && (addr->type == QETH_IP_TYPE_NORMAL) &&
 717                             qeth_is_addr_covered_by_ipato(card, addr)){
 718                                 QETH_DBF_TEXT(trace, 2, "tkovaddr");
 719                                 addr->set_flags |= QETH_IPA_SETIP_TAKEOVER_FLAG;
 720                         }
 721                         list_add_tail(&addr->entry, card->ip_tbd_list);
 722                 }
 723                 return 1;
 724         }
 725 }
 726
 727 /**
 728  * Remove IP address from list
 729  */
 730 static int
 731 qeth_delete_ip(struct qeth_card *card, struct qeth_ipaddr *addr)
 732 {
 733         unsigned long flags;
 734         int rc = 0;
 735
 736         QETH_DBF_TEXT(trace,4,"delip");
 737         if (addr->proto == QETH_PROT_IPV4)
 738                 QETH_DBF_HEX(trace,4,&addr->u.a4.addr,4);
 739         else {
 740                 QETH_DBF_HEX(trace,4,&addr->u.a6.addr,8);
 741                 QETH_DBF_HEX(trace,4,((char *)&addr->u.a6.addr)+8,8);
 742         }
 743         spin_lock_irqsave(&card->ip_lock, flags);
 744         rc = __qeth_insert_ip_todo(card, addr, 0);
 745         spin_unlock_irqrestore(&card->ip_lock, flags);
 746         return rc;
 747 }
 748
 749 static int
 750 qeth_add_ip(struct qeth_card *card, struct qeth_ipaddr *addr)
 751 {
 752         unsigned long flags;
 753         int rc = 0;
 754
 755         QETH_DBF_TEXT(trace,4,"addip");
 756         if (addr->proto == QETH_PROT_IPV4)
 757                 QETH_DBF_HEX(trace,4,&addr->u.a4.addr,4);
 758         else {
 759                 QETH_DBF_HEX(trace,4,&addr->u.a6.addr,8);
 760                 QETH_DBF_HEX(trace,4,((char *)&addr->u.a6.addr)+8,8);
 761         }
 762         spin_lock_irqsave(&card->ip_lock, flags);
 763         rc = __qeth_insert_ip_todo(card, addr, 1);
 764         spin_unlock_irqrestore(&card->ip_lock, flags);
 765         return rc;
 766 }
 767
 768 static inline void
 769 __qeth_delete_all_mc(struct qeth_card *card, unsigned long *flags)
 770 {
 771         struct qeth_ipaddr *addr, *tmp;
 772         int rc;
 773
 774         list_for_each_entry_safe(addr, tmp, &card->ip_list, entry) {
 775                 if (addr->is_multicast) {
 776                         spin_unlock_irqrestore(&card->ip_lock, *flags);
 777                         rc = qeth_deregister_addr_entry(card, addr);
 778                         spin_lock_irqsave(&card->ip_lock, *flags);
 779                         if (!rc) {
 780                                 list_del(&addr->entry);
 781                                 kfree(addr);
 782                         }
 783                 }
 784         }
 785 }
 786
 787 static void
 788 qeth_set_ip_addr_list(struct qeth_card *card)
 789 {
 790         struct list_head *tbd_list;
 791         struct qeth_ipaddr *todo, *addr;
 792         unsigned long flags;
 793         int rc;
 794
 795         QETH_DBF_TEXT(trace, 2, "sdiplist");
 796         QETH_DBF_HEX(trace, 2, &card, sizeof(void *));
 797
 798         spin_lock_irqsave(&card->ip_lock, flags);
 799         tbd_list = card->ip_tbd_list;
 800         card->ip_tbd_list = kmalloc(sizeof(struct list_head), GFP_ATOMIC);
 801         if (!card->ip_tbd_list) {
 802                 QETH_DBF_TEXT(trace, 0, "silnomem");
 803                 card->ip_tbd_list = tbd_list;
 804                 spin_unlock_irqrestore(&card->ip_lock, flags);
 805                 return;
 806         } else
 807                 INIT_LIST_HEAD(card->ip_tbd_list);
 808
 809         while (!list_empty(tbd_list)){
 810                 todo = list_entry(tbd_list->next, struct qeth_ipaddr, entry);
 811                 list_del(&todo->entry);
 812                 if (todo->type == QETH_IP_TYPE_DEL_ALL_MC){
 813                         __qeth_delete_all_mc(card, &flags);
 814                         kfree(todo);
 815                         continue;
 816                 }
 817                 rc = __qeth_ref_ip_on_card(card, todo, &addr);
 818                 if (rc == 0) {
 819                         /* nothing to be done; only adjusted refcount */
 820                         kfree(todo);
 821                 } else if (rc == 1) {
 822                         /* new entry to be added to on-card list */
 823                         spin_unlock_irqrestore(&card->ip_lock, flags);
 824                         rc = qeth_register_addr_entry(card, todo);
 825                         spin_lock_irqsave(&card->ip_lock, flags);
 826                         if (!rc)
 827                                 list_add_tail(&todo->entry, &card->ip_list);
 828                         else
 829                                 kfree(todo);
 830                 } else if (rc == -1) {
 831                         /* on-card entry to be removed */
 832                         list_del_init(&addr->entry);
 833                         spin_unlock_irqrestore(&card->ip_lock, flags);
 834                         rc = qeth_deregister_addr_entry(card, addr);
 835                         spin_lock_irqsave(&card->ip_lock, flags);
 836                         if (!rc)
 837                                 kfree(addr);
 838                         else
 839                                 list_add_tail(&addr->entry, &card->ip_list);
 840                         kfree(todo);
 841                 }
 842         }
 843         spin_unlock_irqrestore(&card->ip_lock, flags);
 844         kfree(tbd_list);
 845 }
 846
 847 static void qeth_delete_mc_addresses(struct qeth_card *);
 848 static void qeth_add_multicast_ipv4(struct qeth_card *);
 849 #ifdef CONFIG_QETH_IPV6
 850 static void qeth_add_multicast_ipv6(struct qeth_card *);
 851 #endif
 852
 853 static inline int
 854 qeth_set_thread_start_bit(struct qeth_card *card, unsigned long thread)
 855 {
 856         unsigned long flags;
 857
 858         spin_lock_irqsave(&card->thread_mask_lock, flags);
 859         if ( !(card->thread_allowed_mask & thread) ||
 860               (card->thread_start_mask & thread) ) {
 861                 spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 862                 return -EPERM;
 863         }
 864         card->thread_start_mask |= thread;
 865         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 866         return 0;
 867 }
 868
 869 static void
 870 qeth_clear_thread_start_bit(struct qeth_card *card, unsigned long thread)
 871 {
 872         unsigned long flags;
 873
 874         spin_lock_irqsave(&card->thread_mask_lock, flags);
 875         card->thread_start_mask &= ~thread;
 876         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 877         wake_up(&card->wait_q);
 878 }
 879
 880 static void
 881 qeth_clear_thread_running_bit(struct qeth_card *card, unsigned long thread)
 882 {
 883         unsigned long flags;
 884
 885         spin_lock_irqsave(&card->thread_mask_lock, flags);
 886         card->thread_running_mask &= ~thread;
 887         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 888         wake_up(&card->wait_q);
 889 }
 890
 891 static inline int
 892 __qeth_do_run_thread(struct qeth_card *card, unsigned long thread)
 893 {
 894         unsigned long flags;
 895         int rc = 0;
 896
 897         spin_lock_irqsave(&card->thread_mask_lock, flags);
 898         if (card->thread_start_mask & thread){
 899                 if ((card->thread_allowed_mask & thread) &&
 900                     !(card->thread_running_mask & thread)){
 901                         rc = 1;
 902                         card->thread_start_mask &= ~thread;
 903                         card->thread_running_mask |= thread;
 904                 } else
 905                         rc = -EPERM;
 906         }
 907         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 908         return rc;
 909 }
 910
 911 static int
 912 qeth_do_run_thread(struct qeth_card *card, unsigned long thread)
 913 {
 914         int rc = 0;
 915
 916         wait_event(card->wait_q,
 917                    (rc = __qeth_do_run_thread(card, thread)) >= 0);
 918         return rc;
 919 }
 920
 921 static int
 922 qeth_register_ip_addresses(void *ptr)
 923 {
 924         struct qeth_card *card;
 925
 926         card = (struct qeth_card *) ptr;
 927         daemonize("qeth_reg_ip");
 928         QETH_DBF_TEXT(trace,4,"regipth1");
 929         if (!qeth_do_run_thread(card, QETH_SET_IP_THREAD))
 930                 return 0;
 931         QETH_DBF_TEXT(trace,4,"regipth2");
 932         qeth_set_ip_addr_list(card);
 933         qeth_clear_thread_running_bit(card, QETH_SET_IP_THREAD);
 934         return 0;
 935 }
 936
 937 static int
 938 qeth_recover(void *ptr)
 939 {
 940         struct qeth_card *card;
 941         int rc = 0;
 942
 943         card = (struct qeth_card *) ptr;
 944         daemonize("qeth_recover");
 945         QETH_DBF_TEXT(trace,2,"recover1");
 946         QETH_DBF_HEX(trace, 2, &card, sizeof(void *));
 947         if (!qeth_do_run_thread(card, QETH_RECOVER_THREAD))
 948                 return 0;
 949         QETH_DBF_TEXT(trace,2,"recover2");
 950         PRINT_WARN("Recovery of device %s started ...\n",
 951                    CARD_BUS_ID(card));
 952         card->use_hard_stop = 1;
 953         qeth_set_offline(card->gdev);
 954         rc = qeth_set_online(card->gdev);
 955         if (!rc)
 956                 PRINT_INFO("Device %s successfully recovered!\n",
 957                            CARD_BUS_ID(card));
 958         else
 959                 PRINT_INFO("Device %s could not be recovered!\n",
 960                            CARD_BUS_ID(card));
 961         /* don't run another scheduled recovery */
 962         qeth_clear_thread_start_bit(card, QETH_RECOVER_THREAD);
 963         qeth_clear_thread_running_bit(card, QETH_RECOVER_THREAD);
 964         return 0;
 965 }
 966
 967 void
 968 qeth_schedule_recovery(struct qeth_card *card)
 969 {
 970         QETH_DBF_TEXT(trace,2,"startrec");
 971
 972         if (qeth_set_thread_start_bit(card, QETH_RECOVER_THREAD) == 0)
 973                 schedule_work(&card->kernel_thread_starter);
 974 }
 975
 976 static int
 977 qeth_do_start_thread(struct qeth_card *card, unsigned long thread)
 978 {
 979         unsigned long flags;
 980         int rc = 0;
 981
 982         spin_lock_irqsave(&card->thread_mask_lock, flags);
 983         QETH_DBF_TEXT_(trace, 4, "  %02x%02x%02x",
 984                         (u8) card->thread_start_mask,
 985                         (u8) card->thread_allowed_mask,
 986                         (u8) card->thread_running_mask);
 987         rc = (card->thread_start_mask & thread);
 988         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
 989         return rc;
 990 }
 991
 992 static void
 993 qeth_start_kernel_thread(struct qeth_card *card)
 994 {
 995         QETH_DBF_TEXT(trace , 2, "strthrd");
 996
 997         if (card->read.state != CH_STATE_UP &&
 998             card->write.state != CH_STATE_UP)
 999                 return;
1000
1001         if (qeth_do_start_thread(card, QETH_SET_IP_THREAD))
1002                 kernel_thread(qeth_register_ip_addresses, (void *)card,SIGCHLD);
1003         if (qeth_do_start_thread(card, QETH_RECOVER_THREAD))
1004                 kernel_thread(qeth_recover, (void *) card, SIGCHLD);
1005 }
1006
1007
1008 static void
1009 qeth_set_intial_options(struct qeth_card *card)
1010 {
1011         card->options.route4.type = NO_ROUTER;
1012 #ifdef CONFIG_QETH_IPV6
1013         card->options.route6.type = NO_ROUTER;
1014 #endif /* QETH_IPV6 */
1015         card->options.checksum_type = QETH_CHECKSUM_DEFAULT;
1016         card->options.broadcast_mode = QETH_TR_BROADCAST_ALLRINGS;
1017         card->options.macaddr_mode = QETH_TR_MACADDR_NONCANONICAL;
1018         card->options.fake_broadcast = 0;
1019         card->options.add_hhlen = DEFAULT_ADD_HHLEN;
1020         card->options.fake_ll = 0;
1021         card->options.layer2 = 0;
1022 }
1023
1024 /**
1025  * initialize channels ,card and all state machines
1026  */
1027 static int
1028 qeth_setup_card(struct qeth_card *card)
1029 {
1030
1031         QETH_DBF_TEXT(setup, 2, "setupcrd");
1032         QETH_DBF_HEX(setup, 2, &card, sizeof(void *));
1033
1034         card->read.state  = CH_STATE_DOWN;
1035         card->write.state = CH_STATE_DOWN;
1036         card->data.state  = CH_STATE_DOWN;
1037         card->state = CARD_STATE_DOWN;
1038         card->lan_online = 0;
1039         card->use_hard_stop = 0;
1040         card->dev = NULL;
1041 #ifdef CONFIG_QETH_VLAN
1042         spin_lock_init(&card->vlanlock);
1043         card->vlangrp = NULL;
1044 #endif
1045         spin_lock_init(&card->ip_lock);
1046         spin_lock_init(&card->thread_mask_lock);
1047         card->thread_start_mask = 0;
1048         card->thread_allowed_mask = 0;
1049         card->thread_running_mask = 0;
1050         INIT_WORK(&card->kernel_thread_starter,
1051                   (void *)qeth_start_kernel_thread,card);
1052         INIT_LIST_HEAD(&card->ip_list);
1053         card->ip_tbd_list = kmalloc(sizeof(struct list_head), GFP_KERNEL);
1054         if (!card->ip_tbd_list) {
1055                 QETH_DBF_TEXT(setup, 0, "iptbdnom");
1056                 return -ENOMEM;
1057         }
1058         INIT_LIST_HEAD(card->ip_tbd_list);
1059         INIT_LIST_HEAD(&card->cmd_waiter_list);
1060         init_waitqueue_head(&card->wait_q);
1061         /* intial options */
1062         qeth_set_intial_options(card);
1063         /* IP address takeover */
1064         INIT_LIST_HEAD(&card->ipato.entries);
1065         card->ipato.enabled = 0;
1066         card->ipato.invert4 = 0;
1067         card->ipato.invert6 = 0;
1068         /* init QDIO stuff */
1069         qeth_init_qdio_info(card);
1070         return 0;
1071 }
1072
1073 static int
1074 qeth_determine_card_type(struct qeth_card *card)
1075 {
1076         int i = 0;
1077
1078         QETH_DBF_TEXT(setup, 2, "detcdtyp");
1079
1080         while (known_devices[i][4]) {
1081                 if ((CARD_RDEV(card)->id.dev_type == known_devices[i][2]) &&
1082                     (CARD_RDEV(card)->id.dev_model == known_devices[i][3])) {
1083                         card->info.type = known_devices[i][4];
1084                         card->qdio.no_out_queues = known_devices[i][8];
1085                         card->info.is_multicast_different = known_devices[i][9];
1086                         return 0;
1087                 }
1088                 i++;
1089         }
1090         card->info.type = QETH_CARD_TYPE_UNKNOWN;
1091         PRINT_ERR("unknown card type on device %s\n", CARD_BUS_ID(card));
1092         return -ENOENT;
1093 }
1094
1095 static int
1096 qeth_probe_device(struct ccwgroup_device *gdev)
1097 {
1098         struct qeth_card *card;
1099         struct device *dev;
1100         unsigned long flags;
1101         int rc;
1102
1103         QETH_DBF_TEXT(setup, 2, "probedev");
1104
1105         dev = &gdev->dev;
1106         if (!get_device(dev))
1107                 return -ENODEV;
1108
1109         card = qeth_alloc_card();
1110         if (!card) {
1111                 put_device(dev);
1112                 QETH_DBF_TEXT_(setup, 2, "1err%d", -ENOMEM);
1113                 return -ENOMEM;
1114         }
1115         if ((rc = qeth_setup_card(card))){
1116                 QETH_DBF_TEXT_(setup, 2, "2err%d", rc);
1117                 put_device(dev);
1118                 qeth_free_card(card);
1119                 return rc;
1120         }
1121         gdev->dev.driver_data = card;
1122         card->gdev = gdev;
1123         gdev->cdev[0]->handler = qeth_irq;
1124         gdev->cdev[1]->handler = qeth_irq;
1125         gdev->cdev[2]->handler = qeth_irq;
1126
1127         rc = qeth_create_device_attributes(dev);
1128         if (rc) {
1129                 put_device(dev);
1130                 qeth_free_card(card);
1131                 return rc;
1132         }
1133         card->read.ccwdev  = gdev->cdev[0];
1134         card->write.ccwdev = gdev->cdev[1];
1135         card->data.ccwdev  = gdev->cdev[2];
1136         if ((rc = qeth_determine_card_type(card))){
1137                 PRINT_WARN("%s: not a valid card type\n", __func__);
1138                 QETH_DBF_TEXT_(setup, 2, "3err%d", rc);
1139                 put_device(dev);
1140                 qeth_free_card(card);
1141                 return rc;
1142         }
1143         /* insert into our internal list */
1144         write_lock_irqsave(&qeth_card_list.rwlock, flags);
1145         list_add_tail(&card->list, &qeth_card_list.list);
1146         write_unlock_irqrestore(&qeth_card_list.rwlock, flags);
1147         return rc;
1148 }
1149
1150
1151 static int
1152 qeth_get_unitaddr(struct qeth_card *card)
1153 {
1154         int length;
1155         char *prcd;
1156         int rc;
1157
1158         QETH_DBF_TEXT(setup, 2, "getunit");
1159         rc = read_conf_data(CARD_DDEV(card), (void **) &prcd, &length);
1160         if (rc) {
1161                 PRINT_ERR("read_conf_data for device %s returned %i\n",
1162                           CARD_DDEV_ID(card), rc);
1163                 return rc;
1164         }
1165         card->info.chpid = prcd[30];
1166         card->info.unit_addr2 = prcd[31];
1167         card->info.cula = prcd[63];
1168         card->info.guestlan = ((prcd[0x10] == _ascebc['V']) &&
1169                                (prcd[0x11] == _ascebc['M']));
1170         return 0;
1171 }
1172
1173 static void
1174 qeth_init_tokens(struct qeth_card *card)
1175 {
1176         card->token.issuer_rm_w = 0x00010103UL;
1177         card->token.cm_filter_w = 0x00010108UL;
1178         card->token.cm_connection_w = 0x0001010aUL;
1179         card->token.ulp_filter_w = 0x0001010bUL;
1180         card->token.ulp_connection_w = 0x0001010dUL;
1181 }
1182
1183 static inline __u16
1184 raw_devno_from_bus_id(char *id)
1185 {
1186         id += (strlen(id) - 4);
1187         return (__u16) simple_strtoul(id, &id, 16);
1188 }
1189 /**
1190  * setup channel
1191  */
1192 static void
1193 qeth_setup_ccw(struct qeth_channel *channel,unsigned char *iob, __u32 len)
1194 {
1195         struct qeth_card *card;
1196
1197         QETH_DBF_TEXT(trace, 4, "setupccw");
1198         card = CARD_FROM_CDEV(channel->ccwdev);
1199         if (channel == &card->read)
1200                 memcpy(&channel->ccw, READ_CCW, sizeof(struct ccw1));
1201         else
1202                 memcpy(&channel->ccw, WRITE_CCW, sizeof(struct ccw1));
1203         channel->ccw.count = len;
1204         channel->ccw.cda = (__u32) __pa(iob);
1205 }
1206
1207 /**
1208  * get free buffer for ccws (IDX activation, lancmds,ipassists...)
1209  */
1210 static struct qeth_cmd_buffer *
1211 __qeth_get_buffer(struct qeth_channel *channel)
1212 {
1213         __u8 index;
1214
1215         QETH_DBF_TEXT(trace, 6, "getbuff");
1216         index = channel->io_buf_no;
1217         do {
1218                 if (channel->iob[index].state == BUF_STATE_FREE) {
1219                         channel->iob[index].state = BUF_STATE_LOCKED;
1220                         channel->io_buf_no = (channel->io_buf_no + 1) %
1221                                 QETH_CMD_BUFFER_NO;
1222                         memset(channel->iob[index].data, 0, QETH_BUFSIZE);
1223                         return channel->iob + index;
1224                 }
1225                 index = (index + 1) % QETH_CMD_BUFFER_NO;
1226         } while(index != channel->io_buf_no);
1227
1228         return NULL;
1229 }
1230
1231 /**
1232  * release command buffer
1233  */
1234 static void
1235 qeth_release_buffer(struct qeth_channel *channel, struct qeth_cmd_buffer *iob)
1236 {
1237         unsigned long flags;
1238
1239         QETH_DBF_TEXT(trace, 6, "relbuff");
1240         spin_lock_irqsave(&channel->iob_lock, flags);
1241         memset(iob->data, 0, QETH_BUFSIZE);
1242         iob->state = BUF_STATE_FREE;
1243         iob->callback = qeth_send_control_data_cb;
1244         iob->rc = 0;
1245         spin_unlock_irqrestore(&channel->iob_lock, flags);
1246 }
1247
1248 static struct qeth_cmd_buffer *
1249 qeth_get_buffer(struct qeth_channel *channel)
1250 {
1251         struct qeth_cmd_buffer *buffer = NULL;
1252         unsigned long flags;
1253
1254         spin_lock_irqsave(&channel->iob_lock, flags);
1255         buffer = __qeth_get_buffer(channel);
1256         spin_unlock_irqrestore(&channel->iob_lock, flags);
1257         return buffer;
1258 }
1259
1260 static struct qeth_cmd_buffer *
1261 qeth_wait_for_buffer(struct qeth_channel *channel)
1262 {
1263         struct qeth_cmd_buffer *buffer;
1264         wait_event(channel->wait_q,
1265                    ((buffer = qeth_get_buffer(channel)) != NULL));
1266         return buffer;
1267 }
1268
1269 static void
1270 qeth_clear_cmd_buffers(struct qeth_channel *channel)
1271 {
1272         int cnt = 0;
1273
1274         for (cnt=0; cnt < QETH_CMD_BUFFER_NO; cnt++)
1275                 qeth_release_buffer(channel,&channel->iob[cnt]);
1276         channel->buf_no = 0;
1277         channel->io_buf_no = 0;
1278 }
1279
1280 /**
1281  * start IDX for read and write channel
1282  */
1283 static int
1284 qeth_idx_activate_get_answer(struct qeth_channel *channel,
1285                               void (*idx_reply_cb)(struct qeth_channel *,
1286                                                    struct qeth_cmd_buffer *))
1287 {
1288         struct qeth_cmd_buffer *iob;
1289         unsigned long flags;
1290         int rc;
1291         struct qeth_card *card;
1292
1293         QETH_DBF_TEXT(setup, 2, "idxanswr");
1294         card = CARD_FROM_CDEV(channel->ccwdev);
1295         iob = qeth_get_buffer(channel);
1296         iob->callback = idx_reply_cb;
1297         memcpy(&channel->ccw, READ_CCW, sizeof(struct ccw1));
1298         channel->ccw.count = QETH_BUFSIZE;
1299         channel->ccw.cda = (__u32) __pa(iob->data);
1300
1301         wait_event(card->wait_q,
1302                    atomic_compare_and_swap(0,1,&channel->irq_pending) == 0);
1303         QETH_DBF_TEXT(setup, 6, "noirqpnd");
1304         spin_lock_irqsave(get_ccwdev_lock(channel->ccwdev), flags);
1305         rc = ccw_device_start(channel->ccwdev,
1306                               &channel->ccw,(addr_t) iob, 0, 0);
1307         spin_unlock_irqrestore(get_ccwdev_lock(channel->ccwdev), flags);
1308
1309         if (rc) {
1310                 PRINT_ERR("qeth: Error2 in activating channel rc=%d\n",rc);
1311                 QETH_DBF_TEXT_(setup, 2, "2err%d", rc);
1312                 atomic_set(&channel->irq_pending, 0);
1313                 wake_up(&card->wait_q);
1314                 return rc;
1315         }
1316         rc = wait_event_interruptible_timeout(card->wait_q,
1317                          channel->state == CH_STATE_UP, QETH_TIMEOUT);
1318         if (rc == -ERESTARTSYS)
1319                 return rc;
1320         if (channel->state != CH_STATE_UP){
1321                 rc = -ETIME;
1322                 QETH_DBF_TEXT_(setup, 2, "3err%d", rc);
1323                 qeth_clear_cmd_buffers(channel);
1324         } else
1325                 rc = 0;
1326         return rc;
1327 }
1328
1329 static int
1330 qeth_idx_activate_channel(struct qeth_channel *channel,
1331                            void (*idx_reply_cb)(struct qeth_channel *,
1332                                                 struct qeth_cmd_buffer *))
1333 {
1334         struct qeth_card *card;
1335         struct qeth_cmd_buffer *iob;
1336         unsigned long flags;
1337         __u16 temp;
1338         int rc;
1339
1340         card = CARD_FROM_CDEV(channel->ccwdev);
1341
1342         QETH_DBF_TEXT(setup, 2, "idxactch");
1343
1344         iob = qeth_get_buffer(channel);
1345         iob->callback = idx_reply_cb;
1346         memcpy(&channel->ccw, WRITE_CCW, sizeof(struct ccw1));
1347         channel->ccw.count = IDX_ACTIVATE_SIZE;
1348         channel->ccw.cda = (__u32) __pa(iob->data);
1349         if (channel == &card->write) {
1350                 memcpy(iob->data, IDX_ACTIVATE_WRITE, IDX_ACTIVATE_SIZE);
1351                 memcpy(QETH_TRANSPORT_HEADER_SEQ_NO(iob->data),
1352                        &card->seqno.trans_hdr, QETH_SEQ_NO_LENGTH);
1353                 card->seqno.trans_hdr++;
1354         } else {
1355                 memcpy(iob->data, IDX_ACTIVATE_READ, IDX_ACTIVATE_SIZE);
1356                 memcpy(QETH_TRANSPORT_HEADER_SEQ_NO(iob->data),
1357                        &card->seqno.trans_hdr, QETH_SEQ_NO_LENGTH);
1358         }
1359         memcpy(QETH_IDX_ACT_ISSUER_RM_TOKEN(iob->data),
1360                &card->token.issuer_rm_w,QETH_MPC_TOKEN_LENGTH);
1361         memcpy(QETH_IDX_ACT_FUNC_LEVEL(iob->data),
1362                &card->info.func_level,sizeof(__u16));
1363         temp = raw_devno_from_bus_id(CARD_DDEV_ID(card));
1364         memcpy(QETH_IDX_ACT_QDIO_DEV_CUA(iob->data), &temp, 2);
1365         temp = (card->info.cula << 8) + card->info.unit_addr2;
1366         memcpy(QETH_IDX_ACT_QDIO_DEV_REALADDR(iob->data), &temp, 2);
1367
1368         wait_event(card->wait_q,
1369                    atomic_compare_and_swap(0,1,&channel->irq_pending) == 0);
1370         QETH_DBF_TEXT(setup, 6, "noirqpnd");
1371         spin_lock_irqsave(get_ccwdev_lock(channel->ccwdev), flags);
1372         rc = ccw_device_start(channel->ccwdev,
1373                               &channel->ccw,(addr_t) iob, 0, 0);
1374         spin_unlock_irqrestore(get_ccwdev_lock(channel->ccwdev), flags);
1375
1376         if (rc) {
1377                 PRINT_ERR("qeth: Error1 in activating channel. rc=%d\n",rc);
1378                 QETH_DBF_TEXT_(setup, 2, "1err%d", rc);
1379                 atomic_set(&channel->irq_pending, 0);
1380                 wake_up(&card->wait_q);
1381                 return rc;
1382         }
1383         rc = wait_event_interruptible_timeout(card->wait_q,
1384                         channel->state == CH_STATE_ACTIVATING, QETH_TIMEOUT);
1385         if (rc == -ERESTARTSYS)
1386                 return rc;
1387         if (channel->state != CH_STATE_ACTIVATING) {
1388                 PRINT_WARN("qeth: IDX activate timed out!\n");
1389                 QETH_DBF_TEXT_(setup, 2, "2err%d", -ETIME);
1390                 qeth_clear_cmd_buffers(channel);
1391                 return -ETIME;
1392         }
1393         return qeth_idx_activate_get_answer(channel,idx_reply_cb);
1394 }
1395
1396 static int
1397 qeth_peer_func_level(int level)
1398 {
1399         if ((level & 0xff) == 8)
1400                 return (level & 0xff) + 0x400;
1401         if (((level >> 8) & 3) == 1)
1402                 return (level & 0xff) + 0x200;
1403         return level;
1404 }
1405
1406 static void
1407 qeth_idx_write_cb(struct qeth_channel *channel, struct qeth_cmd_buffer *iob)
1408 {
1409         struct qeth_card *card;
1410         __u16 temp;
1411
1412         QETH_DBF_TEXT(setup ,2, "idxwrcb");
1413
1414         if (channel->state == CH_STATE_DOWN) {
1415                 channel->state = CH_STATE_ACTIVATING;
1416                 goto out;
1417         }
1418         card = CARD_FROM_CDEV(channel->ccwdev);
1419
1420         if (!(QETH_IS_IDX_ACT_POS_REPLY(iob->data))) {
1421                 PRINT_ERR("IDX_ACTIVATE on write channel device %s: negative "
1422                           "reply\n", CARD_WDEV_ID(card));
1423                 goto out;
1424         }
1425         memcpy(&temp, QETH_IDX_ACT_FUNC_LEVEL(iob->data), 2);
1426         if ((temp & ~0x0100) != qeth_peer_func_level(card->info.func_level)) {
1427                 PRINT_WARN("IDX_ACTIVATE on write channel device %s: "
1428                            "function level mismatch "
1429                            "(sent: 0x%x, received: 0x%x)\n",
1430                            CARD_WDEV_ID(card), card->info.func_level, temp);
1431                 goto out;
1432         }
1433         channel->state = CH_STATE_UP;
1434 out:
1435         qeth_release_buffer(channel, iob);
1436 }
1437
1438 static int
1439 qeth_check_idx_response(unsigned char *buffer)
1440 {
1441         if (!buffer)
1442                 return 0;
1443
1444         QETH_DBF_HEX(control, 2, buffer, QETH_DBF_CONTROL_LEN);
1445         if ((buffer[2] & 0xc0) == 0xc0) {
1446                 PRINT_WARN("received an IDX TERMINATE "
1447                            "with cause code 0x%02x%s\n",
1448                            buffer[4],
1449                            ((buffer[4] == 0x22) ?
1450                             " -- try another portname" : ""));
1451                 QETH_DBF_TEXT(trace, 2, "ckidxres");
1452                 QETH_DBF_TEXT(trace, 2, " idxterm");
1453                 QETH_DBF_TEXT_(trace, 2, "  rc%d", -EIO);
1454                 return -EIO;
1455         }
1456         return 0;
1457 }
1458
1459 static void
1460 qeth_idx_read_cb(struct qeth_channel *channel, struct qeth_cmd_buffer *iob)
1461 {
1462         struct qeth_card *card;
1463         __u16 temp;
1464
1465         QETH_DBF_TEXT(setup , 2, "idxrdcb");
1466         if (channel->state == CH_STATE_DOWN) {
1467                 channel->state = CH_STATE_ACTIVATING;
1468                 goto out;
1469         }
1470
1471         card = CARD_FROM_CDEV(channel->ccwdev);
1472         if (qeth_check_idx_response(iob->data)) {
1473                         goto out;
1474         }
1475         if (!(QETH_IS_IDX_ACT_POS_REPLY(iob->data))) {
1476                 PRINT_ERR("IDX_ACTIVATE on read channel device %s: negative "
1477                           "reply\n", CARD_RDEV_ID(card));
1478                 goto out;
1479         }
1480
1481 /**
1482  * temporary fix for microcode bug
1483  * to revert it,replace OR by AND
1484  */
1485         if ( (!QETH_IDX_NO_PORTNAME_REQUIRED(iob->data)) ||
1486              (card->info.type == QETH_CARD_TYPE_OSAE) )
1487                 card->info.portname_required = 1;
1488
1489         memcpy(&temp, QETH_IDX_ACT_FUNC_LEVEL(iob->data), 2);
1490         if (temp != qeth_peer_func_level(card->info.func_level)) {
1491                 PRINT_WARN("IDX_ACTIVATE on read channel device %s: function "
1492                            "level mismatch (sent: 0x%x, received: 0x%x)\n",
1493                            CARD_RDEV_ID(card), card->info.func_level, temp);
1494                 goto out;
1495         }
1496         memcpy(&card->token.issuer_rm_r,
1497                QETH_IDX_ACT_ISSUER_RM_TOKEN(iob->data),
1498                QETH_MPC_TOKEN_LENGTH);
1499         memcpy(&card->info.mcl_level[0],
1500                QETH_IDX_REPLY_LEVEL(iob->data), QETH_MCL_LENGTH);
1501         channel->state = CH_STATE_UP;
1502 out:
1503         qeth_release_buffer(channel,iob);
1504 }
1505
1506 static int
1507 qeth_issue_next_read(struct qeth_card *card)
1508 {
1509         int rc;
1510         struct qeth_cmd_buffer *iob;
1511
1512         QETH_DBF_TEXT(trace,5,"issnxrd");
1513         if (card->read.state != CH_STATE_UP)
1514                 return -EIO;
1515         iob = qeth_get_buffer(&card->read);
1516         if (!iob) {
1517                 PRINT_WARN("issue_next_read failed: no iob available!\n");
1518                 return -ENOMEM;
1519         }
1520         qeth_setup_ccw(&card->read, iob->data, QETH_BUFSIZE);
1521         wait_event(card->wait_q,
1522                    atomic_compare_and_swap(0,1,&card->read.irq_pending) == 0);
1523         QETH_DBF_TEXT(trace, 6, "noirqpnd");
1524         rc = ccw_device_start(card->read.ccwdev, &card->read.ccw,
1525                               (addr_t) iob, 0, 0);
1526         if (rc) {
1527                 PRINT_ERR("Error in starting next read ccw! rc=%i\n", rc);
1528                 atomic_set(&card->read.irq_pending, 0);
1529                 qeth_schedule_recovery(card);
1530                 wake_up(&card->wait_q);
1531         }
1532         return rc;
1533 }
1534
1535 static struct qeth_reply *
1536 qeth_alloc_reply(struct qeth_card *card)
1537 {
1538         struct qeth_reply *reply;
1539
1540         reply = kmalloc(sizeof(struct qeth_reply), GFP_ATOMIC);
1541         if (reply){
1542                 memset(reply, 0, sizeof(struct qeth_reply));
1543                 atomic_set(&reply->refcnt, 1);
1544                 reply->card = card;
1545         };
1546         return reply;
1547 }
1548
1549 static void
1550 qeth_get_reply(struct qeth_reply *reply)
1551 {
1552         WARN_ON(atomic_read(&reply->refcnt) <= 0);
1553         atomic_inc(&reply->refcnt);
1554 }
1555
1556 static void
1557 qeth_put_reply(struct qeth_reply *reply)
1558 {
1559         WARN_ON(atomic_read(&reply->refcnt) <= 0);
1560         if (atomic_dec_and_test(&reply->refcnt))
1561                 kfree(reply);
1562 }
1563
1564 static void
1565 qeth_cmd_timeout(unsigned long data)
1566 {
1567         struct qeth_reply *reply, *list_reply, *r;
1568         unsigned long flags;
1569
1570         reply = (struct qeth_reply *) data;
1571         spin_lock_irqsave(&reply->card->lock, flags);
1572         list_for_each_entry_safe(list_reply, r,
1573                                  &reply->card->cmd_waiter_list, list) {
1574                 if (reply == list_reply){
1575                         qeth_get_reply(reply);
1576                         list_del_init(&reply->list);
1577                         spin_unlock_irqrestore(&reply->card->lock, flags);
1578                         reply->rc = -ETIME;
1579                         reply->received = 1;
1580                         wake_up(&reply->wait_q);
1581                         qeth_put_reply(reply);
1582                         return;
1583                 }
1584         }
1585         spin_unlock_irqrestore(&reply->card->lock, flags);
1586 }
1587
1588 static void
1589 qeth_reset_ip_addresses(struct qeth_card *card)
1590 {
1591         QETH_DBF_TEXT(trace, 2, "rstipadd");
1592
1593         qeth_clear_ip_list(card, 0, 1);
1594         /* this function will also schedule the SET_IP_THREAD */
1595         qeth_set_multicast_list(card->dev);
1596 }
1597
1598 static struct qeth_ipa_cmd *
1599 qeth_check_ipa_data(struct qeth_card *card, struct qeth_cmd_buffer *iob)
1600 {
1601         struct qeth_ipa_cmd *cmd = NULL;
1602
1603         QETH_DBF_TEXT(trace,5,"chkipad");
1604         if (IS_IPA(iob->data)){
1605                 cmd = (struct qeth_ipa_cmd *) PDU_ENCAPSULATION(iob->data);
1606                 if (IS_IPA_REPLY(cmd))
1607                         return cmd;
1608                 else {
1609                         switch (cmd->hdr.command) {
1610                         case IPA_CMD_STOPLAN:
1611                                 PRINT_WARN("Link failure on %s (CHPID 0x%X) - "
1612                                            "there is a network problem or "
1613                                            "someone pulled the cable or "
1614                                            "disabled the port.\n",
1615                                            QETH_CARD_IFNAME(card),
1616                                            card->info.chpid);
1617                                 card->lan_online = 0;
1618                                 netif_carrier_off(card->dev);
1619                                 return NULL;
1620                         case IPA_CMD_STARTLAN:
1621                                 PRINT_INFO("Link reestablished on %s "
1622                                            "(CHPID 0x%X). Scheduling "
1623                                            "IP address reset.\n",
1624                                            QETH_CARD_IFNAME(card),
1625                                            card->info.chpid);
1626                                 card->lan_online = 1;
1627                                 netif_carrier_on(card->dev);
1628                                 qeth_reset_ip_addresses(card);
1629                                 return NULL;
1630                         case IPA_CMD_REGISTER_LOCAL_ADDR:
1631                                 QETH_DBF_TEXT(trace,3, "irla");
1632                                 break;
1633                         case IPA_CMD_UNREGISTER_LOCAL_ADDR:
1634                                 PRINT_WARN("probably problem on %s: "
1635                                            "received IPA command 0x%X\n",
1636                                            QETH_CARD_IFNAME(card),
1637                                            cmd->hdr.command);
1638                                 break;
1639                         default:
1640                                 PRINT_WARN("Received data is IPA "
1641                                            "but not a reply!\n");
1642                                 break;
1643                         }
1644                 }
1645         }
1646         return cmd;
1647 }
1648
1649 /**
1650  * wake all waiting ipa commands
1651  */
1652 static void
1653 qeth_clear_ipacmd_list(struct qeth_card *card)
1654 {
1655         struct qeth_reply *reply, *r;
1656         unsigned long flags;
1657
1658         QETH_DBF_TEXT(trace, 4, "clipalst");
1659
1660         spin_lock_irqsave(&card->lock, flags);
1661         list_for_each_entry_safe(reply, r, &card->cmd_waiter_list, list) {
1662                 qeth_get_reply(reply);
1663                 reply->rc = -EIO;
1664                 reply->received = 1;
1665                 list_del_init(&reply->list);
1666                 wake_up(&reply->wait_q);
1667                 qeth_put_reply(reply);
1668         }
1669         spin_unlock_irqrestore(&card->lock, flags);
1670 }
1671
1672 static void
1673 qeth_send_control_data_cb(struct qeth_channel *channel,
1674                           struct qeth_cmd_buffer *iob)
1675 {
1676         struct qeth_card *card;
1677         struct qeth_reply *reply, *r;
1678         struct qeth_ipa_cmd *cmd;
1679         unsigned long flags;
1680         int keep_reply;
1681
1682         QETH_DBF_TEXT(trace,4,"sndctlcb");
1683
1684         card = CARD_FROM_CDEV(channel->ccwdev);
1685         if (qeth_check_idx_response(iob->data)) {
1686                 qeth_clear_ipacmd_list(card);
1687                 qeth_schedule_recovery(card);
1688                 goto out;
1689         }
1690
1691         cmd = qeth_check_ipa_data(card, iob);
1692         if ((cmd == NULL) && (card->state != CARD_STATE_DOWN))
1693                 goto out;
1694
1695         spin_lock_irqsave(&card->lock, flags);
1696         list_for_each_entry_safe(reply, r, &card->cmd_waiter_list, list) {
1697                 if ((reply->seqno == QETH_IDX_COMMAND_SEQNO) ||
1698                     ((cmd) && (reply->seqno == cmd->hdr.seqno))) {
1699                         qeth_get_reply(reply);
1700                         list_del_init(&reply->list);
1701                         spin_unlock_irqrestore(&card->lock, flags);
1702                         keep_reply = 0;
1703                         if (reply->callback != NULL) {
1704                                 if (cmd) {
1705                                         reply->offset = (__u16)((char*)cmd -
1706                                                                 (char *)iob->data);
1707                                         keep_reply = reply->callback(card,
1708                                                         reply,
1709                                                         (unsigned long)cmd);
1710                                 }
1711                                 else
1712                                         keep_reply = reply->callback(card,
1713                                                         reply,
1714                                                         (unsigned long)iob);
1715                         }
1716                         if (cmd)
1717                                 reply->rc = (s16) cmd->hdr.return_code;
1718                         else if (iob->rc)
1719                                 reply->rc = iob->rc;
1720                         if (keep_reply) {
1721                                 spin_lock_irqsave(&card->lock, flags);
1722                                 list_add_tail(&reply->list,
1723                                               &card->cmd_waiter_list);
1724                                 spin_unlock_irqrestore(&card->lock, flags);
1725                         } else {
1726                                 reply->received = 1;
1727                                 wake_up(&reply->wait_q);
1728                         }
1729                         qeth_put_reply(reply);
1730                         goto out;
1731                 }
1732         }
1733         spin_unlock_irqrestore(&card->lock, flags);
1734 out:
1735         memcpy(&card->seqno.pdu_hdr_ack,
1736                 QETH_PDU_HEADER_SEQ_NO(iob->data),
1737                 QETH_SEQ_NO_LENGTH);
1738         qeth_release_buffer(channel,iob);
1739 }
1740
1741 static int
1742 qeth_send_control_data(struct qeth_card *card, int len,
1743                        struct qeth_cmd_buffer *iob,
1744                        int (*reply_cb)
1745                        (struct qeth_card *, struct qeth_reply*, unsigned long),
1746                        void *reply_param)
1747
1748 {
1749         int rc;
1750         unsigned long flags;
1751         struct qeth_reply *reply;
1752         struct timer_list timer;
1753
1754         QETH_DBF_TEXT(trace, 2, "sendctl");
1755
1756         qeth_setup_ccw(&card->write,iob->data,len);
1757
1758         memcpy(QETH_TRANSPORT_HEADER_SEQ_NO(iob->data),
1759                &card->seqno.trans_hdr, QETH_SEQ_NO_LENGTH);
1760         card->seqno.trans_hdr++;
1761
1762         memcpy(QETH_PDU_HEADER_SEQ_NO(iob->data),
1763                &card->seqno.pdu_hdr, QETH_SEQ_NO_LENGTH);
1764         card->seqno.pdu_hdr++;
1765         memcpy(QETH_PDU_HEADER_ACK_SEQ_NO(iob->data),
1766                &card->seqno.pdu_hdr_ack, QETH_SEQ_NO_LENGTH);
1767         iob->callback = qeth_release_buffer;
1768
1769         reply = qeth_alloc_reply(card);
1770         if (!reply) {
1771                 PRINT_WARN("Could no alloc qeth_reply!\n");
1772                 return -ENOMEM;
1773         }
1774         reply->callback = reply_cb;
1775         reply->param = reply_param;
1776         if (card->state == CARD_STATE_DOWN)
1777                 reply->seqno = QETH_IDX_COMMAND_SEQNO;
1778         else
1779                 reply->seqno = card->seqno.ipa++;
1780         init_timer(&timer);
1781         timer.function = qeth_cmd_timeout;
1782         timer.data = (unsigned long) reply;
1783         if (IS_IPA(iob->data))
1784                 timer.expires = jiffies + QETH_IPA_TIMEOUT;
1785         else
1786                 timer.expires = jiffies + QETH_TIMEOUT;
1787         init_waitqueue_head(&reply->wait_q);
1788         spin_lock_irqsave(&card->lock, flags);
1789         list_add_tail(&reply->list, &card->cmd_waiter_list);
1790         spin_unlock_irqrestore(&card->lock, flags);
1791         QETH_DBF_HEX(control, 2, iob->data, QETH_DBF_CONTROL_LEN);
1792         wait_event(card->wait_q,
1793                    atomic_compare_and_swap(0,1,&card->write.irq_pending) == 0);
1794         QETH_DBF_TEXT(trace, 6, "noirqpnd");
1795         spin_lock_irqsave(get_ccwdev_lock(card->write.ccwdev), flags);
1796         rc = ccw_device_start(card->write.ccwdev, &card->write.ccw,
1797                               (addr_t) iob, 0, 0);
1798         spin_unlock_irqrestore(get_ccwdev_lock(card->write.ccwdev), flags);
1799         if (rc){
1800                 PRINT_WARN("qeth_send_control_data: "
1801                            "ccw_device_start rc = %i\n", rc);
1802                 QETH_DBF_TEXT_(trace, 2, " err%d", rc);
1803                 spin_lock_irqsave(&card->lock, flags);
1804                 list_del_init(&reply->list);
1805                 qeth_put_reply(reply);
1806                 spin_unlock_irqrestore(&card->lock, flags);
1807                 qeth_release_buffer(iob->channel, iob);
1808                 atomic_set(&card->write.irq_pending, 0);
1809                 wake_up(&card->wait_q);
1810                 return rc;
1811         }
1812         add_timer(&timer);
1813         wait_event(reply->wait_q, reply->received);
1814         del_timer_sync(&timer);
1815         rc = reply->rc;
1816         qeth_put_reply(reply);
1817         return rc;
1818 }
1819
1820 static int
1821 qeth_send_ipa_cmd(struct qeth_card *card, struct qeth_cmd_buffer *iob,
1822                   int (*reply_cb)
1823                   (struct qeth_card *,struct qeth_reply*, unsigned long),
1824                   void *reply_param)
1825 {
1826         int rc;
1827         char prot_type;
1828
1829         QETH_DBF_TEXT(trace,4,"sendipa");
1830
1831         memcpy(iob->data, IPA_PDU_HEADER, IPA_PDU_HEADER_SIZE);
1832
1833         if (card->options.layer2)
1834                 prot_type = QETH_PROT_LAYER2;
1835         else
1836                 prot_type = QETH_PROT_TCPIP;
1837
1838         memcpy(QETH_IPA_CMD_PROT_TYPE(iob->data),&prot_type,1);
1839         memcpy(QETH_IPA_CMD_DEST_ADDR(iob->data),
1840                &card->token.ulp_connection_r, QETH_MPC_TOKEN_LENGTH);
1841
1842         rc = qeth_send_control_data(card, IPA_CMD_LENGTH, iob,
1843                                     reply_cb, reply_param);
1844         return rc;
1845 }
1846
1847
1848 static int
1849 qeth_cm_enable_cb(struct qeth_card *card, struct qeth_reply *reply,
1850                   unsigned long data)
1851 {
1852         struct qeth_cmd_buffer *iob;
1853
1854         QETH_DBF_TEXT(setup, 2, "cmenblcb");
1855
1856         iob = (struct qeth_cmd_buffer *) data;
1857         memcpy(&card->token.cm_filter_r,
1858                QETH_CM_ENABLE_RESP_FILTER_TOKEN(iob->data),
1859                QETH_MPC_TOKEN_LENGTH);
1860         QETH_DBF_TEXT_(setup, 2, "  rc%d", iob->rc);
1861         return 0;
1862 }
1863
1864 static int
1865 qeth_cm_enable(struct qeth_card *card)
1866 {
1867         int rc;
1868         struct qeth_cmd_buffer *iob;
1869
1870         QETH_DBF_TEXT(setup,2,"cmenable");
1871
1872         iob = qeth_wait_for_buffer(&card->write);
1873         memcpy(iob->data, CM_ENABLE, CM_ENABLE_SIZE);
1874         memcpy(QETH_CM_ENABLE_ISSUER_RM_TOKEN(iob->data),
1875                &card->token.issuer_rm_r, QETH_MPC_TOKEN_LENGTH);
1876         memcpy(QETH_CM_ENABLE_FILTER_TOKEN(iob->data),
1877                &card->token.cm_filter_w, QETH_MPC_TOKEN_LENGTH);
1878
1879         rc = qeth_send_control_data(card, CM_ENABLE_SIZE, iob,
1880                                     qeth_cm_enable_cb, NULL);
1881         return rc;
1882 }
1883
1884 static int
1885 qeth_cm_setup_cb(struct qeth_card *card, struct qeth_reply *reply,
1886                  unsigned long data)
1887 {
1888
1889         struct qeth_cmd_buffer *iob;
1890
1891         QETH_DBF_TEXT(setup, 2, "cmsetpcb");
1892
1893         iob = (struct qeth_cmd_buffer *) data;
1894         memcpy(&card->token.cm_connection_r,
1895                QETH_CM_SETUP_RESP_DEST_ADDR(iob->data),
1896                QETH_MPC_TOKEN_LENGTH);
1897         QETH_DBF_TEXT_(setup, 2, "  rc%d", iob->rc);
1898         return 0;
1899 }
1900
1901 static int
1902 qeth_cm_setup(struct qeth_card *card)
1903 {
1904         int rc;
1905         struct qeth_cmd_buffer *iob;
1906
1907         QETH_DBF_TEXT(setup,2,"cmsetup");
1908
1909         iob = qeth_wait_for_buffer(&card->write);
1910         memcpy(iob->data, CM_SETUP, CM_SETUP_SIZE);
1911         memcpy(QETH_CM_SETUP_DEST_ADDR(iob->data),
1912                &card->token.issuer_rm_r, QETH_MPC_TOKEN_LENGTH);
1913         memcpy(QETH_CM_SETUP_CONNECTION_TOKEN(iob->data),
1914                &card->token.cm_connection_w, QETH_MPC_TOKEN_LENGTH);
1915         memcpy(QETH_CM_SETUP_FILTER_TOKEN(iob->data),
1916                &card->token.cm_filter_r, QETH_MPC_TOKEN_LENGTH);
1917         rc = qeth_send_control_data(card, CM_SETUP_SIZE, iob,
1918                                     qeth_cm_setup_cb, NULL);
1919         return rc;
1920
1921 }
1922
1923 static int
1924 qeth_ulp_enable_cb(struct qeth_card *card, struct qeth_reply *reply,
1925                    unsigned long data)
1926 {
1927
1928         __u16 mtu, framesize;
1929         __u16 len;
1930         __u8 link_type;
1931         struct qeth_cmd_buffer *iob;
1932
1933         QETH_DBF_TEXT(setup, 2, "ulpenacb");
1934
1935         iob = (struct qeth_cmd_buffer *) data;
1936         memcpy(&card->token.ulp_filter_r,
1937                QETH_ULP_ENABLE_RESP_FILTER_TOKEN(iob->data),
1938                QETH_MPC_TOKEN_LENGTH);
1939         if (qeth_get_mtu_out_of_mpc(card->info.type)) {
1940                 memcpy(&framesize, QETH_ULP_ENABLE_RESP_MAX_MTU(iob->data), 2);
1941                 mtu = qeth_get_mtu_outof_framesize(framesize);
1942                 if (!mtu) {
1943                         iob->rc = -EINVAL;
1944                         QETH_DBF_TEXT_(setup, 2, "  rc%d", iob->rc);
1945                         return 0;
1946                 }
1947                 card->info.max_mtu = mtu;
1948                 card->info.initial_mtu = mtu;
1949                 card->qdio.in_buf_size = mtu + 2 * PAGE_SIZE;
1950         } else {
1951                 card->info.initial_mtu = qeth_get_initial_mtu_for_card(card);
1952                 card->info.max_mtu = qeth_get_max_mtu_for_card(card->info.type);
1953                 card->qdio.in_buf_size = QETH_IN_BUF_SIZE_DEFAULT;
1954         }
1955
1956         memcpy(&len, QETH_ULP_ENABLE_RESP_DIFINFO_LEN(iob->data), 2);
1957         if (len >= QETH_MPC_DIFINFO_LEN_INDICATES_LINK_TYPE) {
1958                 memcpy(&link_type,
1959                        QETH_ULP_ENABLE_RESP_LINK_TYPE(iob->data), 1);
1960                 card->info.link_type = link_type;
1961         } else
1962                 card->info.link_type = 0;
1963         QETH_DBF_TEXT_(setup, 2, "  rc%d", iob->rc);
1964         return 0;
1965 }
1966
1967 static int
1968 qeth_ulp_enable(struct qeth_card *card)
1969 {
1970         int rc;
1971         char prot_type;
1972         struct qeth_cmd_buffer *iob;
1973
1974         /*FIXME: trace view callbacks*/
1975         QETH_DBF_TEXT(setup,2,"ulpenabl");
1976
1977         iob = qeth_wait_for_buffer(&card->write);
1978         memcpy(iob->data, ULP_ENABLE, ULP_ENABLE_SIZE);
1979
1980         *(QETH_ULP_ENABLE_LINKNUM(iob->data)) =
1981                 (__u8) card->info.portno;
1982         if (card->options.layer2)
1983                 prot_type = QETH_PROT_LAYER2;
1984         else
1985                 prot_type = QETH_PROT_TCPIP;
1986
1987         memcpy(QETH_ULP_ENABLE_PROT_TYPE(iob->data),&prot_type,1);
1988         memcpy(QETH_ULP_ENABLE_DEST_ADDR(iob->data),
1989                &card->token.cm_connection_r, QETH_MPC_TOKEN_LENGTH);
1990         memcpy(QETH_ULP_ENABLE_FILTER_TOKEN(iob->data),
1991                &card->token.ulp_filter_w, QETH_MPC_TOKEN_LENGTH);
1992         memcpy(QETH_ULP_ENABLE_PORTNAME_AND_LL(iob->data),
1993                card->info.portname, 9);
1994         rc = qeth_send_control_data(card, ULP_ENABLE_SIZE, iob,
1995                                     qeth_ulp_enable_cb, NULL);
1996         return rc;
1997
1998 }
1999
2000 static inline __u16
2001 __raw_devno_from_bus_id(char *id)
2002 {
2003         id += (strlen(id) - 4);
2004         return (__u16) simple_strtoul(id, &id, 16);
2005 }
2006
2007 static int
2008 qeth_ulp_setup_cb(struct qeth_card *card, struct qeth_reply *reply,
2009                   unsigned long data)
2010 {
2011         struct qeth_cmd_buffer *iob;
2012
2013         QETH_DBF_TEXT(setup, 2, "ulpstpcb");
2014
2015         iob = (struct qeth_cmd_buffer *) data;
2016         memcpy(&card->token.ulp_connection_r,
2017                QETH_ULP_SETUP_RESP_CONNECTION_TOKEN(iob->data),
2018                QETH_MPC_TOKEN_LENGTH);
2019         QETH_DBF_TEXT_(setup, 2, "  rc%d", iob->rc);
2020         return 0;
2021 }
2022
2023 static int
2024 qeth_ulp_setup(struct qeth_card *card)
2025 {
2026         int rc;
2027         __u16 temp;
2028         struct qeth_cmd_buffer *iob;
2029
2030         QETH_DBF_TEXT(setup,2,"ulpsetup");
2031
2032         iob = qeth_wait_for_buffer(&card->write);
2033         memcpy(iob->data, ULP_SETUP, ULP_SETUP_SIZE);
2034
2035         memcpy(QETH_ULP_SETUP_DEST_ADDR(iob->data),
2036                &card->token.cm_connection_r, QETH_MPC_TOKEN_LENGTH);
2037         memcpy(QETH_ULP_SETUP_CONNECTION_TOKEN(iob->data),
2038                &card->token.ulp_connection_w, QETH_MPC_TOKEN_LENGTH);
2039         memcpy(QETH_ULP_SETUP_FILTER_TOKEN(iob->data),
2040                &card->token.ulp_filter_r, QETH_MPC_TOKEN_LENGTH);
2041
2042         temp = __raw_devno_from_bus_id(CARD_DDEV_ID(card));
2043         memcpy(QETH_ULP_SETUP_CUA(iob->data), &temp, 2);
2044         temp = (card->info.cula << 8) + card->info.unit_addr2;
2045         memcpy(QETH_ULP_SETUP_REAL_DEVADDR(iob->data), &temp, 2);
2046         rc = qeth_send_control_data(card, ULP_SETUP_SIZE, iob,
2047                                     qeth_ulp_setup_cb, NULL);
2048         return rc;
2049 }
2050
2051 static inline int
2052 qeth_check_for_inbound_error(struct qeth_qdio_buffer *buf,
2053                              unsigned int qdio_error,
2054                              unsigned int siga_error)
2055 {
2056         int rc = 0;
2057
2058         if (qdio_error || siga_error) {
2059                 QETH_DBF_TEXT(trace, 2, "qdinerr");
2060                 QETH_DBF_TEXT(qerr, 2, "qdinerr");
2061                 QETH_DBF_TEXT_(qerr, 2, " F15=%02X",
2062                                buf->buffer->element[15].flags & 0xff);
2063                 QETH_DBF_TEXT_(qerr, 2, " F14=%02X",
2064                                buf->buffer->element[14].flags & 0xff);
2065                 QETH_DBF_TEXT_(qerr, 2, " qerr=%X", qdio_error);
2066                 QETH_DBF_TEXT_(qerr, 2, " serr=%X", siga_error);
2067                 rc = 1;
2068         }
2069         return rc;
2070 }
2071
2072 static inline struct sk_buff *
2073 qeth_get_skb(unsigned int length)
2074 {
2075         struct sk_buff* skb;
2076 #ifdef CONFIG_QETH_VLAN
2077         if ((skb = dev_alloc_skb(length + VLAN_HLEN)))
2078                 skb_reserve(skb, VLAN_HLEN);
2079 #else
2080         skb = dev_alloc_skb(length);
2081 #endif
2082         return skb;
2083 }
2084
2085 static inline struct sk_buff *
2086 qeth_get_next_skb(struct qeth_card *card, struct qdio_buffer *buffer,
2087                   struct qdio_buffer_element **__element, int *__offset,
2088                   struct qeth_hdr **hdr)
2089 {
2090         struct qdio_buffer_element *element = *__element;
2091         int offset = *__offset;
2092         struct sk_buff *skb = NULL;
2093         int skb_len;
2094         void *data_ptr;
2095         int data_len;
2096
2097         QETH_DBF_TEXT(trace,6,"nextskb");
2098         /* qeth_hdr must not cross element boundaries */
2099         if (element->length < offset + sizeof(struct qeth_hdr)){
2100                 if (qeth_is_last_sbale(element))
2101                         return NULL;
2102                 element++;
2103                 offset = 0;
2104                 if (element->length < sizeof(struct qeth_hdr))
2105                         return NULL;
2106         }
2107         *hdr = element->addr + offset;
2108
2109         offset += sizeof(struct qeth_hdr);
2110         if (card->options.layer2)
2111                 skb_len = (*hdr)->hdr.l2.pkt_length;
2112         else
2113                 skb_len = (*hdr)->hdr.l3.length;
2114
2115         if (!skb_len)
2116                 return NULL;
2117         if (card->options.fake_ll){
2118                 if (!(skb = qeth_get_skb(skb_len + QETH_FAKE_LL_LEN)))
2119                         goto no_mem;
2120                 skb_pull(skb, QETH_FAKE_LL_LEN);
2121         } else if (!(skb = qeth_get_skb(skb_len)))
2122                 goto no_mem;
2123         data_ptr = element->addr + offset;
2124         while (skb_len) {
2125                 data_len = min(skb_len, (int)(element->length - offset));
2126                 if (data_len)
2127                         memcpy(skb_put(skb, data_len), data_ptr, data_len);
2128                 skb_len -= data_len;
2129                 if (skb_len){
2130                         if (qeth_is_last_sbale(element)){
2131                                 QETH_DBF_TEXT(trace,4,"unexeob");
2132                                 QETH_DBF_TEXT_(trace,4,"%s",CARD_BUS_ID(card));
2133                                 QETH_DBF_TEXT(qerr,2,"unexeob");
2134                                 QETH_DBF_TEXT_(qerr,2,"%s",CARD_BUS_ID(card));
2135                                 QETH_DBF_HEX(misc,4,buffer,sizeof(*buffer));
2136                                 dev_kfree_skb_any(skb);
2137                                 card->stats.rx_errors++;
2138                                 return NULL;
2139                         }
2140                         element++;
2141                         offset = 0;
2142                         data_ptr = element->addr;
2143                 } else {
2144                         offset += data_len;
2145                 }
2146         }
2147         *__element = element;
2148         *__offset = offset;
2149         return skb;
2150 no_mem:
2151         if (net_ratelimit()){
2152                 PRINT_WARN("No memory for packet received on %s.\n",
2153                            QETH_CARD_IFNAME(card));
2154                 QETH_DBF_TEXT(trace,2,"noskbmem");
2155                 QETH_DBF_TEXT_(trace,2,"%s",CARD_BUS_ID(card));
2156         }
2157         card->stats.rx_dropped++;
2158         return NULL;
2159 }
2160
2161 static inline unsigned short
2162 qeth_type_trans(struct sk_buff *skb, struct net_device *dev)
2163 {
2164         struct qeth_card *card;
2165         struct ethhdr *eth;
2166
2167         QETH_DBF_TEXT(trace,6,"typtrans");
2168
2169         card = (struct qeth_card *)dev->priv;
2170 #ifdef CONFIG_TR
2171         if ((card->info.link_type == QETH_LINK_TYPE_HSTR) ||
2172             (card->info.link_type == QETH_LINK_TYPE_LANE_TR))
2173                 return tr_type_trans(skb,dev);
2174 #endif /* CONFIG_TR */
2175         skb->mac.raw = skb->data;
2176         skb_pull(skb, ETH_HLEN );
2177         eth = eth_hdr(skb);
2178
2179         if (*eth->h_dest & 1) {
2180                 if (memcmp(eth->h_dest, dev->broadcast, ETH_ALEN) == 0)
2181                         skb->pkt_type = PACKET_BROADCAST;
2182                 else
2183                         skb->pkt_type = PACKET_MULTICAST;
2184         } else if (memcmp(eth->h_dest, dev->dev_addr, ETH_ALEN))
2185                 skb->pkt_type = PACKET_OTHERHOST;
2186
2187         if (ntohs(eth->h_proto) >= 1536)
2188                 return eth->h_proto;
2189         if (*(unsigned short *) (skb->data) == 0xFFFF)
2190                 return htons(ETH_P_802_3);
2191         return htons(ETH_P_802_2);
2192 }
2193
2194 static inline void
2195 qeth_rebuild_skb_fake_ll(struct qeth_card *card, struct sk_buff *skb,
2196                          struct qeth_hdr *hdr)
2197 {
2198         struct ethhdr *fake_hdr;
2199         struct iphdr *ip_hdr;
2200
2201         QETH_DBF_TEXT(trace,5,"skbfake");
2202         skb->mac.raw = skb->data - QETH_FAKE_LL_LEN;
2203         /* this is a fake ethernet header */
2204         fake_hdr = (struct ethhdr *) skb->mac.raw;
2205
2206         /* the destination MAC address */
2207         switch (skb->pkt_type){
2208         case PACKET_MULTICAST:
2209                 switch (skb->protocol){
2210 #ifdef CONFIG_QETH_IPV6
2211                 case __constant_htons(ETH_P_IPV6):
2212                         ndisc_mc_map((struct in6_addr *)
2213                                      skb->data + QETH_FAKE_LL_V6_ADDR_POS,
2214                                      fake_hdr->h_dest, card->dev, 0);
2215                         break;
2216 #endif /* CONFIG_QETH_IPV6 */
2217                 case __constant_htons(ETH_P_IP):
2218                         ip_hdr = (struct iphdr *)skb->data;
2219                         if (card->dev->type == ARPHRD_IEEE802_TR)
2220                                 ip_tr_mc_map(ip_hdr->daddr, fake_hdr->h_dest);
2221                         else
2222                                 ip_eth_mc_map(ip_hdr->daddr, fake_hdr->h_dest);
2223                         break;
2224                 default:
2225                         memcpy(fake_hdr->h_dest, card->dev->dev_addr, ETH_ALEN);
2226                 }
2227                 break;
2228         case PACKET_BROADCAST:
2229                 memset(fake_hdr->h_dest, 0xff, ETH_ALEN);
2230                 break;
2231         default:
2232                 memcpy(fake_hdr->h_dest, card->dev->dev_addr, ETH_ALEN);
2233         }
2234         /* the source MAC address */
2235         if (hdr->hdr.l3.ext_flags & QETH_HDR_EXT_SRC_MAC_ADDR)
2236                 memcpy(fake_hdr->h_source, &hdr->hdr.l3.dest_addr[2], ETH_ALEN);
2237         else
2238                 memset(fake_hdr->h_source, 0, ETH_ALEN);
2239         /* the protocol */
2240         fake_hdr->h_proto = skb->protocol;
2241 }
2242
2243 static inline void
2244 qeth_rebuild_skb_vlan(struct qeth_card *card, struct sk_buff *skb,
2245                       struct qeth_hdr *hdr)
2246 {
2247 #ifdef CONFIG_QETH_VLAN
2248         u16 *vlan_tag;
2249
2250         if (hdr->hdr.l3.ext_flags &
2251             (QETH_HDR_EXT_VLAN_FRAME | QETH_HDR_EXT_INCLUDE_VLAN_TAG)) {
2252                 vlan_tag = (u16 *) skb_push(skb, VLAN_HLEN);
2253                 *vlan_tag = (hdr->hdr.l3.ext_flags & QETH_HDR_EXT_VLAN_FRAME)?
2254                         hdr->hdr.l3.vlan_id : *((u16 *)&hdr->hdr.l3.dest_addr[12]);
2255                 *(vlan_tag + 1) = skb->protocol;
2256                 skb->protocol = __constant_htons(ETH_P_8021Q);
2257         }
2258 #endif /* CONFIG_QETH_VLAN */
2259 }
2260
2261 static inline __u16
2262 qeth_layer2_rebuild_skb(struct qeth_card *card, struct sk_buff *skb,
2263                         struct qeth_hdr *hdr)
2264 {
2265         unsigned short vlan_id = 0;
2266
2267         skb->pkt_type = PACKET_HOST;
2268         if (card->options.checksum_type == NO_CHECKSUMMING)
2269                 skb->ip_summed = CHECKSUM_UNNECESSARY;
2270         else
2271                 skb->ip_summed = CHECKSUM_NONE;
2272 #ifdef CONFIG_QETH_VLAN
2273         if (hdr->hdr.l2.flags[2] & (QETH_LAYER2_FLAG_VLAN)) {
2274                 vlan_id = hdr->hdr.l2.vlan_id;
2275                 skb_pull(skb, VLAN_HLEN);
2276         }
2277 #endif
2278         skb->protocol = qeth_type_trans(skb, skb->dev);
2279         return vlan_id;
2280 }
2281
2282 static inline void
2283 qeth_rebuild_skb(struct qeth_card *card, struct sk_buff *skb,
2284                  struct qeth_hdr *hdr)
2285 {
2286 #ifdef CONFIG_QETH_IPV6
2287         if (hdr->hdr.l3.flags & QETH_HDR_PASSTHRU) {
2288                 skb->pkt_type = PACKET_HOST;
2289                 skb->protocol = qeth_type_trans(skb, card->dev);
2290                 return;
2291         }
2292 #endif /* CONFIG_QETH_IPV6 */
2293         skb->protocol = htons((hdr->hdr.l3.flags & QETH_HDR_IPV6)? ETH_P_IPV6 :
2294                               ETH_P_IP);
2295         switch (hdr->hdr.l3.flags & QETH_HDR_CAST_MASK){
2296         case QETH_CAST_UNICAST:
2297                 skb->pkt_type = PACKET_HOST;
2298                 break;
2299         case QETH_CAST_MULTICAST:
2300                 skb->pkt_type = PACKET_MULTICAST;
2301                 card->stats.multicast++;
2302                 break;
2303         case QETH_CAST_BROADCAST:
2304                 skb->pkt_type = PACKET_BROADCAST;
2305                 card->stats.multicast++;
2306                 break;
2307         case QETH_CAST_ANYCAST:
2308         case QETH_CAST_NOCAST:
2309         default:
2310                 skb->pkt_type = PACKET_HOST;
2311         }
2312         qeth_rebuild_skb_vlan(card, skb, hdr);
2313         if (card->options.fake_ll)
2314                 qeth_rebuild_skb_fake_ll(card, skb, hdr);
2315         else
2316                 skb->mac.raw = skb->data;
2317         skb->ip_summed = card->options.checksum_type;
2318         if (card->options.checksum_type == HW_CHECKSUMMING){
2319                 if ( (hdr->hdr.l3.ext_flags &
2320                       (QETH_HDR_EXT_CSUM_HDR_REQ |
2321                        QETH_HDR_EXT_CSUM_TRANSP_REQ)) ==
2322                      (QETH_HDR_EXT_CSUM_HDR_REQ |
2323                       QETH_HDR_EXT_CSUM_TRANSP_REQ) )
2324                         skb->ip_summed = CHECKSUM_UNNECESSARY;
2325                 else
2326                         skb->ip_summed = SW_CHECKSUMMING;
2327         }
2328 }
2329
2330 static inline void
2331 qeth_process_inbound_buffer(struct qeth_card *card,
2332                             struct qeth_qdio_buffer *buf, int index)
2333 {
2334         struct qdio_buffer_element *element;
2335         struct sk_buff *skb;
2336         struct qeth_hdr *hdr;
2337         int offset;
2338         int rxrc;
2339         __u16 vlan_tag = 0;
2340
2341         /* get first element of current buffer */
2342         element = (struct qdio_buffer_element *)&buf->buffer->element[0];
2343         offset = 0;
2344 #ifdef CONFIG_QETH_PERF_STATS
2345         card->perf_stats.bufs_rec++;
2346 #endif
2347         while((skb = qeth_get_next_skb(card, buf->buffer, &element,
2348                                        &offset, &hdr))) {
2349                 skb->dev = card->dev;
2350                 if (hdr->hdr.l2.id == QETH_HEADER_TYPE_LAYER2)
2351                         vlan_tag = qeth_layer2_rebuild_skb(card, skb, hdr);
2352                 else
2353                         qeth_rebuild_skb(card, skb, hdr);
2354                 /* is device UP ? */
2355                 if (!(card->dev->flags & IFF_UP)){
2356                         dev_kfree_skb_any(skb);
2357                         continue;
2358                 }
2359 #ifdef CONFIG_QETH_VLAN
2360                 if (vlan_tag)
2361                         vlan_hwaccel_rx(skb, card->vlangrp, vlan_tag);
2362                 else
2363 #endif
2364                 rxrc = netif_rx(skb);
2365                 card->dev->last_rx = jiffies;
2366                 card->stats.rx_packets++;
2367                 card->stats.rx_bytes += skb->len;
2368         }
2369 }
2370
2371 static inline struct qeth_buffer_pool_entry *
2372 qeth_get_buffer_pool_entry(struct qeth_card *card)
2373 {
2374         struct qeth_buffer_pool_entry *entry;
2375
2376         QETH_DBF_TEXT(trace, 6, "gtbfplen");
2377         if (!list_empty(&card->qdio.in_buf_pool.entry_list)) {
2378                 entry = list_entry(card->qdio.in_buf_pool.entry_list.next,
2379                                 struct qeth_buffer_pool_entry, list);
2380                 list_del_init(&entry->list);
2381                 return entry;
2382         }
2383         return NULL;
2384 }
2385
2386 static inline void
2387 qeth_init_input_buffer(struct qeth_card *card, struct qeth_qdio_buffer *buf)
2388 {
2389         struct qeth_buffer_pool_entry *pool_entry;
2390         int i;
2391
2392         pool_entry = qeth_get_buffer_pool_entry(card);
2393         /*
2394          * since the buffer is accessed only from the input_tasklet
2395          * there shouldn't be a need to synchronize; also, since we use
2396          * the QETH_IN_BUF_REQUEUE_THRESHOLD we should never run  out off
2397          * buffers
2398          */
2399         BUG_ON(!pool_entry);
2400
2401         buf->pool_entry = pool_entry;
2402         for(i = 0; i < QETH_MAX_BUFFER_ELEMENTS(card); ++i){
2403                 buf->buffer->element[i].length = PAGE_SIZE;
2404                 buf->buffer->element[i].addr =  pool_entry->elements[i];
2405                 if (i == QETH_MAX_BUFFER_ELEMENTS(card) - 1)
2406                         buf->buffer->element[i].flags = SBAL_FLAGS_LAST_ENTRY;
2407                 else
2408                         buf->buffer->element[i].flags = 0;
2409         }
2410         buf->state = QETH_QDIO_BUF_EMPTY;
2411 }
2412
2413 static inline void
2414 qeth_clear_output_buffer(struct qeth_qdio_out_q *queue,
2415                          struct qeth_qdio_out_buffer *buf)
2416 {
2417         int i;
2418         struct sk_buff *skb;
2419
2420         /* is PCI flag set on buffer? */
2421         if (buf->buffer->element[0].flags & 0x40)
2422                 atomic_dec(&queue->set_pci_flags_count);
2423
2424         for(i = 0; i < QETH_MAX_BUFFER_ELEMENTS(queue->card); ++i){
2425                 buf->buffer->element[i].length = 0;
2426                 buf->buffer->element[i].addr = NULL;
2427                 buf->buffer->element[i].flags = 0;
2428                 while ((skb = skb_dequeue(&buf->skb_list))){
2429                         atomic_dec(&skb->users);
2430                         dev_kfree_skb_any(skb);
2431                 }
2432         }
2433         buf->next_element_to_fill = 0;
2434         atomic_set(&buf->state, QETH_QDIO_BUF_EMPTY);
2435 }
2436
2437 static inline void
2438 qeth_queue_input_buffer(struct qeth_card *card, int index)
2439 {
2440         struct qeth_qdio_q *queue = card->qdio.in_q;
2441         int count;
2442         int i;
2443         int rc;
2444
2445         QETH_DBF_TEXT(trace,6,"queinbuf");
2446         count = (index < queue->next_buf_to_init)?
2447                 card->qdio.in_buf_pool.buf_count -
2448                 (queue->next_buf_to_init - index) :
2449                 card->qdio.in_buf_pool.buf_count -
2450                 (queue->next_buf_to_init + QDIO_MAX_BUFFERS_PER_Q - index);
2451         /* only requeue at a certain threshold to avoid SIGAs */
2452         if (count >= QETH_IN_BUF_REQUEUE_THRESHOLD(card)){
2453                 for (i = queue->next_buf_to_init;
2454                      i < queue->next_buf_to_init + count; ++i)
2455                         qeth_init_input_buffer(card,
2456                                 &queue->bufs[i % QDIO_MAX_BUFFERS_PER_Q]);
2457                 /*
2458                  * according to old code it should be avoided to requeue all
2459                  * 128 buffers in order to benefit from PCI avoidance.
2460                  * this function keeps at least one buffer (the buffer at
2461                  * 'index') un-requeued -> this buffer is the first buffer that
2462                  * will be requeued the next time
2463                  */
2464 #ifdef CONFIG_QETH_PERF_STATS
2465                 card->perf_stats.inbound_do_qdio_cnt++;
2466                 card->perf_stats.inbound_do_qdio_start_time = qeth_get_micros();
2467 #endif
2468                 rc = do_QDIO(CARD_DDEV(card),
2469                              QDIO_FLAG_SYNC_INPUT | QDIO_FLAG_UNDER_INTERRUPT,
2470                              0, queue->next_buf_to_init, count, NULL);
2471 #ifdef CONFIG_QETH_PERF_STATS
2472                 card->perf_stats.inbound_do_qdio_time += qeth_get_micros() -
2473                         card->perf_stats.inbound_do_qdio_start_time;
2474 #endif
2475                 if (rc){
2476                         PRINT_WARN("qeth_queue_input_buffer's do_QDIO "
2477                                    "return %i (device %s).\n",
2478                                    rc, CARD_DDEV_ID(card));
2479                         QETH_DBF_TEXT(trace,2,"qinberr");
2480                         QETH_DBF_TEXT_(trace,2,"%s",CARD_BUS_ID(card));
2481                 }
2482                 queue->next_buf_to_init = (queue->next_buf_to_init + count) %
2483                                           QDIO_MAX_BUFFERS_PER_Q;
2484         }
2485 }
2486
2487 static inline void
2488 qeth_put_buffer_pool_entry(struct qeth_card *card,
2489                            struct qeth_buffer_pool_entry *entry)
2490 {
2491         QETH_DBF_TEXT(trace, 6, "ptbfplen");
2492         list_add_tail(&entry->list, &card->qdio.in_buf_pool.entry_list);
2493 }
2494
2495 static void
2496 qeth_qdio_input_handler(struct ccw_device * ccwdev, unsigned int status,
2497                         unsigned int qdio_err, unsigned int siga_err,
2498                         unsigned int queue, int first_element, int count,
2499                         unsigned long card_ptr)
2500 {
2501         struct net_device *net_dev;
2502         struct qeth_card *card;
2503         struct qeth_qdio_buffer *buffer;
2504         int index;
2505         int i;
2506
2507         QETH_DBF_TEXT(trace, 6, "qdinput");
2508         card = (struct qeth_card *) card_ptr;
2509         net_dev = card->dev;
2510 #ifdef CONFIG_QETH_PERF_STATS
2511         card->perf_stats.inbound_cnt++;
2512         card->perf_stats.inbound_start_time = qeth_get_micros();
2513 #endif
2514         if (status & QDIO_STATUS_LOOK_FOR_ERROR) {
2515                 if (status & QDIO_STATUS_ACTIVATE_CHECK_CONDITION){
2516                         QETH_DBF_TEXT(trace, 1,"qdinchk");
2517                         QETH_DBF_TEXT_(trace,1,"%s",CARD_BUS_ID(card));
2518                         QETH_DBF_TEXT_(trace,1,"%04X%04X",first_element,count);
2519                         QETH_DBF_TEXT_(trace,1,"%04X%04X", queue, status);
2520                         qeth_schedule_recovery(card);
2521                         return;
2522                 }
2523         }
2524         for (i = first_element; i < (first_element + count); ++i) {
2525                 index = i % QDIO_MAX_BUFFERS_PER_Q;
2526                 buffer = &card->qdio.in_q->bufs[index];
2527                 if (!((status == QDIO_STATUS_LOOK_FOR_ERROR) &&
2528                       qeth_check_for_inbound_error(buffer, qdio_err, siga_err)))
2529                         qeth_process_inbound_buffer(card, buffer, index);
2530                 /* clear buffer and give back to hardware */
2531                 qeth_put_buffer_pool_entry(card, buffer->pool_entry);
2532                 qeth_queue_input_buffer(card, index);
2533         }
2534 #ifdef CONFIG_QETH_PERF_STATS
2535         card->perf_stats.inbound_time += qeth_get_micros() -
2536                 card->perf_stats.inbound_start_time;
2537 #endif
2538 }
2539
2540 static inline int
2541 qeth_handle_send_error(struct qeth_card *card,
2542                        struct qeth_qdio_out_buffer *buffer,
2543                        int qdio_err, int siga_err)
2544 {
2545         int sbalf15 = buffer->buffer->element[15].flags & 0xff;
2546         int cc = siga_err & 3;
2547
2548         QETH_DBF_TEXT(trace, 6, "hdsnderr");
2549         switch (cc) {
2550         case 0:
2551                 if (qdio_err){
2552                         QETH_DBF_TEXT(trace, 1,"lnkfail");
2553                         QETH_DBF_TEXT_(trace,1,"%s",CARD_BUS_ID(card));
2554                         QETH_DBF_TEXT_(trace,1,"%04x %02x",
2555                                        (u16)qdio_err, (u8)sbalf15);
2556                         return QETH_SEND_ERROR_LINK_FAILURE;
2557                 }
2558                 return QETH_SEND_ERROR_NONE;
2559         case 2:
2560                 if (siga_err & QDIO_SIGA_ERROR_B_BIT_SET) {
2561                         QETH_DBF_TEXT(trace, 1, "SIGAcc2B");
2562                         QETH_DBF_TEXT_(trace,1,"%s",CARD_BUS_ID(card));
2563                         return QETH_SEND_ERROR_KICK_IT;
2564                 }
2565                 if ((sbalf15 >= 15) && (sbalf15 <= 31))
2566                         return QETH_SEND_ERROR_RETRY;
2567                 return QETH_SEND_ERROR_LINK_FAILURE;
2568                 /* look at qdio_error and sbalf 15 */
2569         case 1:
2570                 QETH_DBF_TEXT(trace, 1, "SIGAcc1");
2571                 QETH_DBF_TEXT_(trace,1,"%s",CARD_BUS_ID(card));
2572                 return QETH_SEND_ERROR_LINK_FAILURE;
2573         case 3:
2574                 QETH_DBF_TEXT(trace, 1, "SIGAcc3");
2575                 QETH_DBF_TEXT_(trace,1,"%s",CARD_BUS_ID(card));
2576                 return QETH_SEND_ERROR_KICK_IT;
2577         }
2578         return QETH_SEND_ERROR_LINK_FAILURE;
2579 }
2580
2581 static inline void
2582 qeth_flush_buffers(struct qeth_qdio_out_q *queue, int under_int,
2583                    int index, int count)
2584 {
2585         struct qeth_qdio_out_buffer *buf;
2586         int rc;
2587         int i;
2588
2589         QETH_DBF_TEXT(trace, 6, "flushbuf");
2590
2591         for (i = index; i < index + count; ++i) {
2592                 buf = &queue->bufs[i % QDIO_MAX_BUFFERS_PER_Q];
2593                 buf->buffer->element[buf->next_element_to_fill - 1].flags |=
2594                                 SBAL_FLAGS_LAST_ENTRY;
2595
2596                 if (queue->card->info.type == QETH_CARD_TYPE_IQD)
2597                         continue;
2598
2599                 if (!queue->do_pack){
2600                         if ((atomic_read(&queue->used_buffers) >=
2601                                 (QETH_HIGH_WATERMARK_PACK -
2602                                  QETH_WATERMARK_PACK_FUZZ)) &&
2603                             !atomic_read(&queue->set_pci_flags_count)){
2604                                 /* it's likely that we'll go to packing
2605                                  * mode soon */
2606                                 atomic_inc(&queue->set_pci_flags_count);
2607                                 buf->buffer->element[0].flags |= 0x40;
2608                         }
2609                 } else {
2610                         if (!atomic_read(&queue->set_pci_flags_count)){
2611                                 /*
2612                                  * there's no outstanding PCI any more, so we
2613                                  * have to request a PCI to be sure the the PCI
2614                                  * will wake at some time in the future then we
2615                                  * can flush packed buffers that might still be
2616                                  * hanging around, which can happen if no
2617                                  * further send was requested by the stack
2618                                  */
2619                                 atomic_inc(&queue->set_pci_flags_count);
2620                                 buf->buffer->element[0].flags |= 0x40;
2621                         }
2622 #ifdef CONFIG_QETH_PERF_STATS
2623                         queue->card->perf_stats.bufs_sent_pack++;
2624 #endif
2625                 }
2626         }
2627
2628         queue->card->dev->trans_start = jiffies;
2629 #ifdef CONFIG_QETH_PERF_STATS
2630         queue->card->perf_stats.outbound_do_qdio_cnt++;
2631         queue->card->perf_stats.outbound_do_qdio_start_time = qeth_get_micros();
2632 #endif
2633         if (under_int)
2634                 rc = do_QDIO(CARD_DDEV(queue->card),
2635                              QDIO_FLAG_SYNC_OUTPUT | QDIO_FLAG_UNDER_INTERRUPT,
2636                              queue->queue_no, index, count, NULL);
2637         else
2638                 rc = do_QDIO(CARD_DDEV(queue->card), QDIO_FLAG_SYNC_OUTPUT,
2639                              queue->queue_no, index, count, NULL);
2640 #ifdef CONFIG_QETH_PERF_STATS
2641         queue->card->perf_stats.outbound_do_qdio_time += qeth_get_micros() -
2642                 queue->card->perf_stats.outbound_do_qdio_start_time;
2643 #endif
2644         if (rc){
2645                 QETH_DBF_SPRINTF(trace, 0, "qeth_flush_buffers: do_QDIO "
2646                                  "returned error (%i) on device %s.",
2647                                  rc, CARD_DDEV_ID(queue->card));
2648                 QETH_DBF_TEXT(trace, 2, "flushbuf");
2649                 QETH_DBF_TEXT_(trace, 2, " err%d", rc);
2650                 queue->card->stats.tx_errors += count;
2651                 /* this must not happen under normal circumstances. if it
2652                  * happens something is really wrong -> recover */
2653                 qeth_schedule_recovery(queue->card);
2654                 return;
2655         }
2656         atomic_add(count, &queue->used_buffers);
2657 #ifdef CONFIG_QETH_PERF_STATS
2658         queue->card->perf_stats.bufs_sent += count;
2659 #endif
2660 }
2661
2662 /*
2663  * Switched to packing state if the number of used buffers on a queue
2664  * reaches a certain limit.
2665  */
2666 static inline void
2667 qeth_switch_to_packing_if_needed(struct qeth_qdio_out_q *queue)
2668 {
2669         if (!queue->do_pack) {
2670                 if (atomic_read(&queue->used_buffers)
2671                     >= QETH_HIGH_WATERMARK_PACK){
2672                         /* switch non-PACKING -> PACKING */
2673                         QETH_DBF_TEXT(trace, 6, "np->pack");
2674 #ifdef CONFIG_QETH_PERF_STATS
2675                         queue->card->perf_stats.sc_dp_p++;
2676 #endif
2677                         queue->do_pack = 1;
2678                 }
2679         }
2680 }
2681
2682 /*
2683  * Switches from packing to non-packing mode. If there is a packing
2684  * buffer on the queue this buffer will be prepared to be flushed.
2685  * In that case 1 is returned to inform the caller. If no buffer
2686  * has to be flushed, zero is returned.
2687  */
2688 static inline int
2689 qeth_switch_to_nonpacking_if_needed(struct qeth_qdio_out_q *queue)
2690 {
2691         struct qeth_qdio_out_buffer *buffer;
2692         int flush_count = 0;
2693
2694         if (queue->do_pack) {
2695                 if (atomic_read(&queue->used_buffers)
2696                     <= QETH_LOW_WATERMARK_PACK) {
2697                         /* switch PACKING -> non-PACKING */
2698                         QETH_DBF_TEXT(trace, 6, "pack->np");
2699 #ifdef CONFIG_QETH_PERF_STATS
2700                         queue->card->perf_stats.sc_p_dp++;
2701 #endif
2702                         queue->do_pack = 0;
2703                         /* flush packing buffers */
2704                         buffer = &queue->bufs[queue->next_buf_to_fill];
2705                         if ((atomic_read(&buffer->state) ==
2706                                                 QETH_QDIO_BUF_EMPTY) &&
2707                             (buffer->next_element_to_fill > 0)) {
2708                                 atomic_set(&buffer->state,QETH_QDIO_BUF_PRIMED);
2709                                 flush_count++;
2710                                 queue->next_buf_to_fill =
2711                                         (queue->next_buf_to_fill + 1) %
2712                                         QDIO_MAX_BUFFERS_PER_Q;
2713                         }
2714                 }
2715         }
2716         return flush_count;
2717 }
2718
2719 /*
2720  * Called to flush a packing buffer if no more pci flags are on the queue.
2721  * Checks if there is a packing buffer and prepares it to be flushed.
2722  * In that case returns 1, otherwise zero.
2723  */
2724 static inline int
2725 qeth_flush_buffers_on_no_pci(struct qeth_qdio_out_q *queue)
2726 {
2727         struct qeth_qdio_out_buffer *buffer;
2728
2729         buffer = &queue->bufs[queue->next_buf_to_fill];
2730         if((atomic_read(&buffer->state) == QETH_QDIO_BUF_EMPTY) &&
2731            (buffer->next_element_to_fill > 0)){
2732                 /* it's a packing buffer */
2733                 atomic_set(&buffer->state, QETH_QDIO_BUF_PRIMED);
2734                 queue->next_buf_to_fill =
2735                         (queue->next_buf_to_fill + 1) % QDIO_MAX_BUFFERS_PER_Q;
2736                 return 1;
2737         }
2738         return 0;
2739 }
2740
2741 static inline void
2742 qeth_check_outbound_queue(struct qeth_qdio_out_q *queue)
2743 {
2744         int index;
2745         int flush_cnt = 0;
2746
2747         /*
2748          * check if weed have to switch to non-packing mode or if
2749          * we have to get a pci flag out on the queue
2750          */
2751         if ((atomic_read(&queue->used_buffers) <= QETH_LOW_WATERMARK_PACK) ||
2752             !atomic_read(&queue->set_pci_flags_count)){
2753                 if (atomic_swap(&queue->state, QETH_OUT_Q_LOCKED_FLUSH) ==
2754                                 QETH_OUT_Q_UNLOCKED) {
2755                         /*
2756                          * If we get in here, there was no action in
2757                          * do_send_packet. So, we check if there is a
2758                          * packing buffer to be flushed here.
2759                          */
2760                         /* TODO: try if we get a performance improvement
2761                          * by calling netif_stop_queue here */
2762                         /* save start index for flushing */
2763                         index = queue->next_buf_to_fill;
2764                         flush_cnt += qeth_switch_to_nonpacking_if_needed(queue);
2765                         if (!flush_cnt &&
2766                             !atomic_read(&queue->set_pci_flags_count))
2767                                 flush_cnt +=
2768                                         qeth_flush_buffers_on_no_pci(queue);
2769                         /* were done with updating critical queue members */
2770                         atomic_set(&queue->state, QETH_OUT_Q_UNLOCKED);
2771                         /* flushing can be done outside the lock */
2772                         if (flush_cnt)
2773                                 qeth_flush_buffers(queue, 1, index, flush_cnt);
2774                 }
2775         }
2776 }
2777
2778 static void
2779 qeth_qdio_output_handler(struct ccw_device * ccwdev, unsigned int status,
2780                         unsigned int qdio_error, unsigned int siga_error,
2781                         unsigned int __queue, int first_element, int count,
2782                         unsigned long card_ptr)
2783 {
2784         struct qeth_card *card        = (struct qeth_card *) card_ptr;
2785         struct qeth_qdio_out_q *queue = card->qdio.out_qs[__queue];
2786         struct qeth_qdio_out_buffer *buffer;
2787         int i;
2788
2789         QETH_DBF_TEXT(trace, 6, "qdouhdl");
2790         if (status & QDIO_STATUS_LOOK_FOR_ERROR) {
2791                 if (status & QDIO_STATUS_ACTIVATE_CHECK_CONDITION){
2792                         QETH_DBF_SPRINTF(trace, 2, "On device %s: "
2793                                          "received active check "
2794                                          "condition (0x%08x).",
2795                                          CARD_BUS_ID(card), status);
2796                         QETH_DBF_TEXT(trace, 2, "chkcond");
2797                         QETH_DBF_TEXT_(trace, 2, "%08x", status);
2798                         netif_stop_queue(card->dev);
2799                         qeth_schedule_recovery(card);
2800                         return;
2801                 }
2802         }
2803
2804 #ifdef CONFIG_QETH_PERF_STATS
2805         card->perf_stats.outbound_handler_cnt++;
2806         card->perf_stats.outbound_handler_start_time = qeth_get_micros();
2807 #endif
2808         for(i = first_element; i < (first_element + count); ++i){
2809                 buffer = &queue->bufs[i % QDIO_MAX_BUFFERS_PER_Q];
2810                 /*we only handle the KICK_IT error by doing a recovery */
2811                 if (qeth_handle_send_error(card, buffer, qdio_error, siga_error)
2812                                 == QETH_SEND_ERROR_KICK_IT){
2813                         netif_stop_queue(card->dev);
2814                         qeth_schedule_recovery(card);
2815                         return;
2816                 }
2817                 qeth_clear_output_buffer(queue, buffer);
2818         }
2819         atomic_sub(count, &queue->used_buffers);
2820         /* check if we need to do something on this outbound queue */
2821         if (card->info.type != QETH_CARD_TYPE_IQD)
2822                 qeth_check_outbound_queue(queue);
2823
2824         netif_wake_queue(card->dev);
2825 #ifdef CONFIG_QETH_PERF_STATS
2826         card->perf_stats.outbound_handler_time += qeth_get_micros() -
2827                 card->perf_stats.outbound_handler_start_time;
2828 #endif
2829 }
2830
2831 static char*
2832 qeth_create_qib_param_field(struct qeth_card *card)
2833 {
2834         char *param_field;
2835
2836         param_field = kmalloc(QDIO_MAX_BUFFERS_PER_Q * sizeof(char),
2837                               GFP_KERNEL);
2838         if (!param_field)
2839                 return NULL;
2840
2841         memset(param_field, 0, QDIO_MAX_BUFFERS_PER_Q * sizeof(char));
2842
2843         param_field[0] = _ascebc['P'];
2844         param_field[1] = _ascebc['C'];
2845         param_field[2] = _ascebc['I'];
2846         param_field[3] = _ascebc['T'];
2847         *((unsigned int *) (&param_field[4])) = QETH_PCI_THRESHOLD_A(card);
2848         *((unsigned int *) (&param_field[8])) = QETH_PCI_THRESHOLD_B(card);
2849         *((unsigned int *) (&param_field[12])) = QETH_PCI_TIMER_VALUE(card);
2850
2851         return param_field;
2852 }
2853
2854 static void
2855 qeth_initialize_working_pool_list(struct qeth_card *card)
2856 {
2857         struct qeth_buffer_pool_entry *entry;
2858
2859         QETH_DBF_TEXT(trace,5,"inwrklst");
2860
2861         list_for_each_entry(entry,
2862                             &card->qdio.init_pool.entry_list, init_list) {
2863                 qeth_put_buffer_pool_entry(card,entry);
2864         }
2865 }
2866
2867 static void
2868 qeth_clear_working_pool_list(struct qeth_card *card)
2869 {
2870         struct qeth_buffer_pool_entry *pool_entry, *tmp;
2871
2872         QETH_DBF_TEXT(trace,5,"clwrklst");
2873         list_for_each_entry_safe(pool_entry, tmp,
2874                             &card->qdio.in_buf_pool.entry_list, list){
2875                         list_del(&pool_entry->list);
2876         }
2877 }
2878
2879 static void
2880 qeth_free_buffer_pool(struct qeth_card *card)
2881 {
2882         struct qeth_buffer_pool_entry *pool_entry, *tmp;
2883         int i=0;
2884         QETH_DBF_TEXT(trace,5,"freepool");
2885         list_for_each_entry_safe(pool_entry, tmp,
2886                                  &card->qdio.init_pool.entry_list, init_list){
2887                 for (i = 0; i < QETH_MAX_BUFFER_ELEMENTS(card); ++i)
2888                         free_page((unsigned long)pool_entry->elements[i]);
2889                 list_del(&pool_entry->init_list);
2890                 kfree(pool_entry);
2891         }
2892 }
2893
2894 static int
2895 qeth_alloc_buffer_pool(struct qeth_card *card)
2896 {
2897         struct qeth_buffer_pool_entry *pool_entry;
2898         void *ptr;
2899         int i, j;
2900
2901         QETH_DBF_TEXT(trace,5,"clwkpool");
2902         for (i = 0; i < card->qdio.init_pool.buf_count; ++i){
2903                 pool_entry = kmalloc(sizeof(*pool_entry), GFP_KERNEL);
2904                 if (!pool_entry){
2905                         qeth_free_buffer_pool(card);
2906                         return -ENOMEM;
2907                 }
2908                 for(j = 0; j < QETH_MAX_BUFFER_ELEMENTS(card); ++j){
2909                         ptr = (void *) __get_free_page(GFP_KERNEL);
2910                         if (!ptr) {
2911                                 while (j > 0)
2912                                         free_page((unsigned long)
2913                                                   pool_entry->elements[--j]);
2914                                 kfree(pool_entry);
2915                                 qeth_free_buffer_pool(card);
2916                                 return -ENOMEM;
2917                         }
2918                         pool_entry->elements[j] = ptr;
2919                 }
2920                 list_add(&pool_entry->init_list,
2921                          &card->qdio.init_pool.entry_list);
2922         }
2923         return 0;
2924 }
2925
2926 int
2927 qeth_realloc_buffer_pool(struct qeth_card *card, int bufcnt)
2928 {
2929         QETH_DBF_TEXT(trace, 2, "realcbp");
2930
2931         if ((card->state != CARD_STATE_DOWN) &&
2932             (card->state != CARD_STATE_RECOVER))
2933                 return -EPERM;
2934
2935         /* TODO: steel/add buffers from/to a running card's buffer pool (?) */
2936         qeth_clear_working_pool_list(card);
2937         qeth_free_buffer_pool(card);
2938         card->qdio.in_buf_pool.buf_count = bufcnt;
2939         card->qdio.init_pool.buf_count = bufcnt;
2940         return qeth_alloc_buffer_pool(card);
2941 }
2942
2943 static int
2944 qeth_alloc_qdio_buffers(struct qeth_card *card)
2945 {
2946         int i, j;
2947
2948         QETH_DBF_TEXT(setup, 2, "allcqdbf");
2949
2950         if (card->qdio.state == QETH_QDIO_ALLOCATED)
2951                 return 0;
2952
2953         card->qdio.in_q = kmalloc(sizeof(struct qeth_qdio_q), GFP_KERNEL);
2954         if (!card->qdio.in_q)
2955                 return - ENOMEM;
2956         QETH_DBF_TEXT(setup, 2, "inq");
2957         QETH_DBF_HEX(setup, 2, &card->qdio.in_q, sizeof(void *));
2958         memset(card->qdio.in_q, 0, sizeof(struct qeth_qdio_q));
2959         /* give inbound qeth_qdio_buffers their qdio_buffers */
2960         for (i = 0; i < QDIO_MAX_BUFFERS_PER_Q; ++i)
2961                 card->qdio.in_q->bufs[i].buffer =
2962                         &card->qdio.in_q->qdio_bufs[i];
2963         /* inbound buffer pool */
2964         if (qeth_alloc_buffer_pool(card)){
2965                 kfree(card->qdio.in_q);
2966                 return -ENOMEM;
2967         }
2968         /* outbound */
2969         card->qdio.out_qs =
2970                 kmalloc(card->qdio.no_out_queues *
2971                         sizeof(struct qeth_qdio_out_q *), GFP_KERNEL);
2972         if (!card->qdio.out_qs){
2973                 qeth_free_buffer_pool(card);
2974                 return -ENOMEM;
2975         }
2976         for (i = 0; i < card->qdio.no_out_queues; ++i){
2977                 card->qdio.out_qs[i] = kmalloc(sizeof(struct qeth_qdio_out_q),
2978                                                GFP_KERNEL);
2979                 if (!card->qdio.out_qs[i]){
2980                         while (i > 0)
2981                                 kfree(card->qdio.out_qs[--i]);
2982                         kfree(card->qdio.out_qs);
2983                         return -ENOMEM;
2984                 }
2985                 QETH_DBF_TEXT_(setup, 2, "outq %i", i);
2986                 QETH_DBF_HEX(setup, 2, &card->qdio.out_qs[i], sizeof(void *));
2987                 memset(card->qdio.out_qs[i], 0, sizeof(struct qeth_qdio_out_q));
2988                 card->qdio.out_qs[i]->queue_no = i;
2989                 /* give inbound qeth_qdio_buffers their qdio_buffers */
2990                 for (j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j){
2991                         card->qdio.out_qs[i]->bufs[j].buffer =
2992                                 &card->qdio.out_qs[i]->qdio_bufs[j];
2993                         skb_queue_head_init(&card->qdio.out_qs[i]->bufs[j].
2994                                             skb_list);
2995                 }
2996         }
2997         card->qdio.state = QETH_QDIO_ALLOCATED;
2998         return 0;
2999 }
3000
3001 static void
3002 qeth_free_qdio_buffers(struct qeth_card *card)
3003 {
3004         int i, j;
3005
3006         QETH_DBF_TEXT(trace, 2, "freeqdbf");
3007         if (card->qdio.state == QETH_QDIO_UNINITIALIZED)
3008                 return;
3009         kfree(card->qdio.in_q);
3010         /* inbound buffer pool */
3011         qeth_free_buffer_pool(card);
3012         /* free outbound qdio_qs */
3013         for (i = 0; i < card->qdio.no_out_queues; ++i){
3014                 for (j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j)
3015                         qeth_clear_output_buffer(card->qdio.out_qs[i],
3016                                         &card->qdio.out_qs[i]->bufs[j]);
3017                 kfree(card->qdio.out_qs[i]);
3018         }
3019         kfree(card->qdio.out_qs);
3020         card->qdio.state = QETH_QDIO_UNINITIALIZED;
3021 }
3022
3023 static void
3024 qeth_clear_qdio_buffers(struct qeth_card *card)
3025 {
3026         int i, j;
3027
3028         QETH_DBF_TEXT(trace, 2, "clearqdbf");
3029         /* clear outbound buffers to free skbs */
3030         for (i = 0; i < card->qdio.no_out_queues; ++i)
3031                 if (card->qdio.out_qs[i]){
3032                         for (j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j)
3033                                 qeth_clear_output_buffer(card->qdio.out_qs[i],
3034                                                 &card->qdio.out_qs[i]->bufs[j]);
3035                 }
3036 }
3037
3038 static void
3039 qeth_init_qdio_info(struct qeth_card *card)
3040 {
3041         QETH_DBF_TEXT(setup, 4, "intqdinf");
3042         card->qdio.state = QETH_QDIO_UNINITIALIZED;
3043         /* inbound */
3044         card->qdio.in_buf_size = QETH_IN_BUF_SIZE_DEFAULT;
3045         card->qdio.init_pool.buf_count = QETH_IN_BUF_COUNT_DEFAULT;
3046         card->qdio.in_buf_pool.buf_count = card->qdio.init_pool.buf_count;
3047         INIT_LIST_HEAD(&card->qdio.in_buf_pool.entry_list);
3048         INIT_LIST_HEAD(&card->qdio.init_pool.entry_list);
3049         /* outbound */
3050         card->qdio.do_prio_queueing = QETH_PRIOQ_DEFAULT;
3051         card->qdio.default_out_queue = QETH_DEFAULT_QUEUE;
3052 }
3053
3054 static int
3055 qeth_init_qdio_queues(struct qeth_card *card)
3056 {
3057         int i, j;
3058         int rc;
3059
3060         QETH_DBF_TEXT(setup, 2, "initqdqs");
3061
3062         /* inbound queue */
3063         memset(card->qdio.in_q->qdio_bufs, 0,
3064                QDIO_MAX_BUFFERS_PER_Q * sizeof(struct qdio_buffer));
3065         qeth_initialize_working_pool_list(card);
3066         /*give only as many buffers to hardware as we have buffer pool entries*/
3067         for (i = 0; i < card->qdio.in_buf_pool.buf_count - 1; ++i)
3068                 qeth_init_input_buffer(card, &card->qdio.in_q->bufs[i]);
3069         card->qdio.in_q->next_buf_to_init = card->qdio.in_buf_pool.buf_count - 1;
3070         rc = do_QDIO(CARD_DDEV(card), QDIO_FLAG_SYNC_INPUT, 0, 0,
3071                      card->qdio.in_buf_pool.buf_count - 1, NULL);
3072         if (rc) {
3073                 QETH_DBF_TEXT_(setup, 2, "1err%d", rc);
3074                 return rc;
3075         }
3076         rc = qdio_synchronize(CARD_DDEV(card), QDIO_FLAG_SYNC_INPUT, 0);
3077         if (rc) {
3078                 QETH_DBF_TEXT_(setup, 2, "2err%d", rc);
3079                 return rc;
3080         }
3081         /* outbound queue */
3082         for (i = 0; i < card->qdio.no_out_queues; ++i){
3083                 memset(card->qdio.out_qs[i]->qdio_bufs, 0,
3084                        QDIO_MAX_BUFFERS_PER_Q * sizeof(struct qdio_buffer));
3085                 for (j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j){
3086                         qeth_clear_output_buffer(card->qdio.out_qs[i],
3087                                         &card->qdio.out_qs[i]->bufs[j]);
3088                 }
3089                 card->qdio.out_qs[i]->card = card;
3090                 card->qdio.out_qs[i]->next_buf_to_fill = 0;
3091                 card->qdio.out_qs[i]->do_pack = 0;
3092                 atomic_set(&card->qdio.out_qs[i]->used_buffers,0);
3093                 atomic_set(&card->qdio.out_qs[i]->set_pci_flags_count, 0);
3094                 atomic_set(&card->qdio.out_qs[i]->state,
3095                            QETH_OUT_Q_UNLOCKED);
3096         }
3097         return 0;
3098 }
3099
3100 static int
3101 qeth_qdio_establish(struct qeth_card *card)
3102 {
3103         struct qdio_initialize init_data;
3104         char *qib_param_field;
3105         struct qdio_buffer **in_sbal_ptrs;
3106         struct qdio_buffer **out_sbal_ptrs;
3107         int i, j, k;
3108         int rc;
3109
3110         QETH_DBF_TEXT(setup, 2, "qdioest");
3111         qib_param_field = qeth_create_qib_param_field(card);
3112         if (!qib_param_field)
3113                 return -ENOMEM;
3114
3115         in_sbal_ptrs = kmalloc(QDIO_MAX_BUFFERS_PER_Q * sizeof(void *),
3116                                GFP_KERNEL);
3117         if (!in_sbal_ptrs) {
3118                 kfree(qib_param_field);
3119                 return -ENOMEM;
3120         }
3121         for(i = 0; i < QDIO_MAX_BUFFERS_PER_Q; ++i)
3122                 in_sbal_ptrs[i] = (struct qdio_buffer *)
3123                         virt_to_phys(card->qdio.in_q->bufs[i].buffer);
3124
3125         out_sbal_ptrs =
3126                 kmalloc(card->qdio.no_out_queues * QDIO_MAX_BUFFERS_PER_Q *
3127                         sizeof(void *), GFP_KERNEL);
3128         if (!out_sbal_ptrs) {
3129                 kfree(in_sbal_ptrs);
3130                 kfree(qib_param_field);
3131                 return -ENOMEM;
3132         }
3133         for(i = 0, k = 0; i < card->qdio.no_out_queues; ++i)
3134                 for(j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j, ++k){
3135                         out_sbal_ptrs[k] = (struct qdio_buffer *)
3136                                 virt_to_phys(card->qdio.out_qs[i]->
3137                                              bufs[j].buffer);
3138                 }
3139
3140         memset(&init_data, 0, sizeof(struct qdio_initialize));
3141         init_data.cdev                   = CARD_DDEV(card);
3142         init_data.q_format               = qeth_get_qdio_q_format(card);
3143         init_data.qib_param_field_format = 0;
3144         init_data.qib_param_field        = qib_param_field;
3145         init_data.min_input_threshold    = QETH_MIN_INPUT_THRESHOLD;
3146         init_data.max_input_threshold    = QETH_MAX_INPUT_THRESHOLD;
3147         init_data.min_output_threshold   = QETH_MIN_OUTPUT_THRESHOLD;
3148         init_data.max_output_threshold   = QETH_MAX_OUTPUT_THRESHOLD;
3149         init_data.no_input_qs            = 1;
3150         init_data.no_output_qs           = card->qdio.no_out_queues;
3151         init_data.input_handler          = (qdio_handler_t *)
3152                                            qeth_qdio_input_handler;
3153         init_data.output_handler         = (qdio_handler_t *)
3154                                            qeth_qdio_output_handler;
3155         init_data.int_parm               = (unsigned long) card;
3156         init_data.flags                  = QDIO_INBOUND_0COPY_SBALS |
3157                                            QDIO_OUTBOUND_0COPY_SBALS |
3158                                            QDIO_USE_OUTBOUND_PCIS;
3159         init_data.input_sbal_addr_array  = (void **) in_sbal_ptrs;
3160         init_data.output_sbal_addr_array = (void **) out_sbal_ptrs;
3161
3162         if (!(rc = qdio_initialize(&init_data)))
3163                 card->qdio.state = QETH_QDIO_ESTABLISHED;
3164
3165         kfree(out_sbal_ptrs);
3166         kfree(in_sbal_ptrs);
3167         kfree(qib_param_field);
3168         return rc;
3169 }
3170
3171 static int
3172 qeth_qdio_activate(struct qeth_card *card)
3173 {
3174         QETH_DBF_TEXT(setup,3,"qdioact");
3175         return qdio_activate(CARD_DDEV(card), 0);
3176 }
3177
3178 static int
3179 qeth_clear_channel(struct qeth_channel *channel)
3180 {
3181         unsigned long flags;
3182         struct qeth_card *card;
3183         int rc;
3184
3185         QETH_DBF_TEXT(trace,3,"clearch");
3186         card = CARD_FROM_CDEV(channel->ccwdev);
3187         spin_lock_irqsave(get_ccwdev_lock(channel->ccwdev), flags);
3188         rc = ccw_device_clear(channel->ccwdev, QETH_CLEAR_CHANNEL_PARM);
3189         spin_unlock_irqrestore(get_ccwdev_lock(channel->ccwdev), flags);
3190
3191         if (rc)
3192                 return rc;
3193         rc = wait_event_interruptible_timeout(card->wait_q,
3194                         channel->state==CH_STATE_STOPPED, QETH_TIMEOUT);
3195         if (rc == -ERESTARTSYS)
3196                 return rc;
3197         if (channel->state != CH_STATE_STOPPED)
3198                 return -ETIME;
3199         channel->state = CH_STATE_DOWN;
3200         return 0;
3201 }
3202
3203 static int
3204 qeth_halt_channel(struct qeth_channel *channel)
3205 {
3206         unsigned long flags;
3207         struct qeth_card *card;
3208         int rc;
3209
3210         QETH_DBF_TEXT(trace,3,"haltch");
3211         card = CARD_FROM_CDEV(channel->ccwdev);
3212         spin_lock_irqsave(get_ccwdev_lock(channel->ccwdev), flags);
3213         rc = ccw_device_halt(channel->ccwdev, QETH_HALT_CHANNEL_PARM);
3214         spin_unlock_irqrestore(get_ccwdev_lock(channel->ccwdev), flags);
3215
3216         if (rc)
3217                 return rc;
3218         rc = wait_event_interruptible_timeout(card->wait_q,
3219                         channel->state==CH_STATE_HALTED, QETH_TIMEOUT);
3220         if (rc == -ERESTARTSYS)
3221                 return rc;
3222         if (channel->state != CH_STATE_HALTED)
3223                 return -ETIME;
3224         return 0;
3225 }
3226
3227 static int
3228 qeth_halt_channels(struct qeth_card *card)
3229 {
3230         int rc = 0;
3231
3232         QETH_DBF_TEXT(trace,3,"haltchs");
3233         if ((rc = qeth_halt_channel(&card->read)))
3234                 return rc;
3235         if ((rc = qeth_halt_channel(&card->write)))
3236                 return rc;
3237         return  qeth_halt_channel(&card->data);
3238 }
3239 static int
3240 qeth_clear_channels(struct qeth_card *card)
3241 {
3242         int rc = 0;
3243
3244         QETH_DBF_TEXT(trace,3,"clearchs");
3245         if ((rc = qeth_clear_channel(&card->read)))
3246                 return rc;
3247         if ((rc = qeth_clear_channel(&card->write)))
3248                 return rc;
3249         return  qeth_clear_channel(&card->data);
3250 }
3251
3252 static int
3253 qeth_clear_halt_card(struct qeth_card *card, int halt)
3254 {
3255         int rc = 0;
3256
3257         QETH_DBF_TEXT(trace,3,"clhacrd");
3258         QETH_DBF_HEX(trace, 3, &card, sizeof(void *));
3259
3260         if (halt)
3261                 rc = qeth_halt_channels(card);
3262         if (rc)
3263                 return rc;
3264         return qeth_clear_channels(card);
3265 }
3266
3267 static int
3268 qeth_qdio_clear_card(struct qeth_card *card, int use_halt)
3269 {
3270         int rc = 0;
3271
3272         QETH_DBF_TEXT(trace,3,"qdioclr");
3273         if (card->qdio.state == QETH_QDIO_ESTABLISHED){
3274                 if ((rc = qdio_cleanup(CARD_DDEV(card),
3275                              (card->info.type == QETH_CARD_TYPE_IQD) ?
3276                              QDIO_FLAG_CLEANUP_USING_HALT :
3277                              QDIO_FLAG_CLEANUP_USING_CLEAR)))
3278                         QETH_DBF_TEXT_(trace, 3, "1err%d", rc);
3279                 card->qdio.state = QETH_QDIO_ALLOCATED;
3280         }
3281         if ((rc = qeth_clear_halt_card(card, use_halt)))
3282                 QETH_DBF_TEXT_(trace, 3, "2err%d", rc);
3283         card->state = CARD_STATE_DOWN;
3284         return rc;
3285 }
3286
3287 static int
3288 qeth_dm_act(struct qeth_card *card)
3289 {
3290         int rc;
3291         struct qeth_cmd_buffer *iob;
3292
3293         QETH_DBF_TEXT(setup,2,"dmact");
3294
3295         iob = qeth_wait_for_buffer(&card->write);
3296         memcpy(iob->data, DM_ACT, DM_ACT_SIZE);
3297
3298         memcpy(QETH_DM_ACT_DEST_ADDR(iob->data),
3299                &card->token.cm_connection_r, QETH_MPC_TOKEN_LENGTH);
3300         memcpy(QETH_DM_ACT_CONNECTION_TOKEN(iob->data),
3301                &card->token.ulp_connection_r, QETH_MPC_TOKEN_LENGTH);
3302         rc = qeth_send_control_data(card, DM_ACT_SIZE, iob, NULL, NULL);
3303         return rc;
3304 }
3305
3306 static int
3307 qeth_mpc_initialize(struct qeth_card *card)
3308 {
3309         int rc;
3310
3311         QETH_DBF_TEXT(setup,2,"mpcinit");
3312
3313         if ((rc = qeth_issue_next_read(card))){
3314                 QETH_DBF_TEXT_(setup, 2, "1err%d", rc);
3315                 return rc;
3316         }
3317         if ((rc = qeth_cm_enable(card))){
3318                 QETH_DBF_TEXT_(setup, 2, "2err%d", rc);
3319                 return rc;
3320         }
3321         if ((rc = qeth_cm_setup(card))){
3322                 QETH_DBF_TEXT_(setup, 2, "3err%d", rc);
3323                 return rc;
3324         }
3325         if ((rc = qeth_ulp_enable(card))){
3326                 QETH_DBF_TEXT_(setup, 2, "4err%d", rc);
3327                 return rc;
3328         }
3329         if ((rc = qeth_ulp_setup(card))){
3330                 QETH_DBF_TEXT_(setup, 2, "5err%d", rc);
3331                 return rc;
3332         }
3333         if ((rc = qeth_alloc_qdio_buffers(card))){
3334                 QETH_DBF_TEXT_(setup, 2, "5err%d", rc);
3335                 return rc;
3336         }
3337         if ((rc = qeth_qdio_establish(card))){
3338                 QETH_DBF_TEXT_(setup, 2, "6err%d", rc);
3339                 qeth_free_qdio_buffers(card);
3340                 goto out_qdio;
3341         }
3342         if ((rc = qeth_qdio_activate(card))){
3343                 QETH_DBF_TEXT_(setup, 2, "7err%d", rc);
3344                 goto out_qdio;
3345         }
3346         if ((rc = qeth_dm_act(card))){
3347                 QETH_DBF_TEXT_(setup, 2, "8err%d", rc);
3348                 goto out_qdio;
3349         }
3350
3351         return 0;
3352 out_qdio:
3353         qeth_qdio_clear_card(card, card->info.type==QETH_CARD_TYPE_OSAE);
3354         return rc;
3355 }
3356
3357 static struct net_device *
3358 qeth_get_netdevice(enum qeth_card_types type, enum qeth_link_types linktype)
3359 {
3360         struct net_device *dev = NULL;
3361
3362         switch (type) {
3363         case QETH_CARD_TYPE_OSAE:
3364                 switch (linktype) {
3365                 case QETH_LINK_TYPE_LANE_TR:
3366                 case QETH_LINK_TYPE_HSTR:
3367 #ifdef CONFIG_TR
3368                         dev = alloc_trdev(0);
3369 #endif /* CONFIG_TR */
3370                         break;
3371                 default:
3372                         dev = alloc_etherdev(0);
3373                 }
3374                 break;
3375         case QETH_CARD_TYPE_IQD:
3376                 dev = alloc_netdev(0, "hsi%d", ether_setup);
3377                 break;
3378         default:
3379                 dev = alloc_etherdev(0);
3380         }
3381         return dev;
3382 }
3383
3384 /*hard_header fake function; used in case fake_ll is set */
3385 static int
3386 qeth_fake_header(struct sk_buff *skb, struct net_device *dev,
3387                      unsigned short type, void *daddr, void *saddr,
3388                      unsigned len)
3389 {
3390         struct ethhdr *hdr;
3391         struct qeth_card *card;
3392
3393         card = (struct qeth_card *)dev->priv;
3394         hdr = (struct ethhdr *)skb_push(skb, QETH_FAKE_LL_LEN);
3395         memcpy(hdr->h_source, card->dev->dev_addr, ETH_ALEN);
3396         memcpy(hdr->h_dest, "FAKELL", ETH_ALEN);
3397         if (type != ETH_P_802_3)
3398                 hdr->h_proto = htons(type);
3399         else
3400                 hdr->h_proto = htons(len);
3401         return QETH_FAKE_LL_LEN;
3402 }
3403
3404 static inline int
3405 qeth_send_packet(struct qeth_card *, struct sk_buff *);
3406
3407 static int
3408 qeth_hard_start_xmit(struct sk_buff *skb, struct net_device *dev)
3409 {
3410         int rc;
3411         struct qeth_card *card;
3412
3413         QETH_DBF_TEXT(trace, 6, "hrdstxmi");
3414         card = (struct qeth_card *)dev->priv;
3415         if (skb==NULL) {
3416                 card->stats.tx_dropped++;
3417                 card->stats.tx_errors++;
3418                 /* return OK; otherwise ksoftirqd goes to 100% */
3419                 return NETDEV_TX_OK;
3420         }
3421         if ((card->state != CARD_STATE_UP) || !card->lan_online) {
3422                 card->stats.tx_dropped++;
3423                 card->stats.tx_errors++;
3424                 card->stats.tx_carrier_errors++;
3425                 dev_kfree_skb_any(skb);
3426                 /* return OK; otherwise ksoftirqd goes to 100% */
3427                 return NETDEV_TX_OK;
3428         }
3429 #ifdef CONFIG_QETH_PERF_STATS
3430         card->perf_stats.outbound_cnt++;
3431         card->perf_stats.outbound_start_time = qeth_get_micros();
3432 #endif
3433         if (dev->hard_header == qeth_fake_header) {
3434                if ((skb = qeth_pskb_unshare(skb, GFP_ATOMIC)) == NULL) {
3435                         card->stats.tx_dropped++;
3436                         dev_kfree_skb_irq(skb);
3437                         return 0;
3438                 }
3439                 skb_pull(skb, QETH_FAKE_LL_LEN);
3440         }
3441         /*
3442          * We only call netif_stop_queue in case of errors. Since we've
3443          * got our own synchronization on queues we can keep the stack's
3444          * queue running.
3445          */
3446         if ((rc = qeth_send_packet(card, skb))){
3447                 if (rc == -EBUSY) {
3448                         netif_stop_queue(dev);
3449                         rc = NETDEV_TX_BUSY;
3450                 } else {
3451                         card->stats.tx_errors++;
3452                         card->stats.tx_dropped++;
3453                         dev_kfree_skb_any(skb);
3454                         /* set to OK; otherwise ksoftirqd goes to 100% */
3455                         rc = NETDEV_TX_OK;
3456                 }
3457         }
3458
3459 #ifdef CONFIG_QETH_PERF_STATS
3460         card->perf_stats.outbound_time += qeth_get_micros() -
3461                 card->perf_stats.outbound_start_time;
3462 #endif
3463         return rc;
3464 }
3465
3466 static int
3467 qeth_verify_vlan_dev(struct net_device *dev, struct qeth_card *card)
3468 {
3469         int rc = 0;
3470 #ifdef CONFIG_QETH_VLAN
3471         struct vlan_group *vg;
3472         int i;
3473
3474         if (!(vg = card->vlangrp))
3475                 return rc;
3476
3477         for (i = 0; i < VLAN_GROUP_ARRAY_LEN; i++){
3478                 if (vg->vlan_devices[i] == dev){
3479                         rc = QETH_VLAN_CARD;
3480                         break;
3481                 }
3482         }
3483 #endif
3484         return rc;
3485 }
3486
3487 static int
3488 qeth_verify_dev(struct net_device *dev)
3489 {
3490         struct qeth_card *card;
3491         unsigned long flags;
3492         int rc = 0;
3493
3494         read_lock_irqsave(&qeth_card_list.rwlock, flags);
3495         list_for_each_entry(card, &qeth_card_list.list, list){
3496                 if (card->dev == dev){
3497                         rc = QETH_REAL_CARD;
3498                         break;
3499                 }
3500                 rc = qeth_verify_vlan_dev(dev, card);
3501                 if (rc)
3502                         break;
3503         }
3504         read_unlock_irqrestore(&qeth_card_list.rwlock, flags);
3505
3506         return rc;
3507 }
3508
3509 static struct qeth_card *
3510 qeth_get_card_from_dev(struct net_device *dev)
3511 {
3512         struct qeth_card *card = NULL;
3513         int rc;
3514
3515         rc = qeth_verify_dev(dev);
3516         if (rc == QETH_REAL_CARD)
3517                 card = (struct qeth_card *)dev->priv;
3518         else if (rc == QETH_VLAN_CARD)
3519                 card = (struct qeth_card *)
3520                         VLAN_DEV_INFO(dev)->real_dev->priv;
3521
3522         QETH_DBF_TEXT_(trace, 4, "%d", rc);
3523         return card ;
3524 }
3525
3526 static void
3527 qeth_tx_timeout(struct net_device *dev)
3528 {
3529         struct qeth_card *card;
3530
3531         card = (struct qeth_card *) dev->priv;
3532         card->stats.tx_errors++;
3533         qeth_schedule_recovery(card);
3534 }
3535
3536 static int
3537 qeth_open(struct net_device *dev)
3538 {
3539         struct qeth_card *card;
3540
3541         QETH_DBF_TEXT(trace, 4, "qethopen");
3542
3543         card = (struct qeth_card *) dev->priv;
3544
3545         if (card->state != CARD_STATE_SOFTSETUP)
3546                 return -ENODEV;
3547
3548         if ( (card->options.layer2) &&
3549              (!card->info.layer2_mac_registered)) {
3550                 QETH_DBF_TEXT(trace,4,"nomacadr");
3551                 return -EPERM;
3552         }
3553         card->dev->flags |= IFF_UP;
3554         netif_start_queue(dev);
3555         card->data.state = CH_STATE_UP;
3556         card->state = CARD_STATE_UP;
3557
3558         if (!card->lan_online){
3559                 if (netif_carrier_ok(dev))
3560                         netif_carrier_off(dev);
3561         }
3562         return 0;
3563 }
3564
3565 static int
3566 qeth_stop(struct net_device *dev)
3567 {
3568         struct qeth_card *card;
3569
3570         QETH_DBF_TEXT(trace, 4, "qethstop");
3571
3572         card = (struct qeth_card *) dev->priv;
3573
3574         netif_stop_queue(dev);
3575         card->dev->flags &= ~IFF_UP;
3576         if (card->state == CARD_STATE_UP)
3577                 card->state = CARD_STATE_SOFTSETUP;
3578         return 0;
3579 }
3580
3581 static inline int
3582 qeth_get_cast_type(struct qeth_card *card, struct sk_buff *skb)
3583 {
3584         int cast_type = RTN_UNSPEC;
3585
3586         if (skb->dst && skb->dst->neighbour){
3587                 cast_type = skb->dst->neighbour->type;
3588                 if ((cast_type == RTN_BROADCAST) ||
3589                     (cast_type == RTN_MULTICAST) ||
3590                     (cast_type == RTN_ANYCAST))
3591                         return cast_type;
3592                 else
3593                         return RTN_UNSPEC;
3594         }
3595         /* try something else */
3596         if (skb->protocol == ETH_P_IPV6)
3597                 return (skb->nh.raw[24] == 0xff) ? RTN_MULTICAST : 0;
3598         else if (skb->protocol == ETH_P_IP)
3599                 return ((skb->nh.raw[16] & 0xf0) == 0xe0) ? RTN_MULTICAST : 0;
3600         /* ... */
3601         if (!memcmp(skb->data, skb->dev->broadcast, 6))
3602                 return RTN_BROADCAST;
3603         else {
3604                 u16 hdr_mac;
3605
3606                 hdr_mac = *((u16 *)skb->data);
3607                 /* tr multicast? */
3608                 switch (card->info.link_type) {
3609                 case QETH_LINK_TYPE_HSTR:
3610                 case QETH_LINK_TYPE_LANE_TR:
3611                         if ((hdr_mac == QETH_TR_MAC_NC) ||
3612                             (hdr_mac == QETH_TR_MAC_C))
3613                                 return RTN_MULTICAST;
3614                 /* eth or so multicast? */
3615                 default:
3616                         if ((hdr_mac == QETH_ETH_MAC_V4) ||
3617                             (hdr_mac == QETH_ETH_MAC_V6))
3618                                 return RTN_MULTICAST;
3619                 }
3620         }
3621         return cast_type;
3622 }
3623
3624 static inline int
3625 qeth_get_priority_queue(struct qeth_card *card, struct sk_buff *skb,
3626                         int ipv, int cast_type)
3627 {
3628         if (!ipv && (card->info.type == QETH_CARD_TYPE_OSAE))
3629                 return card->qdio.default_out_queue;
3630         switch (card->qdio.no_out_queues) {
3631         case 4:
3632                 if (cast_type && card->info.is_multicast_different)
3633                         return card->info.is_multicast_different &
3634                                 (card->qdio.no_out_queues - 1);
3635                 if (card->qdio.do_prio_queueing && (ipv == 4)) {
3636                         if (card->qdio.do_prio_queueing==QETH_PRIO_Q_ING_TOS){
3637                                 if (skb->nh.iph->tos & IP_TOS_NOTIMPORTANT)
3638                                         return 3;
3639                                 if (skb->nh.iph->tos & IP_TOS_HIGHRELIABILITY)
3640                                         return 2;
3641                                 if (skb->nh.iph->tos & IP_TOS_HIGHTHROUGHPUT)
3642                                         return 1;
3643                                 if (skb->nh.iph->tos & IP_TOS_LOWDELAY)
3644                                         return 0;
3645                         }
3646                         if (card->qdio.do_prio_queueing==QETH_PRIO_Q_ING_PREC)
3647                                 return 3 - (skb->nh.iph->tos >> 6);
3648                 } else if (card->qdio.do_prio_queueing && (ipv == 6)) {
3649                         /* TODO: IPv6!!! */
3650                 }
3651                 return card->qdio.default_out_queue;
3652         default:
3653                 return 0;
3654         }
3655 }
3656
3657 static inline int
3658 qeth_get_ip_version(struct sk_buff *skb)
3659 {
3660         switch (skb->protocol) {
3661         case ETH_P_IPV6:
3662                 return 6;
3663         case ETH_P_IP:
3664                 return 4;
3665         default:
3666                 return 0;
3667         }
3668 }
3669
3670 static inline int
3671 qeth_prepare_skb(struct qeth_card *card, struct sk_buff **skb,
3672                  struct qeth_hdr **hdr, int ipv)
3673 {
3674         struct sk_buff *new_skb;
3675 #ifdef CONFIG_QETH_VLAN
3676         u16 *tag;
3677 #endif
3678
3679         QETH_DBF_TEXT(trace, 6, "prepskb");
3680         if (skb_headroom(*skb) < sizeof(struct qeth_hdr)){
3681                 new_skb = skb_realloc_headroom(*skb, sizeof(struct qeth_hdr));
3682                 if (!new_skb) {
3683                         PRINT_ERR("qeth_prepare_skb: could "
3684                                   "not realloc headroom for qeth_hdr "
3685                                   "on interface %s", QETH_CARD_IFNAME(card));
3686                         return -ENOMEM;
3687                 }
3688                 *skb = new_skb;
3689         }
3690 #ifdef CONFIG_QETH_VLAN
3691         if (card->vlangrp && vlan_tx_tag_present(*skb) &&
3692             ((ipv == 6) || card->options.layer2) ) {
3693                 /*
3694                  * Move the mac addresses (6 bytes src, 6 bytes dest)
3695                  * to the beginning of the new header.  We are using three
3696                  * memcpys instead of one memmove to save cycles.
3697                  */
3698                 skb_push(*skb, VLAN_HLEN);
3699                 memcpy((*skb)->data, (*skb)->data + 4, 4);
3700                 memcpy((*skb)->data + 4, (*skb)->data + 8, 4);
3701                 memcpy((*skb)->data + 8, (*skb)->data + 12, 4);
3702                 tag = (u16 *)((*skb)->data + 12);
3703                 /*
3704                  * first two bytes  = ETH_P_8021Q (0x8100)
3705                  * second two bytes = VLANID
3706                  */
3707                 *tag = __constant_htons(ETH_P_8021Q);
3708                 *(tag + 1) = htons(vlan_tx_tag_get(*skb));
3709         }
3710 #endif
3711         *hdr = (struct qeth_hdr *) skb_push(*skb, sizeof(struct qeth_hdr));
3712         /*
3713          * sanity check, the Linux memory allocation scheme should
3714          * never present us cases like this one (the 32bytes header plus
3715          * the first 40 bytes of the paket cross a 4k boundary)
3716          */
3717         if ((((unsigned long) *hdr) & (~(PAGE_SIZE - 1))) !=
3718             (((unsigned long) *hdr + sizeof(struct qeth_hdr) +
3719               QETH_IP_HEADER_SIZE) & (~(PAGE_SIZE - 1)))) {
3720                 PRINT_ERR("qeth_prepare_skb: misaligned "
3721                           "packet on interface %s. Discarded.",
3722                           QETH_CARD_IFNAME(card));
3723                 return -EINVAL;
3724         }
3725         return 0;
3726 }
3727
3728 static inline u8
3729 qeth_get_qeth_hdr_flags4(int cast_type)
3730 {
3731         if (cast_type == RTN_MULTICAST)
3732                 return QETH_CAST_MULTICAST;
3733         if (cast_type == RTN_BROADCAST)
3734                 return QETH_CAST_BROADCAST;
3735         return QETH_CAST_UNICAST;
3736 }
3737
3738 static inline u8
3739 qeth_get_qeth_hdr_flags6(int cast_type)
3740 {
3741         u8 ct = QETH_HDR_PASSTHRU | QETH_HDR_IPV6;
3742         if (cast_type == RTN_MULTICAST)
3743                 return ct | QETH_CAST_MULTICAST;
3744         if (cast_type == RTN_ANYCAST)
3745                 return ct | QETH_CAST_ANYCAST;
3746         if (cast_type == RTN_BROADCAST)
3747                 return ct | QETH_CAST_BROADCAST;
3748         return ct | QETH_CAST_UNICAST;
3749 }
3750
3751 static inline void
3752 qeth_layer2_get_packet_type(struct qeth_card *card, struct qeth_hdr *hdr,
3753                             struct sk_buff *skb)
3754 {
3755         __u16 hdr_mac;
3756
3757         if (!memcmp(skb->data+QETH_HEADER_SIZE,
3758                     skb->dev->broadcast,6)) { /* broadcast? */
3759                 *(__u32 *)hdr->hdr.l2.flags |=
3760                          QETH_LAYER2_FLAG_BROADCAST << 8;
3761                 return;
3762         }
3763         hdr_mac=*((__u16*)skb->data);
3764         /* tr multicast? */
3765         switch (card->info.link_type) {
3766         case QETH_LINK_TYPE_HSTR:
3767         case QETH_LINK_TYPE_LANE_TR:
3768                 if ((hdr_mac == QETH_TR_MAC_NC) ||
3769                     (hdr_mac == QETH_TR_MAC_C) )
3770                         *(__u32 *)hdr->hdr.l2.flags |=
3771                                 QETH_LAYER2_FLAG_MULTICAST << 8;
3772                 else
3773                         *(__u32 *)hdr->hdr.l2.flags |=
3774                                 QETH_LAYER2_FLAG_UNICAST << 8;
3775                 break;
3776                 /* eth or so multicast? */
3777         default:
3778                 if ( (hdr_mac==QETH_ETH_MAC_V4) ||
3779                      (hdr_mac==QETH_ETH_MAC_V6) )
3780                         *(__u32 *)hdr->hdr.l2.flags |=
3781                                 QETH_LAYER2_FLAG_MULTICAST << 8;
3782                 else
3783                         *(__u32 *)hdr->hdr.l2.flags |=
3784                                 QETH_LAYER2_FLAG_UNICAST << 8;
3785         }
3786 }
3787
3788 static inline void
3789 qeth_layer2_fill_header(struct qeth_card *card, struct qeth_hdr *hdr,
3790                         struct sk_buff *skb, int cast_type)
3791 {
3792         memset(hdr, 0, sizeof(struct qeth_hdr));
3793         hdr->hdr.l2.id = QETH_HEADER_TYPE_LAYER2;
3794
3795         /* set byte 0 to "0x02" and byte 3 to casting flags */
3796         if (cast_type==RTN_MULTICAST)
3797                 *(__u32 *)hdr->hdr.l2.flags |= QETH_LAYER2_FLAG_MULTICAST << 8;
3798         else if (cast_type==RTN_BROADCAST)
3799                 *(__u32 *)hdr->hdr.l2.flags |= QETH_LAYER2_FLAG_BROADCAST << 8;
3800          else
3801                 qeth_layer2_get_packet_type(card, hdr, skb);
3802
3803         hdr->hdr.l2.pkt_length = skb->len-QETH_HEADER_SIZE;
3804 #ifdef CONFIG_QETH_VLAN
3805         /* VSWITCH relies on the VLAN
3806          * information to be present in
3807          * the QDIO header */
3808         if ((card->vlangrp != NULL) &&
3809             vlan_tx_tag_present(skb)) {
3810                 *(__u32 *)hdr->hdr.l2.flags |= QETH_LAYER2_FLAG_VLAN << 8;
3811                 hdr->hdr.l2.vlan_id = vlan_tx_tag_get(skb);
3812         }
3813 #endif
3814 }
3815
3816 static inline void
3817 qeth_fill_header(struct qeth_card *card, struct qeth_hdr *hdr,
3818                 struct sk_buff *skb, int ipv, int cast_type)
3819 {
3820         QETH_DBF_TEXT(trace, 6, "fillhdr");
3821
3822         if (card->options.layer2) {
3823                 qeth_layer2_fill_header(card, hdr, skb, cast_type);
3824                 return;
3825         }
3826         hdr->hdr.l3.id = QETH_HEADER_TYPE_LAYER3;
3827         hdr->hdr.l3.ext_flags = 0;
3828 #ifdef CONFIG_QETH_VLAN
3829         /*
3830          * before we're going to overwrite this location with next hop ip.
3831          * v6 uses passthrough, v4 sets the tag in the QDIO header.
3832          */
3833         if (card->vlangrp && vlan_tx_tag_present(skb)) {
3834                 hdr->hdr.l3.ext_flags = (ipv == 4) ?
3835                         QETH_HDR_EXT_VLAN_FRAME :
3836                         QETH_HDR_EXT_INCLUDE_VLAN_TAG;
3837                 hdr->hdr.l3.vlan_id = vlan_tx_tag_get(skb);
3838         }
3839 #endif /* CONFIG_QETH_VLAN */
3840         hdr->hdr.l3.length = skb->len - sizeof(struct qeth_hdr);
3841         if (ipv == 4) {  /* IPv4 */
3842                 hdr->hdr.l3.flags = qeth_get_qeth_hdr_flags4(cast_type);
3843                 memset(hdr->hdr.l3.dest_addr, 0, 12);
3844                 if ((skb->dst) && (skb->dst->neighbour)) {
3845                         *((u32 *) (&hdr->hdr.l3.dest_addr[12])) =
3846                             *((u32 *) skb->dst->neighbour->primary_key);
3847                 } else {
3848                         /* fill in destination address used in ip header */
3849                         *((u32 *) (&hdr->hdr.l3.dest_addr[12])) = skb->nh.iph->daddr;
3850                 }
3851         } else if (ipv == 6) { /* IPv6 or passthru */
3852                 hdr->hdr.l3.flags = qeth_get_qeth_hdr_flags6(cast_type);
3853                 if ((skb->dst) && (skb->dst->neighbour)) {
3854                         memcpy(hdr->hdr.l3.dest_addr,
3855                                skb->dst->neighbour->primary_key, 16);
3856                 } else {
3857                         /* fill in destination address used in ip header */
3858                         memcpy(hdr->hdr.l3.dest_addr, &skb->nh.ipv6h->daddr, 16);
3859                 }
3860         } else { /* passthrough */
3861                 if (!memcmp(skb->data + sizeof(struct qeth_hdr),
3862                             skb->dev->broadcast, 6)) {   /* broadcast? */
3863                         hdr->hdr.l3.flags = QETH_CAST_BROADCAST | QETH_HDR_PASSTHRU;
3864                 } else {
3865                         hdr->hdr.l3.flags = (cast_type == RTN_MULTICAST) ?
3866                                 QETH_CAST_MULTICAST | QETH_HDR_PASSTHRU :
3867                                 QETH_CAST_UNICAST | QETH_HDR_PASSTHRU;
3868                 }
3869         }
3870 }
3871
3872 static inline int
3873 qeth_fill_buffer(struct qeth_qdio_out_q *queue, struct qeth_qdio_out_buffer *buf,
3874                  char *data, struct sk_buff *skb)
3875 {
3876         struct qdio_buffer *buffer;
3877         int length = skb->len;
3878         int length_here;
3879         int element;
3880         int first_lap = 1;
3881
3882         QETH_DBF_TEXT(trace, 6, "qdfillbf");
3883         buffer = buf->buffer;
3884         atomic_inc(&skb->users);
3885         skb_queue_tail(&buf->skb_list, skb);
3886         element = buf->next_element_to_fill;
3887         while (length > 0) {
3888                 /* length_here is the remaining amount of data in this page */
3889                 length_here = PAGE_SIZE - ((unsigned long) data % PAGE_SIZE);
3890                 if (length < length_here)
3891                         length_here = length;
3892                 buffer->element[element].addr = data;
3893                 buffer->element[element].length = length_here;
3894                 length -= length_here;
3895                 if (!length){
3896                         if (first_lap)
3897                                 buffer->element[element].flags = 0;
3898                         else
3899                                 buffer->element[element].flags =
3900                                     SBAL_FLAGS_LAST_FRAG;
3901                 } else {
3902                         if (first_lap)
3903                                 buffer->element[element].flags =
3904                                     SBAL_FLAGS_FIRST_FRAG;
3905                         else
3906                                 buffer->element[element].flags =
3907                                     SBAL_FLAGS_MIDDLE_FRAG;
3908                 }
3909                 data += length_here;
3910                 element++;
3911                 first_lap = 0;
3912         }
3913         buf->next_element_to_fill = element;
3914         if (!queue->do_pack) {
3915                 QETH_DBF_TEXT(trace, 6, "fillbfnp");
3916                 /* set state to PRIMED -> will be flushed */
3917                 atomic_set(&buf->state, QETH_QDIO_BUF_PRIMED);
3918         } else {
3919                 QETH_DBF_TEXT(trace, 6, "fillbfpa");
3920 #ifdef CONFIG_QETH_PERF_STATS
3921                 queue->card->perf_stats.skbs_sent_pack++;
3922 #endif
3923                 if (buf->next_element_to_fill >=
3924                                 QETH_MAX_BUFFER_ELEMENTS(queue->card)) {
3925                         /*
3926                          * packed buffer if full -> set state PRIMED
3927                          * -> will be flushed
3928                          */
3929                         atomic_set(&buf->state, QETH_QDIO_BUF_PRIMED);
3930                 }
3931         }
3932         return 0;
3933 }
3934
3935 static inline int
3936 qeth_do_send_packet_fast(struct qeth_card *card, struct qeth_qdio_out_q *queue,
3937                          struct sk_buff *skb, struct qeth_hdr *hdr,
3938                          int elements_needed)
3939 {
3940         struct qeth_qdio_out_buffer *buffer;
3941         int index;
3942
3943         QETH_DBF_TEXT(trace, 6, "dosndpfa");
3944
3945         /* spin until we get the queue ... */
3946         while (atomic_compare_and_swap(QETH_OUT_Q_UNLOCKED,
3947                                        QETH_OUT_Q_LOCKED,
3948                                        &queue->state));
3949         /* ... now we've got the queue */
3950         index = queue->next_buf_to_fill;
3951         buffer = &queue->bufs[queue->next_buf_to_fill];
3952         /*
3953          * check if buffer is empty to make sure that we do not 'overtake'
3954          * ourselves and try to fill a buffer that is already primed
3955          */
3956         if (atomic_read(&buffer->state) != QETH_QDIO_BUF_EMPTY) {
3957                 card->stats.tx_dropped++;
3958                 atomic_set(&queue->state, QETH_OUT_Q_UNLOCKED);
3959                 return -EBUSY;
3960         }
3961         queue->next_buf_to_fill = (queue->next_buf_to_fill + 1) %
3962                                   QDIO_MAX_BUFFERS_PER_Q;
3963         atomic_set(&queue->state, QETH_OUT_Q_UNLOCKED);
3964         qeth_fill_buffer(queue, buffer, (char *)hdr, skb);
3965         qeth_flush_buffers(queue, 0, index, 1);
3966         return 0;
3967 }
3968
3969 static inline int
3970 qeth_do_send_packet(struct qeth_card *card, struct qeth_qdio_out_q *queue,
3971                     struct sk_buff *skb, struct qeth_hdr *hdr,
3972                     int elements_needed)
3973 {
3974         struct qeth_qdio_out_buffer *buffer;
3975         int start_index;
3976         int flush_count = 0;
3977         int rc = 0;
3978
3979         QETH_DBF_TEXT(trace, 6, "dosndpkt");
3980
3981         /* spin until we get the queue ... */
3982         while (atomic_compare_and_swap(QETH_OUT_Q_UNLOCKED,
3983                                        QETH_OUT_Q_LOCKED,
3984                                        &queue->state));
3985         start_index = queue->next_buf_to_fill;
3986         buffer = &queue->bufs[queue->next_buf_to_fill];
3987         /*
3988          * check if buffer is empty to make sure that we do not 'overtake'
3989          * ourselves and try to fill a buffer that is already primed
3990          */
3991         if (atomic_read(&buffer->state) != QETH_QDIO_BUF_EMPTY){
3992                 card->stats.tx_dropped++;
3993                 atomic_set(&queue->state, QETH_OUT_Q_UNLOCKED);
3994                 return -EBUSY;
3995         }
3996         /* check if we need to switch packing state of this queue */
3997         qeth_switch_to_packing_if_needed(queue);
3998         if (queue->do_pack){
3999                 /* does packet fit in current buffer? */
4000                 if((QETH_MAX_BUFFER_ELEMENTS(card) -
4001                     buffer->next_element_to_fill) < elements_needed){
4002                         /* ... no -> set state PRIMED */
4003                         atomic_set(&buffer->state, QETH_QDIO_BUF_PRIMED);
4004                         flush_count++;
4005                         queue->next_buf_to_fill =
4006                                 (queue->next_buf_to_fill + 1) %
4007                                 QDIO_MAX_BUFFERS_PER_Q;
4008                         buffer = &queue->bufs[queue->next_buf_to_fill];
4009                         /* we did a step forward, so check buffer state again */
4010                         if (atomic_read(&buffer->state) != QETH_QDIO_BUF_EMPTY){
4011                                 card->stats.tx_dropped++;
4012                                 /* return EBUSY because we sent old packet, not
4013                                  * the current one */
4014                                 rc = -EBUSY;
4015                                 atomic_set(&queue->state, QETH_OUT_Q_UNLOCKED);
4016                                 goto out;
4017                         }
4018                 }
4019         }
4020         qeth_fill_buffer(queue, buffer, (char *)hdr, skb);
4021         if (atomic_read(&buffer->state) == QETH_QDIO_BUF_PRIMED){
4022                 /* next time fill the next buffer */
4023                 flush_count++;
4024                 queue->next_buf_to_fill = (queue->next_buf_to_fill + 1) %
4025                         QDIO_MAX_BUFFERS_PER_Q;
4026         }
4027         /*
4028          * queue->state will go from LOCKED -> UNLOCKED or from
4029          * LOCKED_FLUSH -> LOCKED if output_handler wanted to 'notify' us
4030          * (switch packing state or flush buffer to get another pci flag out).
4031          * In that case we will enter this loop
4032          */
4033         while (atomic_dec_return(&queue->state)){
4034                 /* check if we can go back to non-packing state */
4035                 flush_count += qeth_switch_to_nonpacking_if_needed(queue);
4036                 /*
4037                  * check if we need to flush a packing buffer to get a pci
4038                  * flag out on the queue
4039                  */
4040                 if (!flush_count && !atomic_read(&queue->set_pci_flags_count))
4041                         flush_count += qeth_flush_buffers_on_no_pci(queue);
4042         }
4043         /* at this point the queue is UNLOCKED again */
4044 out:
4045         if (flush_count)
4046                 qeth_flush_buffers(queue, 0, start_index, flush_count);
4047
4048         return rc;
4049 }
4050
4051 static inline int
4052 qeth_send_packet(struct qeth_card *card, struct sk_buff *skb)
4053 {
4054         int ipv = 0;
4055         int cast_type;
4056         struct qeth_qdio_out_q *queue;
4057         struct qeth_hdr *hdr;
4058         int elements_needed;
4059         int rc;
4060
4061         QETH_DBF_TEXT(trace, 6, "sendpkt");
4062
4063         if (!card->options.layer2)
4064                 ipv = qeth_get_ip_version(skb);
4065         cast_type = qeth_get_cast_type(card, skb);
4066         queue = card->qdio.out_qs
4067                 [qeth_get_priority_queue(card, skb, ipv, cast_type)];
4068
4069         if ((rc = qeth_prepare_skb(card, &skb, &hdr, ipv))){
4070                 QETH_DBF_TEXT_(trace, 4, "1err%d", rc);
4071                 return rc;
4072         }
4073         qeth_fill_header(card, hdr, skb, ipv, cast_type);
4074         elements_needed = 1 + (((((unsigned long) hdr) % PAGE_SIZE) + skb->len)
4075                                 >> PAGE_SHIFT);
4076         if (elements_needed > QETH_MAX_BUFFER_ELEMENTS(card)){
4077                 PRINT_ERR("qeth_do_send_packet: invalid size of "
4078                                  "IP packet. Discarded.");
4079                 return -EINVAL;
4080         }
4081
4082         if (card->info.type != QETH_CARD_TYPE_IQD)
4083                 rc = qeth_do_send_packet(card, queue, skb, hdr,
4084                                          elements_needed);
4085         else
4086                 rc = qeth_do_send_packet_fast(card, queue, skb, hdr,
4087                                               elements_needed);
4088
4089         if (!rc){
4090                 card->stats.tx_packets++;
4091                 card->stats.tx_bytes += skb->len;
4092         }
4093         return rc;
4094 }
4095
4096 static int
4097 qeth_mdio_read(struct net_device *dev, int phy_id, int regnum)
4098 {
4099         struct qeth_card *card = (struct qeth_card *) dev->priv;
4100         int rc = 0;
4101
4102         switch(regnum){
4103         case MII_BMCR: /* Basic mode control register */
4104                 rc = BMCR_FULLDPLX;
4105                 if ((card->info.link_type != QETH_LINK_TYPE_GBIT_ETH)&&
4106                     (card->info.link_type != QETH_LINK_TYPE_10GBIT_ETH))
4107                         rc |= BMCR_SPEED100;
4108                 break;
4109         case MII_BMSR: /* Basic mode status register */
4110                 rc = BMSR_ERCAP | BMSR_ANEGCOMPLETE | BMSR_LSTATUS |
4111                      BMSR_10HALF | BMSR_10FULL | BMSR_100HALF | BMSR_100FULL |
4112                      BMSR_100BASE4;
4113                 break;
4114         case MII_PHYSID1: /* PHYS ID 1 */
4115                 rc = (dev->dev_addr[0] << 16) | (dev->dev_addr[1] << 8) |
4116                      dev->dev_addr[2];
4117                 rc = (rc >> 5) & 0xFFFF;
4118                 break;
4119         case MII_PHYSID2: /* PHYS ID 2 */
4120                 rc = (dev->dev_addr[2] << 10) & 0xFFFF;
4121                 break;
4122         case MII_ADVERTISE: /* Advertisement control reg */
4123                 rc = ADVERTISE_ALL;
4124                 break;
4125         case MII_LPA: /* Link partner ability reg */
4126                 rc = LPA_10HALF | LPA_10FULL | LPA_100HALF | LPA_100FULL |
4127                      LPA_100BASE4 | LPA_LPACK;
4128                 break;
4129         case MII_EXPANSION: /* Expansion register */
4130                 break;
4131         case MII_DCOUNTER: /* disconnect counter */
4132                 break;
4133         case MII_FCSCOUNTER: /* false carrier counter */
4134                 break;
4135         case MII_NWAYTEST: /* N-way auto-neg test register */
4136                 break;
4137         case MII_RERRCOUNTER: /* rx error counter */
4138                 rc = card->stats.rx_errors;
4139                 break;
4140         case MII_SREVISION: /* silicon revision */
4141                 break;
4142         case MII_RESV1: /* reserved 1 */
4143                 break;
4144         case MII_LBRERROR: /* loopback, rx, bypass error */
4145                 break;
4146         case MII_PHYADDR: /* physical address */
4147                 break;
4148         case MII_RESV2: /* reserved 2 */
4149                 break;
4150         case MII_TPISTATUS: /* TPI status for 10mbps */
4151                 break;
4152         case MII_NCONFIG: /* network interface config */
4153                 break;
4154         default:
4155                 rc = 0;
4156                 break;
4157         }
4158         return rc;
4159 }
4160
4161 static void
4162 qeth_mdio_write(struct net_device *dev, int phy_id, int regnum, int value)
4163 {
4164         switch(regnum){
4165         case MII_BMCR: /* Basic mode control register */
4166         case MII_BMSR: /* Basic mode status register */
4167         case MII_PHYSID1: /* PHYS ID 1 */
4168         case MII_PHYSID2: /* PHYS ID 2 */
4169         case MII_ADVERTISE: /* Advertisement control reg */
4170         case MII_LPA: /* Link partner ability reg */
4171         case MII_EXPANSION: /* Expansion register */
4172         case MII_DCOUNTER: /* disconnect counter */
4173         case MII_FCSCOUNTER: /* false carrier counter */
4174         case MII_NWAYTEST: /* N-way auto-neg test register */
4175         case MII_RERRCOUNTER: /* rx error counter */
4176         case MII_SREVISION: /* silicon revision */
4177         case MII_RESV1: /* reserved 1 */
4178         case MII_LBRERROR: /* loopback, rx, bypass error */
4179         case MII_PHYADDR: /* physical address */
4180         case MII_RESV2: /* reserved 2 */
4181         case MII_TPISTATUS: /* TPI status for 10mbps */
4182         case MII_NCONFIG: /* network interface config */
4183         default:
4184                 break;
4185         }
4186 }
4187
4188 static inline const char *
4189 qeth_arp_get_error_cause(int *rc)
4190 {
4191         switch (*rc) {
4192         case QETH_IPA_ARP_RC_FAILED:
4193                 *rc = -EIO;
4194                 return "operation failed";
4195         case QETH_IPA_ARP_RC_NOTSUPP:
4196                 *rc = -EOPNOTSUPP;
4197                 return "operation not supported";
4198         case QETH_IPA_ARP_RC_OUT_OF_RANGE:
4199                 *rc = -EINVAL;
4200                 return "argument out of range";
4201         case QETH_IPA_ARP_RC_Q_NOTSUPP:
4202                 *rc = -EOPNOTSUPP;
4203                 return "query operation not supported";
4204         case QETH_IPA_ARP_RC_Q_NO_DATA:
4205                 *rc = -ENOENT;
4206                 return "no query data available";
4207         default:
4208                 return "unknown error";
4209         }
4210 }
4211
4212 static int
4213 qeth_send_simple_setassparms(struct qeth_card *, enum qeth_ipa_funcs,
4214                              __u16, long);
4215
4216 static int
4217 qeth_arp_set_no_entries(struct qeth_card *card, int no_entries)
4218 {
4219         int tmp;
4220         int rc;
4221
4222         QETH_DBF_TEXT(trace,3,"arpstnoe");
4223
4224         /* TODO: really not supported by GuestLAN? */
4225         if (card->info.guestlan)
4226                 return -EOPNOTSUPP;
4227         if (!qeth_is_supported(card,IPA_ARP_PROCESSING)) {
4228                 PRINT_WARN("ARP processing not supported "
4229                            "on %s!\n", QETH_CARD_IFNAME(card));
4230                 return -EOPNOTSUPP;
4231         }
4232         rc = qeth_send_simple_setassparms(card, IPA_ARP_PROCESSING,
4233                                           IPA_CMD_ASS_ARP_SET_NO_ENTRIES,
4234                                           no_entries);
4235         if (rc) {
4236                 tmp = rc;
4237                 PRINT_WARN("Could not set number of ARP entries on %s: "
4238                            "%s (0x%x/%d)\n",
4239                            QETH_CARD_IFNAME(card), qeth_arp_get_error_cause(&rc),
4240                            tmp, tmp);
4241         }
4242         return rc;
4243 }
4244
4245 static inline void
4246 qeth_copy_arp_entries_stripped(struct qeth_arp_query_info *qinfo,
4247                                struct qeth_arp_query_data *qdata,
4248                                int entry_size, int uentry_size)
4249 {
4250         char *entry_ptr;
4251         char *uentry_ptr;
4252         int i;
4253
4254         entry_ptr = (char *)&qdata->data;
4255         uentry_ptr = (char *)(qinfo->udata + qinfo->udata_offset);
4256         for (i = 0; i < qdata->no_entries; ++i){
4257                 /* strip off 32 bytes "media specific information" */
4258                 memcpy(uentry_ptr, (entry_ptr + 32), entry_size - 32);
4259                 entry_ptr += entry_size;
4260                 uentry_ptr += uentry_size;
4261         }
4262 }
4263
4264 static int
4265 qeth_arp_query_cb(struct qeth_card *card, struct qeth_reply *reply,
4266                   unsigned long data)
4267 {
4268         struct qeth_ipa_cmd *cmd;
4269         struct qeth_arp_query_data *qdata;
4270         struct qeth_arp_query_info *qinfo;
4271         int entry_size;
4272         int uentry_size;
4273         int i;
4274
4275         QETH_DBF_TEXT(trace,4,"arpquecb");
4276
4277         qinfo = (struct qeth_arp_query_info *) reply->param;
4278         cmd = (struct qeth_ipa_cmd *) data;
4279         if (cmd->hdr.return_code) {
4280                 QETH_DBF_TEXT_(trace,4,"qaer1%i", cmd->hdr.return_code);
4281                 return 0;
4282         }
4283         if (cmd->data.setassparms.hdr.return_code) {
4284                 cmd->hdr.return_code = cmd->data.setassparms.hdr.return_code;
4285                 QETH_DBF_TEXT_(trace,4,"qaer2%i", cmd->hdr.return_code);
4286                 return 0;
4287         }
4288         qdata = &cmd->data.setassparms.data.query_arp;
4289         switch(qdata->reply_bits){
4290         case 5:
4291                 uentry_size = entry_size = sizeof(struct qeth_arp_qi_entry5);
4292                 if (qinfo->mask_bits & QETH_QARP_STRIP_ENTRIES)
4293                         uentry_size = sizeof(struct qeth_arp_qi_entry5_short);
4294                 break;
4295         case 7:
4296                 /* fall through to default */
4297         default:
4298                 /* tr is the same as eth -> entry7 */
4299                 uentry_size = entry_size = sizeof(struct qeth_arp_qi_entry7);
4300                 if (qinfo->mask_bits & QETH_QARP_STRIP_ENTRIES)
4301                         uentry_size = sizeof(struct qeth_arp_qi_entry7_short);
4302                 break;
4303         }
4304         /* check if there is enough room in userspace */
4305         if ((qinfo->udata_len - qinfo->udata_offset) <
4306                         qdata->no_entries * uentry_size){
4307                 QETH_DBF_TEXT_(trace, 4, "qaer3%i", -ENOMEM);
4308                 cmd->hdr.return_code = -ENOMEM;
4309                 PRINT_WARN("query ARP user space buffer is too small for "
4310                            "the returned number of ARP entries. "
4311                            "Aborting query!\n");
4312                 goto out_error;
4313         }
4314         QETH_DBF_TEXT_(trace, 4, "anore%i",
4315                        cmd->data.setassparms.hdr.number_of_replies);
4316         QETH_DBF_TEXT_(trace, 4, "aseqn%i", cmd->data.setassparms.hdr.seq_no);
4317         QETH_DBF_TEXT_(trace, 4, "anoen%i", qdata->no_entries);
4318
4319         if (qinfo->mask_bits & QETH_QARP_STRIP_ENTRIES) {
4320                 /* strip off "media specific information" */
4321                 qeth_copy_arp_entries_stripped(qinfo, qdata, entry_size,
4322                                                uentry_size);
4323         } else
4324                 /*copy entries to user buffer*/
4325                 memcpy(qinfo->udata + qinfo->udata_offset,
4326                        (char *)&qdata->data, qdata->no_entries*uentry_size);
4327
4328         qinfo->no_entries += qdata->no_entries;
4329         qinfo->udata_offset += (qdata->no_entries*uentry_size);
4330         /* check if all replies received ... */
4331         if (cmd->data.setassparms.hdr.seq_no <
4332             cmd->data.setassparms.hdr.number_of_replies)
4333                 return 1;
4334         memcpy(qinfo->udata, &qinfo->no_entries, 4);
4335         /* keep STRIP_ENTRIES flag so the user program can distinguish
4336          * stripped entries from normal ones */
4337         if (qinfo->mask_bits & QETH_QARP_STRIP_ENTRIES)
4338                 qdata->reply_bits |= QETH_QARP_STRIP_ENTRIES;
4339         memcpy(qinfo->udata + QETH_QARP_MASK_OFFSET,&qdata->reply_bits,2);
4340         return 0;
4341 out_error:
4342         i = 0;
4343         memcpy(qinfo->udata, &i, 4);
4344         return 0;
4345 }
4346
4347 static int
4348 qeth_send_ipa_arp_cmd(struct qeth_card *card, struct qeth_cmd_buffer *iob,
4349                       int len, int (*reply_cb)(struct qeth_card *,
4350                                                struct qeth_reply *,
4351                                                unsigned long),
4352                       void *reply_param)
4353 {
4354         QETH_DBF_TEXT(trace,4,"sendarp");
4355
4356         memcpy(iob->data, IPA_PDU_HEADER, IPA_PDU_HEADER_SIZE);
4357         memcpy(QETH_IPA_CMD_DEST_ADDR(iob->data),
4358                &card->token.ulp_connection_r, QETH_MPC_TOKEN_LENGTH);
4359         return qeth_send_control_data(card, IPA_PDU_HEADER_SIZE + len, iob,
4360                                       reply_cb, reply_param);
4361 }
4362
4363 static int
4364 qeth_send_ipa_snmp_cmd(struct qeth_card *card, struct qeth_cmd_buffer *iob,
4365                       int len, int (*reply_cb)(struct qeth_card *,
4366                                                struct qeth_reply *,
4367                                                unsigned long),
4368                       void *reply_param)
4369 {
4370         u16 s1, s2;
4371
4372         QETH_DBF_TEXT(trace,4,"sendsnmp");
4373
4374         memcpy(iob->data, IPA_PDU_HEADER, IPA_PDU_HEADER_SIZE);
4375         memcpy(QETH_IPA_CMD_DEST_ADDR(iob->data),
4376                &card->token.ulp_connection_r, QETH_MPC_TOKEN_LENGTH);
4377         /* adjust PDU length fields in IPA_PDU_HEADER */
4378         s1 = (u32) IPA_PDU_HEADER_SIZE + len;
4379         s2 = (u32) len;
4380         memcpy(QETH_IPA_PDU_LEN_TOTAL(iob->data), &s1, 2);
4381         memcpy(QETH_IPA_PDU_LEN_PDU1(iob->data), &s2, 2);
4382         memcpy(QETH_IPA_PDU_LEN_PDU2(iob->data), &s2, 2);
4383         memcpy(QETH_IPA_PDU_LEN_PDU3(iob->data), &s2, 2);
4384         return qeth_send_control_data(card, IPA_PDU_HEADER_SIZE + len, iob,
4385                                       reply_cb, reply_param);
4386 }
4387
4388 static struct qeth_cmd_buffer *
4389 qeth_get_setassparms_cmd(struct qeth_card *, enum qeth_ipa_funcs,
4390                          __u16, __u16, enum qeth_prot_versions);
4391 static int
4392 qeth_arp_query(struct qeth_card *card, char *udata)
4393 {
4394         struct qeth_cmd_buffer *iob;
4395         struct qeth_arp_query_info qinfo = {0, };
4396         int tmp;
4397         int rc;
4398
4399         QETH_DBF_TEXT(trace,3,"arpquery");
4400
4401         /*
4402          * currently GuestLAN  does only deliver all zeros on query arp,
4403          * even though arp processing is supported (according to IPA supp.
4404          * funcs flags); since all zeros is no valueable information,
4405          * we say EOPNOTSUPP for all ARP functions
4406          */
4407         /*if (card->info.guestlan)
4408                 return -EOPNOTSUPP; */
4409         if (!qeth_is_supported(card,/*IPA_QUERY_ARP_ADDR_INFO*/
4410                                IPA_ARP_PROCESSING)) {
4411                 PRINT_WARN("ARP processing not supported "
4412                            "on %s!\n", QETH_CARD_IFNAME(card));
4413                 return -EOPNOTSUPP;
4414         }
4415         /* get size of userspace buffer and mask_bits -> 6 bytes */
4416         if (copy_from_user(&qinfo, udata, 6))
4417                 return -EFAULT;
4418         if (!(qinfo.udata = kmalloc(qinfo.udata_len, GFP_KERNEL)))
4419                 return -ENOMEM;
4420         memset(qinfo.udata, 0, qinfo.udata_len);
4421         qinfo.udata_offset = QETH_QARP_ENTRIES_OFFSET;
4422         iob = qeth_get_setassparms_cmd(card, IPA_ARP_PROCESSING,
4423                                        IPA_CMD_ASS_ARP_QUERY_INFO,
4424                                        sizeof(int),QETH_PROT_IPV4);
4425
4426         rc = qeth_send_ipa_arp_cmd(card, iob,
4427                                    QETH_SETASS_BASE_LEN+QETH_ARP_CMD_LEN,
4428                                    qeth_arp_query_cb, (void *)&qinfo);
4429         if (rc) {
4430                 tmp = rc;
4431                 PRINT_WARN("Error while querying ARP cache on %s: %s "
4432                            "(0x%x/%d)\n",
4433                            QETH_CARD_IFNAME(card), qeth_arp_get_error_cause(&rc),
4434                            tmp, tmp);
4435                 copy_to_user(udata, qinfo.udata, 4);
4436         } else {
4437                 copy_to_user(udata, qinfo.udata, qinfo.udata_len);
4438         }
4439         kfree(qinfo.udata);
4440         return rc;
4441 }
4442
4443 /**
4444  * SNMP command callback
4445  */
4446 static int
4447 qeth_snmp_command_cb(struct qeth_card *card, struct qeth_reply *reply,
4448                      unsigned long sdata)
4449 {
4450         struct qeth_ipa_cmd *cmd;
4451         struct qeth_arp_query_info *qinfo;
4452         struct qeth_snmp_cmd *snmp;
4453         unsigned char *data;
4454         __u16 data_len;
4455
4456         QETH_DBF_TEXT(trace,3,"snpcmdcb");
4457
4458         cmd = (struct qeth_ipa_cmd *) sdata;
4459         data = (unsigned char *)((char *)cmd - reply->offset);
4460         qinfo = (struct qeth_arp_query_info *) reply->param;
4461         snmp = &cmd->data.setadapterparms.data.snmp;
4462
4463         if (cmd->hdr.return_code) {
4464                 QETH_DBF_TEXT_(trace,4,"scer1%i", cmd->hdr.return_code);
4465                 return 0;
4466         }
4467         if (cmd->data.setadapterparms.hdr.return_code) {
4468                 cmd->hdr.return_code = cmd->data.setadapterparms.hdr.return_code;
4469                 QETH_DBF_TEXT_(trace,4,"scer2%i", cmd->hdr.return_code);
4470                 return 0;
4471         }
4472         data_len = *((__u16*)QETH_IPA_PDU_LEN_PDU1(data));
4473         if (cmd->data.setadapterparms.hdr.seq_no == 1)
4474                 data_len -= (__u16)((char *)&snmp->data - (char *)cmd);
4475         else
4476                 data_len -= (__u16)((char*)&snmp->request - (char *)cmd);
4477
4478         /* check if there is enough room in userspace */
4479         if ((qinfo->udata_len - qinfo->udata_offset) < data_len) {
4480                 QETH_DBF_TEXT_(trace, 4, "scer3%i", -ENOMEM);
4481                 cmd->hdr.return_code = -ENOMEM;
4482                 return 0;
4483         }
4484         QETH_DBF_TEXT_(trace, 4, "snore%i",
4485                        cmd->data.setadapterparms.hdr.used_total);
4486         QETH_DBF_TEXT_(trace, 4, "sseqn%i", cmd->data.setadapterparms.hdr.seq_no);
4487         /*copy entries to user buffer*/
4488         if (cmd->data.setadapterparms.hdr.seq_no == 1) {
4489                 memcpy(qinfo->udata + qinfo->udata_offset,
4490                        (char *)snmp,
4491                        data_len + offsetof(struct qeth_snmp_cmd,data));
4492                 qinfo->udata_offset += offsetof(struct qeth_snmp_cmd, data);
4493         } else {
4494                 memcpy(qinfo->udata + qinfo->udata_offset,
4495                        (char *)&snmp->request, data_len);
4496         }
4497         qinfo->udata_offset += data_len;
4498         /* check if all replies received ... */
4499                 QETH_DBF_TEXT_(trace, 4, "srtot%i",
4500                                cmd->data.setadapterparms.hdr.used_total);
4501                 QETH_DBF_TEXT_(trace, 4, "srseq%i",
4502                                cmd->data.setadapterparms.hdr.seq_no);
4503         if (cmd->data.setadapterparms.hdr.seq_no <
4504             cmd->data.setadapterparms.hdr.used_total)
4505                 return 1;
4506         return 0;
4507 }
4508
4509 static struct qeth_cmd_buffer *
4510 qeth_get_ipacmd_buffer(struct qeth_card *, enum qeth_ipa_cmds,
4511                        enum qeth_prot_versions );
4512
4513 static struct qeth_cmd_buffer *
4514 qeth_get_adapter_cmd(struct qeth_card *card, __u32 command, __u32 cmdlen)
4515 {
4516         struct qeth_cmd_buffer *iob;
4517         struct qeth_ipa_cmd *cmd;
4518
4519         iob = qeth_get_ipacmd_buffer(card,IPA_CMD_SETADAPTERPARMS,
4520                                      QETH_PROT_IPV4);
4521         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
4522         cmd->data.setadapterparms.hdr.cmdlength = cmdlen;
4523         cmd->data.setadapterparms.hdr.command_code = command;
4524         cmd->data.setadapterparms.hdr.used_total = 1;
4525         cmd->data.setadapterparms.hdr.seq_no = 1;
4526
4527         return iob;
4528 }
4529
4530 /**
4531  * function to send SNMP commands to OSA-E card
4532  */
4533 static int
4534 qeth_snmp_command(struct qeth_card *card, char *udata)
4535 {
4536         struct qeth_cmd_buffer *iob;
4537         struct qeth_ipa_cmd *cmd;
4538         struct qeth_snmp_ureq *ureq;
4539         int req_len;
4540         struct qeth_arp_query_info qinfo = {0, };
4541         int rc = 0;
4542
4543         QETH_DBF_TEXT(trace,3,"snmpcmd");
4544
4545         if (card->info.guestlan)
4546                 return -EOPNOTSUPP;
4547
4548         if ((!qeth_adp_supported(card,IPA_SETADP_SET_SNMP_CONTROL)) &&
4549             (!card->options.layer2) ) {
4550                 PRINT_WARN("SNMP Query MIBS not supported "
4551                            "on %s!\n", QETH_CARD_IFNAME(card));
4552                 return -EOPNOTSUPP;
4553         }
4554         /* skip 4 bytes (data_len struct member) to get req_len */
4555         if (copy_from_user(&req_len, udata + sizeof(int), sizeof(int)))
4556                 return -EFAULT;
4557         ureq = kmalloc(req_len+sizeof(struct qeth_snmp_ureq_hdr), GFP_KERNEL);
4558         if (!ureq) {
4559                 QETH_DBF_TEXT(trace, 2, "snmpnome");
4560                 return -ENOMEM;
4561         }
4562         if (copy_from_user(ureq, udata,
4563                         req_len+sizeof(struct qeth_snmp_ureq_hdr))){
4564                 kfree(ureq);
4565                 return -EFAULT;
4566         }
4567         qinfo.udata_len = ureq->hdr.data_len;
4568         if (!(qinfo.udata = kmalloc(qinfo.udata_len, GFP_KERNEL))){
4569                 kfree(ureq);
4570                 return -ENOMEM;
4571         }
4572         memset(qinfo.udata, 0, qinfo.udata_len);
4573         qinfo.udata_offset = sizeof(struct qeth_snmp_ureq_hdr);
4574
4575         iob = qeth_get_adapter_cmd(card, IPA_SETADP_SET_SNMP_CONTROL,
4576                                    QETH_SNMP_SETADP_CMDLENGTH + req_len);
4577         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
4578         memcpy(&cmd->data.setadapterparms.data.snmp, &ureq->cmd, req_len);
4579         rc = qeth_send_ipa_snmp_cmd(card, iob, QETH_SETADP_BASE_LEN + req_len,
4580                                     qeth_snmp_command_cb, (void *)&qinfo);
4581         if (rc)
4582                 PRINT_WARN("SNMP command failed on %s: (0x%x)\n",
4583                            QETH_CARD_IFNAME(card), rc);
4584          else
4585                 copy_to_user(udata, qinfo.udata, qinfo.udata_len);
4586
4587         kfree(ureq);
4588         kfree(qinfo.udata);
4589         return rc;
4590 }
4591
4592 static int
4593 qeth_default_setassparms_cb(struct qeth_card *, struct qeth_reply *,
4594                             unsigned long);
4595
4596 static int
4597 qeth_send_setassparms(struct qeth_card *, struct qeth_cmd_buffer *,
4598                       __u16, long,
4599                       int (*reply_cb)
4600                       (struct qeth_card *, struct qeth_reply *, unsigned long),
4601                       void *reply_param);
4602
4603 static int
4604 qeth_arp_add_entry(struct qeth_card *card, struct qeth_arp_cache_entry *entry)
4605 {
4606         struct qeth_cmd_buffer *iob;
4607         char buf[16];
4608         int tmp;
4609         int rc;
4610
4611         QETH_DBF_TEXT(trace,3,"arpadent");
4612
4613         /*
4614          * currently GuestLAN  does only deliver all zeros on query arp,
4615          * even though arp processing is supported (according to IPA supp.
4616          * funcs flags); since all zeros is no valueable information,
4617          * we say EOPNOTSUPP for all ARP functions
4618          */
4619         if (card->info.guestlan)
4620                 return -EOPNOTSUPP;
4621         if (!qeth_is_supported(card,IPA_ARP_PROCESSING)) {
4622                 PRINT_WARN("ARP processing not supported "
4623                            "on %s!\n", QETH_CARD_IFNAME(card));
4624                 return -EOPNOTSUPP;
4625         }
4626
4627         iob = qeth_get_setassparms_cmd(card, IPA_ARP_PROCESSING,
4628                                        IPA_CMD_ASS_ARP_ADD_ENTRY,
4629                                        sizeof(struct qeth_arp_cache_entry),
4630                                        QETH_PROT_IPV4);
4631         rc = qeth_send_setassparms(card, iob,
4632                                    sizeof(struct qeth_arp_cache_entry),
4633                                    (unsigned long) entry,
4634                                    qeth_default_setassparms_cb, NULL);
4635         if (rc) {
4636                 tmp = rc;
4637                 qeth_ipaddr4_to_string((u8 *)entry->ipaddr, buf);
4638                 PRINT_WARN("Could not add ARP entry for address %s on %s: "
4639                            "%s (0x%x/%d)\n",
4640                            buf, QETH_CARD_IFNAME(card),
4641                            qeth_arp_get_error_cause(&rc), tmp, tmp);
4642         }
4643         return rc;
4644 }
4645
4646 static int
4647 qeth_arp_remove_entry(struct qeth_card *card, struct qeth_arp_cache_entry *entry)
4648 {
4649         struct qeth_cmd_buffer *iob;
4650         char buf[16] = {0, };
4651         int tmp;
4652         int rc;
4653
4654         QETH_DBF_TEXT(trace,3,"arprment");
4655
4656         /*
4657          * currently GuestLAN  does only deliver all zeros on query arp,
4658          * even though arp processing is supported (according to IPA supp.
4659          * funcs flags); since all zeros is no valueable information,
4660          * we say EOPNOTSUPP for all ARP functions
4661          */
4662         if (card->info.guestlan)
4663                 return -EOPNOTSUPP;
4664         if (!qeth_is_supported(card,IPA_ARP_PROCESSING)) {
4665                 PRINT_WARN("ARP processing not supported "
4666                            "on %s!\n", QETH_CARD_IFNAME(card));
4667                 return -EOPNOTSUPP;
4668         }
4669         memcpy(buf, entry, 12);
4670         iob = qeth_get_setassparms_cmd(card, IPA_ARP_PROCESSING,
4671                                        IPA_CMD_ASS_ARP_REMOVE_ENTRY,
4672                                        12,
4673                                        QETH_PROT_IPV4);
4674         rc = qeth_send_setassparms(card, iob,
4675                                    12, (unsigned long)buf,
4676                                    qeth_default_setassparms_cb, NULL);
4677         if (rc) {
4678                 tmp = rc;
4679                 memset(buf, 0, 16);
4680                 qeth_ipaddr4_to_string((u8 *)entry->ipaddr, buf);
4681                 PRINT_WARN("Could not delete ARP entry for address %s on %s: "
4682                            "%s (0x%x/%d)\n",
4683                            buf, QETH_CARD_IFNAME(card),
4684                            qeth_arp_get_error_cause(&rc), tmp, tmp);
4685         }
4686         return rc;
4687 }
4688
4689 static int
4690 qeth_arp_flush_cache(struct qeth_card *card)
4691 {
4692         int rc;
4693         int tmp;
4694
4695         QETH_DBF_TEXT(trace,3,"arpflush");
4696
4697         /*
4698          * currently GuestLAN  does only deliver all zeros on query arp,
4699          * even though arp processing is supported (according to IPA supp.
4700          * funcs flags); since all zeros is no valueable information,
4701          * we say EOPNOTSUPP for all ARP functions
4702          */
4703         if (card->info.guestlan || (card->info.type == QETH_CARD_TYPE_IQD))
4704                 return -EOPNOTSUPP;
4705         if (!qeth_is_supported(card,IPA_ARP_PROCESSING)) {
4706                 PRINT_WARN("ARP processing not supported "
4707                            "on %s!\n", QETH_CARD_IFNAME(card));
4708                 return -EOPNOTSUPP;
4709         }
4710         rc = qeth_send_simple_setassparms(card, IPA_ARP_PROCESSING,
4711                                           IPA_CMD_ASS_ARP_FLUSH_CACHE, 0);
4712         if (rc){
4713                 tmp = rc;
4714                 PRINT_WARN("Could not flush ARP cache on %s: %s (0x%x/%d)\n",
4715                            QETH_CARD_IFNAME(card), qeth_arp_get_error_cause(&rc),
4716                            tmp, tmp);
4717         }
4718         return rc;
4719 }
4720
4721 static int
4722 qeth_do_ioctl(struct net_device *dev, struct ifreq *rq, int cmd)
4723 {
4724         struct qeth_card *card = (struct qeth_card *)dev->priv;
4725         struct qeth_arp_cache_entry arp_entry;
4726         struct mii_ioctl_data *mii_data;
4727         int rc = 0;
4728
4729         if (!card)
4730                 return -ENODEV;
4731
4732         if ((card->state != CARD_STATE_UP) &&
4733             (card->state != CARD_STATE_SOFTSETUP))
4734                 return -ENODEV;
4735
4736         switch (cmd){
4737         case SIOC_QETH_ARP_SET_NO_ENTRIES:
4738                 if ( !capable(CAP_NET_ADMIN) ||
4739                      (card->options.layer2) ) {
4740                         rc = -EPERM;
4741                         break;
4742                 }
4743                 rc = qeth_arp_set_no_entries(card, rq->ifr_ifru.ifru_ivalue);
4744                 break;
4745         case SIOC_QETH_ARP_QUERY_INFO:
4746                 if ( !capable(CAP_NET_ADMIN) ||
4747                      (card->options.layer2) ) {
4748                         rc = -EPERM;
4749                         break;
4750                 }
4751                 rc = qeth_arp_query(card, rq->ifr_ifru.ifru_data);
4752                 break;
4753         case SIOC_QETH_ARP_ADD_ENTRY:
4754                 if ( !capable(CAP_NET_ADMIN) ||
4755                      (card->options.layer2) ) {
4756                         rc = -EPERM;
4757                         break;
4758                 }
4759                 if (copy_from_user(&arp_entry, rq->ifr_ifru.ifru_data,
4760                                    sizeof(struct qeth_arp_cache_entry)))
4761                         rc = -EFAULT;
4762                 else
4763                         rc = qeth_arp_add_entry(card, &arp_entry);
4764                 break;
4765         case SIOC_QETH_ARP_REMOVE_ENTRY:
4766                 if ( !capable(CAP_NET_ADMIN) ||
4767                      (card->options.layer2) ) {
4768                         rc = -EPERM;
4769                         break;
4770                 }
4771                 if (copy_from_user(&arp_entry, rq->ifr_ifru.ifru_data,
4772                                    sizeof(struct qeth_arp_cache_entry)))
4773                         rc = -EFAULT;
4774                 else
4775                         rc = qeth_arp_remove_entry(card, &arp_entry);
4776                 break;
4777         case SIOC_QETH_ARP_FLUSH_CACHE:
4778                 if ( !capable(CAP_NET_ADMIN) ||
4779                      (card->options.layer2) ) {
4780                         rc = -EPERM;
4781                         break;
4782                 }
4783                 rc = qeth_arp_flush_cache(card);
4784                 break;
4785         case SIOC_QETH_ADP_SET_SNMP_CONTROL:
4786                 rc = qeth_snmp_command(card, rq->ifr_ifru.ifru_data);
4787                 break;
4788         case SIOC_QETH_GET_CARD_TYPE:
4789                 if ((card->info.type == QETH_CARD_TYPE_OSAE) &&
4790                     !card->info.guestlan)
4791                         return 1;
4792                 return 0;
4793                 break;
4794         case SIOCGMIIPHY:
4795                 mii_data = if_mii(rq);
4796                 mii_data->phy_id = 0;
4797                 break;
4798         case SIOCGMIIREG:
4799                 mii_data = if_mii(rq);
4800                 if (mii_data->phy_id != 0)
4801                         rc = -EINVAL;
4802                 else
4803                         mii_data->val_out = qeth_mdio_read(dev,mii_data->phy_id,
4804                                                            mii_data->reg_num);
4805                 break;
4806         case SIOCSMIIREG:
4807                 rc = -EOPNOTSUPP;
4808                 break;
4809                 /* TODO: remove return if qeth_mdio_write does something */
4810                 if (!capable(CAP_NET_ADMIN)){
4811                         rc = -EPERM;
4812                         break;
4813                 }
4814                 mii_data = if_mii(rq);
4815                 if (mii_data->phy_id != 0)
4816                         rc = -EINVAL;
4817                 else
4818                         qeth_mdio_write(dev, mii_data->phy_id, mii_data->reg_num,
4819                                         mii_data->val_in);
4820                 break;
4821         default:
4822                 rc = -EOPNOTSUPP;
4823         }
4824         if (rc)
4825                 QETH_DBF_TEXT_(trace, 2, "ioce%d", rc);
4826         return rc;
4827 }
4828
4829 static struct net_device_stats *
4830 qeth_get_stats(struct net_device *dev)
4831 {
4832         struct qeth_card *card;
4833
4834         card = (struct qeth_card *) (dev->priv);
4835
4836         QETH_DBF_TEXT(trace,5,"getstat");
4837
4838         return &card->stats;
4839 }
4840
4841 static int
4842 qeth_change_mtu(struct net_device *dev, int new_mtu)
4843 {
4844         struct qeth_card *card;
4845         char dbf_text[15];
4846
4847         card = (struct qeth_card *) (dev->priv);
4848
4849         QETH_DBF_TEXT(trace,4,"chgmtu");
4850         sprintf(dbf_text, "%8x", new_mtu);
4851         QETH_DBF_TEXT(trace,4,dbf_text);
4852
4853         if (new_mtu < 64)
4854                 return -EINVAL;
4855         if (new_mtu > 65535)
4856                 return -EINVAL;
4857         if ((!qeth_is_supported(card,IPA_IP_FRAGMENTATION)) &&
4858             (!qeth_mtu_is_valid(card, new_mtu)))
4859                 return -EINVAL;
4860         dev->mtu = new_mtu;
4861         return 0;
4862 }
4863
4864 #ifdef CONFIG_QETH_VLAN
4865 static void
4866 qeth_vlan_rx_register(struct net_device *dev, struct vlan_group *grp)
4867 {
4868         struct qeth_card *card;
4869         unsigned long flags;
4870
4871         QETH_DBF_TEXT(trace,4,"vlanreg");
4872
4873         card = (struct qeth_card *) dev->priv;
4874         spin_lock_irqsave(&card->vlanlock, flags);
4875         card->vlangrp = grp;
4876         spin_unlock_irqrestore(&card->vlanlock, flags);
4877 }
4878
4879 static inline void
4880 qeth_free_vlan_buffer(struct qeth_card *card, struct qeth_qdio_out_buffer *buf,
4881                       unsigned short vid)
4882 {
4883         int i;
4884         struct sk_buff *skb;
4885         struct sk_buff_head tmp_list;
4886
4887         skb_queue_head_init(&tmp_list);
4888         for(i = 0; i < QETH_MAX_BUFFER_ELEMENTS(card); ++i){
4889                 while ((skb = skb_dequeue(&buf->skb_list))){
4890                         if (vlan_tx_tag_present(skb) &&
4891                             (vlan_tx_tag_get(skb) == vid)) {
4892                                 atomic_dec(&skb->users);
4893                                 dev_kfree_skb(skb);
4894                         } else
4895                                 skb_queue_tail(&tmp_list, skb);
4896                 }
4897         }
4898         while ((skb = skb_dequeue(&tmp_list)))
4899                 skb_queue_tail(&buf->skb_list, skb);
4900 }
4901
4902 static void
4903 qeth_free_vlan_skbs(struct qeth_card *card, unsigned short vid)
4904 {
4905         int i, j;
4906
4907         QETH_DBF_TEXT(trace, 4, "frvlskbs");
4908         for (i = 0; i < card->qdio.no_out_queues; ++i){
4909                 for (j = 0; j < QDIO_MAX_BUFFERS_PER_Q; ++j)
4910                         qeth_free_vlan_buffer(card, &card->qdio.
4911                                               out_qs[i]->bufs[j], vid);
4912         }
4913 }
4914
4915 static void
4916 qeth_free_vlan_addresses4(struct qeth_card *card, unsigned short vid)
4917 {
4918         struct in_device *in_dev;
4919         struct in_ifaddr *ifa;
4920         struct qeth_ipaddr *addr;
4921
4922         QETH_DBF_TEXT(trace, 4, "frvaddr4");
4923         if (!card->vlangrp)
4924                 return;
4925         rcu_read_lock();
4926         in_dev = __in_dev_get(card->vlangrp->vlan_devices[vid]);
4927         if (!in_dev)
4928                 goto out;
4929         for (ifa = in_dev->ifa_list; ifa; ifa = ifa->ifa_next) {
4930                 addr = qeth_get_addr_buffer(QETH_PROT_IPV4);
4931                 if (addr){
4932                         addr->u.a4.addr = ifa->ifa_address;
4933                         addr->u.a4.mask = ifa->ifa_mask;
4934                         addr->type = QETH_IP_TYPE_NORMAL;
4935                         if (!qeth_delete_ip(card, addr))
4936                                 kfree(addr);
4937                 }
4938         }
4939 out:
4940         rcu_read_unlock();
4941 }
4942
4943 static void
4944 qeth_free_vlan_addresses6(struct qeth_card *card, unsigned short vid)
4945 {
4946         struct inet6_dev *in6_dev;
4947         struct inet6_ifaddr *ifa;
4948         struct qeth_ipaddr *addr;
4949
4950         QETH_DBF_TEXT(trace, 4, "frvaddr6");
4951         if (!card->vlangrp)
4952                 return;
4953         in6_dev = in6_dev_get(card->vlangrp->vlan_devices[vid]);
4954         if (!in6_dev)
4955                 return;
4956         for (ifa = in6_dev->addr_list; ifa; ifa = ifa->lst_next){
4957                 addr = qeth_get_addr_buffer(QETH_PROT_IPV6);
4958                 if (addr){
4959                         memcpy(&addr->u.a6.addr, &ifa->addr,
4960                                sizeof(struct in6_addr));
4961                         addr->u.a6.pfxlen = ifa->prefix_len;
4962                         addr->type = QETH_IP_TYPE_NORMAL;
4963                         if (!qeth_delete_ip(card, addr))
4964                                 kfree(addr);
4965                 }
4966         }
4967         in6_dev_put(in6_dev);
4968 }
4969
4970 static void
4971 qeth_layer2_send_setdelvlan(struct qeth_card *card, __u16 i,
4972                             enum qeth_ipa_cmds ipacmd)
4973 {
4974         int rc;
4975         struct qeth_ipa_cmd *cmd;
4976         struct qeth_cmd_buffer *iob;
4977
4978         QETH_DBF_TEXT_(trace, 4, "L2sdv%x",ipacmd);
4979         iob = qeth_get_ipacmd_buffer(card, ipacmd, QETH_PROT_IPV4);
4980         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
4981         cmd->data.setdelvlan.vlan_id = i;
4982
4983         rc = qeth_send_ipa_cmd(card, iob, NULL, NULL);
4984         if (rc) {
4985                 PRINT_ERR("Error in processing VLAN %i on %s: 0x%x. "
4986                           "Continuing\n",i, QETH_CARD_IFNAME(card), rc);
4987                 QETH_DBF_TEXT_(trace, 2, "L2VL%4x", ipacmd);
4988                 QETH_DBF_TEXT_(trace, 2, "L2%s", CARD_BUS_ID(card));
4989                 QETH_DBF_TEXT_(trace, 2, "err%d", rc);
4990         }
4991 }
4992
4993 static void
4994 qeth_layer2_process_vlans(struct qeth_card *card, int clear)
4995 {
4996         unsigned short  i;
4997
4998         QETH_DBF_TEXT(trace, 3, "L2prcvln");
4999
5000         if (!card->vlangrp)
5001                 return;
5002         for (i = 0; i < VLAN_GROUP_ARRAY_LEN; i++) {
5003                 if (card->vlangrp->vlan_devices[i] == NULL)
5004                         continue;
5005                 if (clear)
5006                         qeth_layer2_send_setdelvlan(card, i, IPA_CMD_DELVLAN);
5007                 else
5008                         qeth_layer2_send_setdelvlan(card, i, IPA_CMD_SETVLAN);
5009         }
5010 }
5011
5012 /*add_vid is layer 2 used only ....*/
5013 static void
5014 qeth_vlan_rx_add_vid(struct net_device *dev, unsigned short vid)
5015 {
5016         struct qeth_card *card;
5017
5018         QETH_DBF_TEXT_(trace, 4, "aid:%d", vid);
5019
5020         card = (struct qeth_card *) dev->priv;
5021         if (!card->options.layer2)
5022                 return;
5023         qeth_layer2_send_setdelvlan(card, vid, IPA_CMD_SETVLAN);
5024 }
5025
5026 /*... kill_vid used for both modes*/
5027 static void
5028 qeth_vlan_rx_kill_vid(struct net_device *dev, unsigned short vid)
5029 {
5030         struct qeth_card *card;
5031         unsigned long flags;
5032
5033         QETH_DBF_TEXT_(trace, 4, "kid:%d", vid);
5034
5035         card = (struct qeth_card *) dev->priv;
5036         /* free all skbs for the vlan device */
5037         qeth_free_vlan_skbs(card, vid);
5038         spin_lock_irqsave(&card->vlanlock, flags);
5039         /* unregister IP addresses of vlan device */
5040         qeth_free_vlan_addresses4(card, vid);
5041         qeth_free_vlan_addresses6(card, vid);
5042         if (card->vlangrp)
5043                 card->vlangrp->vlan_devices[vid] = NULL;
5044         spin_unlock_irqrestore(&card->vlanlock, flags);
5045         if (card->options.layer2)
5046                 qeth_layer2_send_setdelvlan(card, vid, IPA_CMD_DELVLAN);
5047         qeth_set_multicast_list(card->dev);
5048 }
5049 #endif
5050
5051 /**
5052  * set multicast address on card
5053  */
5054 static void
5055 qeth_set_multicast_list(struct net_device *dev)
5056 {
5057         struct qeth_card *card = (struct qeth_card *) dev->priv;
5058
5059         QETH_DBF_TEXT(trace,3,"setmulti");
5060         qeth_delete_mc_addresses(card);
5061         qeth_add_multicast_ipv4(card);
5062 #ifdef CONFIG_QETH_IPV6
5063         qeth_add_multicast_ipv6(card);
5064 #endif
5065         if (qeth_set_thread_start_bit(card, QETH_SET_IP_THREAD) == 0)
5066                 schedule_work(&card->kernel_thread_starter);
5067 }
5068
5069 static int
5070 qeth_neigh_setup(struct net_device *dev, struct neigh_parms *np)
5071 {
5072         return 0;
5073 }
5074
5075 static void
5076 qeth_get_mac_for_ipm(__u32 ipm, char *mac, struct net_device *dev)
5077 {
5078         if (dev->type == ARPHRD_IEEE802_TR)
5079                 ip_tr_mc_map(ipm, mac);
5080         else
5081                 ip_eth_mc_map(ipm, mac);
5082 }
5083
5084 static struct qeth_ipaddr *
5085 qeth_get_addr_buffer(enum qeth_prot_versions prot)
5086 {
5087         struct qeth_ipaddr *addr;
5088
5089         addr = kmalloc(sizeof(struct qeth_ipaddr), GFP_ATOMIC);
5090         if (addr == NULL) {
5091                 PRINT_WARN("Not enough memory to add address\n");
5092                 return NULL;
5093         }
5094         memset(addr,0,sizeof(struct qeth_ipaddr));
5095         addr->type = QETH_IP_TYPE_NORMAL;
5096         addr->proto = prot;
5097         return addr;
5098 }
5099
5100 static void
5101 qeth_delete_mc_addresses(struct qeth_card *card)
5102 {
5103         struct qeth_ipaddr *iptodo;
5104         unsigned long flags;
5105
5106         QETH_DBF_TEXT(trace,4,"delmc");
5107         iptodo = qeth_get_addr_buffer(QETH_PROT_IPV4);
5108         if (!iptodo) {
5109                 QETH_DBF_TEXT(trace, 2, "dmcnomem");
5110                 return;
5111         }
5112         iptodo->type = QETH_IP_TYPE_DEL_ALL_MC;
5113         spin_lock_irqsave(&card->ip_lock, flags);
5114         if (!__qeth_insert_ip_todo(card, iptodo, 0))
5115                 kfree(iptodo);
5116         spin_unlock_irqrestore(&card->ip_lock, flags);
5117 }
5118
5119 static inline void
5120 qeth_add_mc(struct qeth_card *card, struct in_device *in4_dev)
5121 {
5122         struct qeth_ipaddr *ipm;
5123         struct ip_mc_list *im4;
5124         char buf[MAX_ADDR_LEN];
5125
5126         QETH_DBF_TEXT(trace,4,"addmc");
5127         for (im4 = in4_dev->mc_list; im4; im4 = im4->next) {
5128                 qeth_get_mac_for_ipm(im4->multiaddr, buf, in4_dev->dev);
5129                 ipm = qeth_get_addr_buffer(QETH_PROT_IPV4);
5130                 if (!ipm)
5131                         continue;
5132                 ipm->u.a4.addr = im4->multiaddr;
5133                 memcpy(ipm->mac,buf,OSA_ADDR_LEN);
5134                 ipm->is_multicast = 1;
5135                 if (!qeth_add_ip(card,ipm))
5136                         kfree(ipm);
5137         }
5138 }
5139
5140 static inline void
5141 qeth_add_vlan_mc(struct qeth_card *card)
5142 {
5143 #ifdef CONFIG_QETH_VLAN
5144         struct in_device *in_dev;
5145         struct vlan_group *vg;
5146         int i;
5147
5148         QETH_DBF_TEXT(trace,4,"addmcvl");
5149         if ( ((card->options.layer2 == 0) &&
5150               (!qeth_is_supported(card,IPA_FULL_VLAN))) ||
5151              (card->vlangrp == NULL) )
5152                 return ;
5153
5154         vg = card->vlangrp;
5155         for (i = 0; i < VLAN_GROUP_ARRAY_LEN; i++) {
5156                 if (vg->vlan_devices[i] == NULL ||
5157                     !(vg->vlan_devices[i]->flags & IFF_UP))
5158                         continue;
5159                 in_dev = in_dev_get(vg->vlan_devices[i]);
5160                 if (!in_dev)
5161                         continue;
5162                 read_lock(&in_dev->mc_list_lock);
5163                 qeth_add_mc(card,in_dev);
5164                 read_unlock(&in_dev->mc_list_lock);
5165                 in_dev_put(in_dev);
5166         }
5167 #endif
5168 }
5169
5170 static void
5171 qeth_add_multicast_ipv4(struct qeth_card *card)
5172 {
5173         struct in_device *in4_dev;
5174
5175         QETH_DBF_TEXT(trace,4,"chkmcv4");
5176         in4_dev = in_dev_get(card->dev);
5177         if (in4_dev == NULL)
5178                 return;
5179         read_lock(&in4_dev->mc_list_lock);
5180         qeth_add_mc(card, in4_dev);
5181         qeth_add_vlan_mc(card);
5182         read_unlock(&in4_dev->mc_list_lock);
5183         in_dev_put(in4_dev);
5184 }
5185
5186 #ifdef CONFIG_QETH_IPV6
5187 static inline void
5188 qeth_add_mc6(struct qeth_card *card, struct inet6_dev *in6_dev)
5189 {
5190         struct qeth_ipaddr *ipm;
5191         struct ifmcaddr6 *im6;
5192         char buf[MAX_ADDR_LEN];
5193
5194         QETH_DBF_TEXT(trace,4,"addmc6");
5195         for (im6 = in6_dev->mc_list; im6 != NULL; im6 = im6->next) {
5196                 ndisc_mc_map(&im6->mca_addr, buf, in6_dev->dev, 0);
5197                 ipm = qeth_get_addr_buffer(QETH_PROT_IPV6);
5198                 if (!ipm)
5199                         continue;
5200                 ipm->is_multicast = 1;
5201                 memcpy(ipm->mac,buf,OSA_ADDR_LEN);
5202                 memcpy(&ipm->u.a6.addr,&im6->mca_addr.s6_addr,
5203                        sizeof(struct in6_addr));
5204                 if (!qeth_add_ip(card,ipm))
5205                         kfree(ipm);
5206         }
5207 }
5208
5209 static inline void
5210 qeth_add_vlan_mc6(struct qeth_card *card)
5211 {
5212 #ifdef CONFIG_QETH_VLAN
5213         struct inet6_dev *in_dev;
5214         struct vlan_group *vg;
5215         int i;
5216
5217         QETH_DBF_TEXT(trace,4,"admc6vl");
5218         if ( ((card->options.layer2 == 0) &&
5219               (!qeth_is_supported(card,IPA_FULL_VLAN))) ||
5220              (card->vlangrp == NULL))
5221                 return ;
5222
5223         vg = card->vlangrp;
5224         for (i = 0; i < VLAN_GROUP_ARRAY_LEN; i++) {
5225                 if (vg->vlan_devices[i] == NULL ||
5226                     !(vg->vlan_devices[i]->flags & IFF_UP))
5227                         continue;
5228                 in_dev = in6_dev_get(vg->vlan_devices[i]);
5229                 if (!in_dev)
5230                         continue;
5231                 read_lock(&in_dev->lock);
5232                 qeth_add_mc6(card,in_dev);
5233                 read_unlock(&in_dev->lock);
5234                 in6_dev_put(in_dev);
5235         }
5236 #endif /* CONFIG_QETH_VLAN */
5237 }
5238
5239 static void
5240 qeth_add_multicast_ipv6(struct qeth_card *card)
5241 {
5242         struct inet6_dev *in6_dev;
5243
5244         QETH_DBF_TEXT(trace,4,"chkmcv6");
5245         if (!qeth_is_supported(card, IPA_IPV6))
5246                 return ;
5247
5248         in6_dev = in6_dev_get(card->dev);
5249         if (in6_dev == NULL)
5250                 return;
5251         read_lock(&in6_dev->lock);
5252         qeth_add_mc6(card, in6_dev);
5253         qeth_add_vlan_mc6(card);
5254         read_unlock(&in6_dev->lock);
5255         in6_dev_put(in6_dev);
5256 }
5257 #endif /* CONFIG_QETH_IPV6 */
5258
5259 static int
5260 qeth_layer2_send_setdelmac(struct qeth_card *card, __u8 *mac,
5261                            enum qeth_ipa_cmds ipacmd,
5262                            int (*reply_cb) (struct qeth_card *,
5263                                             struct qeth_reply*,
5264                                             unsigned long))
5265 {
5266         struct qeth_ipa_cmd *cmd;
5267         struct qeth_cmd_buffer *iob;
5268
5269         QETH_DBF_TEXT(trace, 2, "L2sdmac");
5270         iob = qeth_get_ipacmd_buffer(card, ipacmd, QETH_PROT_IPV4);
5271         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
5272         cmd->data.setdelmac.mac_length = OSA_ADDR_LEN;
5273         memcpy(&cmd->data.setdelmac.mac, mac, OSA_ADDR_LEN);
5274         return qeth_send_ipa_cmd(card, iob, reply_cb, NULL);
5275 }
5276
5277 static int
5278 qeth_layer2_send_setgroupmac_cb(struct qeth_card *card,
5279                                 struct qeth_reply *reply,
5280                                 unsigned long data)
5281 {
5282         struct qeth_ipa_cmd *cmd;
5283         __u8 *mac;
5284
5285         QETH_DBF_TEXT(trace, 2, "L2Sgmacb");
5286         cmd = (struct qeth_ipa_cmd *) data;
5287         mac = &cmd->data.setdelmac.mac[0];
5288         /* MAC already registered, needed in couple/uncouple case */
5289         if (cmd->hdr.return_code == 0x2005) {
5290                 PRINT_WARN("Group MAC %02x:%02x:%02x:%02x:%02x:%02x " \
5291                           "already existing on %s \n",
5292                           mac[0], mac[1], mac[2], mac[3], mac[4], mac[5],
5293                           QETH_CARD_IFNAME(card));
5294                 cmd->hdr.return_code = 0;
5295         }
5296         if (cmd->hdr.return_code)
5297                 PRINT_ERR("Could not set group MAC " \
5298                           "%02x:%02x:%02x:%02x:%02x:%02x on %s: %x\n",
5299                           mac[0], mac[1], mac[2], mac[3], mac[4], mac[5],
5300                           QETH_CARD_IFNAME(card),cmd->hdr.return_code);
5301         return 0;
5302 }
5303
5304 static int
5305 qeth_layer2_send_setgroupmac(struct qeth_card *card, __u8 *mac)
5306 {
5307         QETH_DBF_TEXT(trace, 2, "L2Sgmac");
5308         return qeth_layer2_send_setdelmac(card, mac, IPA_CMD_SETGMAC,
5309                                           qeth_layer2_send_setgroupmac_cb);
5310 }
5311
5312 static int
5313 qeth_layer2_send_delgroupmac_cb(struct qeth_card *card,
5314                                 struct qeth_reply *reply,
5315                                 unsigned long data)
5316 {
5317         struct qeth_ipa_cmd *cmd;
5318         __u8 *mac;
5319
5320         QETH_DBF_TEXT(trace, 2, "L2Dgmacb");
5321         cmd = (struct qeth_ipa_cmd *) data;
5322         mac = &cmd->data.setdelmac.mac[0];
5323         if (cmd->hdr.return_code)
5324                 PRINT_ERR("Could not delete group MAC " \
5325                           "%02x:%02x:%02x:%02x:%02x:%02x on %s: %x\n",
5326                           mac[0], mac[1], mac[2], mac[3], mac[4], mac[5],
5327                           QETH_CARD_IFNAME(card), cmd->hdr.return_code);
5328         return 0;
5329 }
5330
5331 static int
5332 qeth_layer2_send_delgroupmac(struct qeth_card *card, __u8 *mac)
5333 {
5334         QETH_DBF_TEXT(trace, 2, "L2Dgmac");
5335         return qeth_layer2_send_setdelmac(card, mac, IPA_CMD_DELGMAC,
5336                                           qeth_layer2_send_delgroupmac_cb);
5337 }
5338
5339 static int
5340 qeth_layer2_send_setmac_cb(struct qeth_card *card,
5341                            struct qeth_reply *reply,
5342                            unsigned long data)
5343 {
5344         struct qeth_ipa_cmd *cmd;
5345
5346         QETH_DBF_TEXT(trace, 2, "L2Smaccb");
5347         cmd = (struct qeth_ipa_cmd *) data;
5348         if (cmd->hdr.return_code) {
5349                 QETH_DBF_TEXT_(trace, 2, "L2er%x", cmd->hdr.return_code);
5350                 PRINT_WARN("Error in registering MAC address on " \
5351                            "device %s: x%x\n", CARD_BUS_ID(card),
5352                            cmd->hdr.return_code);
5353                 card->info.layer2_mac_registered = 0;
5354                 cmd->hdr.return_code = -EIO;
5355         } else {
5356                 card->info.layer2_mac_registered = 1;
5357                 memcpy(card->dev->dev_addr,cmd->data.setdelmac.mac,
5358                        OSA_ADDR_LEN);
5359                 PRINT_INFO("MAC address %2.2x:%2.2x:%2.2x:%2.2x:%2.2x:%2.2x "
5360                            "successfully registered on device %s\n",
5361                            card->dev->dev_addr[0], card->dev->dev_addr[1],
5362                            card->dev->dev_addr[2], card->dev->dev_addr[3],
5363                            card->dev->dev_addr[4], card->dev->dev_addr[5],
5364                            card->dev->name);
5365         }
5366         return 0;
5367 }
5368
5369 static int
5370 qeth_layer2_send_setmac(struct qeth_card *card, __u8 *mac)
5371 {
5372         QETH_DBF_TEXT(trace, 2, "L2Setmac");
5373         return qeth_layer2_send_setdelmac(card, mac, IPA_CMD_SETVMAC,
5374                                           qeth_layer2_send_setmac_cb);
5375 }
5376
5377 static int
5378 qeth_layer2_send_delmac_cb(struct qeth_card *card,
5379                            struct qeth_reply *reply,
5380                            unsigned long data)
5381 {
5382         struct qeth_ipa_cmd *cmd;
5383
5384         QETH_DBF_TEXT(trace, 2, "L2Dmaccb");
5385         cmd = (struct qeth_ipa_cmd *) data;
5386         if (cmd->hdr.return_code) {
5387                 PRINT_WARN("Error in deregistering MAC address on " \
5388                            "device %s: x%x\n", CARD_BUS_ID(card),
5389                            cmd->hdr.return_code);
5390                 QETH_DBF_TEXT_(trace, 2, "err%d", cmd->hdr.return_code);
5391                 cmd->hdr.return_code = -EIO;
5392                 return 0;
5393         }
5394         card->info.layer2_mac_registered = 0;
5395
5396         return 0;
5397 }
5398 static int
5399 qeth_layer2_send_delmac(struct qeth_card *card, __u8 *mac)
5400 {
5401         QETH_DBF_TEXT(trace, 2, "L2Delmac");
5402         if (!card->info.layer2_mac_registered)
5403                 return 0;
5404         return qeth_layer2_send_setdelmac(card, mac, IPA_CMD_DELVMAC,
5405                                           qeth_layer2_send_delmac_cb);
5406 }
5407
5408 static int
5409 qeth_layer2_set_mac_address(struct net_device *dev, void *p)
5410 {
5411         struct sockaddr *addr = p;
5412         struct qeth_card *card;
5413         int rc = 0;
5414
5415         QETH_DBF_TEXT(trace, 3, "setmac");
5416
5417         if (qeth_verify_dev(dev) != QETH_REAL_CARD) {
5418                 QETH_DBF_TEXT(trace, 3, "setmcINV");
5419                 return -EOPNOTSUPP;
5420         }
5421         card = (struct qeth_card *) dev->priv;
5422
5423         if (!card->options.layer2) {
5424                 PRINT_WARN("Setting MAC address on %s is not supported"
5425                            "in Layer 3 mode.\n", dev->name);
5426                 QETH_DBF_TEXT(trace, 3, "setmcLY3");
5427                 return -EOPNOTSUPP;
5428         }
5429         QETH_DBF_TEXT_(trace, 3, "%s", CARD_BUS_ID(card));
5430         QETH_DBF_HEX(trace, 3, addr->sa_data, OSA_ADDR_LEN);
5431         rc = qeth_layer2_send_delmac(card, &card->dev->dev_addr[0]);
5432         if (!rc)
5433                 rc = qeth_layer2_send_setmac(card, addr->sa_data);
5434         return rc;
5435 }
5436
5437 static void
5438 qeth_fill_ipacmd_header(struct qeth_card *card, struct qeth_ipa_cmd *cmd,
5439                         __u8 command, enum qeth_prot_versions prot)
5440 {
5441         memset(cmd, 0, sizeof (struct qeth_ipa_cmd));
5442         cmd->hdr.command = command;
5443         cmd->hdr.initiator = IPA_CMD_INITIATOR_HOST;
5444         cmd->hdr.seqno = card->seqno.ipa;
5445         cmd->hdr.adapter_type = qeth_get_ipa_adp_type(card->info.link_type);
5446         cmd->hdr.rel_adapter_no = (__u8) card->info.portno;
5447         if (card->options.layer2)
5448                 cmd->hdr.prim_version_no = 2;
5449         else
5450                 cmd->hdr.prim_version_no = 1;
5451         cmd->hdr.param_count = 1;
5452         cmd->hdr.prot_version = prot;
5453         cmd->hdr.ipa_supported = 0;
5454         cmd->hdr.ipa_enabled = 0;
5455 }
5456
5457 static struct qeth_cmd_buffer *
5458 qeth_get_ipacmd_buffer(struct qeth_card *card, enum qeth_ipa_cmds ipacmd,
5459                        enum qeth_prot_versions prot)
5460 {
5461         struct qeth_cmd_buffer *iob;
5462         struct qeth_ipa_cmd *cmd;
5463
5464         iob = qeth_wait_for_buffer(&card->write);
5465         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
5466         qeth_fill_ipacmd_header(card, cmd, ipacmd, prot);
5467
5468         return iob;
5469 }
5470
5471 static int
5472 qeth_send_setdelmc(struct qeth_card *card, struct qeth_ipaddr *addr, int ipacmd)
5473 {
5474         int rc;
5475         struct qeth_cmd_buffer *iob;
5476         struct qeth_ipa_cmd *cmd;
5477
5478         QETH_DBF_TEXT(trace,4,"setdelmc");
5479
5480         iob = qeth_get_ipacmd_buffer(card, ipacmd, addr->proto);
5481         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
5482         memcpy(&cmd->data.setdelipm.mac,addr->mac, OSA_ADDR_LEN);
5483         if (addr->proto == QETH_PROT_IPV6)
5484                 memcpy(cmd->data.setdelipm.ip6, &addr->u.a6.addr,
5485                        sizeof(struct in6_addr));
5486         else
5487                 memcpy(&cmd->data.setdelipm.ip4, &addr->u.a4.addr,4);
5488
5489         rc = qeth_send_ipa_cmd(card, iob, NULL, NULL);
5490
5491         return rc;
5492 }
5493 static inline void
5494 qeth_fill_netmask(u8 *netmask, unsigned int len)
5495 {
5496         int i,j;
5497         for (i=0;i<16;i++) {
5498                 j=(len)-(i*8);
5499                 if (j >= 8)
5500                         netmask[i] = 0xff;
5501                 else if (j > 0)
5502                         netmask[i] = (u8)(0xFF00>>j);
5503                 else
5504                         netmask[i] = 0;
5505         }
5506 }
5507
5508 static int
5509 qeth_send_setdelip(struct qeth_card *card, struct qeth_ipaddr *addr,
5510                    int ipacmd, unsigned int flags)
5511 {
5512         int rc;
5513         struct qeth_cmd_buffer *iob;
5514         struct qeth_ipa_cmd *cmd;
5515         __u8 netmask[16];
5516
5517         QETH_DBF_TEXT(trace,4,"setdelip");
5518         QETH_DBF_TEXT_(trace,4,"flags%02X", flags);
5519
5520         iob = qeth_get_ipacmd_buffer(card, ipacmd, addr->proto);
5521         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
5522         if (addr->proto == QETH_PROT_IPV6) {
5523                 memcpy(cmd->data.setdelip6.ip_addr, &addr->u.a6.addr,
5524                        sizeof(struct in6_addr));
5525                 qeth_fill_netmask(netmask,addr->u.a6.pfxlen);
5526                 memcpy(cmd->data.setdelip6.mask, netmask,
5527                        sizeof(struct in6_addr));
5528                 cmd->data.setdelip6.flags = flags;
5529         } else {
5530                 memcpy(cmd->data.setdelip4.ip_addr, &addr->u.a4.addr, 4);
5531                 memcpy(cmd->data.setdelip4.mask, &addr->u.a4.mask, 4);
5532                 cmd->data.setdelip4.flags = flags;
5533         }
5534
5535         rc = qeth_send_ipa_cmd(card, iob, NULL, NULL);
5536
5537         return rc;
5538 }
5539
5540 static int
5541 qeth_layer2_register_addr_entry(struct qeth_card *card,
5542                                 struct qeth_ipaddr *addr)
5543 {
5544         if (!addr->is_multicast)
5545                 return 0;
5546         QETH_DBF_TEXT(trace, 2, "setgmac");
5547         QETH_DBF_HEX(trace,3,&addr->mac[0],OSA_ADDR_LEN);
5548         return qeth_layer2_send_setgroupmac(card, &addr->mac[0]);
5549 }
5550
5551 static int
5552 qeth_layer2_deregister_addr_entry(struct qeth_card *card,
5553                                   struct qeth_ipaddr *addr)
5554 {
5555         if (!addr->is_multicast)
5556                 return 0;
5557         QETH_DBF_TEXT(trace, 2, "delgmac");
5558         QETH_DBF_HEX(trace,3,&addr->mac[0],OSA_ADDR_LEN);
5559         return qeth_layer2_send_delgroupmac(card, &addr->mac[0]);
5560 }
5561
5562 static int
5563 qeth_layer3_register_addr_entry(struct qeth_card *card,
5564                                 struct qeth_ipaddr *addr)
5565 {
5566         //char buf[50];
5567         int rc;
5568         int cnt = 3;
5569
5570         if (addr->proto == QETH_PROT_IPV4) {
5571                 QETH_DBF_TEXT(trace, 2,"setaddr4");
5572                 QETH_DBF_HEX(trace, 3, &addr->u.a4.addr, sizeof(int));
5573         } else if (addr->proto == QETH_PROT_IPV6) {
5574                 QETH_DBF_TEXT(trace, 2, "setaddr6");
5575                 QETH_DBF_HEX(trace,3,&addr->u.a6.addr,8);
5576                 QETH_DBF_HEX(trace,3,((char *)&addr->u.a6.addr)+8,8);
5577         } else {
5578                 QETH_DBF_TEXT(trace, 2, "setaddr?");
5579                 QETH_DBF_HEX(trace, 3, addr, sizeof(struct qeth_ipaddr));
5580         }
5581         do {
5582                 if (addr->is_multicast)
5583                         rc =  qeth_send_setdelmc(card, addr, IPA_CMD_SETIPM);
5584                 else
5585                         rc = qeth_send_setdelip(card, addr, IPA_CMD_SETIP,
5586                                         addr->set_flags);
5587                 if (rc)
5588                         QETH_DBF_TEXT(trace, 2, "failed");
5589         } while ((--cnt > 0) && rc);
5590         if (rc){
5591                 QETH_DBF_TEXT(trace, 2, "FAILED");
5592                 /* TODO: re-activate this warning as soon as we have a
5593                  * clean mirco code
5594                 qeth_ipaddr_to_string(addr->proto, (u8 *)&addr->u, buf);
5595                 PRINT_WARN("Could not register IP address %s (rc=%x)\n",
5596                            buf, rc);
5597                 */
5598         }
5599         return rc;
5600 }
5601
5602 static int
5603 qeth_layer3_deregister_addr_entry(struct qeth_card *card,
5604                                   struct qeth_ipaddr *addr)
5605 {
5606         //char buf[50];
5607         int rc;
5608
5609         if (addr->proto == QETH_PROT_IPV4) {
5610                 QETH_DBF_TEXT(trace, 2,"deladdr4");
5611                 QETH_DBF_HEX(trace, 3, &addr->u.a4.addr, sizeof(int));
5612         } else if (addr->proto == QETH_PROT_IPV6) {
5613                 QETH_DBF_TEXT(trace, 2, "deladdr6");
5614                 QETH_DBF_HEX(trace,3,&addr->u.a6.addr,8);
5615                 QETH_DBF_HEX(trace,3,((char *)&addr->u.a6.addr)+8,8);
5616         } else {
5617                 QETH_DBF_TEXT(trace, 2, "deladdr?");
5618                 QETH_DBF_HEX(trace, 3, addr, sizeof(struct qeth_ipaddr));
5619         }
5620         if (addr->is_multicast)
5621                 rc = qeth_send_setdelmc(card, addr, IPA_CMD_DELIPM);
5622         else
5623                 rc = qeth_send_setdelip(card, addr, IPA_CMD_DELIP,
5624                                         addr->del_flags);
5625         if (rc) {
5626                 QETH_DBF_TEXT(trace, 2, "failed");
5627                 /* TODO: re-activate this warning as soon as we have a
5628                  * clean mirco code
5629                 qeth_ipaddr_to_string(addr->proto, (u8 *)&addr->u, buf);
5630                 PRINT_WARN("Could not deregister IP address %s (rc=%x)\n",
5631                            buf, rc);
5632                 */
5633         }
5634         return rc;
5635 }
5636
5637 static int
5638 qeth_register_addr_entry(struct qeth_card *card, struct qeth_ipaddr *addr)
5639 {
5640         if (card->options.layer2)
5641                 return qeth_layer2_register_addr_entry(card, addr);
5642
5643         return qeth_layer3_register_addr_entry(card, addr);
5644 }
5645
5646 static int
5647 qeth_deregister_addr_entry(struct qeth_card *card, struct qeth_ipaddr *addr)
5648 {
5649         if (card->options.layer2)
5650                 return qeth_layer2_deregister_addr_entry(card, addr);
5651
5652         return qeth_layer3_deregister_addr_entry(card, addr);
5653 }
5654
5655 static int
5656 qeth_netdev_init(struct net_device *dev)
5657 {
5658         struct qeth_card *card;
5659
5660         card = (struct qeth_card *) dev->priv;
5661
5662         QETH_DBF_TEXT(trace,3,"initdev");
5663
5664         dev->tx_timeout = &qeth_tx_timeout;
5665         dev->watchdog_timeo = QETH_TX_TIMEOUT;
5666         dev->open = qeth_open;
5667         dev->stop = qeth_stop;
5668         dev->hard_start_xmit = qeth_hard_start_xmit;
5669         dev->do_ioctl = qeth_do_ioctl;
5670         dev->get_stats = qeth_get_stats;
5671         dev->change_mtu = qeth_change_mtu;
5672         dev->neigh_setup = qeth_neigh_setup;
5673         dev->set_multicast_list = qeth_set_multicast_list;
5674 #ifdef CONFIG_QETH_VLAN
5675         dev->vlan_rx_register = qeth_vlan_rx_register;
5676         dev->vlan_rx_kill_vid = qeth_vlan_rx_kill_vid;
5677         dev->vlan_rx_add_vid = qeth_vlan_rx_add_vid;
5678 #endif
5679         dev->hard_header = card->orig_hard_header;
5680         if (qeth_get_netdev_flags(card) & IFF_NOARP) {
5681                 dev->rebuild_header = NULL;
5682                 dev->hard_header = NULL;
5683                 if (card->options.fake_ll)
5684                         dev->hard_header = qeth_fake_header;
5685                 dev->header_cache_update = NULL;
5686                 dev->hard_header_cache = NULL;
5687         }
5688 #ifdef CONFIG_QETH_IPV6
5689         /*IPv6 address autoconfiguration stuff*/
5690         if (!(card->info.unique_id & UNIQUE_ID_NOT_BY_CARD))
5691                 card->dev->dev_id = card->info.unique_id & 0xffff;
5692 #endif
5693         dev->hard_header_parse = NULL;
5694         dev->set_mac_address = qeth_layer2_set_mac_address;
5695         dev->flags |= qeth_get_netdev_flags(card);
5696         if ((card->options.fake_broadcast) ||
5697             (card->info.broadcast_capable))
5698                 dev->flags |= IFF_BROADCAST;
5699         dev->hard_header_len =
5700                         qeth_get_hlen(card->info.link_type) + card->options.add_hhlen;
5701         dev->addr_len = OSA_ADDR_LEN;
5702         dev->mtu = card->info.initial_mtu;
5703
5704         SET_MODULE_OWNER(dev);
5705         return 0;
5706 }
5707
5708 static void
5709 qeth_init_func_level(struct qeth_card *card)
5710 {
5711         if (card->ipato.enabled) {
5712                 if (card->info.type == QETH_CARD_TYPE_IQD)
5713                                 card->info.func_level =
5714                                         QETH_IDX_FUNC_LEVEL_IQD_ENA_IPAT;
5715                 else
5716                                 card->info.func_level =
5717                                         QETH_IDX_FUNC_LEVEL_OSAE_ENA_IPAT;
5718         } else {
5719                 if (card->info.type == QETH_CARD_TYPE_IQD)
5720                         card->info.func_level =
5721                                 QETH_IDX_FUNC_LEVEL_IQD_DIS_IPAT;
5722                 else
5723                         card->info.func_level =
5724                                 QETH_IDX_FUNC_LEVEL_OSAE_DIS_IPAT;
5725         }
5726 }
5727
5728 /**
5729  * hardsetup card, initialize MPC and QDIO stuff
5730  */
5731 static int
5732 qeth_hardsetup_card(struct qeth_card *card)
5733 {
5734         int retries = 3;
5735         int rc;
5736
5737         QETH_DBF_TEXT(setup, 2, "hrdsetup");
5738
5739 retry:
5740         if (retries < 3){
5741                 PRINT_WARN("Retrying to do IDX activates.\n");
5742                 ccw_device_set_offline(CARD_DDEV(card));
5743                 ccw_device_set_offline(CARD_WDEV(card));
5744                 ccw_device_set_offline(CARD_RDEV(card));
5745                 ccw_device_set_online(CARD_RDEV(card));
5746                 ccw_device_set_online(CARD_WDEV(card));
5747                 ccw_device_set_online(CARD_DDEV(card));
5748         }
5749         rc = qeth_qdio_clear_card(card,card->info.type==QETH_CARD_TYPE_OSAE);
5750         if (rc == -ERESTARTSYS) {
5751                 QETH_DBF_TEXT(setup, 2, "break1");
5752                 return rc;
5753         } else if (rc) {
5754                 QETH_DBF_TEXT_(setup, 2, "1err%d", rc);
5755                 if (--retries < 0)
5756                         goto out;
5757                 else
5758                         goto retry;
5759         }
5760         if ((rc = qeth_get_unitaddr(card))){
5761                 QETH_DBF_TEXT_(setup, 2, "2err%d", rc);
5762                 return rc;
5763         }
5764         qeth_init_tokens(card);
5765         qeth_init_func_level(card);
5766         rc = qeth_idx_activate_channel(&card->read, qeth_idx_read_cb);
5767         if (rc == -ERESTARTSYS) {
5768                 QETH_DBF_TEXT(setup, 2, "break2");
5769                 return rc;
5770         } else if (rc) {
5771                 QETH_DBF_TEXT_(setup, 2, "3err%d", rc);
5772                 if (--retries < 0)
5773                         goto out;
5774                 else
5775                         goto retry;
5776         }
5777         rc = qeth_idx_activate_channel(&card->write, qeth_idx_write_cb);
5778         if (rc == -ERESTARTSYS) {
5779                 QETH_DBF_TEXT(setup, 2, "break3");
5780                 return rc;
5781         } else if (rc) {
5782                 QETH_DBF_TEXT_(setup, 2, "4err%d", rc);
5783                 if (--retries < 0)
5784                         goto out;
5785                 else
5786                         goto retry;
5787         }
5788         if ((rc = qeth_mpc_initialize(card))){
5789                 QETH_DBF_TEXT_(setup, 2, "5err%d", rc);
5790                 goto out;
5791         }
5792         /*network device will be recovered*/
5793         if (card->dev) {
5794                 card->dev->hard_header = card->orig_hard_header;
5795                 return 0;
5796         }
5797         /* at first set_online allocate netdev */
5798         card->dev = qeth_get_netdevice(card->info.type,
5799                                        card->info.link_type);
5800         if (!card->dev){
5801                 qeth_qdio_clear_card(card, card->info.type ==
5802                                      QETH_CARD_TYPE_OSAE);
5803                 rc = -ENODEV;
5804                 QETH_DBF_TEXT_(setup, 2, "6err%d", rc);
5805                 goto out;
5806         }
5807         card->dev->priv = card;
5808         card->orig_hard_header = card->dev->hard_header;
5809         card->dev->type = qeth_get_arphdr_type(card->info.type,
5810                                                card->info.link_type);
5811         card->dev->init = qeth_netdev_init;
5812         return 0;
5813 out:
5814         PRINT_ERR("Initialization in hardsetup failed! rc=%d\n", rc);
5815         return rc;
5816 }
5817
5818 static int
5819 qeth_default_setassparms_cb(struct qeth_card *card, struct qeth_reply *reply,
5820                             unsigned long data)
5821 {
5822         struct qeth_ipa_cmd *cmd;
5823
5824         QETH_DBF_TEXT(trace,4,"defadpcb");
5825
5826         cmd = (struct qeth_ipa_cmd *) data;
5827         if (cmd->hdr.return_code == 0){
5828                 cmd->hdr.return_code = cmd->data.setassparms.hdr.return_code;
5829                 if (cmd->hdr.prot_version == QETH_PROT_IPV4)
5830                         card->options.ipa4.enabled_funcs = cmd->hdr.ipa_enabled;
5831 #ifdef CONFIG_QETH_IPV6
5832                 if (cmd->hdr.prot_version == QETH_PROT_IPV6)
5833                         card->options.ipa6.enabled_funcs = cmd->hdr.ipa_enabled;
5834 #endif
5835         }
5836         if (cmd->data.setassparms.hdr.assist_no == IPA_INBOUND_CHECKSUM &&
5837             cmd->data.setassparms.hdr.command_code == IPA_CMD_ASS_START) {
5838                 card->info.csum_mask = cmd->data.setassparms.data.flags_32bit;
5839                 QETH_DBF_TEXT_(trace, 3, "csum:%d", card->info.csum_mask);
5840         }
5841         return 0;
5842 }
5843
5844 static int
5845 qeth_default_setadapterparms_cb(struct qeth_card *card,
5846                                 struct qeth_reply *reply,
5847                                 unsigned long data)
5848 {
5849         struct qeth_ipa_cmd *cmd;
5850
5851         QETH_DBF_TEXT(trace,4,"defadpcb");
5852
5853         cmd = (struct qeth_ipa_cmd *) data;
5854         if (cmd->hdr.return_code == 0)
5855                 cmd->hdr.return_code = cmd->data.setadapterparms.hdr.return_code;
5856         return 0;
5857 }
5858
5859 static int
5860 qeth_query_setadapterparms_cb(struct qeth_card *card, struct qeth_reply *reply,
5861                               unsigned long data)
5862 {
5863         struct qeth_ipa_cmd *cmd;
5864
5865         QETH_DBF_TEXT(trace,3,"quyadpcb");
5866
5867         cmd = (struct qeth_ipa_cmd *) data;
5868         if (cmd->data.setadapterparms.data.query_cmds_supp.lan_type & 0x7f)
5869                 card->info.link_type =
5870                       cmd->data.setadapterparms.data.query_cmds_supp.lan_type;
5871         card->options.adp.supported_funcs =
5872                 cmd->data.setadapterparms.data.query_cmds_supp.supported_cmds;
5873         return qeth_default_setadapterparms_cb(card, reply, (unsigned long)cmd);
5874 }
5875
5876 static int
5877 qeth_query_setadapterparms(struct qeth_card *card)
5878 {
5879         int rc;
5880         struct qeth_cmd_buffer *iob;
5881
5882         QETH_DBF_TEXT(trace,3,"queryadp");
5883         iob = qeth_get_adapter_cmd(card, IPA_SETADP_QUERY_COMMANDS_SUPPORTED,
5884                                    sizeof(struct qeth_ipacmd_setadpparms));
5885         rc = qeth_send_ipa_cmd(card, iob, qeth_query_setadapterparms_cb, NULL);
5886         return rc;
5887 }
5888
5889 static int
5890 qeth_setadpparms_change_macaddr_cb(struct qeth_card *card,
5891                                    struct qeth_reply *reply,
5892                                    unsigned long data)
5893 {
5894         struct qeth_ipa_cmd *cmd;
5895
5896         QETH_DBF_TEXT(trace,4,"chgmaccb");
5897
5898         cmd = (struct qeth_ipa_cmd *) data;
5899         memcpy(card->dev->dev_addr,
5900                &cmd->data.setadapterparms.data.change_addr.addr,OSA_ADDR_LEN);
5901         qeth_default_setadapterparms_cb(card, reply, (unsigned long) cmd);
5902         return 0;
5903 }
5904
5905 static int
5906 qeth_setadpparms_change_macaddr(struct qeth_card *card)
5907 {
5908         int rc;
5909         struct qeth_cmd_buffer *iob;
5910         struct qeth_ipa_cmd *cmd;
5911
5912         QETH_DBF_TEXT(trace,4,"chgmac");
5913
5914         iob = qeth_get_adapter_cmd(card,IPA_SETADP_ALTER_MAC_ADDRESS,
5915                                    sizeof(struct qeth_ipacmd_setadpparms));
5916         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
5917         cmd->data.setadapterparms.data.change_addr.cmd = CHANGE_ADDR_READ_MAC;
5918         cmd->data.setadapterparms.data.change_addr.addr_size = OSA_ADDR_LEN;
5919         memcpy(&cmd->data.setadapterparms.data.change_addr.addr,
5920                card->dev->dev_addr, OSA_ADDR_LEN);
5921         rc = qeth_send_ipa_cmd(card, iob, qeth_setadpparms_change_macaddr_cb,
5922                                NULL);
5923         return rc;
5924 }
5925
5926 static int
5927 qeth_send_setadp_mode(struct qeth_card *card, __u32 command, __u32 mode)
5928 {
5929         int rc;
5930         struct qeth_cmd_buffer *iob;
5931         struct qeth_ipa_cmd *cmd;
5932
5933         QETH_DBF_TEXT(trace,4,"adpmode");
5934
5935         iob = qeth_get_adapter_cmd(card, command,
5936                                    sizeof(struct qeth_ipacmd_setadpparms));
5937         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
5938         cmd->data.setadapterparms.data.mode = mode;
5939         rc = qeth_send_ipa_cmd(card, iob, qeth_default_setadapterparms_cb,
5940                                NULL);
5941         return rc;
5942 }
5943
5944 static inline int
5945 qeth_setadapter_hstr(struct qeth_card *card)
5946 {
5947         int rc;
5948
5949         QETH_DBF_TEXT(trace,4,"adphstr");
5950
5951         if (qeth_adp_supported(card,IPA_SETADP_SET_BROADCAST_MODE)) {
5952                 rc = qeth_send_setadp_mode(card, IPA_SETADP_SET_BROADCAST_MODE,
5953                                            card->options.broadcast_mode);
5954                 if (rc)
5955                         PRINT_WARN("couldn't set broadcast mode on "
5956                                    "device %s: x%x\n",
5957                                    CARD_BUS_ID(card), rc);
5958                 rc = qeth_send_setadp_mode(card, IPA_SETADP_ALTER_MAC_ADDRESS,
5959                                            card->options.macaddr_mode);
5960                 if (rc)
5961                         PRINT_WARN("couldn't set macaddr mode on "
5962                                    "device %s: x%x\n", CARD_BUS_ID(card), rc);
5963                 return rc;
5964         }
5965         if (card->options.broadcast_mode == QETH_TR_BROADCAST_LOCAL)
5966                 PRINT_WARN("set adapter parameters not available "
5967                            "to set broadcast mode, using ALLRINGS "
5968                            "on device %s:\n", CARD_BUS_ID(card));
5969         if (card->options.macaddr_mode == QETH_TR_MACADDR_CANONICAL)
5970                 PRINT_WARN("set adapter parameters not available "
5971                            "to set macaddr mode, using NONCANONICAL "
5972                            "on device %s:\n", CARD_BUS_ID(card));
5973         return 0;
5974 }
5975
5976 static int
5977 qeth_setadapter_parms(struct qeth_card *card)
5978 {
5979         int rc;
5980
5981         QETH_DBF_TEXT(setup, 2, "setadprm");
5982
5983         if (!qeth_is_supported(card, IPA_SETADAPTERPARMS)){
5984                 PRINT_WARN("set adapter parameters not supported "
5985                            "on device %s.\n",
5986                            CARD_BUS_ID(card));
5987                 QETH_DBF_TEXT(setup, 2, " notsupp");
5988                 return 0;
5989         }
5990         rc = qeth_query_setadapterparms(card);
5991         if (rc) {
5992                 PRINT_WARN("couldn't set adapter parameters on device %s: "
5993                            "x%x\n", CARD_BUS_ID(card), rc);
5994                 return rc;
5995         }
5996         if (qeth_adp_supported(card,IPA_SETADP_ALTER_MAC_ADDRESS)) {
5997                 rc = qeth_setadpparms_change_macaddr(card);
5998                 if (rc)
5999                         PRINT_WARN("couldn't get MAC address on "
6000                                    "device %s: x%x\n",
6001                                    CARD_BUS_ID(card), rc);
6002         }
6003
6004         if ((card->info.link_type == QETH_LINK_TYPE_HSTR) ||
6005             (card->info.link_type == QETH_LINK_TYPE_LANE_TR))
6006                 rc = qeth_setadapter_hstr(card);
6007
6008         return rc;
6009 }
6010
6011 static int
6012 qeth_layer2_initialize(struct qeth_card *card)
6013 {
6014         int rc = 0;
6015
6016
6017         QETH_DBF_TEXT(setup, 2, "doL2init");
6018         QETH_DBF_TEXT_(setup, 2, "doL2%s", CARD_BUS_ID(card));
6019
6020         rc = qeth_setadpparms_change_macaddr(card);
6021         if (rc) {
6022                 PRINT_WARN("couldn't get MAC address on "
6023                            "device %s: x%x\n",
6024                            CARD_BUS_ID(card), rc);
6025                 QETH_DBF_TEXT_(setup, 2,"1err%d",rc);
6026                 return rc;
6027         }
6028         QETH_DBF_HEX(setup,2, card->dev->dev_addr, OSA_ADDR_LEN);
6029
6030         rc = qeth_layer2_send_setmac(card, &card->dev->dev_addr[0]);
6031         if (rc)
6032                 QETH_DBF_TEXT_(setup, 2,"2err%d",rc);
6033         return 0;
6034 }
6035
6036
6037 static int
6038 qeth_send_startstoplan(struct qeth_card *card, enum qeth_ipa_cmds ipacmd,
6039                        enum qeth_prot_versions prot)
6040 {
6041         int rc;
6042         struct qeth_cmd_buffer *iob;
6043
6044         iob = qeth_get_ipacmd_buffer(card,ipacmd,prot);
6045         rc = qeth_send_ipa_cmd(card, iob, NULL, NULL);
6046
6047         return rc;
6048 }
6049
6050 static int
6051 qeth_send_startlan(struct qeth_card *card, enum qeth_prot_versions prot)
6052 {
6053         int rc;
6054
6055         QETH_DBF_TEXT_(setup, 2, "strtlan%i", prot);
6056
6057         rc = qeth_send_startstoplan(card, IPA_CMD_STARTLAN, prot);
6058         return rc;
6059 }
6060
6061 static int
6062 qeth_send_stoplan(struct qeth_card *card)
6063 {
6064         int rc = 0;
6065
6066         /*
6067          * TODO: according to the IPA format document page 14,
6068          * TCP/IP (we!) never issue a STOPLAN
6069          * is this right ?!?
6070          */
6071         QETH_DBF_TEXT(trace, 2, "stoplan");
6072
6073         rc = qeth_send_startstoplan(card, IPA_CMD_STOPLAN, QETH_PROT_IPV4);
6074         return rc;
6075 }
6076
6077 static int
6078 qeth_query_ipassists_cb(struct qeth_card *card, struct qeth_reply *reply,
6079                         unsigned long data)
6080 {
6081         struct qeth_ipa_cmd *cmd;
6082
6083         QETH_DBF_TEXT(setup, 2, "qipasscb");
6084
6085         cmd = (struct qeth_ipa_cmd *) data;
6086         if (cmd->hdr.prot_version == QETH_PROT_IPV4) {
6087                 card->options.ipa4.supported_funcs = cmd->hdr.ipa_supported;
6088                 card->options.ipa4.enabled_funcs = cmd->hdr.ipa_enabled;
6089         } else {
6090 #ifdef CONFIG_QETH_IPV6
6091                 card->options.ipa6.supported_funcs = cmd->hdr.ipa_supported;
6092                 card->options.ipa6.enabled_funcs = cmd->hdr.ipa_enabled;
6093 #endif
6094         }
6095         return 0;
6096 }
6097
6098 static int
6099 qeth_query_ipassists(struct qeth_card *card, enum qeth_prot_versions prot)
6100 {
6101         int rc;
6102         struct qeth_cmd_buffer *iob;
6103
6104         QETH_DBF_TEXT_(setup, 2, "qipassi%i", prot);
6105         if (card->options.layer2) {
6106                 QETH_DBF_TEXT(setup, 2, "noprmly2");
6107                 return -EPERM;
6108         }
6109
6110         iob = qeth_get_ipacmd_buffer(card,IPA_CMD_QIPASSIST,prot);
6111         rc = qeth_send_ipa_cmd(card, iob, qeth_query_ipassists_cb, NULL);
6112         return rc;
6113 }
6114
6115 static struct qeth_cmd_buffer *
6116 qeth_get_setassparms_cmd(struct qeth_card *card, enum qeth_ipa_funcs ipa_func,
6117                          __u16 cmd_code, __u16 len,
6118                          enum qeth_prot_versions prot)
6119 {
6120         struct qeth_cmd_buffer *iob;
6121         struct qeth_ipa_cmd *cmd;
6122
6123         QETH_DBF_TEXT(trace,4,"getasscm");
6124         iob = qeth_get_ipacmd_buffer(card,IPA_CMD_SETASSPARMS,prot);
6125
6126         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
6127         cmd->data.setassparms.hdr.assist_no = ipa_func;
6128         cmd->data.setassparms.hdr.length = 8 + len;
6129         cmd->data.setassparms.hdr.command_code = cmd_code;
6130         cmd->data.setassparms.hdr.return_code = 0;
6131         cmd->data.setassparms.hdr.seq_no = 0;
6132
6133         return iob;
6134 }
6135
6136 static int
6137 qeth_send_setassparms(struct qeth_card *card, struct qeth_cmd_buffer *iob,
6138                       __u16 len, long data,
6139                       int (*reply_cb)
6140                       (struct qeth_card *,struct qeth_reply *,unsigned long),
6141                       void *reply_param)
6142 {
6143         int rc;
6144         struct qeth_ipa_cmd *cmd;
6145
6146         QETH_DBF_TEXT(trace,4,"sendassp");
6147
6148         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
6149         if (len <= sizeof(__u32))
6150                 cmd->data.setassparms.data.flags_32bit = (__u32) data;
6151         else if (len > sizeof(__u32))
6152                 memcpy(&cmd->data.setassparms.data, (void *) data, len);
6153
6154         rc = qeth_send_ipa_cmd(card, iob, reply_cb, reply_param);
6155         return rc;
6156 }
6157
6158 #ifdef CONFIG_QETH_IPV6
6159 static int
6160 qeth_send_simple_setassparms_ipv6(struct qeth_card *card,
6161                                   enum qeth_ipa_funcs ipa_func, __u16 cmd_code)
6162
6163 {
6164         int rc;
6165         struct qeth_cmd_buffer *iob;
6166
6167         QETH_DBF_TEXT(trace,4,"simassp6");
6168         iob = qeth_get_setassparms_cmd(card, ipa_func, cmd_code,
6169                                        0, QETH_PROT_IPV6);
6170         rc = qeth_send_setassparms(card, iob, 0, 0,
6171                                    qeth_default_setassparms_cb, NULL);
6172         return rc;
6173 }
6174 #endif
6175
6176 static int
6177 qeth_send_simple_setassparms(struct qeth_card *card,
6178                              enum qeth_ipa_funcs ipa_func,
6179                              __u16 cmd_code, long data)
6180 {
6181         int rc;
6182         int length = 0;
6183         struct qeth_cmd_buffer *iob;
6184
6185         QETH_DBF_TEXT(trace,4,"simassp4");
6186         if (data)
6187                 length = sizeof(__u32);
6188         iob = qeth_get_setassparms_cmd(card, ipa_func, cmd_code,
6189                                        length, QETH_PROT_IPV4);
6190         rc = qeth_send_setassparms(card, iob, length, data,
6191                                    qeth_default_setassparms_cb, NULL);
6192         return rc;
6193 }
6194
6195 static inline int
6196 qeth_start_ipa_arp_processing(struct qeth_card *card)
6197 {
6198         int rc;
6199
6200         QETH_DBF_TEXT(trace,3,"ipaarp");
6201
6202         if (!qeth_is_supported(card,IPA_ARP_PROCESSING)) {
6203                 PRINT_WARN("ARP processing not supported "
6204                            "on %s!\n", QETH_CARD_IFNAME(card));
6205                 return 0;
6206         }
6207         rc = qeth_send_simple_setassparms(card,IPA_ARP_PROCESSING,
6208                                           IPA_CMD_ASS_START, 0);
6209         if (rc) {
6210                 PRINT_WARN("Could not start ARP processing "
6211                            "assist on %s: 0x%x\n",
6212                            QETH_CARD_IFNAME(card), rc);
6213         }
6214         return rc;
6215 }
6216
6217 static int
6218 qeth_start_ipa_ip_fragmentation(struct qeth_card *card)
6219 {
6220         int rc;
6221
6222         QETH_DBF_TEXT(trace,3,"ipaipfrg");
6223
6224         if (!qeth_is_supported(card, IPA_IP_FRAGMENTATION)) {
6225                 PRINT_INFO("Hardware IP fragmentation not supported on %s\n",
6226                            QETH_CARD_IFNAME(card));
6227                 return  -EOPNOTSUPP;
6228         }
6229
6230         rc = qeth_send_simple_setassparms(card, IPA_IP_FRAGMENTATION,
6231                                           IPA_CMD_ASS_START, 0);
6232         if (rc) {
6233                 PRINT_WARN("Could not start Hardware IP fragmentation "
6234                            "assist on %s: 0x%x\n",
6235                            QETH_CARD_IFNAME(card), rc);
6236         } else
6237                 PRINT_INFO("Hardware IP fragmentation enabled \n");
6238         return rc;
6239 }
6240
6241 static int
6242 qeth_start_ipa_source_mac(struct qeth_card *card)
6243 {
6244         int rc;
6245
6246         QETH_DBF_TEXT(trace,3,"stsrcmac");
6247
6248         if (!card->options.fake_ll)
6249                 return -EOPNOTSUPP;
6250
6251         if (!qeth_is_supported(card, IPA_SOURCE_MAC)) {
6252                 PRINT_INFO("Inbound source address not "
6253                            "supported on %s\n", QETH_CARD_IFNAME(card));
6254                 return -EOPNOTSUPP;
6255         }
6256
6257         rc = qeth_send_simple_setassparms(card, IPA_SOURCE_MAC,
6258                                           IPA_CMD_ASS_START, 0);
6259         if (rc)
6260                 PRINT_WARN("Could not start inbound source "
6261                            "assist on %s: 0x%x\n",
6262                            QETH_CARD_IFNAME(card), rc);
6263         return rc;
6264 }
6265
6266 static int
6267 qeth_start_ipa_vlan(struct qeth_card *card)
6268 {
6269         int rc = 0;
6270
6271         QETH_DBF_TEXT(trace,3,"strtvlan");
6272
6273 #ifdef CONFIG_QETH_VLAN
6274         if (!qeth_is_supported(card, IPA_FULL_VLAN)) {
6275                 PRINT_WARN("VLAN not supported on %s\n", QETH_CARD_IFNAME(card));
6276                 return -EOPNOTSUPP;
6277         }
6278
6279         rc = qeth_send_simple_setassparms(card, IPA_VLAN_PRIO,
6280                                           IPA_CMD_ASS_START,0);
6281         if (rc) {
6282                 PRINT_WARN("Could not start vlan "
6283                            "assist on %s: 0x%x\n",
6284                            QETH_CARD_IFNAME(card), rc);
6285         } else {
6286                 PRINT_INFO("VLAN enabled \n");
6287                 card->dev->features |=
6288                         NETIF_F_HW_VLAN_FILTER |
6289                         NETIF_F_HW_VLAN_TX |
6290                         NETIF_F_HW_VLAN_RX;
6291         }
6292 #endif /* QETH_VLAN */
6293         return rc;
6294 }
6295
6296 static int
6297 qeth_start_ipa_multicast(struct qeth_card *card)
6298 {
6299         int rc;
6300
6301         QETH_DBF_TEXT(trace,3,"stmcast");
6302
6303         if (!qeth_is_supported(card, IPA_MULTICASTING)) {
6304                 PRINT_WARN("Multicast not supported on %s\n",
6305                            QETH_CARD_IFNAME(card));
6306                 return -EOPNOTSUPP;
6307         }
6308
6309         rc = qeth_send_simple_setassparms(card, IPA_MULTICASTING,
6310                                           IPA_CMD_ASS_START,0);
6311         if (rc) {
6312                 PRINT_WARN("Could not start multicast "
6313                            "assist on %s: rc=%i\n",
6314                            QETH_CARD_IFNAME(card), rc);
6315         } else {
6316                 PRINT_INFO("Multicast enabled\n");
6317                 card->dev->flags |= IFF_MULTICAST;
6318         }
6319         return rc;
6320 }
6321
6322 #ifdef CONFIG_QETH_IPV6
6323 static int
6324 qeth_softsetup_ipv6(struct qeth_card *card)
6325 {
6326         int rc;
6327
6328         QETH_DBF_TEXT(trace,3,"softipv6");
6329
6330         netif_stop_queue(card->dev);
6331         rc = qeth_send_startlan(card, QETH_PROT_IPV6);
6332         if (rc) {
6333                 PRINT_ERR("IPv6 startlan failed on %s\n",
6334                           QETH_CARD_IFNAME(card));
6335                 return rc;
6336         }
6337         netif_wake_queue(card->dev);
6338         rc = qeth_query_ipassists(card,QETH_PROT_IPV6);
6339         if (rc) {
6340                 PRINT_ERR("IPv6 query ipassist failed on %s\n",
6341                           QETH_CARD_IFNAME(card));
6342                 return rc;
6343         }
6344         rc = qeth_send_simple_setassparms(card, IPA_IPV6,
6345                                           IPA_CMD_ASS_START, 3);
6346         if (rc) {
6347                 PRINT_WARN("IPv6 start assist (version 4) failed "
6348                            "on %s: 0x%x\n",
6349                            QETH_CARD_IFNAME(card), rc);
6350                 return rc;
6351         }
6352         rc = qeth_send_simple_setassparms_ipv6(card, IPA_IPV6,
6353                                                IPA_CMD_ASS_START);
6354         if (rc) {
6355                 PRINT_WARN("IPV6 start assist (version 6) failed  "
6356                            "on %s: 0x%x\n",
6357                            QETH_CARD_IFNAME(card), rc);
6358                 return rc;
6359         }
6360         rc = qeth_send_simple_setassparms_ipv6(card, IPA_PASSTHRU,
6361                                                IPA_CMD_ASS_START);
6362         if (rc) {
6363                 PRINT_WARN("Could not enable passthrough "
6364                            "on %s: 0x%x\n",
6365                            QETH_CARD_IFNAME(card), rc);
6366                 return rc;
6367         }
6368         PRINT_INFO("IPV6 enabled \n");
6369         return 0;
6370 }
6371
6372 #endif
6373
6374 static int
6375 qeth_start_ipa_ipv6(struct qeth_card *card)
6376 {
6377         int rc = 0;
6378 #ifdef CONFIG_QETH_IPV6
6379         QETH_DBF_TEXT(trace,3,"strtipv6");
6380
6381         if (!qeth_is_supported(card, IPA_IPV6)) {
6382                 PRINT_WARN("IPv6 not supported on %s\n",
6383                            QETH_CARD_IFNAME(card));
6384                 return 0;
6385         }
6386         rc = qeth_softsetup_ipv6(card);
6387 #endif
6388         return rc ;
6389 }
6390
6391 static int
6392 qeth_start_ipa_broadcast(struct qeth_card *card)
6393 {
6394         int rc;
6395
6396         QETH_DBF_TEXT(trace,3,"stbrdcst");
6397         card->info.broadcast_capable = 0;
6398         if (!qeth_is_supported(card, IPA_FILTERING)) {
6399                 PRINT_WARN("Broadcast not supported on %s\n",
6400                            QETH_CARD_IFNAME(card));
6401                 rc = -EOPNOTSUPP;
6402                 goto out;
6403         }
6404         rc = qeth_send_simple_setassparms(card, IPA_FILTERING,
6405                                           IPA_CMD_ASS_START, 0);
6406         if (rc) {
6407                 PRINT_WARN("Could not enable broadcasting filtering "
6408                            "on %s: 0x%x\n",
6409                            QETH_CARD_IFNAME(card), rc);
6410                 goto out;
6411         }
6412
6413         rc = qeth_send_simple_setassparms(card, IPA_FILTERING,
6414                                           IPA_CMD_ASS_CONFIGURE, 1);
6415         if (rc) {
6416                 PRINT_WARN("Could not set up broadcast filtering on %s: 0x%x\n",
6417                            QETH_CARD_IFNAME(card), rc);
6418                 goto out;
6419         }
6420         card->info.broadcast_capable = QETH_BROADCAST_WITH_ECHO;
6421         PRINT_INFO("Broadcast enabled \n");
6422         rc = qeth_send_simple_setassparms(card, IPA_FILTERING,
6423                                           IPA_CMD_ASS_ENABLE, 1);
6424         if (rc) {
6425                 PRINT_WARN("Could not set up broadcast echo filtering on "
6426                            "%s: 0x%x\n", QETH_CARD_IFNAME(card), rc);
6427                 goto out;
6428         }
6429         card->info.broadcast_capable = QETH_BROADCAST_WITHOUT_ECHO;
6430 out:
6431         if (card->info.broadcast_capable)
6432                 card->dev->flags |= IFF_BROADCAST;
6433         else
6434                 card->dev->flags &= ~IFF_BROADCAST;
6435         return rc;
6436 }
6437
6438 static int
6439 qeth_send_checksum_command(struct qeth_card *card)
6440 {
6441         int rc;
6442
6443         rc = qeth_send_simple_setassparms(card, IPA_INBOUND_CHECKSUM,
6444                                           IPA_CMD_ASS_START, 0);
6445         if (rc) {
6446                 PRINT_WARN("Starting Inbound HW Checksumming failed on %s: "
6447                            "0x%x,\ncontinuing using Inbound SW Checksumming\n",
6448                            QETH_CARD_IFNAME(card), rc);
6449                 return rc;
6450         }
6451         rc = qeth_send_simple_setassparms(card, IPA_INBOUND_CHECKSUM,
6452                                           IPA_CMD_ASS_ENABLE,
6453                                           card->info.csum_mask);
6454         if (rc) {
6455                 PRINT_WARN("Enabling Inbound HW Checksumming failed on %s: "
6456                            "0x%x,\ncontinuing using Inbound SW Checksumming\n",
6457                            QETH_CARD_IFNAME(card), rc);
6458                 return rc;
6459         }
6460         return 0;
6461 }
6462
6463 static int
6464 qeth_start_ipa_checksum(struct qeth_card *card)
6465 {
6466         int rc = 0;
6467
6468         QETH_DBF_TEXT(trace,3,"strtcsum");
6469
6470         if (card->options.checksum_type == NO_CHECKSUMMING) {
6471                 PRINT_WARN("Using no checksumming on %s.\n",
6472                            QETH_CARD_IFNAME(card));
6473                 return 0;
6474         }
6475         if (card->options.checksum_type == SW_CHECKSUMMING) {
6476                 PRINT_WARN("Using SW checksumming on %s.\n",
6477                            QETH_CARD_IFNAME(card));
6478                 return 0;
6479         }
6480         if (!qeth_is_supported(card, IPA_INBOUND_CHECKSUM)) {
6481                 PRINT_WARN("Inbound HW Checksumming not "
6482                            "supported on %s,\ncontinuing "
6483                            "using Inbound SW Checksumming\n",
6484                            QETH_CARD_IFNAME(card));
6485                 card->options.checksum_type = SW_CHECKSUMMING;
6486                 return 0;
6487         }
6488         rc = qeth_send_checksum_command(card);
6489         if (!rc) {
6490                 PRINT_INFO("HW Checksumming (inbound) enabled \n");
6491         }
6492         return rc;
6493 }
6494
6495 /*
6496 static inline void
6497 qeth_print_ipassist_status(struct qeth_card *card)
6498 {
6499         char buf[255];
6500         int offset = 0;
6501
6502         offset += sprintf(buf, "IPAssist options of %s: ", card->info.if_name);
6503         if (qeth_is_enabled(card, IPA_ARP_PROCESSING))
6504                 offset += sprintf(buf+offset, "ARP ");
6505         if (qeth_is_enabled(card, IPA_IP_FRAGMENTATION))
6506                 offset += sprintf(buf+offset, "IP_FRAG");
6507         if (qeth_is_enabled(card, IPA_SOURCE_MAC))
6508                 offset += sprintf(buf+offset, "SRC_MAC");
6509         if (qeth_is_enabled(card, IPA_FULL_VLAN))
6510                 offset += sprintf(buf+offset, "VLAN");
6511         if (qeth_is_enabled(card, IPA_VLAN_PRIO))
6512                 offset += sprintf(buf+offset, "VLAN_PRIO");
6513 }
6514 */
6515
6516 static int
6517 qeth_start_ipassists(struct qeth_card *card)
6518 {
6519         QETH_DBF_TEXT(trace,3,"strtipas");
6520         qeth_start_ipa_arp_processing(card);    /* go on*/
6521         qeth_start_ipa_ip_fragmentation(card);  /* go on*/
6522         qeth_start_ipa_source_mac(card);        /* go on*/
6523         qeth_start_ipa_vlan(card);              /* go on*/
6524         qeth_start_ipa_multicast(card);         /* go on*/
6525         qeth_start_ipa_ipv6(card);              /* go on*/
6526         qeth_start_ipa_broadcast(card);         /* go on*/
6527         qeth_start_ipa_checksum(card);          /* go on*/
6528         return 0;
6529 }
6530
6531 static int
6532 qeth_send_setrouting(struct qeth_card *card, enum qeth_routing_types type,
6533                      enum qeth_prot_versions prot)
6534 {
6535         int rc;
6536         struct qeth_ipa_cmd *cmd;
6537         struct qeth_cmd_buffer *iob;
6538
6539         QETH_DBF_TEXT(trace,4,"setroutg");
6540         iob = qeth_get_ipacmd_buffer(card, IPA_CMD_SETRTG, prot);
6541         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
6542         cmd->data.setrtg.type = (type);
6543         rc = qeth_send_ipa_cmd(card, iob, NULL, NULL);
6544
6545         return rc;
6546
6547 }
6548
6549 static void
6550 qeth_correct_routing_type(struct qeth_card *card, enum qeth_routing_types *type,
6551                         enum qeth_prot_versions prot)
6552 {
6553         if (card->info.type == QETH_CARD_TYPE_IQD) {
6554                 switch (*type) {
6555                 case NO_ROUTER:
6556                 case PRIMARY_CONNECTOR:
6557                 case SECONDARY_CONNECTOR:
6558                 case MULTICAST_ROUTER:
6559                         return;
6560                 default:
6561                         goto out_inval;
6562                 }
6563         } else {
6564                 switch (*type) {
6565                 case NO_ROUTER:
6566                 case PRIMARY_ROUTER:
6567                 case SECONDARY_ROUTER:
6568                         return;
6569                 case MULTICAST_ROUTER:
6570                         if (qeth_is_ipafunc_supported(card, prot,
6571                                                       IPA_OSA_MC_ROUTER))
6572                                 return;
6573                 default:
6574                         goto out_inval;
6575                 }
6576         }
6577 out_inval:
6578         PRINT_WARN("Routing type '%s' not supported for interface %s.\n"
6579                    "Router status set to 'no router'.\n",
6580                    ((*type == PRIMARY_ROUTER)? "primary router" :
6581                     (*type == SECONDARY_ROUTER)? "secondary router" :
6582                     (*type == PRIMARY_CONNECTOR)? "primary connector" :
6583                     (*type == SECONDARY_CONNECTOR)? "secondary connector" :
6584                     (*type == MULTICAST_ROUTER)? "multicast router" :
6585                     "unknown"),
6586                    card->dev->name);
6587         *type = NO_ROUTER;
6588 }
6589
6590 int
6591 qeth_setrouting_v4(struct qeth_card *card)
6592 {
6593         int rc;
6594
6595         QETH_DBF_TEXT(trace,3,"setrtg4");
6596
6597         qeth_correct_routing_type(card, &card->options.route4.type,
6598                                   QETH_PROT_IPV4);
6599
6600         rc = qeth_send_setrouting(card, card->options.route4.type,
6601                                   QETH_PROT_IPV4);
6602         if (rc) {
6603                 card->options.route4.type = NO_ROUTER;
6604                 PRINT_WARN("Error (0x%04x) while setting routing type on %s. "
6605                            "Type set to 'no router'.\n",
6606                            rc, QETH_CARD_IFNAME(card));
6607         }
6608         return rc;
6609 }
6610
6611 int
6612 qeth_setrouting_v6(struct qeth_card *card)
6613 {
6614         int rc = 0;
6615
6616         QETH_DBF_TEXT(trace,3,"setrtg6");
6617 #ifdef CONFIG_QETH_IPV6
6618
6619         qeth_correct_routing_type(card, &card->options.route6.type,
6620                                   QETH_PROT_IPV6);
6621
6622         if ((card->options.route6.type == NO_ROUTER) ||
6623             ((card->info.type == QETH_CARD_TYPE_OSAE) &&
6624              (card->options.route6.type == MULTICAST_ROUTER) &&
6625              !qeth_is_supported6(card,IPA_OSA_MC_ROUTER)))
6626                 return 0;
6627         rc = qeth_send_setrouting(card, card->options.route6.type,
6628                                   QETH_PROT_IPV6);
6629         if (rc) {
6630                 card->options.route6.type = NO_ROUTER;
6631                 PRINT_WARN("Error (0x%04x) while setting routing type on %s. "
6632                            "Type set to 'no router'.\n",
6633                            rc, QETH_CARD_IFNAME(card));
6634         }
6635 #endif
6636         return rc;
6637 }
6638
6639 /*
6640  * softsetup card: init IPA stuff
6641  */
6642 static int
6643 qeth_softsetup_card(struct qeth_card *card)
6644 {
6645         int rc;
6646
6647         QETH_DBF_TEXT(setup, 2, "softsetp");
6648
6649         if ((rc = qeth_send_startlan(card, QETH_PROT_IPV4))){
6650                 QETH_DBF_TEXT_(setup, 2, "1err%d", rc);
6651                 if (rc == 0xe080){
6652                         PRINT_WARN("LAN on card %s if offline! "
6653                                    "Continuing softsetup.\n",
6654                                    CARD_BUS_ID(card));
6655                         card->lan_online = 0;
6656                 } else
6657                         return rc;
6658         } else
6659                 card->lan_online = 1;
6660         if (card->options.layer2) {
6661                 card->dev->features |=
6662                         NETIF_F_HW_VLAN_FILTER |
6663                         NETIF_F_HW_VLAN_TX |
6664                         NETIF_F_HW_VLAN_RX;
6665                 card->dev->flags|=IFF_MULTICAST|IFF_BROADCAST;
6666                 card->info.broadcast_capable=1;
6667                 if ((rc = qeth_layer2_initialize(card))) {
6668                         QETH_DBF_TEXT_(setup, 2, "L2err%d", rc);
6669                         return rc;
6670                 }
6671 #ifdef CONFIG_QETH_VLAN
6672                 qeth_layer2_process_vlans(card, 0);
6673 #endif
6674                 goto out;
6675         }
6676         if ((rc = qeth_setadapter_parms(card)))
6677                 QETH_DBF_TEXT_(setup, 2, "2err%d", rc);
6678         if ((rc = qeth_start_ipassists(card)))
6679                 QETH_DBF_TEXT_(setup, 2, "3err%d", rc);
6680         if ((rc = qeth_setrouting_v4(card)))
6681                 QETH_DBF_TEXT_(setup, 2, "4err%d", rc);
6682         if ((rc = qeth_setrouting_v6(card)))
6683                 QETH_DBF_TEXT_(setup, 2, "5err%d", rc);
6684 out:
6685         netif_stop_queue(card->dev);
6686         return 0;
6687 }
6688
6689 #ifdef CONFIG_QETH_IPV6
6690 static int
6691 qeth_get_unique_id_cb(struct qeth_card *card, struct qeth_reply *reply,
6692                       unsigned long data)
6693 {
6694         struct qeth_ipa_cmd *cmd;
6695
6696         cmd = (struct qeth_ipa_cmd *) data;
6697         if (cmd->hdr.return_code == 0)
6698                 card->info.unique_id = *((__u16 *)
6699                                 &cmd->data.create_destroy_addr.unique_id[6]);
6700         else {
6701                 card->info.unique_id =  UNIQUE_ID_IF_CREATE_ADDR_FAILED |
6702                                         UNIQUE_ID_NOT_BY_CARD;
6703                 PRINT_WARN("couldn't get a unique id from the card on device "
6704                            "%s (result=x%x), using default id. ipv6 "
6705                            "autoconfig on other lpars may lead to duplicate "
6706                            "ip addresses. please use manually "
6707                            "configured ones.\n",
6708                            CARD_BUS_ID(card), cmd->hdr.return_code);
6709         }
6710         return 0;
6711 }
6712 #endif
6713
6714 static int
6715 qeth_put_unique_id(struct qeth_card *card)
6716 {
6717
6718         int rc = 0;
6719 #ifdef CONFIG_QETH_IPV6
6720         struct qeth_cmd_buffer *iob;
6721         struct qeth_ipa_cmd *cmd;
6722
6723         QETH_DBF_TEXT(trace,2,"puniqeid");
6724
6725         if ((card->info.unique_id & UNIQUE_ID_NOT_BY_CARD) ==
6726                 UNIQUE_ID_NOT_BY_CARD)
6727                 return -1;
6728         iob = qeth_get_ipacmd_buffer(card, IPA_CMD_DESTROY_ADDR,
6729                                      QETH_PROT_IPV6);
6730         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
6731         *((__u16 *) &cmd->data.create_destroy_addr.unique_id[6]) =
6732                             card->info.unique_id;
6733         memcpy(&cmd->data.create_destroy_addr.unique_id[0],
6734                card->dev->dev_addr, OSA_ADDR_LEN);
6735         rc = qeth_send_ipa_cmd(card, iob, NULL, NULL);
6736 #else
6737         card->info.unique_id =  UNIQUE_ID_IF_CREATE_ADDR_FAILED |
6738                                 UNIQUE_ID_NOT_BY_CARD;
6739 #endif
6740         return rc;
6741 }
6742
6743 /**
6744  * Clear IP List
6745  */
6746 static void
6747 qeth_clear_ip_list(struct qeth_card *card, int clean, int recover)
6748 {
6749         struct qeth_ipaddr *addr, *tmp;
6750         unsigned long flags;
6751
6752         QETH_DBF_TEXT(trace,4,"clearip");
6753         spin_lock_irqsave(&card->ip_lock, flags);
6754         /* clear todo list */
6755         list_for_each_entry_safe(addr, tmp, card->ip_tbd_list, entry){
6756                 list_del(&addr->entry);
6757                 kfree(addr);
6758         }
6759
6760         while (!list_empty(&card->ip_list)) {
6761                 addr = list_entry(card->ip_list.next,
6762                                   struct qeth_ipaddr, entry);
6763                 list_del_init(&addr->entry);
6764                 if (clean) {
6765                         spin_unlock_irqrestore(&card->ip_lock, flags);
6766                         qeth_deregister_addr_entry(card, addr);
6767                         spin_lock_irqsave(&card->ip_lock, flags);
6768                 }
6769                 if (!recover || addr->is_multicast) {
6770                         kfree(addr);
6771                         continue;
6772                 }
6773                 list_add_tail(&addr->entry, card->ip_tbd_list);
6774         }
6775         spin_unlock_irqrestore(&card->ip_lock, flags);
6776 }
6777
6778 static void
6779 qeth_set_allowed_threads(struct qeth_card *card, unsigned long threads,
6780                          int clear_start_mask)
6781 {
6782         unsigned long flags;
6783
6784         spin_lock_irqsave(&card->thread_mask_lock, flags);
6785         card->thread_allowed_mask = threads;
6786         if (clear_start_mask)
6787                 card->thread_start_mask &= threads;
6788         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
6789         wake_up(&card->wait_q);
6790 }
6791
6792 static inline int
6793 qeth_threads_running(struct qeth_card *card, unsigned long threads)
6794 {
6795         unsigned long flags;
6796         int rc = 0;
6797
6798         spin_lock_irqsave(&card->thread_mask_lock, flags);
6799         rc = (card->thread_running_mask & threads);
6800         spin_unlock_irqrestore(&card->thread_mask_lock, flags);
6801         return rc;
6802 }
6803
6804 static int
6805 qeth_wait_for_threads(struct qeth_card *card, unsigned long threads)
6806 {
6807         return wait_event_interruptible(card->wait_q,
6808                         qeth_threads_running(card, threads) == 0);
6809 }
6810
6811 static int
6812 qeth_stop_card(struct qeth_card *card)
6813 {
6814         int rc = 0;
6815
6816         QETH_DBF_TEXT(setup ,2,"stopcard");
6817         QETH_DBF_HEX(setup, 2, &card, sizeof(void *));
6818
6819         qeth_set_allowed_threads(card, 0, 1);
6820         if (qeth_wait_for_threads(card, ~QETH_RECOVER_THREAD))
6821                 return -ERESTARTSYS;
6822         if (card->read.state == CH_STATE_UP &&
6823             card->write.state == CH_STATE_UP &&
6824             (card->state == CARD_STATE_UP)) {
6825                 rtnl_lock();
6826                 dev_close(card->dev);
6827                 rtnl_unlock();
6828                 if (!card->use_hard_stop) {
6829                         __u8 *mac = &card->dev->dev_addr[0];
6830                         rc = qeth_layer2_send_delmac(card, mac);
6831                         QETH_DBF_TEXT_(setup, 2, "Lerr%d", rc);
6832                         if ((rc = qeth_send_stoplan(card)))
6833                                 QETH_DBF_TEXT_(setup, 2, "1err%d", rc);
6834                 }
6835                 card->state = CARD_STATE_SOFTSETUP;
6836         }
6837         if (card->state == CARD_STATE_SOFTSETUP) {
6838 #ifdef CONFIG_QETH_VLAN
6839                 if (card->options.layer2)
6840                         qeth_layer2_process_vlans(card, 1);
6841 #endif
6842                 qeth_clear_ip_list(card, !card->use_hard_stop, 1);
6843                 qeth_clear_ipacmd_list(card);
6844                 card->state = CARD_STATE_HARDSETUP;
6845         }
6846         if (card->state == CARD_STATE_HARDSETUP) {
6847                 if ((!card->use_hard_stop) &&
6848                     (!card->options.layer2))
6849                         if ((rc = qeth_put_unique_id(card)))
6850                                 QETH_DBF_TEXT_(setup, 2, "2err%d", rc);
6851                 qeth_qdio_clear_card(card, 0);
6852                 qeth_clear_qdio_buffers(card);
6853                 qeth_clear_working_pool_list(card);
6854                 card->state = CARD_STATE_DOWN;
6855         }
6856         if (card->state == CARD_STATE_DOWN) {
6857                 qeth_clear_cmd_buffers(&card->read);
6858                 qeth_clear_cmd_buffers(&card->write);
6859         }
6860         card->use_hard_stop = 0;
6861         return rc;
6862 }
6863
6864
6865 static int
6866 qeth_get_unique_id(struct qeth_card *card)
6867 {
6868         int rc = 0;
6869 #ifdef CONFIG_QETH_IPV6
6870         struct qeth_cmd_buffer *iob;
6871         struct qeth_ipa_cmd *cmd;
6872
6873         QETH_DBF_TEXT(setup, 2, "guniqeid");
6874
6875         if (!qeth_is_supported(card,IPA_IPV6)) {
6876                 card->info.unique_id =  UNIQUE_ID_IF_CREATE_ADDR_FAILED |
6877                                         UNIQUE_ID_NOT_BY_CARD;
6878                 return 0;
6879         }
6880
6881         iob = qeth_get_ipacmd_buffer(card, IPA_CMD_CREATE_ADDR,
6882                                      QETH_PROT_IPV6);
6883         cmd = (struct qeth_ipa_cmd *)(iob->data+IPA_PDU_HEADER_SIZE);
6884         *((__u16 *) &cmd->data.create_destroy_addr.unique_id[6]) =
6885                             card->info.unique_id;
6886
6887         rc = qeth_send_ipa_cmd(card, iob, qeth_get_unique_id_cb, NULL);
6888 #else
6889         card->info.unique_id =  UNIQUE_ID_IF_CREATE_ADDR_FAILED |
6890                                 UNIQUE_ID_NOT_BY_CARD;
6891 #endif
6892         return rc;
6893 }
6894 static void
6895 qeth_print_status_with_portname(struct qeth_card *card)
6896 {
6897         char dbf_text[15];
6898         int i;
6899
6900         sprintf(dbf_text, "%s", card->info.portname + 1);
6901         for (i = 0; i < 8; i++)
6902                 dbf_text[i] =
6903                         (char) _ebcasc[(__u8) dbf_text[i]];
6904         dbf_text[8] = 0;
6905         printk("qeth: Device %s/%s/%s is a%s card%s%s%s\n"
6906                "with link type %s (portname: %s)\n",
6907                CARD_RDEV_ID(card),
6908                CARD_WDEV_ID(card),
6909                CARD_DDEV_ID(card),
6910                qeth_get_cardname(card),
6911                (card->info.mcl_level[0]) ? " (level: " : "",
6912                (card->info.mcl_level[0]) ? card->info.mcl_level : "",
6913                (card->info.mcl_level[0]) ? ")" : "",
6914                qeth_get_cardname_short(card),
6915                dbf_text);
6916
6917 }
6918
6919 static void
6920 qeth_print_status_no_portname(struct qeth_card *card)
6921 {
6922         if (card->info.portname[0])
6923                 printk("qeth: Device %s/%s/%s is a%s "
6924                        "card%s%s%s\nwith link type %s "
6925                        "(no portname needed by interface).\n",
6926                        CARD_RDEV_ID(card),
6927                        CARD_WDEV_ID(card),
6928                        CARD_DDEV_ID(card),
6929                        qeth_get_cardname(card),
6930                        (card->info.mcl_level[0]) ? " (level: " : "",
6931                        (card->info.mcl_level[0]) ? card->info.mcl_level : "",
6932                        (card->info.mcl_level[0]) ? ")" : "",
6933                        qeth_get_cardname_short(card));
6934         else
6935                 printk("qeth: Device %s/%s/%s is a%s "
6936                        "card%s%s%s\nwith link type %s.\n",
6937                        CARD_RDEV_ID(card),
6938                        CARD_WDEV_ID(card),
6939                        CARD_DDEV_ID(card),
6940                        qeth_get_cardname(card),
6941                        (card->info.mcl_level[0]) ? " (level: " : "",
6942                        (card->info.mcl_level[0]) ? card->info.mcl_level : "",
6943                        (card->info.mcl_level[0]) ? ")" : "",
6944                        qeth_get_cardname_short(card));
6945 }
6946
6947 static void
6948 qeth_print_status_message(struct qeth_card *card)
6949 {
6950         switch (card->info.type) {
6951         case QETH_CARD_TYPE_OSAE:
6952                 /* VM will use a non-zero first character
6953                  * to indicate a HiperSockets like reporting
6954                  * of the level OSA sets the first character to zero
6955                  * */
6956                 if (!card->info.mcl_level[0]) {
6957                         sprintf(card->info.mcl_level,"%02x%02x",
6958                                 card->info.mcl_level[2],
6959                                 card->info.mcl_level[3]);
6960
6961                         card->info.mcl_level[QETH_MCL_LENGTH] = 0;
6962                         break;
6963                 }
6964                 /* fallthrough */
6965         case QETH_CARD_TYPE_IQD:
6966                 card->info.mcl_level[0] = (char) _ebcasc[(__u8)
6967                         card->info.mcl_level[0]];
6968                 card->info.mcl_level[1] = (char) _ebcasc[(__u8)
6969                         card->info.mcl_level[1]];
6970                 card->info.mcl_level[2] = (char) _ebcasc[(__u8)
6971                         card->info.mcl_level[2]];
6972                 card->info.mcl_level[3] = (char) _ebcasc[(__u8)
6973                         card->info.mcl_level[3]];
6974                 card->info.mcl_level[QETH_MCL_LENGTH] = 0;
6975                 break;
6976         default:
6977                 memset(&card->info.mcl_level[0], 0, QETH_MCL_LENGTH + 1);
6978         }
6979         if (card->info.portname_required)
6980                 qeth_print_status_with_portname(card);
6981         else
6982                 qeth_print_status_no_portname(card);
6983 }
6984
6985 static int
6986 qeth_register_netdev(struct qeth_card *card)
6987 {
6988         QETH_DBF_TEXT(setup, 3, "regnetd");
6989         if (card->dev->reg_state != NETREG_UNINITIALIZED) {
6990                 qeth_netdev_init(card->dev);
6991                 return 0;
6992         }
6993         /* sysfs magic */
6994         SET_NETDEV_DEV(card->dev, &card->gdev->dev);
6995         return register_netdev(card->dev);
6996 }
6997
6998 static void
6999 qeth_start_again(struct qeth_card *card)
7000 {
7001         QETH_DBF_TEXT(setup ,2, "startag");
7002
7003         rtnl_lock();
7004         dev_open(card->dev);
7005         rtnl_unlock();
7006         /* this also sets saved unicast addresses */
7007         qeth_set_multicast_list(card->dev);
7008 }
7009
7010
7011 /* Layer 2 specific stuff */
7012 #define IGNORE_PARAM_EQ(option,value,reset_value,msg) \
7013         if (card->options.option == value) { \
7014                 PRINT_ERR("%s not supported with layer 2 " \
7015                           "functionality, ignoring option on read" \
7016                           "channel device %s .\n",msg,CARD_RDEV_ID(card)); \
7017                 card->options.option = reset_value; \
7018         }
7019 #define IGNORE_PARAM_NEQ(option,value,reset_value,msg) \
7020         if (card->options.option != value) { \
7021                 PRINT_ERR("%s not supported with layer 2 " \
7022                           "functionality, ignoring option on read" \
7023                           "channel device %s .\n",msg,CARD_RDEV_ID(card)); \
7024                 card->options.option = reset_value; \
7025         }
7026
7027
7028 static void qeth_make_parameters_consistent(struct qeth_card *card)
7029 {
7030
7031         if (card->options.layer2) {
7032                 if (card->info.type == QETH_CARD_TYPE_IQD) {
7033                         PRINT_ERR("Device %s does not support " \
7034                                   "layer 2 functionality. "  \
7035                                   "Ignoring layer2 option.\n",CARD_BUS_ID(card));
7036                 }
7037                 IGNORE_PARAM_NEQ(route4.type, NO_ROUTER, NO_ROUTER,
7038                                  "Routing options are");
7039 #ifdef CONFIG_QETH_IPV6
7040                 IGNORE_PARAM_NEQ(route6.type, NO_ROUTER, NO_ROUTER,
7041                                  "Routing options are");
7042 #endif
7043                 IGNORE_PARAM_EQ(checksum_type, HW_CHECKSUMMING,
7044                                 QETH_CHECKSUM_DEFAULT,
7045                                 "Checksumming options are");
7046                 IGNORE_PARAM_NEQ(broadcast_mode, QETH_TR_BROADCAST_ALLRINGS,
7047                                  QETH_TR_BROADCAST_ALLRINGS,
7048                                  "Broadcast mode options are");
7049                 IGNORE_PARAM_NEQ(macaddr_mode, QETH_TR_MACADDR_NONCANONICAL,
7050                                  QETH_TR_MACADDR_NONCANONICAL,
7051                                  "Canonical MAC addr options are");
7052                 IGNORE_PARAM_NEQ(fake_broadcast, 0, 0,
7053                                  "Broadcast faking options are");
7054                 IGNORE_PARAM_NEQ(add_hhlen, DEFAULT_ADD_HHLEN,
7055                                  DEFAULT_ADD_HHLEN,"Option add_hhlen is");
7056                 IGNORE_PARAM_NEQ(fake_ll, 0, 0,"Option fake_ll is");
7057         }
7058 }
7059
7060
7061 static int
7062 qeth_set_online(struct ccwgroup_device *gdev)
7063 {
7064         struct qeth_card *card = gdev->dev.driver_data;
7065         int rc = 0;
7066         enum qeth_card_states recover_flag;
7067
7068         BUG_ON(!card);
7069         QETH_DBF_TEXT(setup ,2, "setonlin");
7070         QETH_DBF_HEX(setup, 2, &card, sizeof(void *));
7071
7072         qeth_set_allowed_threads(card, QETH_RECOVER_THREAD, 1);
7073         if (qeth_wait_for_threads(card, ~QETH_RECOVER_THREAD)){
7074                 PRINT_WARN("set_online of card %s interrupted by user!\n",
7075                            CARD_BUS_ID(card));
7076                 return -ERESTARTSYS;
7077         }
7078
7079         recover_flag = card->state;
7080         if ((rc = ccw_device_set_online(CARD_RDEV(card))) ||
7081             (rc = ccw_device_set_online(CARD_WDEV(card))) ||
7082             (rc = ccw_device_set_online(CARD_DDEV(card)))){
7083                 QETH_DBF_TEXT_(setup, 2, "1err%d", rc);
7084                 return -EIO;
7085         }
7086
7087         if (card->options.layer2)
7088                 qeth_make_parameters_consistent(card);
7089
7090         if ((rc = qeth_hardsetup_card(card))){
7091                 QETH_DBF_TEXT_(setup, 2, "2err%d", rc);
7092                 goto out_remove;
7093         }
7094         card->state = CARD_STATE_HARDSETUP;
7095
7096         if (!(rc = qeth_query_ipassists(card,QETH_PROT_IPV4)))
7097                 rc = qeth_get_unique_id(card);
7098
7099         if (rc && card->options.layer2 == 0) {
7100                 QETH_DBF_TEXT_(setup, 2, "3err%d", rc);
7101                 goto out_remove;
7102         }
7103         qeth_print_status_message(card);
7104         if ((rc = qeth_register_netdev(card))){
7105                 QETH_DBF_TEXT_(setup, 2, "4err%d", rc);
7106                 goto out_remove;
7107         }
7108         if ((rc = qeth_softsetup_card(card))){
7109                 QETH_DBF_TEXT_(setup, 2, "5err%d", rc);
7110                 goto out_remove;
7111         }
7112         card->state = CARD_STATE_SOFTSETUP;
7113
7114         if ((rc = qeth_init_qdio_queues(card))){
7115                 QETH_DBF_TEXT_(setup, 2, "6err%d", rc);
7116                 goto out_remove;
7117         }
7118 /*maybe it was set offline without ifconfig down
7119  * we can also use this state for recovery purposes*/
7120         if (card->options.layer2)
7121                 qeth_set_allowed_threads(card, QETH_RECOVER_THREAD, 0);
7122         else
7123                 qeth_set_allowed_threads(card, 0xffffffff, 0);
7124         if (recover_flag == CARD_STATE_RECOVER)
7125                 qeth_start_again(card);
7126         qeth_notify_processes();
7127         return 0;
7128 out_remove:
7129         card->use_hard_stop = 1;
7130         qeth_stop_card(card);
7131         ccw_device_set_offline(CARD_DDEV(card));
7132         ccw_device_set_offline(CARD_WDEV(card));
7133         ccw_device_set_offline(CARD_RDEV(card));
7134         if (recover_flag == CARD_STATE_RECOVER)
7135                 card->state = CARD_STATE_RECOVER;
7136         else
7137                 card->state = CARD_STATE_DOWN;
7138         return -ENODEV;
7139 }
7140
7141 static struct ccw_device_id qeth_ids[] = {
7142         {CCW_DEVICE(0x1731, 0x01), driver_info:QETH_CARD_TYPE_OSAE},
7143         {CCW_DEVICE(0x1731, 0x05), driver_info:QETH_CARD_TYPE_IQD},
7144         {},
7145 };
7146 MODULE_DEVICE_TABLE(ccw, qeth_ids);
7147
7148 struct device *qeth_root_dev = NULL;
7149
7150 struct ccwgroup_driver qeth_ccwgroup_driver = {
7151         .owner = THIS_MODULE,
7152         .name = "qeth",
7153         .driver_id = 0xD8C5E3C8,
7154         .probe = qeth_probe_device,
7155         .remove = qeth_remove_device,
7156         .set_online = qeth_set_online,
7157         .set_offline = qeth_set_offline,
7158 };
7159
7160 struct ccw_driver qeth_ccw_driver = {
7161         .name = "qeth",
7162         .ids = qeth_ids,
7163         .probe = ccwgroup_probe_ccwdev,
7164         .remove = ccwgroup_remove_ccwdev,
7165 };
7166
7167
7168 static void
7169 qeth_unregister_dbf_views(void)
7170 {
7171         if (qeth_dbf_setup)
7172                 debug_unregister(qeth_dbf_setup);
7173         if (qeth_dbf_qerr)
7174                 debug_unregister(qeth_dbf_qerr);
7175         if (qeth_dbf_sense)
7176                 debug_unregister(qeth_dbf_sense);
7177         if (qeth_dbf_misc)
7178                 debug_unregister(qeth_dbf_misc);
7179         if (qeth_dbf_data)
7180                 debug_unregister(qeth_dbf_data);
7181         if (qeth_dbf_control)
7182                 debug_unregister(qeth_dbf_control);
7183         if (qeth_dbf_trace)
7184                 debug_unregister(qeth_dbf_trace);
7185 }
7186 static int
7187 qeth_register_dbf_views(void)
7188 {
7189         qeth_dbf_setup = debug_register(QETH_DBF_SETUP_NAME,
7190                                         QETH_DBF_SETUP_INDEX,
7191                                         QETH_DBF_SETUP_NR_AREAS,
7192                                         QETH_DBF_SETUP_LEN);
7193         qeth_dbf_misc = debug_register(QETH_DBF_MISC_NAME,
7194                                        QETH_DBF_MISC_INDEX,
7195                                        QETH_DBF_MISC_NR_AREAS,
7196                                        QETH_DBF_MISC_LEN);
7197         qeth_dbf_data = debug_register(QETH_DBF_DATA_NAME,
7198                                        QETH_DBF_DATA_INDEX,
7199                                        QETH_DBF_DATA_NR_AREAS,
7200                                        QETH_DBF_DATA_LEN);
7201         qeth_dbf_control = debug_register(QETH_DBF_CONTROL_NAME,
7202                                           QETH_DBF_CONTROL_INDEX,
7203                                           QETH_DBF_CONTROL_NR_AREAS,
7204                                           QETH_DBF_CONTROL_LEN);
7205         qeth_dbf_sense = debug_register(QETH_DBF_SENSE_NAME,
7206                                         QETH_DBF_SENSE_INDEX,
7207                                         QETH_DBF_SENSE_NR_AREAS,
7208                                         QETH_DBF_SENSE_LEN);
7209         qeth_dbf_qerr = debug_register(QETH_DBF_QERR_NAME,
7210                                        QETH_DBF_QERR_INDEX,
7211                                        QETH_DBF_QERR_NR_AREAS,
7212                                        QETH_DBF_QERR_LEN);
7213         qeth_dbf_trace = debug_register(QETH_DBF_TRACE_NAME,
7214                                         QETH_DBF_TRACE_INDEX,
7215                                         QETH_DBF_TRACE_NR_AREAS,
7216                                         QETH_DBF_TRACE_LEN);
7217
7218         if ((qeth_dbf_setup == NULL) || (qeth_dbf_misc == NULL)    ||
7219             (qeth_dbf_data == NULL)  || (qeth_dbf_control == NULL) ||
7220             (qeth_dbf_sense == NULL) || (qeth_dbf_qerr == NULL)    ||
7221             (qeth_dbf_trace == NULL)) {
7222                 qeth_unregister_dbf_views();
7223                 return -ENOMEM;
7224         }
7225         debug_register_view(qeth_dbf_setup, &debug_hex_ascii_view);
7226         debug_set_level(qeth_dbf_setup, QETH_DBF_SETUP_LEVEL);
7227
7228         debug_register_view(qeth_dbf_misc, &debug_hex_ascii_view);
7229         debug_set_level(qeth_dbf_misc, QETH_DBF_MISC_LEVEL);
7230
7231         debug_register_view(qeth_dbf_data, &debug_hex_ascii_view);
7232         debug_set_level(qeth_dbf_data, QETH_DBF_DATA_LEVEL);
7233
7234         debug_register_view(qeth_dbf_control, &debug_hex_ascii_view);
7235         debug_set_level(qeth_dbf_control, QETH_DBF_CONTROL_LEVEL);
7236
7237         debug_register_view(qeth_dbf_sense, &debug_hex_ascii_view);
7238         debug_set_level(qeth_dbf_sense, QETH_DBF_SENSE_LEVEL);
7239
7240         debug_register_view(qeth_dbf_qerr, &debug_hex_ascii_view);
7241         debug_set_level(qeth_dbf_qerr, QETH_DBF_QERR_LEVEL);
7242
7243         debug_register_view(qeth_dbf_trace, &debug_hex_ascii_view);
7244         debug_set_level(qeth_dbf_trace, QETH_DBF_TRACE_LEVEL);
7245
7246         return 0;
7247 }
7248
7249 #ifdef CONFIG_QETH_IPV6
7250 extern struct neigh_table arp_tbl;
7251 static struct neigh_ops *arp_direct_ops;
7252 static int (*qeth_old_arp_constructor) (struct neighbour *);
7253
7254 static struct neigh_ops arp_direct_ops_template = {
7255         .family = AF_INET,
7256         .destructor = NULL,
7257         .solicit = NULL,
7258         .error_report = NULL,
7259         .output = dev_queue_xmit,
7260         .connected_output = dev_queue_xmit,
7261         .hh_output = dev_queue_xmit,
7262         .queue_xmit = dev_queue_xmit
7263 };
7264
7265 static int
7266 qeth_arp_constructor(struct neighbour *neigh)
7267 {
7268         struct net_device *dev = neigh->dev;
7269         struct in_device *in_dev;
7270         struct neigh_parms *parms;
7271         struct qeth_card *card;
7272
7273         card = qeth_get_card_from_dev(dev);
7274         if (card == NULL)
7275                 goto out;
7276         if((card->options.layer2) ||
7277            (card->dev->hard_header == qeth_fake_header))
7278                 goto out;
7279
7280         rcu_read_lock();
7281         in_dev = rcu_dereference(__in_dev_get(dev));
7282         if (in_dev == NULL) {
7283                 rcu_read_unlock();
7284                 return -EINVAL;
7285         }
7286
7287         parms = in_dev->arp_parms;
7288         __neigh_parms_put(neigh->parms);
7289         neigh->parms = neigh_parms_clone(parms);
7290         rcu_read_unlock();
7291
7292         neigh->type = inet_addr_type(*(u32 *) neigh->primary_key);
7293         neigh->nud_state = NUD_NOARP;
7294         neigh->ops = arp_direct_ops;
7295         neigh->output = neigh->ops->queue_xmit;
7296         return 0;
7297 out:
7298         return qeth_old_arp_constructor(neigh);
7299 }
7300 #endif  /*CONFIG_QETH_IPV6*/
7301
7302 /*
7303  * IP address takeover related functions
7304  */
7305 static void
7306 qeth_clear_ipato_list(struct qeth_card *card)
7307 {
7308         struct qeth_ipato_entry *ipatoe, *tmp;
7309         unsigned long flags;
7310
7311         spin_lock_irqsave(&card->ip_lock, flags);
7312         list_for_each_entry_safe(ipatoe, tmp, &card->ipato.entries, entry) {
7313                 list_del(&ipatoe->entry);
7314                 kfree(ipatoe);
7315         }
7316         spin_unlock_irqrestore(&card->ip_lock, flags);
7317 }
7318
7319 int
7320 qeth_add_ipato_entry(struct qeth_card *card, struct qeth_ipato_entry *new)
7321 {
7322         struct qeth_ipato_entry *ipatoe;
7323         unsigned long flags;
7324         int rc = 0;
7325
7326         QETH_DBF_TEXT(trace, 2, "addipato");
7327         spin_lock_irqsave(&card->ip_lock, flags);
7328         list_for_each_entry(ipatoe, &card->ipato.entries, entry){
7329                 if (ipatoe->proto != new->proto)
7330                         continue;
7331                 if (!memcmp(ipatoe->addr, new->addr,
7332                             (ipatoe->proto == QETH_PROT_IPV4)? 4:16) &&
7333                     (ipatoe->mask_bits == new->mask_bits)){
7334                         PRINT_WARN("ipato entry already exists!\n");
7335                         rc = -EEXIST;
7336                         break;
7337                 }
7338         }
7339         if (!rc) {
7340                 list_add_tail(&new->entry, &card->ipato.entries);
7341         }
7342         spin_unlock_irqrestore(&card->ip_lock, flags);
7343         return rc;
7344 }
7345
7346 void
7347 qeth_del_ipato_entry(struct qeth_card *card, enum qeth_prot_versions proto,
7348                      u8 *addr, int mask_bits)
7349 {
7350         struct qeth_ipato_entry *ipatoe, *tmp;
7351         unsigned long flags;
7352
7353         QETH_DBF_TEXT(trace, 2, "delipato");
7354         spin_lock_irqsave(&card->ip_lock, flags);
7355         list_for_each_entry_safe(ipatoe, tmp, &card->ipato.entries, entry){
7356                 if (ipatoe->proto != proto)
7357                         continue;
7358                 if (!memcmp(ipatoe->addr, addr,
7359                             (proto == QETH_PROT_IPV4)? 4:16) &&
7360                     (ipatoe->mask_bits == mask_bits)){
7361                         list_del(&ipatoe->entry);
7362                         kfree(ipatoe);
7363                 }
7364         }
7365         spin_unlock_irqrestore(&card->ip_lock, flags);
7366 }
7367
7368 static inline void
7369 qeth_convert_addr_to_bits(u8 *addr, u8 *bits, int len)
7370 {
7371         int i, j;
7372         u8 octet;
7373
7374         for (i = 0; i < len; ++i){
7375                 octet = addr[i];
7376                 for (j = 7; j >= 0; --j){
7377                         bits[i*8 + j] = octet & 1;
7378                         octet >>= 1;
7379                 }
7380         }
7381 }
7382
7383 static int
7384 qeth_is_addr_covered_by_ipato(struct qeth_card *card, struct qeth_ipaddr *addr)
7385 {
7386         struct qeth_ipato_entry *ipatoe;
7387         u8 addr_bits[128] = {0, };
7388         u8 ipatoe_bits[128] = {0, };
7389         int rc = 0;
7390
7391         if (!card->ipato.enabled)
7392                 return 0;
7393
7394         qeth_convert_addr_to_bits((u8 *) &addr->u, addr_bits,
7395                                   (addr->proto == QETH_PROT_IPV4)? 4:16);
7396         list_for_each_entry(ipatoe, &card->ipato.entries, entry){
7397                 if (addr->proto != ipatoe->proto)
7398                         continue;
7399                 qeth_convert_addr_to_bits(ipatoe->addr, ipatoe_bits,
7400                                           (ipatoe->proto==QETH_PROT_IPV4) ?
7401                                           4:16);
7402                 if (addr->proto == QETH_PROT_IPV4)
7403                         rc = !memcmp(addr_bits, ipatoe_bits,
7404                                      min(32, ipatoe->mask_bits));
7405                 else
7406                         rc = !memcmp(addr_bits, ipatoe_bits,
7407                                      min(128, ipatoe->mask_bits));
7408                 if (rc)
7409                         break;
7410         }
7411         /* invert? */
7412         if ((addr->proto == QETH_PROT_IPV4) && card->ipato.invert4)
7413                 rc = !rc;
7414         else if ((addr->proto == QETH_PROT_IPV6) && card->ipato.invert6)
7415                 rc = !rc;
7416
7417         return rc;
7418 }
7419
7420 /*
7421  * VIPA related functions
7422  */
7423 int
7424 qeth_add_vipa(struct qeth_card *card, enum qeth_prot_versions proto,
7425               const u8 *addr)
7426 {
7427         struct qeth_ipaddr *ipaddr;
7428         unsigned long flags;
7429         int rc = 0;
7430
7431         ipaddr = qeth_get_addr_buffer(proto);
7432         if (ipaddr){
7433                 if (proto == QETH_PROT_IPV4){
7434                         QETH_DBF_TEXT(trace, 2, "addvipa4");
7435                         memcpy(&ipaddr->u.a4.addr, addr, 4);
7436                         ipaddr->u.a4.mask = 0;
7437 #ifdef CONFIG_QETH_IPV6
7438                 } else if (proto == QETH_PROT_IPV6){
7439                         QETH_DBF_TEXT(trace, 2, "addvipa6");
7440                         memcpy(&ipaddr->u.a6.addr, addr, 16);
7441                         ipaddr->u.a6.pfxlen = 0;
7442 #endif
7443                 }
7444                 ipaddr->type = QETH_IP_TYPE_VIPA;
7445                 ipaddr->set_flags = QETH_IPA_SETIP_VIPA_FLAG;
7446                 ipaddr->del_flags = QETH_IPA_DELIP_VIPA_FLAG;
7447         } else
7448                 return -ENOMEM;
7449         spin_lock_irqsave(&card->ip_lock, flags);
7450         if (__qeth_address_exists_in_list(&card->ip_list, ipaddr, 0) ||
7451             __qeth_address_exists_in_list(card->ip_tbd_list, ipaddr, 0))
7452                 rc = -EEXIST;
7453         spin_unlock_irqrestore(&card->ip_lock, flags);
7454         if (rc){
7455                 PRINT_WARN("Cannot add VIPA. Address already exists!\n");
7456                 return rc;
7457         }
7458         if (!qeth_add_ip(card, ipaddr))
7459                 kfree(ipaddr);
7460         if (qeth_set_thread_start_bit(card, QETH_SET_IP_THREAD) == 0)
7461                 schedule_work(&card->kernel_thread_starter);
7462         return rc;
7463 }
7464
7465 void
7466 qeth_del_vipa(struct qeth_card *card, enum qeth_prot_versions proto,
7467               const u8 *addr)
7468 {
7469         struct qeth_ipaddr *ipaddr;
7470
7471         ipaddr = qeth_get_addr_buffer(proto);
7472         if (ipaddr){
7473                 if (proto == QETH_PROT_IPV4){
7474                         QETH_DBF_TEXT(trace, 2, "delvipa4");
7475                         memcpy(&ipaddr->u.a4.addr, addr, 4);
7476                         ipaddr->u.a4.mask = 0;
7477 #ifdef CONFIG_QETH_IPV6
7478                 } else if (proto == QETH_PROT_IPV6){
7479                         QETH_DBF_TEXT(trace, 2, "delvipa6");
7480                         memcpy(&ipaddr->u.a6.addr, addr, 16);
7481                         ipaddr->u.a6.pfxlen = 0;
7482 #endif
7483                 }
7484                 ipaddr->type = QETH_IP_TYPE_VIPA;
7485         } else
7486                 return;
7487         if (!qeth_delete_ip(card, ipaddr))
7488                 kfree(ipaddr);
7489         if (qeth_set_thread_start_bit(card, QETH_SET_IP_THREAD) == 0)
7490                 schedule_work(&card->kernel_thread_starter);
7491 }
7492
7493 /*
7494  * proxy ARP related functions
7495  */
7496 int
7497 qeth_add_rxip(struct qeth_card *card, enum qeth_prot_versions proto,
7498               const u8 *addr)
7499 {
7500         struct qeth_ipaddr *ipaddr;
7501         unsigned long flags;
7502         int rc = 0;
7503
7504         ipaddr = qeth_get_addr_buffer(proto);
7505         if (ipaddr){
7506                 if (proto == QETH_PROT_IPV4){
7507                         QETH_DBF_TEXT(trace, 2, "addrxip4");
7508                         memcpy(&ipaddr->u.a4.addr, addr, 4);
7509                         ipaddr->u.a4.mask = 0;
7510 #ifdef CONFIG_QETH_IPV6
7511                 } else if (proto == QETH_PROT_IPV6){
7512                         QETH_DBF_TEXT(trace, 2, "addrxip6");
7513                         memcpy(&ipaddr->u.a6.addr, addr, 16);
7514                         ipaddr->u.a6.pfxlen = 0;
7515 #endif
7516                 }
7517                 ipaddr->type = QETH_IP_TYPE_RXIP;
7518                 ipaddr->set_flags = QETH_IPA_SETIP_TAKEOVER_FLAG;
7519                 ipaddr->del_flags = 0;
7520         } else
7521                 return -ENOMEM;
7522         spin_lock_irqsave(&card->ip_lock, flags);
7523         if (__qeth_address_exists_in_list(&card->ip_list, ipaddr, 0) ||
7524             __qeth_address_exists_in_list(card->ip_tbd_list, ipaddr, 0))
7525                 rc = -EEXIST;
7526         spin_unlock_irqrestore(&card->ip_lock, flags);
7527         if (rc){
7528                 PRINT_WARN("Cannot add RXIP. Address already exists!\n");
7529                 return rc;
7530         }
7531         if (!qeth_add_ip(card, ipaddr))
7532                 kfree(ipaddr);
7533         if (qeth_set_thread_start_bit(card, QETH_SET_IP_THREAD) == 0)
7534                 schedule_work(&card->kernel_thread_starter);
7535         return 0;
7536 }
7537
7538 void
7539 qeth_del_rxip(struct qeth_card *card, enum qeth_prot_versions proto,
7540               const u8 *addr)
7541 {
7542         struct qeth_ipaddr *ipaddr;
7543
7544         ipaddr = qeth_get_addr_buffer(proto);
7545         if (ipaddr){
7546                 if (proto == QETH_PROT_IPV4){
7547                         QETH_DBF_TEXT(trace, 2, "addrxip4");
7548                         memcpy(&ipaddr->u.a4.addr, addr, 4);
7549                         ipaddr->u.a4.mask = 0;
7550 #ifdef CONFIG_QETH_IPV6
7551                 } else if (proto == QETH_PROT_IPV6){
7552                         QETH_DBF_TEXT(trace, 2, "addrxip6");
7553                         memcpy(&ipaddr->u.a6.addr, addr, 16);
7554                         ipaddr->u.a6.pfxlen = 0;
7555 #endif
7556                 }
7557                 ipaddr->type = QETH_IP_TYPE_RXIP;
7558         } else
7559                 return;
7560         if (!qeth_delete_ip(card, ipaddr))
7561                 kfree(ipaddr);
7562         if (qeth_set_thread_start_bit(card, QETH_SET_IP_THREAD) == 0)
7563                 schedule_work(&card->kernel_thread_starter);
7564 }
7565
7566 /**
7567  * IP event handler
7568  */
7569 static int
7570 qeth_ip_event(struct notifier_block *this,
7571               unsigned long event,void *ptr)
7572 {
7573         struct in_ifaddr *ifa = (struct in_ifaddr *)ptr;
7574         struct net_device *dev =(struct net_device *) ifa->ifa_dev->dev;
7575         struct qeth_ipaddr *addr;
7576         struct qeth_card *card;
7577
7578         QETH_DBF_TEXT(trace,3,"ipevent");
7579         card = qeth_get_card_from_dev(dev);
7580         if (!card)
7581                 return NOTIFY_DONE;
7582         if (card->options.layer2)
7583                 return NOTIFY_DONE;
7584
7585         addr = qeth_get_addr_buffer(QETH_PROT_IPV4);
7586         if (addr != NULL) {
7587                 addr->u.a4.addr = ifa->ifa_address;
7588                 addr->u.a4.mask = ifa->ifa_mask;
7589                 addr->type = QETH_IP_TYPE_NORMAL;
7590         } else
7591                 goto out;
7592
7593         switch(event) {
7594         case NETDEV_UP:
7595                 if (!qeth_add_ip(card, addr))
7596                         kfree(addr);
7597                 break;
7598         case NETDEV_DOWN:
7599                 if (!qeth_delete_ip(card, addr))
7600                         kfree(addr);
7601                 break;
7602         default:
7603                 break;
7604         }
7605         if (qeth_set_thread_start_bit(card, QETH_SET_IP_THREAD) == 0)
7606                 schedule_work(&card->kernel_thread_starter);
7607 out:
7608         return NOTIFY_DONE;
7609 }
7610
7611 static struct notifier_block qeth_ip_notifier = {
7612         qeth_ip_event,
7613         0
7614 };
7615
7616 #ifdef CONFIG_QETH_IPV6
7617 /**
7618  * IPv6 event handler
7619  */
7620 static int
7621 qeth_ip6_event(struct notifier_block *this,
7622               unsigned long event,void *ptr)
7623 {
7624
7625         struct inet6_ifaddr *ifa = (struct inet6_ifaddr *)ptr;
7626         struct net_device *dev = (struct net_device *)ifa->idev->dev;
7627         struct qeth_ipaddr *addr;
7628         struct qeth_card *card;
7629
7630         QETH_DBF_TEXT(trace,3,"ip6event");
7631
7632         card = qeth_get_card_from_dev(dev);
7633         if (!card)
7634                 return NOTIFY_DONE;
7635         if (!qeth_is_supported(card, IPA_IPV6))
7636                 return NOTIFY_DONE;
7637
7638         addr = qeth_get_addr_buffer(QETH_PROT_IPV6);
7639         if (addr != NULL) {
7640                 memcpy(&addr->u.a6.addr, &ifa->addr, sizeof(struct in6_addr));
7641                 addr->u.a6.pfxlen = ifa->prefix_len;
7642                 addr->type = QETH_IP_TYPE_NORMAL;
7643         } else
7644                 goto out;
7645
7646         switch(event) {
7647         case NETDEV_UP:
7648                 if (!qeth_add_ip(card, addr))
7649                         kfree(addr);
7650                 break;
7651         case NETDEV_DOWN:
7652                 if (!qeth_delete_ip(card, addr))
7653                         kfree(addr);
7654                 break;
7655         default:
7656                 break;
7657         }
7658         if (qeth_set_thread_start_bit(card, QETH_SET_IP_THREAD) == 0)
7659                 schedule_work(&card->kernel_thread_starter);
7660 out:
7661         return NOTIFY_DONE;
7662 }
7663
7664 static struct notifier_block qeth_ip6_notifier = {
7665         qeth_ip6_event,
7666         0
7667 };
7668 #endif
7669
7670 static int
7671 qeth_reboot_event(struct notifier_block *this, unsigned long event, void *ptr)
7672 {
7673
7674         struct device *entry;
7675         struct qeth_card *card;
7676
7677         down_read(&qeth_ccwgroup_driver.driver.bus->subsys.rwsem);
7678                list_for_each_entry(entry, &qeth_ccwgroup_driver.driver.devices,
7679                                    driver_list) {
7680                        card = (struct qeth_card *) entry->driver_data;
7681                        qeth_clear_ip_list(card, 0, 0);
7682                        qeth_qdio_clear_card(card, 0);
7683                }
7684         up_read(&qeth_ccwgroup_driver.driver.bus->subsys.rwsem);
7685         return NOTIFY_DONE;
7686 }
7687
7688
7689 static struct notifier_block qeth_reboot_notifier = {
7690         qeth_reboot_event,
7691         0
7692 };
7693
7694 static int
7695 qeth_register_notifiers(void)
7696 {
7697         int r;
7698
7699         QETH_DBF_TEXT(trace,5,"regnotif");
7700         if ((r = register_reboot_notifier(&qeth_reboot_notifier)))
7701                 return r;
7702         if ((r = register_inetaddr_notifier(&qeth_ip_notifier)))
7703                 goto out_reboot;
7704 #ifdef CONFIG_QETH_IPV6
7705         if ((r = register_inet6addr_notifier(&qeth_ip6_notifier)))
7706                 goto out_ipv4;
7707 #endif
7708         return 0;
7709
7710 #ifdef CONFIG_QETH_IPV6
7711 out_ipv4:
7712         unregister_inetaddr_notifier(&qeth_ip_notifier);
7713 #endif
7714 out_reboot:
7715         unregister_reboot_notifier(&qeth_reboot_notifier);
7716         return r;
7717 }
7718
7719 /**
7720  * unregister all event notifiers
7721  */
7722 static void
7723 qeth_unregister_notifiers(void)
7724 {
7725
7726         QETH_DBF_TEXT(trace,5,"unregnot");
7727         BUG_ON(unregister_reboot_notifier(&qeth_reboot_notifier));
7728         BUG_ON(unregister_inetaddr_notifier(&qeth_ip_notifier));
7729 #ifdef CONFIG_QETH_IPV6
7730         BUG_ON(unregister_inet6addr_notifier(&qeth_ip6_notifier));
7731 #endif /* QETH_IPV6 */
7732
7733 }
7734
7735 #ifdef CONFIG_QETH_IPV6
7736 static int
7737 qeth_ipv6_init(void)
7738 {
7739         qeth_old_arp_constructor = arp_tbl.constructor;
7740         write_lock(&arp_tbl.lock);
7741         arp_tbl.constructor = qeth_arp_constructor;
7742         write_unlock(&arp_tbl.lock);
7743
7744         arp_direct_ops = (struct neigh_ops*)
7745                 kmalloc(sizeof(struct neigh_ops), GFP_KERNEL);
7746         if (!arp_direct_ops)
7747                 return -ENOMEM;
7748
7749         memcpy(arp_direct_ops, &arp_direct_ops_template,
7750                sizeof(struct neigh_ops));
7751
7752         return 0;
7753 }
7754
7755 static void
7756 qeth_ipv6_uninit(void)
7757 {
7758         write_lock(&arp_tbl.lock);
7759         arp_tbl.constructor = qeth_old_arp_constructor;
7760         write_unlock(&arp_tbl.lock);
7761         kfree(arp_direct_ops);
7762 }
7763 #endif /* CONFIG_QETH_IPV6 */
7764
7765 static void
7766 qeth_sysfs_unregister(void)
7767 {
7768         qeth_remove_driver_attributes();
7769         ccw_driver_unregister(&qeth_ccw_driver);
7770         ccwgroup_driver_unregister(&qeth_ccwgroup_driver);
7771         s390_root_dev_unregister(qeth_root_dev);
7772 }
7773 /**
7774  * register qeth at sysfs
7775  */
7776 static int
7777 qeth_sysfs_register(void)
7778 {
7779         int rc=0;
7780
7781         rc = ccwgroup_driver_register(&qeth_ccwgroup_driver);
7782         if (rc)
7783                 return rc;
7784         rc = ccw_driver_register(&qeth_ccw_driver);
7785         if (rc)
7786                 return rc;
7787         rc = qeth_create_driver_attributes();
7788         if (rc)
7789                 return rc;
7790         qeth_root_dev = s390_root_dev_register("qeth");
7791         if (IS_ERR(qeth_root_dev)) {
7792                 rc = PTR_ERR(qeth_root_dev);
7793                 return rc;
7794         }
7795         return 0;
7796 }
7797
7798 /***
7799  * init function
7800  */
7801 static int __init
7802 qeth_init(void)
7803 {
7804         int rc=0;
7805
7806         qeth_eyecatcher();
7807         PRINT_INFO("loading %s (%s/%s/%s/%s/%s/%s/%s %s %s)\n",
7808                    version, VERSION_QETH_C, VERSION_QETH_H,
7809                    VERSION_QETH_MPC_H, VERSION_QETH_MPC_C,
7810                    VERSION_QETH_FS_H, VERSION_QETH_PROC_C,
7811                    VERSION_QETH_SYS_C, QETH_VERSION_IPV6,
7812                    QETH_VERSION_VLAN);
7813
7814         INIT_LIST_HEAD(&qeth_card_list.list);
7815         INIT_LIST_HEAD(&qeth_notify_list);
7816         spin_lock_init(&qeth_notify_lock);
7817         rwlock_init(&qeth_card_list.rwlock);
7818
7819         if (qeth_register_dbf_views())
7820                 goto out_err;
7821         if (qeth_sysfs_register())
7822                 goto out_sysfs;
7823
7824 #ifdef CONFIG_QETH_IPV6
7825         if (qeth_ipv6_init()) {
7826                 PRINT_ERR("Out of memory during ipv6 init.\n");
7827                 goto out_sysfs;
7828         }
7829 #endif /* QETH_IPV6 */
7830         if (qeth_register_notifiers())
7831                 goto out_ipv6;
7832         if (qeth_create_procfs_entries())
7833                 goto out_notifiers;
7834
7835         return rc;
7836
7837 out_notifiers:
7838         qeth_unregister_notifiers();
7839 out_ipv6:
7840 #ifdef CONFIG_QETH_IPV6
7841         qeth_ipv6_uninit();
7842 #endif /* QETH_IPV6 */
7843 out_sysfs:
7844         qeth_sysfs_unregister();
7845         qeth_unregister_dbf_views();
7846 out_err:
7847         PRINT_ERR("Initialization failed");
7848         return rc;
7849 }
7850
7851 static void
7852 __exit qeth_exit(void)
7853 {
7854         struct qeth_card *card, *tmp;
7855         unsigned long flags;
7856
7857         QETH_DBF_TEXT(trace,1, "cleanup.");
7858
7859         /*
7860          * Weed would not need to clean up our devices here, because the
7861          * common device layer calls qeth_remove_device for each device
7862          * as soon as we unregister our driver (done in qeth_sysfs_unregister).
7863          * But we do cleanup here so we can do a "soft" shutdown of our cards.
7864          * qeth_remove_device called by the common device layer would otherwise
7865          * do a "hard" shutdown (card->use_hard_stop is set to one in
7866          * qeth_remove_device).
7867          */
7868 again:
7869         read_lock_irqsave(&qeth_card_list.rwlock, flags);
7870         list_for_each_entry_safe(card, tmp, &qeth_card_list.list, list){
7871                 read_unlock_irqrestore(&qeth_card_list.rwlock, flags);
7872                 qeth_set_offline(card->gdev);
7873                 qeth_remove_device(card->gdev);
7874                 goto again;
7875         }
7876         read_unlock_irqrestore(&qeth_card_list.rwlock, flags);
7877 #ifdef CONFIG_QETH_IPV6
7878         qeth_ipv6_uninit();
7879 #endif
7880         qeth_unregister_notifiers();
7881         qeth_remove_procfs_entries();
7882         qeth_sysfs_unregister();
7883         qeth_unregister_dbf_views();
7884         printk("qeth: removed\n");
7885 }
7886
7887 EXPORT_SYMBOL(qeth_eyecatcher);
7888 module_init(qeth_init);
7889 module_exit(qeth_exit);
7890 MODULE_AUTHOR("Frank Pavlic <pavlic@de.ibm.com>");
7891 MODULE_DESCRIPTION("Linux on zSeries OSA Express and HiperSockets support\n" \
7892                                       "Copyright 2000,2003 IBM Corporation\n");
7893
7894 MODULE_LICENSE("GPL");