Remove long obsolete RPC routines

* kern/compat_xxx_defs.h: Remove file.
* Makefrag.am (libkernel_a_SOURCES): Remove `kern/compat_xxx_defs.h'.

* include/mach/mach_types.defs (xxx_emulation_vector_t): Remove type.

* device/device.srv: Do not simport <kern/compat_xxx_defs.h>.
* kern/mach.srv: Likewise.
* kern/mach_host.srv: Likewise.

* include/device/device.defs [MACH_KERNEL]: Do not simport
<kern/compat_xxx_defs.h>.
(xxx_device_set_status, xxx_device_get_status)
(xxx_device_set_filter): Replace routine declarations with skip
directives.
* include/mach/mach.defs [MACH_KERNEL]: Do not simport
<kern/compat_xxx_defs.h>.
(xxx_memory_object_lock_request, xxx_task_get_emulation_vector)
(xxx_task_set_emulation_vector, xxx_host_info, xxx_slot_info)
(xxx_cpu_control, xxx_task_info, xxx_thread_get_state)
(xxx_thread_set_state, xxx_thread_info): Replace routine declarations
with skip directive.
* include/mach/mach_host.defs [MACH_KERNEL]: Do not simport
<kern/compat_xxx_defs.h>.
(yyy_host_info, yyy_processor_info, yyy_processor_control)
(xxx_processor_set_default_priv, yyy_processor_set_info): Replace
routine declarations with skip directive.

* kern/ipc_host.c (xxx_processor_set_default_priv): Remove function.
* kern/machine.c (xxx_host_info, xxx_slot_info)
(xxx_cpu_control): Likewise.
* kern/syscall_emulation.c (xxx_task_set_emulation_vector)
(xxx_task_get_emulation_vector): Likewise.
* vm/memory_object.c (xxx_memory_object_lock_request): Likewise.

4 files changed, 18 insertions, 137 deletions

diff --git a/include/device/device.defs b/include/device/device.defs
index 2bbd5563..d9234e39 100644
--- a/include/device/device.defs
+++ b/include/device/device.defs
@@ -32,10 +32,6 @@
  *	block and character device interfaces to the kernel.
  */
 
-#ifdef	MACH_KERNEL
-simport <kern/compat_xxx_defs.h>;	/* for obsolete routines */
-#endif
-
 subsystem
 #if	KERNEL_SERVER
 	  KernelServer
@@ -99,27 +95,9 @@ routine	device_read_inband(
 	out	data		: io_buf_ptr_inband_t
 	);
 
-/* obsolete */
-routine	xxx_device_set_status(
-		device		: device_t;
-	in	flavor		: dev_flavor_t;
-	in	status		: dev_status_t, IsLong
-	);
-
-/* obsolete */
-routine	xxx_device_get_status(
-		device		: device_t;
-	in	flavor		: dev_flavor_t;
-	out	status		: dev_status_t, IsLong
-	);
-
-/* obsolete */
-routine xxx_device_set_filter(
-		device		: device_t;
-	in	receive_port	: mach_port_send_t;
-	in	priority	: int;
-	in	filter		: filter_array_t, IsLong
-	);
+skip;	/* old xxx_device_set_status */
+skip;	/* old xxx_device_get_status */
+skip;	/* old xxx_device_set_filter*/
 
 routine device_map(
 		device		: device_t;
diff --git a/include/mach/mach.defs b/include/mach/mach.defs
index 4531a220..58510805 100644
--- a/include/mach/mach.defs
+++ b/include/mach/mach.defs
@@ -30,10 +30,6 @@
  *	Matchmaker definitions file for Mach kernel interface.
  */
 
-#ifdef	MACH_KERNEL
-simport <kern/compat_xxx_defs.h>;	/* for obsolete routines */
-#endif	/* MACH_KERNEL */
-
 subsystem
 #if	KERNEL_USER
 	  KernelUser
@@ -388,16 +384,8 @@ skip;	/* old pager_flush_request */
  *	boolean).  The new routine is backwards compatible at the C
  *	language interface.
  */
-simpleroutine xxx_memory_object_lock_request(
-		memory_control	: memory_object_control_t;
-		offset		: vm_offset_t;
-		size		: vm_size_t;
-		should_clean	: boolean_t;
-		should_flush	: boolean_t;
-		lock_value	: vm_prot_t;
-		reply_to	: mach_port_t =
-			MACH_MSG_TYPE_MAKE_SEND_ONCE|polymorphic);
 
+skip;	/* old xxx_memory_object_lock_request */
 
 simpleroutine memory_object_lock_request(
 		memory_control	: memory_object_control_t;
@@ -409,46 +397,11 @@ simpleroutine memory_object_lock_request(
 		reply_to	: mach_port_t =
 			MACH_MSG_TYPE_MAKE_SEND_ONCE|polymorphic);
 
-/* obsolete */
-routine xxx_task_get_emulation_vector(
-		task		: task_t;
-	out	vector_start	: int;
-	out	emulation_vector: xxx_emulation_vector_t, IsLong);
-
-/* obsolete */
-routine xxx_task_set_emulation_vector(
-		task		: task_t;
-		vector_start	: int;
-		emulation_vector: xxx_emulation_vector_t, IsLong);
-
-/*
- *	Returns information about the host on which the
- *	target object resides.  [This object may be
- *	a task, thread, or memory_object_control port.]
- */
-routine xxx_host_info(
-		target_task	: mach_port_t;
-	out	info		: machine_info_data_t);
-
-/*
- *	Returns information about a particular processor on
- *	the host on which the target task resides.
- */
-routine xxx_slot_info(
-		target_task	: task_t;
-		slot		: int;
-	out	info		: machine_slot_data_t);
-
-/*
- *	Performs control operations (currently only
- *	turning off or on) on a particular processor on
- *	the host on which the target task resides.
- */
-routine xxx_cpu_control(
-		target_task	: task_t;
-		cpu		: int;
-		running		: boolean_t);
-
+skip;	/* old xxx_task_get_emulation_vector */
+skip;	/* old xxx_task_set_emulation_vector */
+skip;	/* old xxx_host_info */
+skip;	/* old xxx_slot_info */
+skip;	/* old xxx_cpu_control */
 skip;	/* old thread_statistics */
 skip;	/* old task_statistics */
 skip;	/* old netport_init */
@@ -491,11 +444,7 @@ routine task_set_special_port(
 		which_port	: int;
 		special_port	: mach_port_t);
 
-/* obsolete */
-routine	xxx_task_info(
-		target_task	: task_t;
-		flavor		: int;
-	out	task_info_out	: task_info_t, IsLong);
+skip;	/* old xxx_task_info */
 
 
 /*
@@ -537,17 +486,8 @@ routine	thread_resume(
 routine thread_abort(
 		target_thread	: thread_t);
 
-/* obsolete */
-routine xxx_thread_get_state(
-		target_thread	: thread_t;
-		flavor		: int;
-	out	old_state	: thread_state_t, IsLong);
-
-/* obsolete */
-routine	xxx_thread_set_state(
-		target_thread	: thread_t;
-		flavor		: int;
-		new_state	: thread_state_t, IsLong);
+skip;	/* old xxx_thread_get_state */
+skip;	/* old xxx_thread_set_state */
 
 /*
  *	Returns the current value of the selected special port
@@ -567,11 +507,7 @@ routine thread_set_special_port(
 		which_port	: int;
 		special_port	: mach_port_t);
 
-/* obsolete */
-routine	xxx_thread_info(
-		target_thread	: thread_t;
-		flavor		: int;
-	out	thread_info_out	: thread_info_t, IsLong);
+skip;	/* old xxx_thread_info */
 
 /*
  *	Establish a user-level handler for the specified
diff --git a/include/mach/mach_host.defs b/include/mach/mach_host.defs
index 85ee4dc5..2644146f 100644
--- a/include/mach/mach_host.defs
+++ b/include/mach/mach_host.defs
@@ -34,10 +34,6 @@
  *	control.  
  */
 
-#ifdef	MACH_KERNEL
-simport <kern/compat_xxx_defs.h>;	/* for obsolete routines */
-#endif
-
 subsystem
 #if	KERNEL_SERVER
 	  KernelServer
@@ -59,19 +55,8 @@ routine host_processors(
 		host_priv	: host_priv_t;
 	out	processor_list	: processor_array_t);
 
-/* obsolete */
-routine yyy_host_info(
-		host		: host_t;
-		flavor		: int;
-	out	host_info_out	: host_info_t, IsLong);
-
-
-/* obsolete */
-routine yyy_processor_info(
-		processor	: processor_t;
-		flavor		: int;
-	out	host		: host_t;
-	out	processor_info_out: processor_info_t, IsLong);
+skip;	/* old yyy_host_info */
+skip;	/* old yyy_processor_info */
 
 /*
  *	Start processor.
@@ -87,10 +72,7 @@ routine	processor_start(
 routine	processor_exit(
 		processor	: processor_t);
 
-/* obsolete */
-routine yyy_processor_control(
-		processor	: processor_t;
-		processor_cmd	: processor_info_t, IsLong);
+skip;	/* old yyy_processor_control */
 
 /*
  *	Get default processor set for host.
@@ -99,13 +81,7 @@ routine processor_set_default(
 		host		: host_t;
 	out	default_set	: processor_set_name_t);
 
-/*
- *	Get rights to default processor set for host.
- *	Replaced by host_processor_set_priv.
- */
-routine xxx_processor_set_default_priv(
-		host		: host_priv_t;
-	out	default_set	: processor_set_t);
+skip;	/* old xxx_processor_set_default_priv */
 
 /*
  *	Create new processor set.  Returns real port for manipulations,
@@ -122,12 +98,7 @@ routine processor_set_create(
 routine processor_set_destroy(
 		set		: processor_set_t);
 
-/* obsolete */
-routine yyy_processor_set_info(
-		set_name	: processor_set_name_t;
-		flavor		: int;
-	out	host		: host_t;
-	out	info_out	: processor_set_info_t, IsLong);
+skip;	/* old yyy_processor_set_info */
 
 /*
  *	Assign processor to processor set.
diff --git a/include/mach/mach_types.defs b/include/mach/mach_types.defs
index 5e31cdcf..607d5d92 100644
--- a/include/mach/mach_types.defs
+++ b/include/mach/mach_types.defs
@@ -228,10 +228,6 @@ type time_value_t		= struct[2] of integer_t;
 
 type emulation_vector_t		= ^array[] of vm_offset_t;
 
-type xxx_emulation_vector_t	= array[*:1024] of vm_offset_t
-					ctype: emulation_vector_t;
-					/* XXX compatibility */
-
 type rpc_signature_info_t	= array[*:1024] of int;
 
 #if	KERNEL_SERVER