sys/dev/xen/netfront/netfront.c

   1 /*
   2  *
   3  * Copyright (c) 2004-2006 Kip Macy
   4  * All rights reserved.
   5  *
   6  *
   7  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
   8  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
   9  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  10  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  11  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  12  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  13  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  14  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  15  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  16  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  17  */
  18
  19
  20 #include <sys/cdefs.h>
  21 __FBSDID("$FreeBSD$");
  22
  23 #include <sys/param.h>
  24 #include <sys/systm.h>
  25 #include <sys/sockio.h>
  26 #include <sys/mbuf.h>
  27 #include <sys/malloc.h>
  28 #include <sys/kernel.h>
  29 #include <sys/socket.h>
  30 #include <sys/queue.h>
  31 #include <sys/sx.h>
  32
  33 #include <net/if.h>
  34 #include <net/if_arp.h>
  35 #include <net/ethernet.h>
  36 #include <net/if_dl.h>
  37 #include <net/if_media.h>
  38
  39 #include <net/bpf.h>
  40
  41 #include <net/if_types.h>
  42 #include <net/if.h>
  43
  44 #include <netinet/in_systm.h>
  45 #include <netinet/in.h>
  46 #include <netinet/ip.h>
  47 #include <netinet/if_ether.h>
  48
  49 #include <vm/vm.h>
  50 #include <vm/pmap.h>
  51
  52 #include <machine/clock.h>      /* for DELAY */
  53 #include <machine/bus.h>
  54 #include <machine/resource.h>
  55 #include <machine/frame.h>
  56 #include <machine/vmparam.h>
  57
  58 #include <sys/bus.h>
  59 #include <sys/rman.h>
  60
  61 #include <machine/intr_machdep.h>
  62
  63 #include <machine/xen/xen-os.h>
  64 #include <machine/xen/hypervisor.h>
  65 #include <machine/xen/xen_intr.h>
  66 #include <machine/xen/evtchn.h>
  67 #include <machine/xen/xenbus.h>
  68 #include <xen/gnttab.h>
  69 #include <xen/interface/memory.h>
  70 #include <dev/xen/netfront/mbufq.h>
  71 #include <machine/xen/features.h>
  72 #include <xen/interface/io/netif.h>
  73
  74
  75 #define GRANT_INVALID_REF       0
  76
  77 #define NET_TX_RING_SIZE __RING_SIZE((netif_tx_sring_t *)0, PAGE_SIZE)
  78 #define NET_RX_RING_SIZE __RING_SIZE((netif_rx_sring_t *)0, PAGE_SIZE)
  79
  80 #ifdef CONFIG_XEN
  81 static int MODPARM_rx_copy = 0;
  82 module_param_named(rx_copy, MODPARM_rx_copy, bool, 0);
  83 MODULE_PARM_DESC(rx_copy, "Copy packets from network card (rather than flip)");
  84 static int MODPARM_rx_flip = 0;
  85 module_param_named(rx_flip, MODPARM_rx_flip, bool, 0);
  86 MODULE_PARM_DESC(rx_flip, "Flip packets from network card (rather than copy)");
  87 #else
  88 static const int MODPARM_rx_copy = 1;
  89 static const int MODPARM_rx_flip = 0;
  90 #endif
  91
  92 #define RX_COPY_THRESHOLD 256
  93
  94 #define net_ratelimit() 0
  95
  96 struct netfront_info;
  97 struct netfront_rx_info;
  98
  99 static void xn_txeof(struct netfront_info *);
 100 static void xn_rxeof(struct netfront_info *);
 101 static void network_alloc_rx_buffers(struct netfront_info *);
 102
 103 static void xn_tick_locked(struct netfront_info *);
 104 static void xn_tick(void *);
 105
 106 static void xn_intr(void *);
 107 static void xn_start_locked(struct ifnet *);
 108 static void xn_start(struct ifnet *);
 109 static int  xn_ioctl(struct ifnet *, u_long, caddr_t);
 110 static void xn_ifinit_locked(struct netfront_info *);
 111 static void xn_ifinit(void *);
 112 static void xn_stop(struct netfront_info *);
 113 #ifdef notyet
 114 static void xn_watchdog(struct ifnet *);
 115 #endif
 116
 117 static void show_device(struct netfront_info *sc);
 118 #ifdef notyet
 119 static void netfront_closing(struct xenbus_device *dev);
 120 #endif
 121 static void netif_free(struct netfront_info *info);
 122 static int netfront_remove(struct xenbus_device *dev);
 123
 124 static int talk_to_backend(struct xenbus_device *dev, struct netfront_info *info);
 125 static int create_netdev(struct xenbus_device *dev, struct ifnet **ifp);
 126 static void netif_disconnect_backend(struct netfront_info *info);
 127 static int setup_device(struct xenbus_device *dev, struct netfront_info *info);
 128 static void end_access(int ref, void *page);
 129
 130 /* Xenolinux helper functions */
 131 static int network_connect(struct ifnet *ifp);
 132
 133 static void xn_free_rx_ring(struct netfront_info *);
 134
 135 static void xn_free_tx_ring(struct netfront_info *);
 136
 137 static int xennet_get_responses(struct netfront_info *np,
 138         struct netfront_rx_info *rinfo, RING_IDX rp, struct mbuf **list,
 139         int *pages_flipped_p);
 140
 141 #define virt_to_mfn(x) (vtomach(x) >> PAGE_SHIFT)
 142
 143 #define INVALID_P2M_ENTRY (~0UL)
 144
 145 /*
 146  * Mbuf pointers. We need these to keep track of the virtual addresses
 147  * of our mbuf chains since we can only convert from virtual to physical,
 148  * not the other way around.  The size must track the free index arrays.
 149  */
 150 struct xn_chain_data {
 151                 struct mbuf             *xn_tx_chain[NET_TX_RING_SIZE+1];
 152                 struct mbuf             *xn_rx_chain[NET_RX_RING_SIZE+1];
 153 };
 154
 155
 156 struct net_device_stats
 157 {
 158         u_long  rx_packets;             /* total packets received       */
 159         u_long  tx_packets;             /* total packets transmitted    */
 160         u_long  rx_bytes;               /* total bytes received         */
 161         u_long  tx_bytes;               /* total bytes transmitted      */
 162         u_long  rx_errors;              /* bad packets received         */
 163         u_long  tx_errors;              /* packet transmit problems     */
 164         u_long  rx_dropped;             /* no space in linux buffers    */
 165         u_long  tx_dropped;             /* no space available in linux  */
 166         u_long  multicast;              /* multicast packets received   */
 167         u_long  collisions;
 168
 169         /* detailed rx_errors: */
 170         u_long  rx_length_errors;
 171         u_long  rx_over_errors;         /* receiver ring buff overflow  */
 172         u_long  rx_crc_errors;          /* recved pkt with crc error    */
 173         u_long  rx_frame_errors;        /* recv'd frame alignment error */
 174         u_long  rx_fifo_errors;         /* recv'r fifo overrun          */
 175         u_long  rx_missed_errors;       /* receiver missed packet       */
 176
 177         /* detailed tx_errors */
 178         u_long  tx_aborted_errors;
 179         u_long  tx_carrier_errors;
 180         u_long  tx_fifo_errors;
 181         u_long  tx_heartbeat_errors;
 182         u_long  tx_window_errors;
 183
 184         /* for cslip etc */
 185         u_long  rx_compressed;
 186         u_long  tx_compressed;
 187 };
 188
 189 struct netfront_info {
 190
 191         struct ifnet *xn_ifp;
 192
 193         struct net_device_stats stats;
 194         u_int tx_full;
 195
 196         netif_tx_front_ring_t tx;
 197         netif_rx_front_ring_t rx;
 198
 199         struct mtx   tx_lock;
 200         struct mtx   rx_lock;
 201         struct sx    sc_lock;
 202
 203         u_int handle;
 204         u_int irq;
 205         u_int copying_receiver;
 206         u_int carrier;
 207
 208         /* Receive-ring batched refills. */
 209 #define RX_MIN_TARGET 32
 210 #define RX_MAX_TARGET NET_RX_RING_SIZE
 211         int rx_min_target, rx_max_target, rx_target;
 212
 213         /*
 214          * {tx,rx}_skbs store outstanding skbuffs. The first entry in each
 215          * array is an index into a chain of free entries.
 216          */
 217
 218         grant_ref_t gref_tx_head;
 219         grant_ref_t grant_tx_ref[NET_TX_RING_SIZE + 1];
 220         grant_ref_t gref_rx_head;
 221         grant_ref_t grant_rx_ref[NET_TX_RING_SIZE + 1];
 222
 223 #define TX_MAX_TARGET min(NET_RX_RING_SIZE, 256)
 224         struct xenbus_device *xbdev;
 225         int tx_ring_ref;
 226         int rx_ring_ref;
 227         uint8_t mac[ETHER_ADDR_LEN];
 228         struct xn_chain_data    xn_cdata;       /* mbufs */
 229         struct mbuf_head xn_rx_batch;   /* head of the batch queue */
 230
 231         int                     xn_if_flags;
 232         struct callout          xn_stat_ch;
 233
 234         u_long rx_pfn_array[NET_RX_RING_SIZE];
 235         multicall_entry_t rx_mcl[NET_RX_RING_SIZE+1];
 236         mmu_update_t rx_mmu[NET_RX_RING_SIZE];
 237 };
 238
 239 #define rx_mbufs xn_cdata.xn_rx_chain
 240 #define tx_mbufs xn_cdata.xn_tx_chain
 241
 242 #define XN_LOCK_INIT(_sc, _name) \
 243         mtx_init(&(_sc)->tx_lock, #_name"_tx", "network transmit lock", MTX_DEF); \
 244         mtx_init(&(_sc)->rx_lock, #_name"_rx", "network receive lock", MTX_DEF);  \
 245         sx_init(&(_sc)->sc_lock, #_name"_rx")
 246
 247 #define XN_RX_LOCK(_sc)           mtx_lock(&(_sc)->rx_lock)
 248 #define XN_RX_UNLOCK(_sc)         mtx_unlock(&(_sc)->rx_lock)
 249
 250 #define XN_TX_LOCK(_sc)           mtx_lock(&(_sc)->tx_lock)
 251 #define XN_TX_UNLOCK(_sc)         mtx_unlock(&(_sc)->tx_lock)
 252
 253 #define XN_LOCK(_sc)           sx_xlock(&(_sc)->sc_lock);
 254 #define XN_UNLOCK(_sc)         sx_xunlock(&(_sc)->sc_lock);
 255
 256 #define XN_LOCK_ASSERT(_sc)    sx_assert(&(_sc)->sc_lock, SX_LOCKED);
 257 #define XN_RX_LOCK_ASSERT(_sc)    mtx_assert(&(_sc)->rx_lock, MA_OWNED);
 258 #define XN_TX_LOCK_ASSERT(_sc)    mtx_assert(&(_sc)->tx_lock, MA_OWNED);
 259 #define XN_LOCK_DESTROY(_sc)   mtx_destroy(&(_sc)->rx_lock); \
 260                                mtx_destroy(&(_sc)->tx_lock); \
 261                                sx_destroy(&(_sc)->sc_lock);
 262
 263 struct netfront_rx_info {
 264         struct netif_rx_response rx;
 265         struct netif_extra_info extras[XEN_NETIF_EXTRA_TYPE_MAX - 1];
 266 };
 267
 268 #define netfront_carrier_on(netif)      ((netif)->carrier = 1)
 269 #define netfront_carrier_off(netif)     ((netif)->carrier = 0)
 270 #define netfront_carrier_ok(netif)      ((netif)->carrier)
 271
 272 /* Access macros for acquiring freeing slots in xn_free_{tx,rx}_idxs[]. */
 273
 274
 275
 276 /*
 277  * Access macros for acquiring freeing slots in tx_skbs[].
 278  */
 279
 280 static inline void
 281 add_id_to_freelist(struct mbuf **list, unsigned short id)
 282 {
 283         list[id] = list[0];
 284         list[0]  = (void *)(u_long)id;
 285 }
 286
 287 static inline unsigned short
 288 get_id_from_freelist(struct mbuf **list)
 289 {
 290         u_int id = (u_int)(u_long)list[0];
 291         list[0] = list[id];
 292         return (id);
 293 }
 294
 295 static inline int
 296 xennet_rxidx(RING_IDX idx)
 297 {
 298         return idx & (NET_RX_RING_SIZE - 1);
 299 }
 300
 301 static inline struct mbuf *
 302 xennet_get_rx_mbuf(struct netfront_info *np,
 303                                                 RING_IDX ri)
 304 {
 305         int i = xennet_rxidx(ri);
 306         struct mbuf *m;
 307
 308         m = np->rx_mbufs[i];
 309         np->rx_mbufs[i] = NULL;
 310         return (m);
 311 }
 312
 313 static inline grant_ref_t
 314 xennet_get_rx_ref(struct netfront_info *np, RING_IDX ri)
 315 {
 316         int i = xennet_rxidx(ri);
 317         grant_ref_t ref = np->grant_rx_ref[i];
 318         np->grant_rx_ref[i] = GRANT_INVALID_REF;
 319         return ref;
 320 }
 321
 322 #ifdef DEBUG
 323
 324 #endif
 325 #define IPRINTK(fmt, args...) \
 326     printf("[XEN] " fmt, ##args)
 327 #define WPRINTK(fmt, args...) \
 328     printf("[XEN] " fmt, ##args)
 329 #define DPRINTK(fmt, args...) \
 330     printf("[XEN] " fmt, ##args)
 331
 332
 333 static __inline struct mbuf*
 334 makembuf (struct mbuf *buf)
 335 {
 336         struct mbuf *m = NULL;
 337
 338         MGETHDR (m, M_DONTWAIT, MT_DATA);
 339
 340         if (! m)
 341                 return 0;
 342
 343                 M_MOVE_PKTHDR(m, buf);
 344
 345                 m_cljget(m, M_DONTWAIT, MJUMPAGESIZE);
 346         m->m_pkthdr.len = buf->m_pkthdr.len;
 347         m->m_len = buf->m_len;
 348                 m_copydata(buf, 0, buf->m_pkthdr.len, mtod(m,caddr_t) );
 349
 350                 m->m_ext.ext_arg1 = (caddr_t *)(uintptr_t)(vtophys(mtod(m,caddr_t)) >> PAGE_SHIFT);
 351
 352         return m;
 353 }
 354
 355 /**
 356  * Read the 'mac' node at the given device's node in the store, and parse that
 357  * as colon-separated octets, placing result the given mac array.  mac must be
 358  * a preallocated array of length ETH_ALEN (as declared in linux/if_ether.h).
 359  * Return 0 on success, or errno on error.
 360  */
 361 static int
 362 xen_net_read_mac(struct xenbus_device *dev, uint8_t mac[])
 363 {
 364         char *s;
 365         int i;
 366         char *e;
 367         char *macstr = xenbus_read(XBT_NIL, dev->nodename, "mac", NULL);
 368         if (IS_ERR(macstr)) {
 369                 return PTR_ERR(macstr);
 370         }
 371         s = macstr;
 372         for (i = 0; i < ETHER_ADDR_LEN; i++) {
 373                 mac[i] = strtoul(s, &e, 16);
 374                 if (s == e || (e[0] != ':' && e[0] != 0)) {
 375                         free(macstr, M_DEVBUF);
 376                         return ENOENT;
 377                 }
 378                 s = &e[1];
 379         }
 380         free(macstr, M_DEVBUF);
 381         return 0;
 382 }
 383
 384 /**
 385  * Entry point to this code when a new device is created.  Allocate the basic
 386  * structures and the ring buffers for communication with the backend, and
 387  * inform the backend of the appropriate details for those.  Switch to
 388  * Connected state.
 389  */
 390 static int
 391 netfront_probe(struct xenbus_device *dev, const struct xenbus_device_id *id)
 392 {
 393         int err;
 394         struct ifnet *ifp;
 395         struct netfront_info *info;
 396
 397         printf("netfront_probe() \n");
 398
 399         err = create_netdev(dev, &ifp);
 400         if (err) {
 401                 xenbus_dev_fatal(dev, err, "creating netdev");
 402                 return err;
 403         }
 404
 405         info = ifp->if_softc;
 406         dev->dev_driver_data = info;
 407
 408         return 0;
 409 }
 410
 411
 412 /**
 413  * We are reconnecting to the backend, due to a suspend/resume, or a backend
 414  * driver restart.  We tear down our netif structure and recreate it, but
 415  * leave the device-layer structures intact so that this is transparent to the
 416  * rest of the kernel.
 417  */
 418 static int
 419 netfront_resume(struct xenbus_device *dev)
 420 {
 421         struct netfront_info *info = dev->dev_driver_data;
 422
 423         DPRINTK("%s\n", dev->nodename);
 424
 425         netif_disconnect_backend(info);
 426         return (0);
 427 }
 428
 429
 430 /* Common code used when first setting up, and when resuming. */
 431 static int
 432 talk_to_backend(struct xenbus_device *dev, struct netfront_info *info)
 433 {
 434         const char *message;
 435         struct xenbus_transaction xbt;
 436         int err;
 437
 438         err = xen_net_read_mac(dev, info->mac);
 439         if (err) {
 440                 xenbus_dev_fatal(dev, err, "parsing %s/mac", dev->nodename);
 441                 goto out;
 442         }
 443
 444         /* Create shared ring, alloc event channel. */
 445         err = setup_device(dev, info);
 446         if (err)
 447                 goto out;
 448
 449  again:
 450         err = xenbus_transaction_start(&xbt);
 451         if (err) {
 452                 xenbus_dev_fatal(dev, err, "starting transaction");
 453                 goto destroy_ring;
 454         }
 455         err = xenbus_printf(xbt, dev->nodename, "tx-ring-ref","%u",
 456                             info->tx_ring_ref);
 457         if (err) {
 458                 message = "writing tx ring-ref";
 459                 goto abort_transaction;
 460         }
 461         err = xenbus_printf(xbt, dev->nodename, "rx-ring-ref","%u",
 462                             info->rx_ring_ref);
 463         if (err) {
 464                 message = "writing rx ring-ref";
 465                 goto abort_transaction;
 466         }
 467         err = xenbus_printf(xbt, dev->nodename,
 468                 "event-channel", "%u", irq_to_evtchn_port(info->irq));
 469         if (err) {
 470                 message = "writing event-channel";
 471                 goto abort_transaction;
 472         }
 473         err = xenbus_printf(xbt, dev->nodename, "request-rx-copy", "%u",
 474                             info->copying_receiver);
 475         if (err) {
 476                 message = "writing request-rx-copy";
 477                 goto abort_transaction;
 478         }
 479         err = xenbus_printf(xbt, dev->nodename, "feature-rx-notify", "%d", 1);
 480         if (err) {
 481                 message = "writing feature-rx-notify";
 482                 goto abort_transaction;
 483         }
 484         err = xenbus_printf(xbt, dev->nodename, "feature-no-csum-offload", "%d", 1);
 485         if (err) {
 486                 message = "writing feature-no-csum-offload";
 487                 goto abort_transaction;
 488         }
 489         err = xenbus_printf(xbt, dev->nodename, "feature-sg", "%d", 1);
 490         if (err) {
 491                 message = "writing feature-sg";
 492                 goto abort_transaction;
 493         }
 494 #ifdef HAVE_TSO
 495         err = xenbus_printf(xbt, dev->nodename, "feature-gso-tcpv4", "%d", 1);
 496         if (err) {
 497                 message = "writing feature-gso-tcpv4";
 498                 goto abort_transaction;
 499         }
 500 #endif
 501
 502         err = xenbus_transaction_end(xbt, 0);
 503         if (err) {
 504                 if (err == EAGAIN)
 505                         goto again;
 506                 xenbus_dev_fatal(dev, err, "completing transaction");
 507                 goto destroy_ring;
 508         }
 509
 510         return 0;
 511
 512  abort_transaction:
 513         xenbus_transaction_end(xbt, 1);
 514         xenbus_dev_fatal(dev, err, "%s", message);
 515  destroy_ring:
 516         netif_free(info);
 517  out:
 518         return err;
 519 }
 520
 521
 522 static int
 523 setup_device(struct xenbus_device *dev, struct netfront_info *info)
 524 {
 525         netif_tx_sring_t *txs;
 526         netif_rx_sring_t *rxs;
 527         int err;
 528         struct ifnet *ifp;
 529
 530         ifp = info->xn_ifp;
 531
 532         info->tx_ring_ref = GRANT_INVALID_REF;
 533         info->rx_ring_ref = GRANT_INVALID_REF;
 534         info->rx.sring = NULL;
 535         info->tx.sring = NULL;
 536         info->irq = 0;
 537
 538         txs = (netif_tx_sring_t *)malloc(PAGE_SIZE, M_DEVBUF, M_NOWAIT|M_ZERO);
 539         if (!txs) {
 540                 err = ENOMEM;
 541                 xenbus_dev_fatal(dev, err, "allocating tx ring page");
 542                 goto fail;
 543         }
 544         SHARED_RING_INIT(txs);
 545         FRONT_RING_INIT(&info->tx, txs, PAGE_SIZE);
 546         err = xenbus_grant_ring(dev, virt_to_mfn(txs));
 547         if (err < 0)
 548                 goto fail;
 549         info->tx_ring_ref = err;
 550
 551         rxs = (netif_rx_sring_t *)malloc(PAGE_SIZE, M_DEVBUF, M_NOWAIT|M_ZERO);
 552         if (!rxs) {
 553                 err = ENOMEM;
 554                 xenbus_dev_fatal(dev, err, "allocating rx ring page");
 555                 goto fail;
 556         }
 557         SHARED_RING_INIT(rxs);
 558         FRONT_RING_INIT(&info->rx, rxs, PAGE_SIZE);
 559
 560         err = xenbus_grant_ring(dev, virt_to_mfn(rxs));
 561         if (err < 0)
 562                 goto fail;
 563         info->rx_ring_ref = err;
 564
 565 #if 0
 566         network_connect(ifp);
 567 #endif
 568         err = bind_listening_port_to_irqhandler(dev->otherend_id,
 569                 "xn", xn_intr, info, INTR_TYPE_NET | INTR_MPSAFE, NULL);
 570
 571         if (err <= 0) {
 572                 xenbus_dev_fatal(dev, err,
 573                                  "bind_evtchn_to_irqhandler failed");
 574                 goto fail;
 575         }
 576         info->irq = err;
 577
 578         show_device(info);
 579
 580         return 0;
 581
 582  fail:
 583         netif_free(info);
 584         return err;
 585 }
 586
 587 /**
 588  * Callback received when the backend's state changes.
 589  */
 590 static void
 591 backend_changed(struct xenbus_device *dev,
 592                             XenbusState backend_state)
 593 {
 594                 struct netfront_info *sc = dev->dev_driver_data;
 595
 596         DPRINTK("\n");
 597
 598         switch (backend_state) {
 599         case XenbusStateInitialising:
 600         case XenbusStateInitialised:
 601         case XenbusStateConnected:
 602         case XenbusStateUnknown:
 603         case XenbusStateClosed:
 604         case XenbusStateReconfigured:
 605         case XenbusStateReconfiguring:
 606                         break;
 607         case XenbusStateInitWait:
 608                 if (dev->state != XenbusStateInitialising)
 609                         break;
 610                 if (network_connect(sc->xn_ifp) != 0)
 611                         break;
 612                 xenbus_switch_state(dev, XenbusStateConnected);
 613 #ifdef notyet
 614                 (void)send_fake_arp(netdev);
 615 #endif
 616                 break;  break;
 617         case XenbusStateClosing:
 618                         xenbus_frontend_closed(dev);
 619                 break;
 620         }
 621 }
 622
 623 static void
 624 xn_free_rx_ring(struct netfront_info *sc)
 625 {
 626 #if 0
 627         int i;
 628
 629         for (i = 0; i < NET_RX_RING_SIZE; i++) {
 630                 if (sc->xn_cdata.xn_rx_chain[i] != NULL) {
 631                         m_freem(sc->xn_cdata.xn_rx_chain[i]);
 632                         sc->xn_cdata.xn_rx_chain[i] = NULL;
 633                 }
 634         }
 635
 636         sc->rx.rsp_cons = 0;
 637         sc->xn_rx_if->req_prod = 0;
 638         sc->xn_rx_if->event = sc->rx.rsp_cons ;
 639 #endif
 640 }
 641
 642 static void
 643 xn_free_tx_ring(struct netfront_info *sc)
 644 {
 645 #if 0
 646         int i;
 647
 648         for (i = 0; i < NET_TX_RING_SIZE; i++) {
 649                 if (sc->xn_cdata.xn_tx_chain[i] != NULL) {
 650                         m_freem(sc->xn_cdata.xn_tx_chain[i]);
 651                         sc->xn_cdata.xn_tx_chain[i] = NULL;
 652                 }
 653         }
 654
 655         return;
 656 #endif
 657 }
 658
 659 static inline int
 660 netfront_tx_slot_available(struct netfront_info *np)
 661 {
 662         return ((np->tx.req_prod_pvt - np->tx.rsp_cons) <
 663                 (TX_MAX_TARGET - /* MAX_SKB_FRAGS */ 24 - 2));
 664 }
 665 static void
 666 netif_release_tx_bufs(struct netfront_info *np)
 667 {
 668         struct mbuf *m;
 669         int i;
 670
 671         for (i = 1; i <= NET_TX_RING_SIZE; i++) {
 672                 m = np->xn_cdata.xn_tx_chain[i];
 673
 674                 if (((u_long)m) < KERNBASE)
 675                         continue;
 676                 gnttab_grant_foreign_access_ref(np->grant_tx_ref[i],
 677                     np->xbdev->otherend_id, virt_to_mfn(mtod(m, vm_offset_t)),
 678                     GNTMAP_readonly);
 679                 gnttab_release_grant_reference(&np->gref_tx_head,
 680                     np->grant_tx_ref[i]);
 681                 np->grant_tx_ref[i] = GRANT_INVALID_REF;
 682                 add_id_to_freelist(np->tx_mbufs, i);
 683                 m_freem(m);
 684         }
 685 }
 686
 687 static void
 688 network_alloc_rx_buffers(struct netfront_info *sc)
 689 {
 690         unsigned short id;
 691         struct mbuf *m_new;
 692         int i, batch_target, notify;
 693         RING_IDX req_prod;
 694         struct xen_memory_reservation reservation;
 695         grant_ref_t ref;
 696         int nr_flips;
 697         netif_rx_request_t *req;
 698         vm_offset_t vaddr;
 699         u_long pfn;
 700
 701         req_prod = sc->rx.req_prod_pvt;
 702
 703         if (unlikely(sc->carrier == 0))
 704                 return;
 705
 706         /*
 707          * Allocate skbuffs greedily, even though we batch updates to the
 708          * receive ring. This creates a less bursty demand on the memory
 709          * allocator, so should reduce the chance of failed allocation
 710          * requests both for ourself and for other kernel subsystems.
 711          */
 712         batch_target = sc->rx_target - (req_prod - sc->rx.rsp_cons);
 713         for (i = mbufq_len(&sc->xn_rx_batch); i < batch_target; i++) {
 714                 MGETHDR(m_new, M_DONTWAIT, MT_DATA);
 715                 if (m_new == NULL)
 716                         goto no_mbuf;
 717
 718                 m_cljget(m_new, M_DONTWAIT, MJUMPAGESIZE);
 719                 if ((m_new->m_flags & M_EXT) == 0) {
 720                         m_freem(m_new);
 721
 722 no_mbuf:
 723                         if (i != 0)
 724                                 goto refill;
 725                         /*
 726                          * XXX set timer
 727                          */
 728                         break;
 729                 }
 730                 m_new->m_len = m_new->m_pkthdr.len = MJUMPAGESIZE;
 731
 732                 /* queue the mbufs allocated */
 733                 mbufq_tail(&sc->xn_rx_batch, m_new);
 734         }
 735
 736         /* Is the batch large enough to be worthwhile? */
 737         if (i < (sc->rx_target/2)) {
 738                 if (req_prod >sc->rx.sring->req_prod)
 739                         goto push;
 740                 return;
 741         }
 742         /* Adjust floating fill target if we risked running out of buffers. */
 743         if ( ((req_prod - sc->rx.sring->rsp_prod) < (sc->rx_target / 4)) &&
 744              ((sc->rx_target *= 2) > sc->rx_max_target) )
 745                 sc->rx_target = sc->rx_max_target;
 746
 747 refill:
 748         for (nr_flips = i = 0; ; i++) {
 749                 if ((m_new = mbufq_dequeue(&sc->xn_rx_batch)) == NULL)
 750                         break;
 751
 752                 m_new->m_ext.ext_arg1 = (vm_paddr_t *)(uintptr_t)(
 753                                 vtophys(m_new->m_ext.ext_buf) >> PAGE_SHIFT);
 754
 755                 id = xennet_rxidx(req_prod + i);
 756
 757                 KASSERT(sc->xn_cdata.xn_rx_chain[id] == NULL,
 758                     ("non-NULL xm_rx_chain"));
 759                 sc->xn_cdata.xn_rx_chain[id] = m_new;
 760
 761                 ref = gnttab_claim_grant_reference(&sc->gref_rx_head);
 762                 KASSERT((short)ref >= 0, ("negative ref"));
 763                 sc->grant_rx_ref[id] = ref;
 764
 765                 vaddr = mtod(m_new, vm_offset_t);
 766                 pfn = vtophys(vaddr) >> PAGE_SHIFT;
 767                 req = RING_GET_REQUEST(&sc->rx, req_prod + i);
 768
 769                 if (sc->copying_receiver == 0) {
 770                         gnttab_grant_foreign_transfer_ref(ref,
 771                             sc->xbdev->otherend_id, pfn);
 772                         sc->rx_pfn_array[nr_flips] = PFNTOMFN(pfn);
 773                         if (!xen_feature(XENFEAT_auto_translated_physmap)) {
 774                                 /* Remove this page before passing
 775                                  * back to Xen.
 776                                  */
 777                                 set_phys_to_machine(pfn, INVALID_P2M_ENTRY);
 778                                 MULTI_update_va_mapping(&sc->rx_mcl[i],
 779                                     vaddr, 0, 0);
 780                         }
 781                         nr_flips++;
 782                 } else {
 783                         gnttab_grant_foreign_access_ref(ref,
 784                             sc->xbdev->otherend_id,
 785                             PFNTOMFN(pfn), 0);
 786                 }
 787                 req->id = id;
 788                 req->gref = ref;
 789
 790                 sc->rx_pfn_array[i] =
 791                     vtomach(mtod(m_new,vm_offset_t)) >> PAGE_SHIFT;
 792         }
 793
 794         KASSERT(i, ("no mbufs processed")); /* should have returned earlier */
 795         KASSERT(mbufq_len(&sc->xn_rx_batch) == 0, ("not all mbufs processed"));
 796         /*
 797          * We may have allocated buffers which have entries outstanding
 798          * in the page * update queue -- make sure we flush those first!
 799          */
 800         PT_UPDATES_FLUSH();
 801         if (nr_flips != 0) {
 802 #ifdef notyet
 803                 /* Tell the ballon driver what is going on. */
 804                 balloon_update_driver_allowance(i);
 805 #endif
 806                 set_xen_guest_handle(reservation.extent_start, sc->rx_pfn_array);
 807                 reservation.nr_extents   = i;
 808                 reservation.extent_order = 0;
 809                 reservation.address_bits = 0;
 810                 reservation.domid        = DOMID_SELF;
 811
 812                 if (!xen_feature(XENFEAT_auto_translated_physmap)) {
 813
 814                         /* After all PTEs have been zapped, flush the TLB. */
 815                         sc->rx_mcl[i-1].args[MULTI_UVMFLAGS_INDEX] =
 816                             UVMF_TLB_FLUSH|UVMF_ALL;
 817
 818                         /* Give away a batch of pages. */
 819                         sc->rx_mcl[i].op = __HYPERVISOR_memory_op;
 820                         sc->rx_mcl[i].args[0] = XENMEM_decrease_reservation;
 821                         sc->rx_mcl[i].args[1] =  (u_long)&reservation;
 822                         /* Zap PTEs and give away pages in one big multicall. */
 823                         (void)HYPERVISOR_multicall(sc->rx_mcl, i+1);
 824
 825                         /* Check return status of HYPERVISOR_dom_mem_op(). */
 826                         if (unlikely(sc->rx_mcl[i].result != i))
 827                                 panic("Unable to reduce memory reservation\n");
 828                         } else {
 829                                 if (HYPERVISOR_memory_op(
 830                                     XENMEM_decrease_reservation, &reservation)
 831                                     != i)
 832                                         panic("Unable to reduce memory "
 833                                             "reservation\n");
 834                 }
 835         } else {
 836                 wmb();
 837         }
 838
 839         /* Above is a suitable barrier to ensure backend will see requests. */
 840         sc->rx.req_prod_pvt = req_prod + i;
 841 push:
 842         RING_PUSH_REQUESTS_AND_CHECK_NOTIFY(&sc->rx, notify);
 843         if (notify)
 844                 notify_remote_via_irq(sc->irq);
 845 }
 846
 847 static void
 848 xn_rxeof(struct netfront_info *np)
 849 {
 850         struct ifnet *ifp;
 851         struct netfront_rx_info rinfo;
 852         struct netif_rx_response *rx = &rinfo.rx;
 853         struct netif_extra_info *extras = rinfo.extras;
 854         RING_IDX i, rp;
 855         multicall_entry_t *mcl;
 856         struct mbuf *m;
 857         struct mbuf_head rxq, errq;
 858         int err, pages_flipped = 0;
 859
 860         XN_RX_LOCK_ASSERT(np);
 861         if (!netfront_carrier_ok(np))
 862                 return;
 863
 864         mbufq_init(&errq);
 865         mbufq_init(&rxq);
 866
 867         ifp = np->xn_ifp;
 868
 869         rp = np->rx.sring->rsp_prod;
 870         rmb();  /* Ensure we see queued responses up to 'rp'. */
 871
 872         i = np->rx.rsp_cons;
 873         while ((i != rp)) {
 874                 memcpy(rx, RING_GET_RESPONSE(&np->rx, i), sizeof(*rx));
 875                 memset(extras, 0, sizeof(rinfo.extras));
 876
 877                 m = NULL;
 878                 err = xennet_get_responses(np, &rinfo, rp, &m,
 879                     &pages_flipped);
 880
 881                 if (unlikely(err)) {
 882                                 if (m)
 883                                                 mbufq_tail(&errq, m);
 884                         np->stats.rx_errors++;
 885                         i = np->rx.rsp_cons;
 886                         continue;
 887                 }
 888
 889                 m->m_pkthdr.rcvif = ifp;
 890                 if ( rx->flags & NETRXF_data_validated ) {
 891                         /* Tell the stack the checksums are okay */
 892                         /*
 893                          * XXX this isn't necessarily the case - need to add
 894                          * check
 895                          */
 896
 897                         m->m_pkthdr.csum_flags |=
 898                             (CSUM_IP_CHECKED | CSUM_IP_VALID | CSUM_DATA_VALID
 899                             | CSUM_PSEUDO_HDR);
 900                         m->m_pkthdr.csum_data = 0xffff;
 901                 }
 902
 903                 np->stats.rx_packets++;
 904                 np->stats.rx_bytes += m->m_pkthdr.len;
 905
 906                 mbufq_tail(&rxq, m);
 907                 np->rx.rsp_cons = ++i;
 908         }
 909
 910         if (pages_flipped) {
 911                 /* Some pages are no longer absent... */
 912 #ifdef notyet
 913                 balloon_update_driver_allowance(-pages_flipped);
 914 #endif
 915                 /* Do all the remapping work, and M->P updates, in one big
 916                  * hypercall.
 917                  */
 918                 if (!!xen_feature(XENFEAT_auto_translated_physmap)) {
 919                         mcl = np->rx_mcl + pages_flipped;
 920                         mcl->op = __HYPERVISOR_mmu_update;
 921                         mcl->args[0] = (u_long)np->rx_mmu;
 922                         mcl->args[1] = pages_flipped;
 923                         mcl->args[2] = 0;
 924                         mcl->args[3] = DOMID_SELF;
 925                         (void)HYPERVISOR_multicall(np->rx_mcl,
 926                             pages_flipped + 1);
 927                 }
 928         }
 929
 930         while ((m = mbufq_dequeue(&errq)))
 931                 m_freem(m);
 932
 933         /*
 934          * Process all the mbufs after the remapping is complete.
 935          * Break the mbuf chain first though.
 936          */
 937         while ((m = mbufq_dequeue(&rxq)) != NULL) {
 938                 ifp->if_ipackets++;
 939
 940                 /*
 941                  * Do we really need to drop the rx lock?
 942                  */
 943                 XN_RX_UNLOCK(np);
 944                 /* Pass it up. */
 945                 (*ifp->if_input)(ifp, m);
 946                 XN_RX_LOCK(np);
 947         }
 948
 949         np->rx.rsp_cons = i;
 950
 951 #if 0
 952         /* If we get a callback with very few responses, reduce fill target. */
 953         /* NB. Note exponential increase, linear decrease. */
 954         if (((np->rx.req_prod_pvt - np->rx.sring->rsp_prod) >
 955             ((3*np->rx_target) / 4)) && (--np->rx_target < np->rx_min_target))
 956                 np->rx_target = np->rx_min_target;
 957 #endif
 958
 959         network_alloc_rx_buffers(np);
 960
 961         np->rx.sring->rsp_event = i + 1;
 962 }
 963
 964 static void
 965 xn_txeof(struct netfront_info *np)
 966 {
 967         RING_IDX i, prod;
 968         unsigned short id;
 969         struct ifnet *ifp;
 970         struct mbuf *m;
 971
 972         XN_TX_LOCK_ASSERT(np);
 973
 974         if (!netfront_carrier_ok(np))
 975                 return;
 976
 977         ifp = np->xn_ifp;
 978         ifp->if_timer = 0;
 979
 980         do {
 981                 prod = np->tx.sring->rsp_prod;
 982                 rmb(); /* Ensure we see responses up to 'rp'. */
 983
 984                 for (i = np->tx.rsp_cons; i != prod; i++) {
 985                         id = RING_GET_RESPONSE(&np->tx, i)->id;
 986                         m = np->xn_cdata.xn_tx_chain[id];
 987
 988                         ifp->if_opackets++;
 989                         KASSERT(m != NULL, ("mbuf not found in xn_tx_chain"));
 990                         M_ASSERTVALID(m);
 991                         if (unlikely(gnttab_query_foreign_access(
 992                             np->grant_tx_ref[id]) != 0)) {
 993                                 printf("network_tx_buf_gc: warning "
 994                                     "-- grant still in use by backend "
 995                                     "domain.\n");
 996                                 goto out;
 997                         }
 998                         gnttab_end_foreign_access_ref(
 999                                 np->grant_tx_ref[id]);
1000                         gnttab_release_grant_reference(
1001                                 &np->gref_tx_head, np->grant_tx_ref[id]);
1002                         np->grant_tx_ref[id] = GRANT_INVALID_REF;
1003
1004                         np->xn_cdata.xn_tx_chain[id] = NULL;
1005                         add_id_to_freelist(np->xn_cdata.xn_tx_chain, id);
1006                         m_freem(m);
1007                 }
1008                 np->tx.rsp_cons = prod;
1009
1010                 /*
1011                  * Set a new event, then check for race with update of
1012                  * tx_cons. Note that it is essential to schedule a
1013                  * callback, no matter how few buffers are pending. Even if
1014                  * there is space in the transmit ring, higher layers may
1015                  * be blocked because too much data is outstanding: in such
1016                  * cases notification from Xen is likely to be the only kick
1017                  * that we'll get.
1018                  */
1019                 np->tx.sring->rsp_event =
1020                     prod + ((np->tx.sring->req_prod - prod) >> 1) + 1;
1021
1022                 mb();
1023
1024         } while (prod != np->tx.sring->rsp_prod);
1025
1026  out:
1027         if (np->tx_full &&
1028             ((np->tx.sring->req_prod - prod) < NET_TX_RING_SIZE)) {
1029                 np->tx_full = 0;
1030 #if 0
1031                 if (np->user_state == UST_OPEN)
1032                         netif_wake_queue(dev);
1033 #endif
1034         }
1035
1036 }
1037
1038 static void
1039 xn_intr(void *xsc)
1040 {
1041         struct netfront_info *np = xsc;
1042         struct ifnet *ifp = np->xn_ifp;
1043
1044 #if 0
1045         if (!(np->rx.rsp_cons != np->rx.sring->rsp_prod &&
1046             likely(netfront_carrier_ok(np)) &&
1047             ifp->if_drv_flags & IFF_DRV_RUNNING))
1048                 return;
1049 #endif
1050         if (np->tx.rsp_cons != np->tx.sring->rsp_prod) {
1051                 XN_TX_LOCK(np);
1052                 xn_txeof(np);
1053                 XN_TX_UNLOCK(np);
1054         }
1055
1056         XN_RX_LOCK(np);
1057         xn_rxeof(np);
1058         XN_RX_UNLOCK(np);
1059
1060         if (ifp->if_drv_flags & IFF_DRV_RUNNING &&
1061             !IFQ_DRV_IS_EMPTY(&ifp->if_snd))
1062                 xn_start(ifp);
1063 }
1064
1065
1066 static void
1067 xennet_move_rx_slot(struct netfront_info *np, struct mbuf *m,
1068         grant_ref_t ref)
1069 {
1070         int new = xennet_rxidx(np->rx.req_prod_pvt);
1071
1072         KASSERT(np->rx_mbufs[new] == NULL, ("rx_mbufs != NULL"));
1073         np->rx_mbufs[new] = m;
1074         np->grant_rx_ref[new] = ref;
1075         RING_GET_REQUEST(&np->rx, np->rx.req_prod_pvt)->id = new;
1076         RING_GET_REQUEST(&np->rx, np->rx.req_prod_pvt)->gref = ref;
1077         np->rx.req_prod_pvt++;
1078 }
1079
1080 static int
1081 xennet_get_extras(struct netfront_info *np,
1082     struct netif_extra_info *extras, RING_IDX rp)
1083 {
1084         struct netif_extra_info *extra;
1085         RING_IDX cons = np->rx.rsp_cons;
1086
1087         int err = 0;
1088
1089         do {
1090                 struct mbuf *m;
1091                 grant_ref_t ref;
1092
1093                 if (unlikely(cons + 1 == rp)) {
1094 #if 0
1095                         if (net_ratelimit())
1096                                 WPRINTK("Missing extra info\n");
1097 #endif
1098                         err = -EINVAL;
1099                         break;
1100                 }
1101
1102                 extra = (struct netif_extra_info *)
1103                 RING_GET_RESPONSE(&np->rx, ++cons);
1104
1105                 if (unlikely(!extra->type ||
1106                         extra->type >= XEN_NETIF_EXTRA_TYPE_MAX)) {
1107 #if 0
1108                         if (net_ratelimit())
1109                                 WPRINTK("Invalid extra type: %d\n",
1110                                         extra->type);
1111 #endif
1112                         err = -EINVAL;
1113                 } else {
1114                         memcpy(&extras[extra->type - 1], extra, sizeof(*extra));
1115                 }
1116
1117                 m = xennet_get_rx_mbuf(np, cons);
1118                 ref = xennet_get_rx_ref(np, cons);
1119                 xennet_move_rx_slot(np, m, ref);
1120         } while (extra->flags & XEN_NETIF_EXTRA_FLAG_MORE);
1121
1122         np->rx.rsp_cons = cons;
1123         return err;
1124 }
1125
1126 static int
1127 xennet_get_responses(struct netfront_info *np,
1128         struct netfront_rx_info *rinfo, RING_IDX rp,
1129         struct mbuf  **list,
1130         int *pages_flipped_p)
1131 {
1132         int pages_flipped = *pages_flipped_p;
1133         struct mmu_update *mmu;
1134         struct multicall_entry *mcl;
1135         struct netif_rx_response *rx = &rinfo->rx;
1136         struct netif_extra_info *extras = rinfo->extras;
1137         RING_IDX cons = np->rx.rsp_cons;
1138         struct mbuf *m, *m0, *m_prev;
1139         grant_ref_t ref = xennet_get_rx_ref(np, cons);
1140         int max = 5 /* MAX_SKB_FRAGS + (rx->status <= RX_COPY_THRESHOLD) */;
1141         int frags = 1;
1142         int err = 0;
1143         u_long ret;
1144
1145         m0 = m = m_prev = xennet_get_rx_mbuf(np, cons);
1146
1147
1148         if (rx->flags & NETRXF_extra_info) {
1149                 err = xennet_get_extras(np, extras, rp);
1150                 cons = np->rx.rsp_cons;
1151         }
1152
1153
1154         if (m0 != NULL) {
1155                         m0->m_pkthdr.len = 0;
1156                         m0->m_next = NULL;
1157         }
1158
1159         for (;;) {
1160                 u_long mfn;
1161
1162 #if 0
1163                 printf("rx->status=%hd rx->offset=%hu frags=%u\n",
1164                         rx->status, rx->offset, frags);
1165 #endif
1166                 if (unlikely(rx->status < 0 ||
1167                         rx->offset + rx->status > PAGE_SIZE)) {
1168 #if 0
1169                         if (net_ratelimit())
1170                                 WPRINTK("rx->offset: %x, size: %u\n",
1171                                         rx->offset, rx->status);
1172 #endif
1173                         xennet_move_rx_slot(np, m, ref);
1174                         err = -EINVAL;
1175                         goto next;
1176                 }
1177
1178                 /*
1179                  * This definitely indicates a bug, either in this driver or in
1180                  * the backend driver. In future this should flag the bad
1181                  * situation to the system controller to reboot the backed.
1182                  */
1183                 if (ref == GRANT_INVALID_REF) {
1184 #if 0
1185                         if (net_ratelimit())
1186                                 WPRINTK("Bad rx response id %d.\n", rx->id);
1187 #endif
1188                         err = -EINVAL;
1189                         goto next;
1190                 }
1191
1192                 if (!np->copying_receiver) {
1193                         /* Memory pressure, insufficient buffer
1194                          * headroom, ...
1195                          */
1196                         if (!(mfn = gnttab_end_foreign_transfer_ref(ref))) {
1197                                 if (net_ratelimit())
1198                                         WPRINTK("Unfulfilled rx req "
1199                                                 "(id=%d, st=%d).\n",
1200                                                 rx->id, rx->status);
1201                                 xennet_move_rx_slot(np, m, ref);
1202                                 err = -ENOMEM;
1203                                 goto next;
1204                         }
1205
1206                         if (!xen_feature( XENFEAT_auto_translated_physmap)) {
1207                                 /* Remap the page. */
1208                                 void *vaddr = mtod(m, void *);
1209                                 uint32_t pfn;
1210
1211                                 mcl = np->rx_mcl + pages_flipped;
1212                                 mmu = np->rx_mmu + pages_flipped;
1213
1214                                 MULTI_update_va_mapping(mcl, (u_long)vaddr,
1215                                     (((vm_paddr_t)mfn) << PAGE_SHIFT) | PG_RW |
1216                                     PG_V | PG_M | PG_A, 0);
1217                                 pfn = (uint32_t)m->m_ext.ext_arg1;
1218                                 mmu->ptr = ((vm_paddr_t)mfn << PAGE_SHIFT) |
1219                                     MMU_MACHPHYS_UPDATE;
1220                                 mmu->val = pfn;
1221
1222                                 set_phys_to_machine(pfn, mfn);
1223                         }
1224                         pages_flipped++;
1225                 } else {
1226                         ret = gnttab_end_foreign_access_ref(ref);
1227                         KASSERT(ret, ("ret != 0"));
1228                 }
1229
1230                 gnttab_release_grant_reference(&np->gref_rx_head, ref);
1231
1232 next:
1233                 if (m != NULL) {
1234                                 m->m_len = rx->status;
1235                                 m->m_data += rx->offset;
1236                                 m0->m_pkthdr.len += rx->status;
1237                 }
1238
1239                 if (!(rx->flags & NETRXF_more_data))
1240                         break;
1241
1242                 if (cons + frags == rp) {
1243                         if (net_ratelimit())
1244                                 WPRINTK("Need more frags\n");
1245                         err = -ENOENT;
1246                                 break;
1247                 }
1248                 m_prev = m;
1249
1250                 rx = RING_GET_RESPONSE(&np->rx, cons + frags);
1251                 m = xennet_get_rx_mbuf(np, cons + frags);
1252
1253                 m_prev->m_next = m;
1254                 m->m_next = NULL;
1255                 ref = xennet_get_rx_ref(np, cons + frags);
1256                 frags++;
1257         }
1258         *list = m0;
1259
1260         if (unlikely(frags > max)) {
1261                 if (net_ratelimit())
1262                         WPRINTK("Too many frags\n");
1263                 err = -E2BIG;
1264         }
1265
1266         if (unlikely(err))
1267                 np->rx.rsp_cons = cons + frags;
1268
1269         *pages_flipped_p = pages_flipped;
1270
1271         return err;
1272 }
1273
1274 static void
1275 xn_tick_locked(struct netfront_info *sc)
1276 {
1277         XN_RX_LOCK_ASSERT(sc);
1278         callout_reset(&sc->xn_stat_ch, hz, xn_tick, sc);
1279
1280         /* XXX placeholder for printing debug information */
1281
1282 }
1283
1284
1285 static void
1286 xn_tick(void *xsc)
1287 {
1288         struct netfront_info *sc;
1289
1290         sc = xsc;
1291         XN_RX_LOCK(sc);
1292         xn_tick_locked(sc);
1293         XN_RX_UNLOCK(sc);
1294
1295 }
1296 static void
1297 xn_start_locked(struct ifnet *ifp)
1298 {
1299         unsigned short id;
1300         struct mbuf *m_head, *new_m;
1301         struct netfront_info *sc;
1302         netif_tx_request_t *tx;
1303         RING_IDX i;
1304         grant_ref_t ref;
1305         u_long mfn, tx_bytes;
1306         int notify;
1307
1308         sc = ifp->if_softc;
1309         tx_bytes = 0;
1310
1311         if (!netfront_carrier_ok(sc))
1312                 return;
1313
1314         for (i = sc->tx.req_prod_pvt; TRUE; i++) {
1315                 IF_DEQUEUE(&ifp->if_snd, m_head);
1316                 if (m_head == NULL)
1317                         break;
1318
1319                 if (!netfront_tx_slot_available(sc)) {
1320                         IF_PREPEND(&ifp->if_snd, m_head);
1321                         ifp->if_drv_flags |= IFF_DRV_OACTIVE;
1322                         break;
1323                 }
1324
1325                 id = get_id_from_freelist(sc->xn_cdata.xn_tx_chain);
1326
1327                 /*
1328                  * Start packing the mbufs in this chain into
1329                  * the fragment pointers. Stop when we run out
1330                  * of fragments or hit the end of the mbuf chain.
1331                  */
1332                 new_m = makembuf(m_head);
1333                 tx = RING_GET_REQUEST(&sc->tx, i);
1334                 tx->id = id;
1335                 ref = gnttab_claim_grant_reference(&sc->gref_tx_head);
1336                 KASSERT((short)ref >= 0, ("Negative ref"));
1337                 mfn = virt_to_mfn(mtod(new_m, vm_offset_t));
1338                 gnttab_grant_foreign_access_ref(ref, sc->xbdev->otherend_id,
1339                     mfn, GNTMAP_readonly);
1340                 tx->gref = sc->grant_tx_ref[id] = ref;
1341                 tx->size = new_m->m_pkthdr.len;
1342 #if 0
1343                 tx->flags = (skb->ip_summed == CHECKSUM_HW) ? NETTXF_csum_blank : 0;
1344 #endif
1345                 tx->flags = 0;
1346                 new_m->m_next = NULL;
1347                 new_m->m_nextpkt = NULL;
1348
1349                 m_freem(m_head);
1350
1351                 sc->xn_cdata.xn_tx_chain[id] = new_m;
1352                 BPF_MTAP(ifp, new_m);
1353
1354                 sc->stats.tx_bytes += new_m->m_pkthdr.len;
1355                 sc->stats.tx_packets++;
1356         }
1357
1358         sc->tx.req_prod_pvt = i;
1359         RING_PUSH_REQUESTS_AND_CHECK_NOTIFY(&sc->tx, notify);
1360         if (notify)
1361                 notify_remote_via_irq(sc->irq);
1362
1363         xn_txeof(sc);
1364
1365         if (RING_FULL(&sc->tx)) {
1366                 sc->tx_full = 1;
1367 #if 0
1368                 netif_stop_queue(dev);
1369 #endif
1370         }
1371
1372         return;
1373 }
1374
1375 static void
1376 xn_start(struct ifnet *ifp)
1377 {
1378         struct netfront_info *sc;
1379         sc = ifp->if_softc;
1380         XN_TX_LOCK(sc);
1381         xn_start_locked(ifp);
1382         XN_TX_UNLOCK(sc);
1383 }
1384
1385 /* equivalent of network_open() in Linux */
1386 static void
1387 xn_ifinit_locked(struct netfront_info *sc)
1388 {
1389         struct ifnet *ifp;
1390
1391         XN_LOCK_ASSERT(sc);
1392
1393         ifp = sc->xn_ifp;
1394
1395         if (ifp->if_drv_flags & IFF_DRV_RUNNING)
1396                 return;
1397
1398         xn_stop(sc);
1399
1400         network_alloc_rx_buffers(sc);
1401         sc->rx.sring->rsp_event = sc->rx.rsp_cons + 1;
1402
1403         ifp->if_drv_flags |= IFF_DRV_RUNNING;
1404         ifp->if_drv_flags &= ~IFF_DRV_OACTIVE;
1405
1406         callout_reset(&sc->xn_stat_ch, hz, xn_tick, sc);
1407
1408 }
1409
1410
1411 static void
1412 xn_ifinit(void *xsc)
1413 {
1414         struct netfront_info *sc = xsc;
1415
1416         XN_LOCK(sc);
1417         xn_ifinit_locked(sc);
1418         XN_UNLOCK(sc);
1419
1420 }
1421
1422
1423 static int
1424 xn_ioctl(struct ifnet *ifp, u_long cmd, caddr_t data)
1425 {
1426         struct netfront_info *sc = ifp->if_softc;
1427         struct ifreq *ifr = (struct ifreq *) data;
1428         struct ifaddr *ifa = (struct ifaddr *)data;
1429
1430         int mask, error = 0;
1431         switch(cmd) {
1432         case SIOCSIFADDR:
1433         case SIOCGIFADDR:
1434                 XN_LOCK(sc);
1435                 if (ifa->ifa_addr->sa_family == AF_INET) {
1436                         ifp->if_flags |= IFF_UP;
1437                         if (!(ifp->if_drv_flags & IFF_DRV_RUNNING))
1438                                 xn_ifinit_locked(sc);
1439                         arp_ifinit(ifp, ifa);
1440                 } else
1441                         error = ether_ioctl(ifp, cmd, data);
1442                 XN_UNLOCK(sc);
1443                 break;
1444         case SIOCSIFMTU:
1445                 /* XXX can we alter the MTU on a VN ?*/
1446 #ifdef notyet
1447                 if (ifr->ifr_mtu > XN_JUMBO_MTU)
1448                         error = EINVAL;
1449                 else
1450 #endif
1451                 {
1452                         ifp->if_mtu = ifr->ifr_mtu;
1453                         ifp->if_drv_flags &= ~IFF_DRV_RUNNING;
1454                         xn_ifinit(sc);
1455                 }
1456                 break;
1457         case SIOCSIFFLAGS:
1458                 XN_LOCK(sc);
1459                 if (ifp->if_flags & IFF_UP) {
1460                         /*
1461                          * If only the state of the PROMISC flag changed,
1462                          * then just use the 'set promisc mode' command
1463                          * instead of reinitializing the entire NIC. Doing
1464                          * a full re-init means reloading the firmware and
1465                          * waiting for it to start up, which may take a
1466                          * second or two.
1467                          */
1468 #ifdef notyet
1469                         /* No promiscuous mode with Xen */
1470                         if (ifp->if_drv_flags & IFF_DRV_RUNNING &&
1471                             ifp->if_flags & IFF_PROMISC &&
1472                             !(sc->xn_if_flags & IFF_PROMISC)) {
1473                                 XN_SETBIT(sc, XN_RX_MODE,
1474                                           XN_RXMODE_RX_PROMISC);
1475                         } else if (ifp->if_drv_flags & IFF_DRV_RUNNING &&
1476                                    !(ifp->if_flags & IFF_PROMISC) &&
1477                                    sc->xn_if_flags & IFF_PROMISC) {
1478                                 XN_CLRBIT(sc, XN_RX_MODE,
1479                                           XN_RXMODE_RX_PROMISC);
1480                         } else
1481 #endif
1482                                 xn_ifinit_locked(sc);
1483                 } else {
1484                         if (ifp->if_drv_flags & IFF_DRV_RUNNING) {
1485                                 xn_stop(sc);
1486                         }
1487                 }
1488                 sc->xn_if_flags = ifp->if_flags;
1489                 XN_UNLOCK(sc);
1490                 error = 0;
1491                 break;
1492         case SIOCSIFCAP:
1493                 mask = ifr->ifr_reqcap ^ ifp->if_capenable;
1494                 if (mask & IFCAP_HWCSUM) {
1495                         if (IFCAP_HWCSUM & ifp->if_capenable)
1496                                 ifp->if_capenable &= ~IFCAP_HWCSUM;
1497                         else
1498                                 ifp->if_capenable |= IFCAP_HWCSUM;
1499                 }
1500                 error = 0;
1501                 break;
1502         case SIOCADDMULTI:
1503         case SIOCDELMULTI:
1504 #ifdef notyet
1505                 if (ifp->if_drv_flags & IFF_DRV_RUNNING) {
1506                         XN_LOCK(sc);
1507                         xn_setmulti(sc);
1508                         XN_UNLOCK(sc);
1509                         error = 0;
1510                 }
1511 #endif
1512                 /* FALLTHROUGH */
1513         case SIOCSIFMEDIA:
1514         case SIOCGIFMEDIA:
1515                 error = EINVAL;
1516                 break;
1517         default:
1518                 error = ether_ioctl(ifp, cmd, data);
1519         }
1520
1521         return (error);
1522 }
1523
1524 static void
1525 xn_stop(struct netfront_info *sc)
1526 {
1527         struct ifnet *ifp;
1528
1529         XN_LOCK_ASSERT(sc);
1530
1531         ifp = sc->xn_ifp;
1532
1533         callout_stop(&sc->xn_stat_ch);
1534
1535         xn_free_rx_ring(sc);
1536         xn_free_tx_ring(sc);
1537
1538         ifp->if_drv_flags &= ~(IFF_DRV_RUNNING | IFF_DRV_OACTIVE);
1539 }
1540
1541 /* START of Xenolinux helper functions adapted to FreeBSD */
1542 static int
1543 network_connect(struct ifnet *ifp)
1544 {
1545         struct netfront_info *np;
1546         int i, requeue_idx, err;
1547         grant_ref_t ref;
1548         netif_rx_request_t *req;
1549         u_int feature_rx_copy, feature_rx_flip;
1550
1551         printf("network_connect\n");
1552
1553         np = ifp->if_softc;
1554         err = xenbus_scanf(XBT_NIL, np->xbdev->otherend,
1555                            "feature-rx-copy", "%u", &feature_rx_copy);
1556         if (err != 1)
1557                 feature_rx_copy = 0;
1558         err = xenbus_scanf(XBT_NIL, np->xbdev->otherend,
1559                            "feature-rx-flip", "%u", &feature_rx_flip);
1560         if (err != 1)
1561                 feature_rx_flip = 1;
1562
1563         /*
1564          * Copy packets on receive path if:
1565          *  (a) This was requested by user, and the backend supports it; or
1566          *  (b) Flipping was requested, but this is unsupported by the backend.
1567          */
1568         np->copying_receiver = ((MODPARM_rx_copy && feature_rx_copy) ||
1569                                 (MODPARM_rx_flip && !feature_rx_flip));
1570
1571         XN_LOCK(np);
1572         /* Recovery procedure: */
1573         err = talk_to_backend(np->xbdev, np);
1574         if (err)
1575                         return (err);
1576
1577         /* Step 1: Reinitialise variables. */
1578         netif_release_tx_bufs(np);
1579
1580         /* Step 2: Rebuild the RX buffer freelist and the RX ring itself. */
1581         for (requeue_idx = 0, i = 0; i < NET_RX_RING_SIZE; i++) {
1582                 struct mbuf *m;
1583
1584                 if (np->rx_mbufs[i] == NULL)
1585                         continue;
1586
1587                 m = np->rx_mbufs[requeue_idx] = xennet_get_rx_mbuf(np, i);
1588                 ref = np->grant_rx_ref[requeue_idx] = xennet_get_rx_ref(np, i);
1589                 req = RING_GET_REQUEST(&np->rx, requeue_idx);
1590
1591                 if (!np->copying_receiver) {
1592                         gnttab_grant_foreign_transfer_ref(ref,
1593                             np->xbdev->otherend_id,
1594                             vtophys(mtod(m, vm_offset_t)));
1595                 } else {
1596                         gnttab_grant_foreign_access_ref(ref,
1597                             np->xbdev->otherend_id,
1598                             vtophys(mtod(m, vm_offset_t)), 0);
1599                 }
1600                 req->gref = ref;
1601                 req->id   = requeue_idx;
1602
1603                 requeue_idx++;
1604         }
1605
1606         np->rx.req_prod_pvt = requeue_idx;
1607
1608         /* Step 3: All public and private state should now be sane.  Get
1609          * ready to start sending and receiving packets and give the driver
1610          * domain a kick because we've probably just requeued some
1611          * packets.
1612          */
1613         netfront_carrier_on(np);
1614         notify_remote_via_irq(np->irq);
1615         XN_TX_LOCK(np);
1616         xn_txeof(np);
1617         XN_TX_UNLOCK(np);
1618         network_alloc_rx_buffers(np);
1619         XN_UNLOCK(np);
1620
1621         return (0);
1622 }
1623
1624
1625 static void
1626 show_device(struct netfront_info *sc)
1627 {
1628 #ifdef DEBUG
1629         if (sc) {
1630                 IPRINTK("<vif handle=%u %s(%s) evtchn=%u irq=%u tx=%p rx=%p>\n",
1631                         sc->xn_ifno,
1632                         be_state_name[sc->xn_backend_state],
1633                         sc->xn_user_state ? "open" : "closed",
1634                         sc->xn_evtchn,
1635                         sc->xn_irq,
1636                         sc->xn_tx_if,
1637                         sc->xn_rx_if);
1638         } else {
1639                 IPRINTK("<vif NULL>\n");
1640         }
1641 #endif
1642 }
1643
1644 static int ifno = 0;
1645
1646 /** Create a network device.
1647  * @param handle device handle
1648  */
1649 static int
1650 create_netdev(struct xenbus_device *dev, struct ifnet **ifpp)
1651 {
1652         int i;
1653         struct netfront_info *np;
1654         int err;
1655         struct ifnet *ifp;
1656
1657         np = (struct netfront_info *)malloc(sizeof(struct netfront_info),
1658             M_DEVBUF, M_NOWAIT);
1659         if (np == NULL)
1660                         return (ENOMEM);
1661
1662         memset(np, 0, sizeof(struct netfront_info));
1663
1664         np->xbdev         = dev;
1665
1666         XN_LOCK_INIT(np, xennetif);
1667         np->rx_target     = RX_MIN_TARGET;
1668         np->rx_min_target = RX_MIN_TARGET;
1669         np->rx_max_target = RX_MAX_TARGET;
1670
1671         /* Initialise {tx,rx}_skbs to be a free chain containing every entry. */
1672         for (i = 0; i <= NET_TX_RING_SIZE; i++) {
1673                 np->tx_mbufs[i] = (void *) ((u_long) i+1);
1674                 np->grant_tx_ref[i] = GRANT_INVALID_REF;
1675         }
1676         for (i = 0; i <= NET_RX_RING_SIZE; i++) {
1677                 np->rx_mbufs[i] = NULL;
1678                 np->grant_rx_ref[i] = GRANT_INVALID_REF;
1679         }
1680         /* A grant for every tx ring slot */
1681         if (gnttab_alloc_grant_references(TX_MAX_TARGET,
1682                                           &np->gref_tx_head) < 0) {
1683                 printf("#### netfront can't alloc tx grant refs\n");
1684                 err = ENOMEM;
1685                 goto exit;
1686         }
1687         /* A grant for every rx ring slot */
1688         if (gnttab_alloc_grant_references(RX_MAX_TARGET,
1689                                           &np->gref_rx_head) < 0) {
1690                 printf("#### netfront can't alloc rx grant refs\n");
1691                 gnttab_free_grant_references(np->gref_tx_head);
1692                 err = ENOMEM;
1693                 goto exit;
1694         }
1695
1696         err = xen_net_read_mac(dev, np->mac);
1697         if (err) {
1698                 xenbus_dev_fatal(dev, err, "parsing %s/mac", dev->nodename);
1699                 goto out;
1700         }
1701
1702         /* Set up ifnet structure */
1703         *ifpp = ifp = np->xn_ifp = if_alloc(IFT_ETHER);
1704         ifp->if_softc = np;
1705         if_initname(ifp, "xn",  ifno++/* ifno */);
1706         ifp->if_flags = IFF_BROADCAST | IFF_SIMPLEX;
1707         ifp->if_ioctl = xn_ioctl;
1708         ifp->if_output = ether_output;
1709         ifp->if_start = xn_start;
1710 #ifdef notyet
1711         ifp->if_watchdog = xn_watchdog;
1712 #endif
1713         ifp->if_init = xn_ifinit;
1714         ifp->if_mtu = ETHERMTU;
1715         ifp->if_snd.ifq_maxlen = NET_TX_RING_SIZE - 1;
1716
1717 #ifdef notyet
1718         ifp->if_hwassist = XN_CSUM_FEATURES;
1719         ifp->if_capabilities = IFCAP_HWCSUM;
1720         ifp->if_capenable = ifp->if_capabilities;
1721 #endif
1722
1723         ether_ifattach(ifp, np->mac);
1724         callout_init(&np->xn_stat_ch, CALLOUT_MPSAFE);
1725         netfront_carrier_off(np);
1726
1727         return (0);
1728
1729 exit:
1730         gnttab_free_grant_references(np->gref_tx_head);
1731 out:
1732         panic("do something smart");
1733
1734 }
1735
1736 /**
1737  * Handle the change of state of the backend to Closing.  We must delete our
1738  * device-layer structures now, to ensure that writes are flushed through to
1739  * the backend.  Once is this done, we can switch to Closed in
1740  * acknowledgement.
1741  */
1742 #if 0
1743 static void netfront_closing(struct xenbus_device *dev)
1744 {
1745 #if 0
1746         struct netfront_info *info = dev->dev_driver_data;
1747
1748         DPRINTK("netfront_closing: %s removed\n", dev->nodename);
1749
1750         close_netdev(info);
1751 #endif
1752         xenbus_switch_state(dev, XenbusStateClosed);
1753 }
1754 #endif
1755
1756 static int netfront_remove(struct xenbus_device *dev)
1757 {
1758         struct netfront_info *info = dev->dev_driver_data;
1759
1760         DPRINTK("%s\n", dev->nodename);
1761
1762         netif_free(info);
1763         free(info, M_DEVBUF);
1764
1765         return 0;
1766 }
1767
1768
1769 static void netif_free(struct netfront_info *info)
1770 {
1771         netif_disconnect_backend(info);
1772 #if 0
1773         close_netdev(info);
1774 #endif
1775 }
1776
1777
1778
1779 static void netif_disconnect_backend(struct netfront_info *info)
1780 {
1781         xn_stop(info);
1782         end_access(info->tx_ring_ref, info->tx.sring);
1783         end_access(info->rx_ring_ref, info->rx.sring);
1784         info->tx_ring_ref = GRANT_INVALID_REF;
1785         info->rx_ring_ref = GRANT_INVALID_REF;
1786         info->tx.sring = NULL;
1787         info->rx.sring = NULL;
1788
1789 #if 0
1790         if (info->irq)
1791                 unbind_from_irqhandler(info->irq, info->netdev);
1792 #else
1793         panic("FIX ME");
1794 #endif
1795         info->irq = 0;
1796 }
1797
1798
1799 static void end_access(int ref, void *page)
1800 {
1801         if (ref != GRANT_INVALID_REF)
1802                 gnttab_end_foreign_access(ref, page);
1803 }
1804
1805
1806 /* ** Driver registration ** */
1807
1808
1809 static struct xenbus_device_id netfront_ids[] = {
1810         { "vif" },
1811         { "" }
1812 };
1813
1814
1815 static struct xenbus_driver netfront = {
1816         .name = "vif",
1817         .ids = netfront_ids,
1818         .probe = netfront_probe,
1819         .remove = netfront_remove,
1820         .resume = netfront_resume,
1821         .otherend_changed = backend_changed,
1822 };
1823
1824 static void
1825 netif_init(void *unused)
1826 {
1827         if (!is_running_on_xen())
1828                 return;
1829
1830         if (is_initial_xendomain())
1831                 return;
1832
1833         IPRINTK("Initialising virtual ethernet driver.\n");
1834
1835         xenbus_register_frontend(&netfront);
1836 }
1837
1838 SYSINIT(xennetif, SI_SUB_PSEUDO, SI_ORDER_SECOND, netif_init, NULL);
1839
1840
1841 /*
1842  * Local variables:
1843  * mode: C
1844  * c-set-style: "BSD"
1845  * c-basic-offset: 8
1846  * tab-width: 4
1847  * indent-tabs-mode: t
1848  * End:
1849  */