Tue Nov 12 16:58:41 1996 Thomas Bushnell, n/BSG <thomas@gnu.ai.mit.edu>
[kopensolaris-gnu/glibc.git] / mach / msg-destroy.c
1 /* 
2  * Mach Operating System
3  * Copyright (c) 1991,1990 Carnegie Mellon University
4  * All Rights Reserved.
5  * 
6  * Permission to use, copy, modify and distribute this software and its
7  * documentation is hereby granted, provided that both the copyright
8  * notice and this permission notice appear in all copies of the
9  * software, derivative works or modified versions, and any portions
10  * thereof, and that both notices appear in supporting documentation.
11  * 
12  * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
13  * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
14  * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
15  * 
16  * Carnegie Mellon requests users of this software to return to
17  * 
18  *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
19  *  School of Computer Science
20  *  Carnegie Mellon University
21  *  Pittsburgh PA 15213-3890
22  * 
23  * any improvements or extensions that they make and grant Carnegie Mellon
24  * the rights to redistribute these changes.
25  */
26 /*
27  * HISTORY
28  * $Log$
29  * Revision 1.4  1996/11/15 19:44:43  thomas
30  * Tue Nov 12 16:58:41 1996  Thomas Bushnell, n/BSG  <thomas@gnu.ai.mit.edu>
31  *
32  *      * mach/mach.h (__mach_msg_destroy, mach_msg_destroy, __mach_msg):
33  *      Provide prototypes.
34  *
35  *      * mach/msg-destroy.c (mach_msg_destroy_port,
36  *      mach_msg_destroy_memory): Use prototype syntax.
37  *      * hurd/hurdmalloc.c (more_memory, malloc_fork_prepare,
38  *      malloc_fork_parent, malloc_fork_child): Likewise.
39  *
40  * Revision 1.3  1995/01/23 22:16:52  roland
41  * (mach_msg_destroy): Define as weak alias for __mach_msg_destroy.
42  *
43  * Revision 1.2  1993/08/03  06:13:18  roland
44  * entered into RCS
45  *
46  * Revision 2.4  91/05/14  17:53:15  mrt
47  *      Correcting copyright
48  * 
49  * Revision 2.3  91/02/14  14:17:43  mrt
50  *      Added new Mach copyright
51  *      [91/02/13  12:44:15  mrt]
52  * 
53  * Revision 2.2  90/08/06  17:24:22  rpd
54  *      Created.
55  * 
56  */
57
58 #if 1
59 #include <mach.h>
60 #else
61 /* This is what CMU did, but that fails to declare some used functions.  */
62 #include <mach/port.h>
63 #include <mach/message.h>
64 #include <mach_init.h>
65 #endif
66
67 static void mach_msg_destroy_port(mach_port_t, mach_msg_type_name_t);
68 static void mach_msg_destroy_memory(vm_offset_t, vm_size_t);
69
70 /*
71  *      Routine:        mach_msg_destroy
72  *      Purpose:
73  *              Deallocates all port rights and out-of-line memory
74  *              found in a received message.
75  */
76
77 void
78 __mach_msg_destroy(msg)
79     mach_msg_header_t *msg;
80 {
81     mach_msg_bits_t mbits = msg->msgh_bits;
82
83     /*
84      *  The msgh_local_port field doesn't hold a port right.
85      *  The receive operation consumes the destination port right.
86      */
87
88     mach_msg_destroy_port(msg->msgh_remote_port, MACH_MSGH_BITS_REMOTE(mbits));
89
90     if (mbits & MACH_MSGH_BITS_COMPLEX) {
91         vm_offset_t saddr;
92         vm_offset_t eaddr;
93
94         saddr = (vm_offset_t) (msg + 1);
95         eaddr = (vm_offset_t) msg + msg->msgh_size;
96
97         while (saddr < eaddr) {
98             mach_msg_type_long_t *type;
99             mach_msg_type_name_t name;
100             mach_msg_type_size_t size;
101             mach_msg_type_number_t number;
102             boolean_t is_inline;
103             vm_size_t length;
104             vm_offset_t addr;
105
106             type = (mach_msg_type_long_t *) saddr;
107             is_inline = type->msgtl_header.msgt_inline;
108             if (type->msgtl_header.msgt_longform) {
109                     name = type->msgtl_name;
110                     size = type->msgtl_size;
111                     number = type->msgtl_number;
112                     saddr += sizeof(mach_msg_type_long_t);
113             } else {
114                     name = type->msgtl_header.msgt_name;
115                     size = type->msgtl_header.msgt_size;
116                     number = type->msgtl_header.msgt_number;
117                     saddr += sizeof(mach_msg_type_t);
118             }
119
120             /* calculate length of data in bytes, rounding up */
121             length = ((((number * size) + 7) >> 3) + 3) &~ 3;
122
123             addr = is_inline ? saddr : * (vm_offset_t *) saddr;
124
125             if (MACH_MSG_TYPE_PORT_ANY(name)) {
126                 mach_port_t *ports = (mach_port_t *) addr;
127                 mach_msg_type_number_t i;
128
129                 for (i = 0; i < number; i++)
130                     mach_msg_destroy_port(*ports++, name);
131             }
132
133             if (is_inline) {
134                 /* inline data sizes round up to int boundaries */
135                 saddr += length;
136             } else {
137                 mach_msg_destroy_memory(addr, length);
138                 saddr += sizeof(vm_offset_t);
139             }
140         }
141     }
142 }
143
144 weak_alias (__mach_msg_destroy, mach_msg_destroy)
145
146 static void
147 mach_msg_destroy_port(port, type)
148     mach_port_t port;
149     mach_msg_type_name_t type;
150 {
151     if (MACH_PORT_VALID(port)) switch (type) {
152       case MACH_MSG_TYPE_PORT_SEND:
153       case MACH_MSG_TYPE_PORT_SEND_ONCE:
154         (void) __mach_port_deallocate(__mach_task_self(), port);
155         break;
156
157       case MACH_MSG_TYPE_PORT_RECEIVE:
158         (void) __mach_port_mod_refs(__mach_task_self(), port,
159                                     MACH_PORT_RIGHT_RECEIVE, -1);
160         break;
161     }
162 }
163
164 static void
165 mach_msg_destroy_memory(addr, size)
166     vm_offset_t addr;
167     vm_size_t size;
168 {
169     if (size > 0)
170         (void) __vm_deallocate(__mach_task_self(), addr, size);
171 }