1 /****^ *********************************************************** 2 * * 3 * Copyright, (C) Honeywell Bull Inc., 1987 * 4 * * 5 * Copyright, (C) Honeywell Information Systems Inc., 1982 * 6 * * 7 * Copyright (c) 1972 by Massachusetts Institute of * 8 * Technology and Honeywell Information Systems, Inc. * 9 * * 10 *********************************************************** */ 11 12 13 stop_process: proc (a_process_id); 14 15 /* Procedure used by a process to put itself into "stopped" state. 16 Called by process-overseer on new_proc and logout. 17 18 Changed to crash system if caller is initializer - E Stone Aug 1974 19 Converted to PL/I, C Garman, 3 Feb 1971. 20 21 */ 22 23 dcl a_process_id bit (36) aligned; 24 dcl process_id bit (36) aligned, 25 istate fixed bin; 26 27 dcl pds$process_id bit (36) aligned ext, 28 tc_data$initializer_id bit (36) aligned ext; 29 30 dcl syserr entry options (variable); 31 32 dcl pxss$stop entry (bit (36) aligned, fixed bin); 33 34 process_id = a_process_id; /* Copy input */ 35 36 if process_id = pds$process_id then do; /* See if proper process */ 37 38 if process_id = tc_data$initializer_id then /* Might as well end it all */ 39 call syserr (1, "stop_process: attempt to stop initializer process"); 40 41 call pxss$stop (process_id, istate); 42 43 end; /* That's all folks! */ 44 45 /* BEGIN MESSAGE DOCUMENTATION 46 47 Message: 48 stop_process: attempt to stop initializer process 49 50 S: $crash 51 52 T: $run 53 54 M: $err 55 56 A: $recover 57 58 59 END MESSAGE DOCUMENTATION */ 60 61 end stop_process;