HAMMER Utilities: Sync with recent work.

[dragonfly.git] / sys / kern / uipc_msg.c

/*
 * Copyright (c) 2003, 2004 Jeffrey M. Hsu.  All rights reserved.
 * Copyright (c) 2003, 2004 The DragonFly Project.  All rights reserved.
 * 
 * This code is derived from software contributed to The DragonFly Project
 * by Jeffrey M. Hsu.
 * 
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of The DragonFly Project nor the names of its
 *    contributors may be used to endorse or promote products derived
 *    from this software without specific, prior written permission.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE
 * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING,
 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 * $DragonFly: src/sys/kern/uipc_msg.c,v 1.21 2008/06/17 20:50:11 aggelos Exp $
 */

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/msgport.h>
#include <sys/protosw.h>
#include <sys/socket.h>
#include <sys/socketvar.h>
#include <sys/socketops.h>
#include <sys/thread.h>
#include <sys/thread2.h>
#include <sys/msgport2.h>
#include <net/netmsg2.h>

#include <net/netisr.h>
#include <net/netmsg.h>

int
so_pru_abort(struct socket *so)
{
        int error;
        struct netmsg_pru_abort msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_ABORT);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_abort);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_abort;
        msg.nm_so = so;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_accept(struct socket *so, struct sockaddr **nam)
{
        /* Block (memory allocation) in process context. XXX JH */
        return ((*so->so_proto->pr_usrreqs->pru_accept)(so, nam));

#ifdef notdef
        int error;
        struct netmsg_pru_accept msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_ACCEPT);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_accept);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_accept;
        msg.nm_so = so;
        msg.nm_nam = nam;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
#endif
}

int
so_pru_attach(struct socket *so, int proto, struct pru_attach_info *ai)
{
        int error;
        struct netmsg_pru_attach msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(NULL, NULL, NULL, PRU_ATTACH);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_attach);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_attach;
        msg.nm_so = so;
        msg.nm_proto = proto;
        msg.nm_ai = ai;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_bind(struct socket *so, struct sockaddr *nam, struct thread *td)
{
        int error;
        struct netmsg_pru_bind msg;
        lwkt_port_t port;

        /* Send mesg to thread for new address. */
        port = so->so_proto->pr_mport(NULL, nam, NULL, PRU_BIND);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_bind);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_bind;
        msg.nm_so = so;
        msg.nm_nam = nam;
        msg.nm_td = td;         /* used only for prison_ip() XXX JH */
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_connect(struct socket *so, struct sockaddr *nam, struct thread *td)
{
        int error;
        struct netmsg_pru_connect msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, nam, NULL, PRU_CONNECT);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_connect);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_connect;
        msg.nm_so = so;
        msg.nm_nam = nam;
        msg.nm_td = td;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_connect2(struct socket *so1, struct socket *so2)
{
        int error;
        struct netmsg_pru_connect2 msg;
        lwkt_port_t port;

        port = so1->so_proto->pr_mport(so1, NULL, NULL, PRU_CONNECT2);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_connect2);
        msg.nm_prufn = so1->so_proto->pr_usrreqs->pru_connect2;
        msg.nm_so1 = so1;
        msg.nm_so2 = so2;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_control(struct socket *so, u_long cmd, caddr_t data, struct ifnet *ifp)
{
        return ((*so->so_proto->pr_usrreqs->pru_control)(so, cmd, data, ifp,
            curthread));
#ifdef gag      /* does copyin and copyout deep inside stack XXX JH */
        int error;
        struct netmsg_pru_control msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_CONTROL);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_control);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_control;
        msg.nm_so = so;
        msg.nm_cmd = cmd;
        msg.nm_data = data;
        msg.nm_ifp = ifp;
        msg.nm_td = td;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
#endif
}

int
so_pru_detach(struct socket *so)
{
        int error;
        struct netmsg_pru_detach msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_DETACH);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_detach);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_detach;
        msg.nm_so = so;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_disconnect(struct socket *so)
{
        int error;
        struct netmsg_pru_disconnect msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_DISCONNECT);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_disconnect);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_disconnect;
        msg.nm_so = so;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_listen(struct socket *so, struct thread *td)
{
        int error;
        struct netmsg_pru_listen msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_LISTEN);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_listen);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_listen;
        msg.nm_so = so;
        msg.nm_td = td;         /* used only for prison_ip() XXX JH */
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_peeraddr(struct socket *so, struct sockaddr **nam)
{
        int error;
        struct netmsg_pru_peeraddr msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_PEERADDR);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_peeraddr);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_peeraddr;
        msg.nm_so = so;
        msg.nm_nam = nam;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_rcvd(struct socket *so, int flags)
{
        int error;
        struct netmsg_pru_rcvd msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_RCVD);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_rcvd);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_rcvd;
        msg.nm_so = so;
        msg.nm_flags = flags;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_rcvoob(struct socket *so, struct mbuf *m, int flags)
{
        int error;
        struct netmsg_pru_rcvoob msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_RCVOOB);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_rcvoob);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_rcvoob;
        msg.nm_so = so;
        msg.nm_m = m;
        msg.nm_flags = flags;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_send(struct socket *so, int flags, struct mbuf *m, struct sockaddr *addr,
    struct mbuf *control, struct thread *td)
{
        int error;
        struct netmsg_pru_send msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, addr, &m, PRU_SEND);
        if (port == NULL) {
                KKASSERT(m == NULL);
                return EINVAL;
        }

        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_send);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_send;
        msg.nm_so = so;
        msg.nm_flags = flags;
        msg.nm_m = m;
        msg.nm_addr = addr;
        msg.nm_control = control;
        msg.nm_td = td;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_sense(struct socket *so, struct stat *sb)
{
        int error;
        struct netmsg_pru_sense msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_SENSE);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_sense);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_sense;
        msg.nm_so = so;
        msg.nm_stat = sb;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_shutdown(struct socket *so)
{
        int error;
        struct netmsg_pru_shutdown msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_SHUTDOWN);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_shutdown);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_shutdown;
        msg.nm_so = so;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_sockaddr(struct socket *so, struct sockaddr **nam)
{
        int error;
        struct netmsg_pru_sockaddr msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_SOCKADDR);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_sockaddr);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_sockaddr;
        msg.nm_so = so;
        msg.nm_nam = nam;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_sopoll(struct socket *so, int events, struct ucred *cred)
{
        int error;
        struct netmsg_pru_sopoll msg;
        lwkt_port_t port;

        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_SOPOLL);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_sopoll);
        msg.nm_prufn = so->so_proto->pr_usrreqs->pru_sopoll;
        msg.nm_so = so;
        msg.nm_events = events;
        msg.nm_cred = cred;
        msg.nm_td = curthread;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
        return (error);
}

int
so_pru_ctloutput(struct socket *so, struct sockopt *sopt)
{
        struct netmsg_pru_ctloutput msg;
        lwkt_port_t port;
        int error;
        void *uval = NULL;
        int need_copy;

        need_copy = sopt->sopt_td != NULL;
        if (need_copy) {
                uval = sopt->sopt_val;
                /*
                 * we keep duplicate copies, but for option {s,g}etting
                 * who cares?
                 */
                sopt->sopt_val = kmalloc(sopt->sopt_valsize, M_TEMP, M_WAITOK);
                error = copyin(uval, sopt->sopt_val, sopt->sopt_valsize);
                if (error)
                        goto out;
        }
        port = so->so_proto->pr_mport(so, NULL, NULL, PRU_CTLOUTPUT);
        netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                    netmsg_pru_ctloutput);
        /* TBD: move pr_ctloutput to pr_usrreqs */
        msg.nm_prufn = so->so_proto->pr_ctloutput;
        msg.nm_so = so;
        msg.nm_sopt = sopt;
        error = lwkt_domsg(port, &msg.nm_netmsg.nm_lmsg, 0);
out:
        if (need_copy) {
                if (!error) {
                        error = copyout(sopt->sopt_val, uval,
                                        sopt->sopt_valsize);
                }
                /*
                 * watch out: this may not be the same memory we allocated,
                 * callees "know" we're using M_TEMP so any reallocations
                 * will happen from there
                 */
                kfree(sopt->sopt_val, M_TEMP);
                sopt->sopt_val = uval;
        }
        return (error);
}

/*
 * If we convert all the protosw pr_ functions for all the protocols
 * to take a message directly, this layer can go away.  For the moment
 * our dispatcher ignores the return value, but since we are handling
 * the replymsg ourselves we return EASYNC by convention.
 */
void
netmsg_pru_abort(netmsg_t msg)
{
        struct netmsg_pru_abort *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so));
}

#ifdef notused
void
netmsg_pru_accept(netmsg_t msg)
{
        struct netmsg_pru_accept *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so, nm->nm_nam));
}
#endif

void
netmsg_pru_attach(netmsg_t msg)
{
        struct netmsg_pru_attach *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg,
                      nm->nm_prufn(nm->nm_so, nm->nm_proto, nm->nm_ai));
}

void
netmsg_pru_bind(netmsg_t msg)
{
        struct netmsg_pru_bind *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg,
                      nm->nm_prufn(nm->nm_so, nm->nm_nam, nm->nm_td));
}

void
netmsg_pru_connect(netmsg_t msg)
{
        struct netmsg_pru_connect *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg,
                      nm->nm_prufn(nm->nm_so, nm->nm_nam, nm->nm_td));
}

void
netmsg_pru_connect2(netmsg_t msg)
{
        struct netmsg_pru_connect2 *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so1, nm->nm_so2));
}

void
netmsg_pru_control(netmsg_t msg)
{
        struct netmsg_pru_control *nm = (void *)msg;
        int error;

        error = nm->nm_prufn(nm->nm_so, nm->nm_cmd, nm->nm_data,
                                nm->nm_ifp, nm->nm_td);
        lwkt_replymsg(&msg->nm_lmsg, error);
}

void
netmsg_pru_detach(netmsg_t msg)
{
        struct netmsg_pru_detach *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so));
}

void
netmsg_pru_disconnect(netmsg_t msg)
{
        struct netmsg_pru_disconnect *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so));
}

void
netmsg_pru_listen(netmsg_t msg)
{
        struct netmsg_pru_listen *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so, nm->nm_td));
}

void
netmsg_pru_peeraddr(netmsg_t msg)
{
        struct netmsg_pru_peeraddr *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so, nm->nm_nam));
}

void
netmsg_pru_rcvd(netmsg_t msg)
{
        struct netmsg_pru_rcvd *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so, nm->nm_flags));
}

void
netmsg_pru_rcvoob(netmsg_t msg)
{
        struct netmsg_pru_rcvoob *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg,
                      nm->nm_prufn(nm->nm_so, nm->nm_m, nm->nm_flags));
}

void
netmsg_pru_send(netmsg_t msg)
{
        struct netmsg_pru_send *nm = (void *)msg;
        int error;

        error = nm->nm_prufn(nm->nm_so, nm->nm_flags, nm->nm_m,
                                nm->nm_addr, nm->nm_control, nm->nm_td);
        lwkt_replymsg(&msg->nm_lmsg, error);
}

void
netmsg_pru_sense(netmsg_t msg)
{
        struct netmsg_pru_sense *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so, nm->nm_stat));
}

void
netmsg_pru_shutdown(netmsg_t msg)
{
        struct netmsg_pru_shutdown *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so));
}

void
netmsg_pru_sockaddr(netmsg_t msg)
{
        struct netmsg_pru_sockaddr *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so, nm->nm_nam));
}

void
netmsg_pru_sopoll(netmsg_t msg)
{
        struct netmsg_pru_sopoll *nm = (void *)msg;
        int error;

        error = nm->nm_prufn(nm->nm_so, nm->nm_events, nm->nm_cred, nm->nm_td);
        lwkt_replymsg(&msg->nm_lmsg, error);
}

void
netmsg_pru_ctloutput(netmsg_t msg)
{
        struct netmsg_pru_ctloutput *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prufn(nm->nm_so, nm->nm_sopt));
}

void
netmsg_pr_timeout(netmsg_t msg)
{
        struct netmsg_pr_timeout *nm = (void *)msg;

        lwkt_replymsg(&msg->nm_lmsg, nm->nm_prfn());
}

/*
 * Handle a predicate event request.  This function is only called once
 * when the predicate message queueing request is received.
 */
void
netmsg_so_notify(netmsg_t netmsg)
{
        struct netmsg_so_notify *msg = (void *)netmsg;
        struct signalsockbuf *ssb;

        ssb = (msg->nm_etype & NM_REVENT) ?
                        &msg->nm_so->so_rcv :
                        &msg->nm_so->so_snd;

        /*
         * Reply immediately if the event has occured, otherwise queue the
         * request.
         */
        if (msg->nm_predicate(&msg->nm_netmsg)) {
                lwkt_replymsg(&msg->nm_netmsg.nm_lmsg,
                              msg->nm_netmsg.nm_lmsg.ms_error);
        } else {
                TAILQ_INSERT_TAIL(&ssb->ssb_sel.si_mlist, msg, nm_list);
                ssb->ssb_flags |= SSB_MEVENT;
        }
}

/*
 * Called by doio when trying to abort a netmsg_so_notify message.
 * Unlike the other functions this one is dispatched directly by
 * the LWKT subsystem, so it takes a lwkt_msg_t as an argument.
 *
 * The original message, lmsg, is under the control of the caller and
 * will not be destroyed until we return so we can safely reference it
 * in our synchronous abort request.
 *
 * This part of the abort request occurs on the originating cpu which
 * means we may race the message flags and the original message may
 * not even have been processed by the target cpu yet.
 */
void
netmsg_so_notify_doabort(lwkt_msg_t lmsg)
{
        struct netmsg_so_notify_abort msg;

        if ((lmsg->ms_flags & (MSGF_DONE | MSGF_REPLY)) == 0) {
                netmsg_init(&msg.nm_netmsg, &curthread->td_msgport, 0,
                            netmsg_so_notify_abort);
                msg.nm_notifymsg = (void *)lmsg;
                lwkt_domsg(lmsg->ms_target_port, &msg.nm_netmsg.nm_lmsg, 0);
        }
}

/*
 * Predicate requests can be aborted.  This function is only called once
 * and will interlock against processing/reply races (since such races
 * occur on the same thread that controls the port where the abort is 
 * requeued).
 *
 * This part of the abort request occurs on the target cpu.  The message
 * flags must be tested again in case the test that we did on the
 * originating cpu raced.  Since messages are handled in sequence, the
 * original message will have already been handled by the loop and either
 * replied to or queued.
 *
 * We really only need to interlock with MSGF_REPLY (a bit that is set on
 * our cpu when we reply).  Note that MSGF_DONE is not set until the
 * reply reaches the originating cpu.  Test both bits anyway.
 */
void
netmsg_so_notify_abort(netmsg_t netmsg)
{
        struct netmsg_so_notify_abort *abrtmsg = (void *)netmsg;
        struct netmsg_so_notify *msg = abrtmsg->nm_notifymsg;
        struct signalsockbuf *ssb;

        /*
         * The original notify message is not destroyed until after the
         * abort request is returned, so we can check its state.
         */
        if ((msg->nm_netmsg.nm_lmsg.ms_flags & (MSGF_DONE | MSGF_REPLY)) == 0) {
                ssb = (msg->nm_etype & NM_REVENT) ?
                                &msg->nm_so->so_rcv :
                                &msg->nm_so->so_snd;
                TAILQ_REMOVE(&ssb->ssb_sel.si_mlist, msg, nm_list);
                lwkt_replymsg(&msg->nm_netmsg.nm_lmsg, EINTR);
        }

        /*
         * Reply to the abort message
         */
        lwkt_replymsg(&abrtmsg->nm_netmsg.nm_lmsg, 0);
}