--- Gnu-Mach/kern/ipc_host.c	2020/09/02 04:42:50	1.1.1.2
+++ Gnu-Mach/kern/ipc_host.c	2020/09/02 04:45:22	1.1.1.3
@@ -33,6 +33,7 @@
  */
 
 #include <mach/message.h>
+#include <kern/debug.h>
 #include <kern/host.h>
 #include <kern/processor.h>
 #include <kern/task.h>
@@ -102,32 +103,6 @@ mach_host_self(void)
 	return ipc_port_copyout_send(sright, current_space());
 }
 
-#if	MACH_IPC_COMPAT
-
-/*
- *	Routine:	host_self [mach trap]
- *	Purpose:
- *		Give the caller send rights for his own host port.
- *		If new, the send right is marked with IE_BITS_COMPAT.
- *	Conditions:
- *		Nothing locked.
- *	Returns:
- *		MACH_PORT_NULL if there are any resource failures
- *		or other errors.
- */
-
-port_name_t
-host_self(void)
-{
-	ipc_port_t sright;
-
-	sright = ipc_port_make_send(realhost.host_self);
-	return (port_name_t)
-		ipc_port_copyout_send_compat(sright, current_space());
-}
-
-#endif	/* MACH_IPC_COMPAT */
-
 /*
  *	ipc_processor_init:
  *
@@ -224,29 +199,15 @@ ipc_pset_terminate(
 }
 
 /*
- *	processor_set_default, processor_set_default_priv:
+ *	processor_set_default:
  *
- *	Return ports for manipulating default_processor set.  MiG code
- *	differentiates between these two routines.
+ *	Return ports for manipulating default_processor set.
  */
 kern_return_t
 processor_set_default(
 	host_t		host,
 	processor_set_t	*pset)
 {
-	if (host == HOST_NULL)
-		return KERN_INVALID_ARGUMENT;
-
-	*pset = &default_pset;
-	pset_reference(*pset);
-	return KERN_SUCCESS;
-}
-
-kern_return_t
-xxx_processor_set_default_priv(
-	host_t		host,
-	processor_set_t	*pset)
-{
 	if (host == HOST_NULL)
 		return KERN_INVALID_ARGUMENT;