libld/common/map_v2.c

66 typedef void (* gts_efunc_t)(Mapfile *mf, Token tok, ld_map_tkval_t *tkv);
145 	ld_map_tkval_t	tkv;
149 	switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
182 	mf_fatal(mf, err, lhs, ld_map_tokenstr(tok, &tkv, &inv_buf));
449 	ld_map_tkval_t	tkv;
452 	switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
460 	    ld_map_tokenstr(tok, &tkv, &inv_buf));
479 	ld_map_tkval_t	tkv;
482 	switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
490 	    ld_map_tokenstr(tok, &tkv, &inv_buf));
508 	ld_map_tkval_t	tkv;
511 	switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
518 	    ld_map_tokenstr(tok, &tkv, &inv_buf));
537 	ld_map_tkval_t	tkv;
540 	switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
547 	    ld_map_tokenstr(tok, &tkv, &inv_buf));
557  *	tkv - Address of token value struct to be filled in
560  *	Updates *tkv and returns TK_INT for success, TK_ERROR otherwise.
563 gettoken_int(Mapfile *mf, const char *lhs, ld_map_tkval_t *tkv)
568 	switch (tok = ld_map_gettoken(mf, 0, tkv)) {
575 	    ld_map_tokenstr(tok, tkv, &inv_buf));
585  *	tkv - Address of token value struct to be filled in
589  *	Updates *tkv and returns TK_STRING for success. Calls the
593 gettoken_str(Mapfile *mf, int flags, ld_map_tkval_t *tkv, gts_efunc_t efunc)
597 	switch (tok = ld_map_gettoken(mf, flags, tkv)) {
604 	(* efunc)(mf, tok, tkv);
648 	ld_map_tkval_t	tkv;
655 		switch (tok = ld_map_gettoken(mf, TK_F_KEYWORD, &tkv)) {
660 			attr = ld_map_kwfind(tkv.tkv_str, attr_list,
716 				    ld_map_tokenstr(tok, &tkv, &inv_buf));
781 	ld_map_tkval_t	tkv;
791 		switch (tok = ld_map_gettoken(mf, TK_F_KEYWORD, &tkv)) {
796 			flag = ld_map_kwfind(tkv.tkv_str, flag_list,
821 			if (tkv.tkv_int.tkvi_value != 0)
840 				    ld_map_tokenstr(tok, &tkv, &inv_buf));
883 	ld_map_tkval_t	tkv;
889 		switch (tok = ld_map_gettoken(mf, TK_F_KEYWORD, &tkv)) {
895 			    tkv.tkv_str, ld_targ.t_m.m_mach)) != 0) {
902 			value |= tkv.tkv_int.tkvi_value;
913 			    ld_map_tokenstr(tok, &tkv, &inv_buf));
944 	ld_map_tkval_t	tkv;
951 		switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
957 			 * The name is in tkv.tkv_str.  Save this string for
961 				if (strcmp(str, tkv.tkv_str) == 0) {
966 			if ((found == 0) && (aplist_append(&strs, tkv.tkv_str,
978 			    ld_map_tokenstr(tok, &tkv, &inv_buf));
998 	ld_map_tkval_t	tkv;
1004 		switch (tok = ld_map_gettoken(mf, TK_F_KEYWORD, &tkv)) {
1010 			    tkv.tkv_str, ld_targ.t_m.m_mach)) != 0) {
1015 			    tkv.tkv_str, ld_targ.t_m.m_mach)) != 0) {
1029 			    ld_map_tokenstr(tok, &tkv, &inv_buf));
1077 	ld_map_tkval_t	tkv;
1083 		switch (tok = ld_map_gettoken(mf, TK_F_KEYWORD, &tkv)) {
1089 			    tkv.tkv_str, ld_targ.t_m.m_mach)) != 0) {
1103 			    ld_map_tokenstr(tok, &tkv, &inv_buf));
1191 	ld_map_tkval_t	tkv;
1201 	switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
1209 		 * The ID name is in tkv.tkv_str.  Save this name in the output
1214 		    capstr->cs_str, tkv.tkv_str));
1216 		capstr->cs_str = tkv.tkv_str;
1240 		    ld_map_tokenstr(tok, &tkv, &inv_buf));
1257 gts_efunc_at_dv_allow(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
1262 	    MSG_ORIG(MSG_MAPKW_ALLOW), ld_map_tokenstr(tok, tkv, &inv_buf));
1273 	ld_map_tkval_t	tkv;
1275 	if (gettoken_str(mf, 0, &tkv, gts_efunc_at_dv_allow) == TK_ERROR)
1279 	if (!ld_map_dv_entry(mf, uvalue, FALSE, tkv.tkv_str))
1290 gts_efunc_at_dv_require(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
1295 	    MSG_ORIG(MSG_MAPKW_REQUIRE), ld_map_tokenstr(tok, tkv, &inv_buf));
1306 	ld_map_tkval_t	tkv;
1309 	if (gettoken_str(mf, 0, &tkv, gts_efunc_at_dv_require) == TK_ERROR)
1313 	if (!ld_map_dv_entry(mf, uvalue, TRUE, tkv.tkv_str))
1324 gts_efunc_dir_depend_versions(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
1330 	    ld_map_tokenstr(tok, tkv, &inv_buf));
1359 	ld_map_tkval_t	tkv;
1363 	if (gettoken_str(mf, 0, &tkv, gts_efunc_dir_depend_versions) ==
1368 	if ((sdf = ld_map_dv(mf, tkv.tkv_str)) == NULL)
1372 	if (gettoken_leftbkt(mf, tkv.tkv_str) == TK_ERROR)
1410 	ld_map_tkval_t	tkv;		/* Value of token */
1418 	if (gettoken_int(mf, MSG_ORIG(MSG_MAPKW_PHDR_ADD_NULL), &tkv) ==
1422 	while (tkv.tkv_int.tkvi_value-- > 0) {
1444 	ld_map_tkval_t	tkv;
1447 	if (gettoken_int(mf, MSG_ORIG(MSG_MAPKW_ALIGN), &tkv) == TK_ERROR)
1450 	sgp->sg_phdr.p_align = tkv.tkv_int.tkvi_value;
1462     ld_map_tkval_t *tkv)
1468 	    ld_map_tokenstr(tok, tkv, &inv_buf));
1480 	ld_map_tkval_t	tkv;
1483 	if (gettoken_str(mf, 0, &tkv, gts_efunc_at_seg_assign_file_basename) ==
1487 	if (!ld_map_seg_ent_files(mf, enp, TYP_ECF_BASENAME, tkv.tkv_str))
1499     ld_map_tkval_t *tkv)
1505 	    ld_map_tokenstr(tok, tkv, &inv_buf));
1517 	ld_map_tkval_t	tkv;
1520 	if (gettoken_str(mf, 0, &tkv, gts_efunc_at_seg_assign_file_objname) ==
1524 	if (!ld_map_seg_ent_files(mf, enp, TYP_ECF_OBJNAME, tkv.tkv_str))
1535 gts_efunc_at_seg_assign_file_path(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
1541 	    ld_map_tokenstr(tok, tkv, &inv_buf));
1553 	ld_map_tkval_t	tkv;
1556 	if (gettoken_str(mf, 0, &tkv, gts_efunc_at_seg_assign_file_path) ==
1560 	if (!ld_map_seg_ent_files(mf, enp, TYP_ECF_PATH, tkv.tkv_str))
1604 	ld_map_tkval_t	tkv;
1609 		switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
1623 			flag = ld_map_kwfind(tkv.tkv_str, flag_list,
1648 				    ld_map_tokenstr(tok, &tkv, &inv_buf));
1677 gts_efunc_at_seg_assign_is_name(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
1682 	    MSG_ORIG(MSG_MAPKW_IS_NAME), ld_map_tokenstr(tok, tkv, &inv_buf));
1694 	ld_map_tkval_t	tkv;
1697 	if (gettoken_str(mf, 0, &tkv, gts_efunc_at_seg_assign_is_name) ==
1700 	enp->ec_is_name = tkv.tkv_str;
1710 gts_efunc_at_seg_assign_type(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
1715 	    ld_map_tokenstr(tok, tkv, &inv_buf));
1727 	ld_map_tkval_t		tkv;
1731 	if (gettoken_str(mf, TK_F_KEYWORD, &tkv,
1740 	if (conv_iter_strtol_init(tkv.tkv_str, &conv_uvalue) != 0) {
1755 			gts_efunc_at_seg_assign_type(mf, TK_STRING, &tkv);
1807 	ld_map_tkval_t	tkv;
1816 	tok = ld_map_gettoken(mf, 0, &tkv);
1822 		name = tkv.tkv_str;
1823 		tok = ld_map_gettoken(mf, 0, &tkv);
1836 		    ld_map_tokenstr(tok, &tkv, &inv_buf));
1924 	ld_map_tkval_t	tkv;
1941 		switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
1950 			enp = ld_ent_lookup(mf->mf_ofl, tkv.tkv_str, NULL);
1953 				    tkv.tkv_str);
1964 					    tkv.tkv_str);
1981 			    ld_map_tokenstr(tok, &tkv, &inv_buf));
1998 	ld_map_tkval_t	tkv;
2001 	if (gettoken_int(mf, MSG_ORIG(MSG_MAPKW_MAX_SIZE), &tkv) == TK_ERROR)
2004 	sgp->sg_length = tkv.tkv_int.tkvi_value;
2047 	ld_map_tkval_t	tkv;
2062 		switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
2067 			if (!ld_map_seg_os_order_add(mf, sgp, tkv.tkv_str))
2078 			    ld_map_tokenstr(tok, &tkv, &inv_buf));
2096 	ld_map_tkval_t	tkv;
2109 	if (gettoken_int(mf, MSG_ORIG(MSG_MAPKW_PADDR), &tkv) == TK_ERROR)
2112 	sgp->sg_phdr.p_paddr = tkv.tkv_int.tkvi_value;
2128 	ld_map_tkval_t	tkv;
2131 	if (gettoken_int(mf, MSG_ORIG(MSG_MAPKW_ROUND), &tkv) == TK_ERROR)
2134 	sgp->sg_round = tkv.tkv_int.tkvi_value;
2151 	ld_map_tkval_t	tkv;
2159 		switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
2165 			    tkv.tkv_str))
2186 			    ld_map_tokenstr(tok, &tkv, &inv_buf));
2211 	ld_map_tkval_t	tkv;
2224 	if (gettoken_int(mf, MSG_ORIG(MSG_MAPKW_VADDR), &tkv) == TK_ERROR)
2227 	sgp->sg_phdr.p_vaddr = tkv.tkv_int.tkvi_value;
2259 	ld_map_tkval_t	tkv;
2266 	if (gettoken_str(mf, 0, &tkv, gts_efunc) == TK_ERROR)
2268 	sgp = ld_seg_lookup(mf->mf_ofl, tkv.tkv_str, &where);
2273 		if ((sgp = ld_map_seg_alloc(tkv.tkv_str, seg_type,
2284 			    dir_name, tkv.tkv_str);
2346 gts_efunc_dir_load_segment(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
2352 	    ld_map_tokenstr(tok, tkv, &inv_buf));
2437 gts_efunc_dir_note_segment(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
2443 	    ld_map_tokenstr(tok, tkv, &inv_buf));
2465 gts_efunc_dir_null_segment(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
2471 	    ld_map_tokenstr(tok, tkv, &inv_buf));
2498 	ld_map_tkval_t	tkv;
2522 		switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
2530 			sgp = ld_seg_lookup(mf->mf_ofl, tkv.tkv_str, NULL);
2533 				    tkv.tkv_str);
2546 					    tkv.tkv_str);
2574 			    ld_map_tokenstr(tok, &tkv, &inv_buf));
2644 gts_efunc_at_sym_aux(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
2649 	    MSG_ORIG(MSG_MAPKW_AUX), ld_map_tokenstr(tok, tkv, &inv_buf));
2661 	ld_map_tkval_t	tkv;
2664 	if (gettoken_str(mf, 0, &tkv, gts_efunc_at_sym_aux) == TK_ERROR)
2668 	    tkv.tkv_str);
2678 gts_efunc_at_sym_filter(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
2683 	    MSG_ORIG(MSG_MAPKW_FILTER), ld_map_tokenstr(tok, tkv, &inv_buf));
2695 	ld_map_tkval_t	tkv;
2698 	if (gettoken_str(mf, 0, &tkv, gts_efunc_at_sym_filter) == TK_ERROR)
2702 	    tkv.tkv_str);
2752 	ld_map_tkval_t	tkv;
2757 		switch (tok = ld_map_gettoken(mf, TK_F_KEYWORD, &tkv)) {
2762 			symflag = ld_map_kwfind(tkv.tkv_str, symflag_list,
2839 				    ld_map_tokenstr(tok, &tkv, &inv_buf));
2864 	ld_map_tkval_t	tkv;
2867 	if (gettoken_int(mf, MSG_ORIG(MSG_MAPKW_SIZE), &tkv) == TK_ERROR)
2870 	ss->ss_ms.ms_size = tkv.tkv_int.tkvi_value;
2904 gts_efunc_at_sym_type(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
2912 	    ld_map_tokenstr(tok, tkv, &inv_buf));
2925 	ld_map_tkval_t	tkv;
2928 	if (gettoken_str(mf, TK_F_KEYWORD, &tkv, gts_efunc_at_sym_type) ==
2932 	type = ld_map_kwfind(tkv.tkv_str, at_sym_type_list,
2935 		gts_efunc_at_sym_type(mf, TK_STRING, &tkv);
2956 	ld_map_tkval_t	tkv;
2959 	if (gettoken_int(mf, MSG_ORIG(MSG_MAPKW_VALUE), &tkv) == TK_ERROR)
2962 	ss->ss_ms.ms_value = tkv.tkv_int.tkvi_value;
3012 	ld_map_tkval_t	tkv, tkv_sym;
3056 			switch (tok = ld_map_gettoken(mf, 0, &tkv)) {
3095 				    ld_map_tokenstr(tok, &tkv, &inv_buf));
3182 gts_efunc_dir_symbol_version(Mapfile *mf, Token tok, ld_map_tkval_t *tkv)
3188 	    ld_map_tokenstr(tok, tkv, &inv_buf));
3201 	ld_map_tkval_t	tkv;
3205 	if (gettoken_str(mf, 0, &tkv, gts_efunc_dir_symbol_version) == TK_ERROR)
3214 	if (!ld_map_sym_ver_init(mf, tkv.tkv_str, &ss.ss_mv))
3281 	ld_map_tkval_t	tkv;		/* Value of token */
3286 		tok = ld_map_gettoken(mf, TK_F_EOFOK | TK_F_KEYWORD, &tkv);
3296 			tldir = ld_map_kwfind(tkv.tkv_str, dirlist,
3316 				    ld_map_tokenstr(tok, &tkv, &inv_buf));