version	U12.1.00
uid	add_id.tmp.u1-1465334333-0
impl	error
global	255
	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,add_id,2
	253,000005,findfields,1
	254,000005,list_ids,1

proc add_id
	local	0,001000,defnode_orig
	local	1,001000,scopenode
	local	2,000020,defnode
	local	3,000000,write
	local	4,000000,sym2file
	local	5,000000,has_field
	local	6,000000,denode_orig
	local	7,000000,findfields
	local	8,000000,idnode
	local	9,000000,usl_ptr
	local	10,000000,ip
	local	11,000000,retrieve
	local	12,000000,prevdef_field
	con	0,010000,23,124,157,160,040,141,144,144,137,151,144,040,144,145,146,156,157,144,145,137,157,162,151,147
	con	1,010000,16,144,145,146,156,157,144,145,137,157,162,151,147,040,116,111,114
	con	2,010000,13,163,143,157,160,145,156,157,144,145,040,116,111,114
	con	3,010000,18,141,144,144,137,151,144,040,144,145,146,156,157,144,145,040,156,151,154
	con	4,002000,1,1
	con	5,010000,4,153,151,156,144
	con	6,002000,1,2
	declend
	filen	pass2/add_id.tmp.icn
	line	81
	colm	12
	synt	any
	mark	L1
	var	3
	var	4
	str	0
	line	83
	colm	10
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	line	84
	colm	5
	synt	ifelse
	mark	L3
	pnull
	var	0
	line	84
	colm	8
	synt	any
	nonnull
	unmark
	pnull
	var	0
	line	85
	colm	21
	synt	any
	field	dump
	var	4
	line	85
	colm	26
	synt	any
	invoke	1
	goto	L4
lab L3
	var	3
	var	4
	str	1
	line	86
	colm	19
	synt	any
	invoke	2
lab L4
	line	84
	colm	5
	synt	endifelse
	unmark
lab L2
	mark	L5
	line	87
	colm	5
	synt	ifelse
	mark	L6
	pnull
	var	1
	line	87
	colm	8
	synt	any
	nonnull
	unmark
	pnull
	var	1
	line	88
	colm	18
	synt	any
	field	dump
	var	4
	line	88
	colm	23
	synt	any
	invoke	1
	goto	L7
lab L6
	var	3
	var	4
	str	2
	line	90
	colm	14
	synt	any
	invoke	2
lab L7
	line	87
	colm	5
	synt	endifelse
	unmark
lab L5
	mark	L8
	line	91
	colm	5
	synt	ifelse
	mark	L9
	pnull
	var	2
	line	91
	colm	8
	synt	any
	null
	unmark
	mark	L11
	var	3
	var	4
	str	3
	line	93
	colm	18
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	int	4
	line	94
	colm	13
	synt	any
	pret
lab L12
	synt	any
	pfail
	goto	L10
lab L9
	line	97
	colm	9
	synt	ifelse
	mark	L13
	mark	L15
	var	5
	var	0
	str	5
	line	97
	colm	25
	synt	any
	invoke	2
	unmark
	efail
lab L15
	pnull
	unmark
	pnull
	var	2
	pnull
	var	0
	line	99
	colm	40
	synt	any
	field	cn_hd_field
	line	99
	colm	25
	synt	any
	asgn
	goto	L14
lab L13
	pnull
	var	2
	var	6
	line	102
	colm	21
	synt	any
	asgn
lab L14
	line	97
	colm	9
	synt	endifelse
lab L10
	line	91
	colm	5
	synt	endifelse
	unmark
lab L8
	mark	L16
	var	7
	var	2
	line	103
	colm	15
	synt	any
	invoke	1
	unmark
lab L16
	mark	L17
	line	105
	colm	9
	synt	case
	mark0
	pnull
	var	2
	line	105
	colm	22
	synt	any
	field	kind
	eret
	mark	L19
	ccase
	int	4
	line	107
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	pnull
	var	2
	line	108
	colm	24
	synt	any
	field	decl_scope
	var	1
	line	108
	colm	36
	synt	any
	asgn
	goto	L18
lab L19
	mark	L20
	ccase
	int	6
	line	109
	colm	14
	synt	any
	eqv
	unmark
	pop
	pnull
	pnull
	var	2
	line	110
	colm	24
	synt	any
	field	par_scope
	var	1
	line	110
	colm	35
	synt	any
	asgn
	goto	L18
lab L20
	pop
	line	112
	colm	17
	synt	if
	mark0
	pnull
	var	8
	line	112
	colm	21
	synt	any
	nonnull
	unmark
	pnull
	pnull
	var	8
	line	112
	colm	42
	synt	any
	field	id_last_definition
	var	2
	line	112
	colm	63
	synt	any
	asgn
	line	112
	colm	17
	synt	endif
lab L18
	line	105
	colm	9
	synt	endcase
	unmark
lab L17
	mark	L21
	line	114
	colm	5
	synt	if
	mark0
	pnull
	var	8
	line	114
	colm	9
	synt	any
	null
	unmark
	mark	L22
	int	4
	line	115
	colm	9
	synt	any
	pret
lab L22
	synt	any
	pfail
	line	114
	colm	5
	synt	endif
	unmark
lab L21
	mark	L23
	pnull
	pnull
	var	8
	line	116
	colm	11
	synt	any
	field	id_use_list
	var	9
	line	116
	colm	24
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	pnull
	var	10
	var	11
	pnull
	var	8
	line	117
	colm	26
	synt	any
	field	id_str_table_index
	line	117
	colm	19
	synt	any
	invoke	1
	line	117
	colm	8
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	var	12
	pnull
	var	10
	line	118
	colm	24
	synt	any
	field	i_value
	line	118
	colm	19
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	pnull
	var	10
	line	119
	colm	7
	synt	any
	field	i_value
	var	2
	line	119
	colm	16
	synt	any
	asgn
	unmark
lab L26
	pnull
	line	120
	colm	2
	synt	any
	pfail
	end
proc findfields
	local	0,001000,defnode
	local	1,000000,idnode
	local	2,000000,prevdef_field
	local	3,000000,modifier
	local	4,000000,yyinfo
	local	5,000000,dump_info
	con	0,002000,1,1
	con	1,002000,1,2
	con	2,002000,1,7
	con	3,002000,2,18
	con	4,002000,2,16
	con	5,002000,2,20
	con	6,002000,2,19
	con	7,002000,2,21
	con	8,002000,2,22
	con	9,010000,20,141,144,144,137,151,144,072,040,142,141,144,040,144,145,146,156,157,144,145,072
	declend
	line	130
	colm	12
	synt	any
	mark	L1
	line	131
	colm	5
	synt	case
	mark0
	pnull
	var	0
	line	131
	colm	18
	synt	any
	field	kind
	eret
	mark	L3
	ccase
	int	0
	line	132
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L4
	pnull
	var	1
	pnull
	var	0
	line	134
	colm	34
	synt	any
	field	decl_id
	line	134
	colm	24
	synt	any
	asgn
	unmark
lab L4
	pnull
	var	2
	pnull
	var	0
	line	135
	colm	41
	synt	any
	field	decl_previous_definition
	line	135
	colm	31
	synt	any
	asgn
	goto	L2
lab L3
	mark	L5
	ccase
	int	1
	line	137
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L6
	pnull
	var	1
	pnull
	var	0
	line	139
	colm	34
	synt	any
	field	par_id
	line	139
	colm	24
	synt	any
	asgn
	unmark
lab L6
	pnull
	var	2
	pnull
	var	0
	line	140
	colm	40
	synt	any
	field	par_previous_definition
	line	140
	colm	31
	synt	any
	numeq
	goto	L2
lab L5
	mark	L7
	ccase
	int	2
	line	142
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L8
	pnull
	var	1
	pnull
	var	0
	line	144
	colm	34
	synt	any
	field	ts_local_type_id
	line	144
	colm	24
	synt	any
	asgn
	unmark
lab L8
	pnull
	var	2
	pnull
	var	0
	line	145
	colm	41
	synt	any
	field	ts_previous_definition
	line	145
	colm	31
	synt	any
	asgn
	goto	L2
lab L7
	mark	L9
	ccase
	int	3
	line	147
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L10
	pnull
	var	1
	pnull
	var	0
	line	149
	colm	34
	synt	any
	field	prod_local_type_id
	line	149
	colm	24
	synt	any
	asgn
	unmark
lab L10
	pnull
	var	2
	pnull
	var	0
	line	150
	colm	40
	synt	any
	field	prod_previous_definition
	line	150
	colm	31
	synt	any
	numeq
	goto	L2
lab L9
	mark	L11
	ccase
	int	4
	line	152
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L12
	pnull
	var	1
	pnull
	var	0
	line	154
	colm	34
	synt	any
	field	prod_local_type_id
	line	154
	colm	24
	synt	any
	asgn
	unmark
lab L12
	pnull
	var	2
	pnull
	var	0
	line	155
	colm	40
	synt	any
	field	prod_previous_definition
	line	155
	colm	31
	synt	any
	numeq
	goto	L2
lab L11
	mark	L13
	ccase
	int	5
	line	157
	colm	11
	synt	any
	eqv
	unmark
	pop
	mark	L14
	pnull
	var	3
	pnull
	var	0
	line	159
	colm	37
	synt	any
	field	mp_type_modifier
	line	159
	colm	26
	synt	any
	asgn
	unmark
lab L14
	line	161
	colm	17
	synt	case
	mark0
	pnull
	var	3
	line	161
	colm	32
	synt	any
	field	kind
	eret
	mark	L16
	ccase
	int	6
	line	162
	colm	23
	synt	any
	eqv
	unmark
	pop
	mark	L17
	pnull
	var	1
	pnull
	var	3
	line	164
	colm	47
	synt	any
	field	wl_local_type_id
	line	164
	colm	36
	synt	any
	asgn
	unmark
lab L17
	pnull
	var	2
	pnull
	var	3
	line	165
	colm	54
	synt	any
	field	wl_previous_definition
	line	165
	colm	43
	synt	any
	asgn
	goto	L15
lab L16
	mark	L18
	ccase
	int	7
	line	167
	colm	23
	synt	any
	eqv
	unmark
	pop
	mark	L19
	pnull
	var	1
	pnull
	var	3
	line	169
	colm	47
	synt	any
	field	el_local_type_id
	line	169
	colm	36
	synt	any
	asgn
	unmark
lab L19
	pnull
	var	2
	pnull
	var	3
	line	170
	colm	54
	synt	any
	field	el_previous_definition
	line	170
	colm	43
	synt	any
	asgn
	goto	L15
lab L18
	mark	L20
	ccase
	int	8
	line	172
	colm	23
	synt	any
	eqv
	unmark
	pop
	mark	L21
	pnull
	var	1
	pnull
	var	3
	line	174
	colm	47
	synt	any
	field	el_local_type_id
	line	174
	colm	36
	synt	any
	asgn
	unmark
lab L21
	pnull
	var	2
	pnull
	var	3
	line	175
	colm	54
	synt	any
	field	el_previous_definition
	line	175
	colm	43
	synt	any
	asgn
	goto	L15
lab L20
	efail
lab L15
	line	161
	colm	17
	synt	endcase
	goto	L2
lab L13
	pop
	var	4
	pnull
	str	9
	var	5
	pnull
	var	0
	line	180
	colm	63
	synt	any
	field	kind
	line	180
	colm	55
	synt	any
	invoke	1
	line	180
	colm	43
	synt	any
	cat
	line	180
	colm	19
	synt	any
	invoke	1
lab L2
	line	131
	colm	5
	synt	endcase
	unmark
lab L1
	pnull
	line	182
	colm	1
	synt	any
	pfail
	end
proc list_ids
	local	0,001000,idnode
	local	1,000000,write
	local	2,000000,sym2file
	local	3,000000,temp
	local	4,000000,has_field
	con	0,010000,34,123,171,155,142,157,154,040,062,040,124,141,142,154,145,040,105,155,160,164,171,040,141,164,040,154,151,163,164,137,151,144,163,055,061
	con	1,010000,34,102,145,147,151,156,040,123,171,155,142,157,154,040,062,040,124,141,142,154,145,040,141,164,040,154,151,163,164,137,151,144,163,055,062
	con	2,010000,18,151,144,137,154,141,163,164,137,144,145,146,151,156,151,164,151,157,156
	con	3,010000,33,105,156,144,040,123,171,155,142,157,154,040,062,040,124,141,142,154,145,040,141,164,040,040,154,151,163,164,137,151,144,163,055,063
	declend
	line	184
	colm	12
	synt	any
	mark	L1
	line	185
	colm	5
	synt	ifelse
	mark	L2
	pnull
	var	0
	line	185
	colm	8
	synt	any
	null
	unmark
	var	1
	var	2
	str	0
	line	186
	colm	15
	synt	any
	invoke	2
	goto	L3
lab L2
	mark	L4
	var	1
	var	2
	str	1
	line	188
	colm	14
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	pnull
	var	3
	var	0
	line	189
	colm	14
	synt	any
	asgn
	unmark
lab L5
	mark	L6
lab L7
	line	190
	colm	9
	synt	while
	mark0
	pnull
	var	3
	line	190
	colm	15
	synt	any
	nonnull
	pop
	var	4
	var	3
	str	2
	line	190
	colm	32
	synt	any
	invoke	2
	unmark
	mark	L7
	mark	L10
	pnull
	var	3
	line	192
	colm	17
	synt	any
	field	dump
	var	2
	line	192
	colm	22
	synt	any
	invoke	1
	unmark
lab L10
	pnull
	var	3
	pnull
	var	3
	line	193
	colm	25
	synt	any
	field	id_last_definition
	line	193
	colm	18
	synt	any
	asgn
lab L8
	unmark
	goto	L7
lab L9
	line	190
	colm	9
	synt	endwhile
	unmark
lab L6
	var	1
	var	2
	str	3
	line	195
	colm	14
	synt	any
	invoke	2
lab L3
	line	185
	colm	5
	synt	endifelse
	unmark
lab L1
	pnull
	line	197
	colm	1
	synt	any
	pfail
	end
