aboutsummaryrefslogtreecommitdiff
path: root/mach/msg-destroy.c
diff options
context:
space:
mode:
authorRoland McGrath <roland@gnu.org>1995-02-18 01:27:10 +0000
committerRoland McGrath <roland@gnu.org>1995-02-18 01:27:10 +0000
commit28f540f45bbacd939bfd07f213bcad2bf730b1bf (patch)
tree15f07c4c43d635959c6afee96bde71fb1b3614ee /mach/msg-destroy.c
downloadglibc-28f540f45bbacd939bfd07f213bcad2bf730b1bf.tar
glibc-28f540f45bbacd939bfd07f213bcad2bf730b1bf.tar.gz
glibc-28f540f45bbacd939bfd07f213bcad2bf730b1bf.tar.bz2
glibc-28f540f45bbacd939bfd07f213bcad2bf730b1bf.zip
initial import
Diffstat (limited to 'mach/msg-destroy.c')
-rw-r--r--mach/msg-destroy.c160
1 files changed, 160 insertions, 0 deletions
diff --git a/mach/msg-destroy.c b/mach/msg-destroy.c
new file mode 100644
index 0000000000..c0841f1190
--- /dev/null
+++ b/mach/msg-destroy.c
@@ -0,0 +1,160 @@
+/*
+ * Mach Operating System
+ * Copyright (c) 1991,1990 Carnegie Mellon University
+ * All Rights Reserved.
+ *
+ * Permission to use, copy, modify and distribute this software and its
+ * documentation is hereby granted, provided that both the copyright
+ * notice and this permission notice appear in all copies of the
+ * software, derivative works or modified versions, and any portions
+ * thereof, and that both notices appear in supporting documentation.
+ *
+ * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
+ * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
+ * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
+ *
+ * Carnegie Mellon requests users of this software to return to
+ *
+ * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
+ * School of Computer Science
+ * Carnegie Mellon University
+ * Pittsburgh PA 15213-3890
+ *
+ * any improvements or extensions that they make and grant Carnegie Mellon
+ * the rights to redistribute these changes.
+ */
+/*
+ * HISTORY
+ * $Log$
+ * Revision 1.3 1995/01/23 22:16:52 roland
+ * (mach_msg_destroy): Define as weak alias for __mach_msg_destroy.
+ *
+ * Revision 1.2 1993/08/03 06:13:18 roland
+ * entered into RCS
+ *
+ * Revision 2.4 91/05/14 17:53:15 mrt
+ * Correcting copyright
+ *
+ * Revision 2.3 91/02/14 14:17:43 mrt
+ * Added new Mach copyright
+ * [91/02/13 12:44:15 mrt]
+ *
+ * Revision 2.2 90/08/06 17:24:22 rpd
+ * Created.
+ *
+ */
+
+#if 1
+#include <mach.h>
+#else
+/* This is what CMU did, but that fails to declare some used functions. */
+#include <mach/port.h>
+#include <mach/message.h>
+#include <mach_init.h>
+#endif
+
+static void mach_msg_destroy_port();
+static void mach_msg_destroy_memory();
+
+/*
+ * Routine: mach_msg_destroy
+ * Purpose:
+ * Deallocates all port rights and out-of-line memory
+ * found in a received message.
+ */
+
+void
+__mach_msg_destroy(msg)
+ mach_msg_header_t *msg;
+{
+ mach_msg_bits_t mbits = msg->msgh_bits;
+
+ /*
+ * The msgh_local_port field doesn't hold a port right.
+ * The receive operation consumes the destination port right.
+ */
+
+ mach_msg_destroy_port(msg->msgh_remote_port, MACH_MSGH_BITS_REMOTE(mbits));
+
+ if (mbits & MACH_MSGH_BITS_COMPLEX) {
+ vm_offset_t saddr;
+ vm_offset_t eaddr;
+
+ saddr = (vm_offset_t) (msg + 1);
+ eaddr = (vm_offset_t) msg + msg->msgh_size;
+
+ while (saddr < eaddr) {
+ mach_msg_type_long_t *type;
+ mach_msg_type_name_t name;
+ mach_msg_type_size_t size;
+ mach_msg_type_number_t number;
+ boolean_t is_inline;
+ vm_size_t length;
+ vm_offset_t addr;
+
+ type = (mach_msg_type_long_t *) saddr;
+ is_inline = type->msgtl_header.msgt_inline;
+ if (type->msgtl_header.msgt_longform) {
+ name = type->msgtl_name;
+ size = type->msgtl_size;
+ number = type->msgtl_number;
+ saddr += sizeof(mach_msg_type_long_t);
+ } else {
+ name = type->msgtl_header.msgt_name;
+ size = type->msgtl_header.msgt_size;
+ number = type->msgtl_header.msgt_number;
+ saddr += sizeof(mach_msg_type_t);
+ }
+
+ /* calculate length of data in bytes, rounding up */
+ length = ((((number * size) + 7) >> 3) + 3) &~ 3;
+
+ addr = is_inline ? saddr : * (vm_offset_t *) saddr;
+
+ if (MACH_MSG_TYPE_PORT_ANY(name)) {
+ mach_port_t *ports = (mach_port_t *) addr;
+ mach_msg_type_number_t i;
+
+ for (i = 0; i < number; i++)
+ mach_msg_destroy_port(*ports++, name);
+ }
+
+ if (is_inline) {
+ /* inline data sizes round up to int boundaries */
+ saddr += length;
+ } else {
+ mach_msg_destroy_memory(addr, length);
+ saddr += sizeof(vm_offset_t);
+ }
+ }
+ }
+}
+
+weak_alias (__mach_msg_destroy, mach_msg_destroy)
+
+static void
+mach_msg_destroy_port(port, type)
+ mach_port_t port;
+ mach_msg_type_name_t type;
+{
+ if (MACH_PORT_VALID(port)) switch (type) {
+ case MACH_MSG_TYPE_PORT_SEND:
+ case MACH_MSG_TYPE_PORT_SEND_ONCE:
+ (void) __mach_port_deallocate(__mach_task_self(), port);
+ break;
+
+ case MACH_MSG_TYPE_PORT_RECEIVE:
+ (void) __mach_port_mod_refs(__mach_task_self(), port,
+ MACH_PORT_RIGHT_RECEIVE, -1);
+ break;
+ }
+}
+
+static void
+mach_msg_destroy_memory(addr, size)
+ vm_offset_t addr;
+ vm_size_t size;
+{
+ if (size > 0)
+ (void) __vm_deallocate(__mach_task_self(), addr, size);
+}