2 * Mach Operating System
3 * Copyright (c) 1991,1990 Carnegie Mellon University
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.
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.
16 * Carnegie Mellon requests users of this software to return to
18 * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
19 * School of Computer Science
20 * Carnegie Mellon University
21 * Pittsburgh PA 15213-3890
23 * any improvements or extensions that they make and grant Carnegie Mellon
24 * the rights to redistribute these changes.
29 * Revision 1.3 1995/01/23 22:16:52 roland
30 * (mach_msg_destroy): Define as weak alias for __mach_msg_destroy.
32 * Revision 1.2 1993/08/03 06:13:18 roland
35 * Revision 2.4 91/05/14 17:53:15 mrt
36 * Correcting copyright
38 * Revision 2.3 91/02/14 14:17:43 mrt
39 * Added new Mach copyright
40 * [91/02/13 12:44:15 mrt]
42 * Revision 2.2 90/08/06 17:24:22 rpd
50 /* This is what CMU did, but that fails to declare some used functions. */
51 #include <mach/port.h>
52 #include <mach/message.h>
53 #include <mach_init.h>
56 static void mach_msg_destroy_port();
57 static void mach_msg_destroy_memory();
60 * Routine: mach_msg_destroy
62 * Deallocates all port rights and out-of-line memory
63 * found in a received message.
67 __mach_msg_destroy(msg)
68 mach_msg_header_t *msg;
70 mach_msg_bits_t mbits = msg->msgh_bits;
73 * The msgh_local_port field doesn't hold a port right.
74 * The receive operation consumes the destination port right.
77 mach_msg_destroy_port(msg->msgh_remote_port, MACH_MSGH_BITS_REMOTE(mbits));
79 if (mbits & MACH_MSGH_BITS_COMPLEX) {
83 saddr = (vm_offset_t) (msg + 1);
84 eaddr = (vm_offset_t) msg + msg->msgh_size;
86 while (saddr < eaddr) {
87 mach_msg_type_long_t *type;
88 mach_msg_type_name_t name;
89 mach_msg_type_size_t size;
90 mach_msg_type_number_t number;
95 type = (mach_msg_type_long_t *) saddr;
96 is_inline = type->msgtl_header.msgt_inline;
97 if (type->msgtl_header.msgt_longform) {
98 name = type->msgtl_name;
99 size = type->msgtl_size;
100 number = type->msgtl_number;
101 saddr += sizeof(mach_msg_type_long_t);
103 name = type->msgtl_header.msgt_name;
104 size = type->msgtl_header.msgt_size;
105 number = type->msgtl_header.msgt_number;
106 saddr += sizeof(mach_msg_type_t);
109 /* calculate length of data in bytes, rounding up */
110 length = ((((number * size) + 7) >> 3) + 3) &~ 3;
112 addr = is_inline ? saddr : * (vm_offset_t *) saddr;
114 if (MACH_MSG_TYPE_PORT_ANY(name)) {
115 mach_port_t *ports = (mach_port_t *) addr;
116 mach_msg_type_number_t i;
118 for (i = 0; i < number; i++)
119 mach_msg_destroy_port(*ports++, name);
123 /* inline data sizes round up to int boundaries */
126 mach_msg_destroy_memory(addr, length);
127 saddr += sizeof(vm_offset_t);
133 weak_alias (__mach_msg_destroy, mach_msg_destroy)
136 mach_msg_destroy_port(port, type)
138 mach_msg_type_name_t type;
140 if (MACH_PORT_VALID(port)) switch (type) {
141 case MACH_MSG_TYPE_PORT_SEND:
142 case MACH_MSG_TYPE_PORT_SEND_ONCE:
143 (void) __mach_port_deallocate(__mach_task_self(), port);
146 case MACH_MSG_TYPE_PORT_RECEIVE:
147 (void) __mach_port_mod_refs(__mach_task_self(), port,
148 MACH_PORT_RIGHT_RECEIVE, -1);
154 mach_msg_destroy_memory(addr, size)
159 (void) __vm_deallocate(__mach_task_self(), addr, size);