version	U12.1.00
uid	coerce.tmp.u1-1465334337-0
impl	error
global	253
	0,000001,dloadflag,0
	1,000001,initflag,0
	2,000001,BADflag,0
	3,000001,aflag,0
	4,000001,yydebug,0
	5,000001,Mflag,0
	6,000001,cflag,0
	7,000001,pflag,0
	8,000001,Lflag,0
	9,000001,Pflag,0
	10,000001,Tflag,0
	11,000001,Gflag,0
	12,000001,Vflag,0
	13,000001,Nflag,0
	14,000001,fflag,0
	15,000001,Fflag,0
	16,000001,Rflag,0
	17,000001,OOflag,0
	18,000001,OOOflag,0
	19,000001,Oflag,0
	20,000001,Xflag,0
	21,000001,xflag,0
	22,000001,hflag,0
	23,000001,dbgmsg,0
	24,000001,insrtptr,0
	25,000001,rpt_lvl,0
	26,000001,ifname,0
	27,000001,ofname,0
	28,000001,sigfname,0
	29,000001,optfname,0
	30,000001,actual_ifname,0
	31,000001,ofile,0
	32,000001,sigfile,0
	33,000001,optfile,0
	34,000001,unparse_file,0
	35,000001,optsfile,0
	36,000001,callfile,0
	37,000001,yyline,0
	38,000001,usl_ptr,0
	39,000001,insig,0
	40,000001,entry_nam,0
	41,000001,nil,0
	42,000001,indx_assign,0
	43,000001,indx_passign,0
	44,000001,indx_massign,0
	45,000001,indx_or,0
	46,000001,indx_and,0
	47,000001,indx_not,0
	48,000001,indx_equals,0
	49,000001,indx_less,0
	50,000001,indx_le,0
	51,000001,indx_ge,0
	52,000001,indx_ne,0
	53,000001,indx_greater,0
	54,000001,indx_plus,0
	55,000001,indx_minus,0
	56,000001,indx_times,0
	57,000001,indx_divide,0
	58,000001,indx_mod,0
	59,000001,indx_pconc,0
	60,000001,indx_sconc,0
	61,000001,indx_exp,0
	62,000001,indx_deref,0
	63,000001,indx_subscr,0
	64,000001,indx_New,0
	65,000001,indx_ValueOf,0
	66,000001,indx_First,0
	67,000001,indx_Last,0
	68,000001,indx_Pred,0
	69,000001,indx_Succ,0
	70,000001,indx_Ord,0
	71,000001,indx_OrdInv,0
	72,000001,indx_Card,0
	73,000001,indx_In,0
	74,000001,indx_Out,0
	75,000001,indx_put,0
	76,000001,indx_Callcc,0
	77,000001,indx_size,0
	78,000001,indx_ptr_New,0
	79,000001,indx_init_New,0
	80,000001,indx_empty,0
	81,000001,indx_standard,0
	82,000001,indx_inline,0
	83,000001,pend,0
	84,000001,indx_Boolean,0
	85,000001,indx_Void,0
	86,000001,indx_true,0
	87,000001,indx_false,0
	88,000001,indx_simple,0
	89,000001,indx_Null,0
	90,000001,indx_Mk,0
	91,000001,indx_Integer,0
	92,000001,indx_Array,0
	93,000001,sig_assign,0
	94,000001,sig_equals,0
	95,000001,sig_less,0
	96,000001,sig_greater,0
	97,000001,sig_New,0
	98,000001,sig_const,0
	99,000001,sig_ValueOf,0
	100,000001,sig_pconc,0
	101,000001,sig_sconc,0
	102,000001,sig_Signature,0
	103,000001,val_Boolean,0
	104,000001,val_Integer,0
	105,000001,val_Void,0
	106,000001,var_Void,0
	107,000001,sel_true,0
	108,000001,sel_false,0
	109,000001,id_Boolean,0
	110,000001,id_Integer,0
	111,000001,id_Void,0
	112,000001,id_put,0
	113,000001,id_ValueOf,0
	114,000001,id_New,0
	115,000001,id_size,0
	116,000001,id_Null,0
	117,000001,id_times,0
	118,000001,id_plus,0
	119,000001,appl_Null,0
	120,000001,yyvline,0
	121,000001,stt_table,0
	122,000001,stt_unique_cnt,0
	123,000001,stt_reference_cnt,0
	124,000001,reverse_stt,0
	125,000001,errfile,0
	126,000001,infofile,0
	127,000001,reduce,0
	128,000001,progress,0
	129,000001,debug_file,0
	130,000001,stats,0
	131,000001,nodes,0
	132,000001,ccode_file,0
	133,000001,nodes_file,0
	134,000001,lists_created_file,0
	135,000001,cons_file,0
	136,000001,treefile,0
	137,000001,symfile,0
	138,000001,sym2file,0
	139,000001,nodes_created_file,0
	140,000001,nodes_created_trace_file,0
	141,000001,sym2_table,0
	142,000001,line_cnt,0
	143,000001,char_cnt,0
	144,000001,token_cnt,0
	145,000001,reserved_id_cnt,0
	146,000001,reserved_op_cnt,0
	147,000001,numeral_cnt,0
	148,000001,nodes_total_cnt,0
	149,000001,nodes_made_cnt,0
	150,000001,lists_total_cnt,0
	151,000001,lists_made_cnt,0
	152,000001,yyn_switches_cnt,0
	153,000001,yyn_compute_cnt,0
	154,000001,newstate_cnt,0
	155,000001,setstate_cnt,0
	156,000001,backup_cnt,0
	157,000001,default_cnt,0
	158,000001,reduce_cnt,0
	159,000001,errlab_cnt,0
	160,000001,errlab1_cnt,0
	161,000001,defined_id_cnt,0
	162,000001,defined_op_cnt,0
	163,000001,seperator_cnt,0
	164,000001,RIC_table,0
	165,000001,RIC_op_code_cnt,0
	166,000001,RIC_table_entry_cnt,0
	167,000001,comments_cnt,0
	168,000001,sing_quoted_cnt,0
	169,000001,dbl_quoted_cnt,0
	170,000001,infile,0
	171,000001,entry_name,0
	172,000001,yyinfnm,0
	173,000001,addposition,0
	174,000001,inline_cnvt,0
	175,000001,Ginline_cnvt,0
	176,000001,Vinline_cnvt,0
	177,000001,paramstop,0
	178,000001,denseqstop,0
	179,000001,condstop,0
	180,000001,declstop,0
	181,000001,stxtree,0
	182,000001,yystate,0
	183,000001,fn_count,0
	184,000001,scanstk,0
	185,000001,stktop,0
	186,000001,scansavc,0
	187,000001,yydescr,0
	188,000001,has_externs,0
	189,000001,argcnt_from_kind,0
	190,000001,parser_actions_cnt,0
	191,000001,curr_void_decl,0
	192,000001,curr_sig_transp,0
	193,000001,curr_tsig,0
	194,000001,err_node,0
	195,000001,in_sig,0
	196,000001,in_loop,0
	197,000001,linebuf,0
	198,000001,restab,0
	199,000001,cctab,0
	200,000001,tokenlgth,0
	201,000001,yynerrs,0
	202,000001,decl_num,0
	203,000001,decl_nums,0
	204,000001,Outer_arg,0
	205,000001,file_sigs,0
	206,000001,decl_num_in,0
	207,000001,sig_table,0
	208,000001,unique_node_id,0
	209,000001,objfilelist,0
	210,000001,Idtable,0
	211,000001,next_pre,0
	212,000001,next_post,0
	213,000001,visited,0
	214,000001,Gfc_list,0
	215,000001,Glevel,0
	216,000001,Gcurrent,0
	217,000001,Goutfile,0
	218,000001,finished_accessible,0
	219,000001,all_fcs,0
	220,000001,all_fcs_tail,0
	221,000001,outer_fc,0
	222,000001,whole_program,0
	223,000001,currect_fcs,0
	224,000001,Vcurrent_func,0
	225,000001,Vcurrent_ar,0
	226,000001,Vstatic_level,0
	227,000001,Vnext_free,0
	228,000001,Vhigh_water,0
	229,000001,Vextent_limited,0
	230,000001,Vallocate_on_stack,0
	231,000001,Vcallcc,0
	232,000001,max_addr_regs,0
	233,000001,max_int_regs,0
	234,000001,n_addr_regs,0
	235,000001,n_int_regs,0
	236,000001,Vcurrent_blocks,0
	237,000001,found_non_vacuous,0
	238,000001,n_vacuous,0
	239,000001,avail_loc,0
	240,000001,compile_fcs,0
	241,000001,sl_available,0
	242,000001,stplinks,0
	243,000001,fld_table,0
	244,000001,surr_loop,0
	245,000001,callcc_call,0
	246,000001,catchsigs,0
	247,000001,Gspcl_to_inline,0
	248,000001,htable,0
	249,000001,NodeTypeName,0
	250,000001,dump__tree_depth,0
	251,000001,trash_id,0
	252,000005,coerce,1

proc coerce
	local	0,001000,orig_p
	local	1,000020,nappl
	local	2,000020,p
	local	3,000020,nop
	local	4,000000,fix_p
	local	5,000000,replace_last
	local	6,000000,coerce
	local	7,000000,last
	local	8,000000,nil
	local	9,000000,mknode
	local	10,000000,indx_ValueOf
	local	11,000000,mklist
	local	12,000000,length
	local	13,000000,emptylist
	con	0,002000,1,2
	con	1,002000,2,11
	con	2,002000,1,0
	con	3,002000,2,12
	con	4,002000,1,5
	con	5,002000,1,4
	con	6,002000,2,32
	con	7,002000,1,1
	con	8,002000,2,13
	con	9,002000,1,6
	declend
	filen	pass4/coerce.tmp.icn
	line	76
	colm	12
	synt	any
	mark	L1
	pnull
	var	2
	var	4
	var	0
	line	78
	colm	15
	synt	any
	invoke	1
	line	78
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	79
	colm	5
	synt	if
	mark0
	pnull
	pnull
	var	2
	line	79
	colm	11
	synt	any
	field	signature
	int	0
	line	79
	colm	23
	synt	any
	numeq
	unmark
	mark	L3
	var	2
	line	79
	colm	33
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	79
	colm	5
	synt	endif
	unmark
lab L2
	mark	L4
	line	81
	colm	5
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	2
	line	81
	colm	11
	synt	any
	field	kind
	int	1
	line	81
	colm	18
	synt	any
	numeq
	unmark
	mark	L7
	var	5
	pnull
	var	2
	line	82
	colm	24
	synt	any
	field	bld_den_seq
	var	6
	var	7
	pnull
	var	2
	line	82
	colm	53
	synt	any
	field	bld_den_seq
	line	82
	colm	50
	synt	any
	invoke	1
	line	82
	colm	45
	synt	any
	invoke	1
	line	82
	colm	21
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	line	83
	colm	11
	synt	any
	field	signature
	var	8
	line	83
	colm	23
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	2
	line	84
	colm	11
	synt	any
	field	sig_done
	int	2
	line	84
	colm	22
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	2
	line	85
	colm	9
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L6
lab L5
	line	86
	colm	12
	synt	if
	mark0
	pnull
	pnull
	var	2
	line	86
	colm	18
	synt	any
	field	kind
	int	3
	line	86
	colm	25
	synt	any
	numeq
	unmark
	mark	L11
	var	5
	pnull
	var	2
	line	87
	colm	24
	synt	any
	field	usl_den_seq
	var	6
	var	7
	pnull
	var	2
	line	87
	colm	53
	synt	any
	field	usl_den_seq
	line	87
	colm	50
	synt	any
	invoke	1
	line	87
	colm	45
	synt	any
	invoke	1
	line	87
	colm	21
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	2
	line	88
	colm	11
	synt	any
	field	signature
	var	8
	line	88
	colm	23
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	2
	line	89
	colm	11
	synt	any
	field	sig_done
	int	2
	line	89
	colm	22
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	var	2
	line	90
	colm	9
	synt	any
	pret
lab L14
	synt	any
	pfail
	line	86
	colm	12
	synt	endif
lab L6
	line	81
	colm	5
	synt	endifelse
	unmark
lab L4
	mark	L15
	line	93
	colm	5
	synt	case
	mark0
	pnull
	pnull
	var	2
	line	93
	colm	13
	synt	any
	field	signature
	line	93
	colm	25
	synt	any
	field	kind
	eret
	mark	L17
	ccase
	int	4
	line	94
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L18
	var	2
	line	95
	colm	13
	synt	any
	pret
lab L18
	synt	any
	pfail
	goto	L16
lab L17
	mark	L19
	ccase
	int	5
	line	96
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L20
	pnull
	var	3
	var	9
	pnull
	int	6
	var	10
	line	98
	colm	31
	synt	any
	llist	2
	line	98
	colm	30
	synt	any
	invoke	1
	line	98
	colm	21
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	3
	line	99
	colm	21
	synt	any
	field	sel_type
	pnull
	pnull
	var	2
	line	99
	colm	37
	synt	any
	field	signature
	line	99
	colm	49
	synt	any
	field	var_denotation
	line	99
	colm	32
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	pnull
	pnull
	var	3
	line	100
	colm	21
	synt	any
	field	id_def_found
	int	7
	line	100
	colm	36
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	var	1
	var	9
	pnull
	int	8
	var	3
	var	11
	pnull
	var	2
	line	101
	colm	50
	synt	any
	llist	1
	line	101
	colm	49
	synt	any
	invoke	1
	line	101
	colm	33
	synt	any
	llist	3
	line	101
	colm	32
	synt	any
	invoke	1
	line	101
	colm	23
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	pnull
	pnull
	var	1
	line	102
	colm	23
	synt	any
	field	vlineno
	pnull
	pnull
	var	3
	line	102
	colm	40
	synt	any
	field	vlineno
	pnull
	var	2
	line	102
	colm	54
	synt	any
	field	vlineno
	line	102
	colm	50
	synt	any
	numeq
	line	102
	colm	33
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	pnull
	var	1
	line	103
	colm	23
	synt	any
	field	pre_num
	pnull
	pnull
	var	3
	line	103
	colm	40
	synt	any
	field	pre_num
	pnull
	var	2
	line	103
	colm	54
	synt	any
	field	pre_num
	line	103
	colm	50
	synt	any
	numeq
	line	103
	colm	33
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	pnull
	var	1
	line	104
	colm	23
	synt	any
	field	post_num
	pnull
	pnull
	var	3
	line	104
	colm	41
	synt	any
	field	post_num
	pnull
	var	2
	line	104
	colm	57
	synt	any
	field	post_num
	line	104
	colm	52
	synt	any
	asgn
	line	104
	colm	34
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	var	1
	line	105
	colm	17
	synt	any
	pret
lab L27
	synt	any
	pfail
	goto	L16
lab L19
	mark	L28
	ccase
	int	9
	line	107
	colm	11
	synt	any
	eqv
	unmark
	pop
	line	108
	colm	13
	synt	ifelse
	mark	L29
	pnull
	var	12
	pnull
	pnull
	var	2
	line	108
	colm	24
	synt	any
	field	signature
	line	108
	colm	34
	synt	any
	field	fsig_param_list
	line	108
	colm	22
	synt	any
	invoke	1
	int	2
	line	108
	colm	52
	synt	any
	numeq
	unmark
	mark	L31
	pnull
	var	1
	var	9
	pnull
	int	8
	var	2
	var	13
	line	109
	colm	50
	synt	any
	invoke	0
	line	109
	colm	33
	synt	any
	llist	3
	line	109
	colm	32
	synt	any
	invoke	1
	line	109
	colm	23
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	pnull
	pnull
	var	1
	line	110
	colm	23
	synt	any
	field	vlineno
	pnull
	var	2
	line	110
	colm	38
	synt	any
	field	vlineno
	line	110
	colm	33
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	pnull
	var	1
	line	111
	colm	23
	synt	any
	field	pre_num
	pnull
	var	2
	line	111
	colm	38
	synt	any
	field	pre_num
	line	111
	colm	33
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	pnull
	pnull
	var	1
	line	112
	colm	23
	synt	any
	field	post_num
	pnull
	var	2
	line	112
	colm	39
	synt	any
	field	post_num
	line	112
	colm	34
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	var	1
	line	113
	colm	17
	synt	any
	pret
lab L35
	synt	any
	pfail
	goto	L30
lab L29
	mark	L36
	var	2
	line	116
	colm	17
	synt	any
	pret
lab L36
	synt	any
	pfail
lab L30
	line	108
	colm	13
	synt	endifelse
	goto	L16
lab L28
	pop
	mark	L37
	var	2
	line	120
	colm	13
	synt	any
	pret
lab L37
	synt	any
	pfail
lab L16
	line	93
	colm	5
	synt	endcase
	unmark
lab L15
	pnull
	line	122
	colm	1
	synt	any
	pfail
	end
