xlint/lint1/decl.c

957 decl1str(sym_t *dsym)
965 	if ((sc = dsym->s_scl) != MOS && sc != MOU)
972 		if (dsym->s_styp == dcs->d_rdcsym->s_styp) {
974 			error(33, dsym->s_name);
979 	chktyp(dsym);
981 	t = (tp = dsym->s_type)->t_tspec;
983 	if (dsym->s_field) {
1022 				dsym->s_type = tp = duptyp(gettyp(t = INT));
1031 		} else if (len == 0 && dsym->s_name != unnamed) {
1036 		if (dsym->s_scl == MOU) {
1039 			dsym->s_type->t_isfield = 0;
1040 			dsym->s_field = 0;
1045 		dsym->s_type = tp = incref(tp, t = PTR);
1053 	if ((sz = length(dsym->s_type, dsym->s_name)) == 0) {
1054 		if (t == ARRAY && dsym->s_type->t_dim == 0) {
1056 			c99ism(39, dsym->s_name);
1064 	if (dsym->s_field) {
1066 		dsym->s_value.v_quad = (dcs->d_offset / size(t)) * size(t);
1067 		tp->t_foffs = dcs->d_offset - (int)dsym->s_value.v_quad;
1071 		dsym->s_value.v_quad = dcs->d_offset;
1079 	chkfdef(dsym, 0);
1087 	return (dsym);
1117 bitfield(sym_t *dsym, int len)
1120 	if (dsym == NULL) {
1121 		dsym = getblk(sizeof (sym_t));
1122 		dsym->s_name = unnamed;
1123 		dsym->s_kind = FMOS;
1124 		dsym->s_scl = MOS;
1125 		dsym->s_type = gettyp(UINT);
1126 		dsym->s_blklev = -1;
1128 	dsym->s_type = duptyp(dsym->s_type);
1129 	dsym->s_type->t_isfield = 1;
1130 	dsym->s_type->t_flen = len;
1131 	dsym->s_field = 1;
1132 	return (dsym);
1739 decl1ext(sym_t *dsym, int initflg)
1744 	chkfdef(dsym, 1);
1746 	chktyp(dsym);
1748 	if (initflg && !(initerr = chkinit(dsym)))
1749 		dsym->s_def = DEF;
1756 	if (dsym->s_type->t_tspec == FUNC && dsym->s_def == TDEF)
1757 		dsym->s_def = DECL;
1760 		if (dsym->s_type->t_tspec == FUNC) {
1761 			dsym->s_inline = 1;
1764 			warning(268, dsym->s_name);
1770 	    dsym->s_type->t_tspec == FUNC && dsym->s_type->t_proto) {
1775 		rval = dsym->s_type->t_subt->t_tspec != VOID;
1776 		outfdef(dsym, &dsym->s_dpos, rval, 0, NULL);
1778 		outsym(dsym, dsym->s_scl, dsym->s_def);
1788 		if (rdsym->s_osdef && dsym->s_type->t_proto) {
1789 			redec = chkosdef(rdsym, dsym);
1794 		if (!redec && !isredec(dsym, (warn = 0, &warn))) {
1798 				(*(sflag ? error : warning))(27, dsym->s_name);
1806 			if (rdsym->s_osdef && !dsym->s_type->t_proto) {
1807 				dsym->s_osdef = rdsym->s_osdef;
1808 				dsym->s_args = rdsym->s_args;
1809 				STRUCT_ASSIGN(dsym->s_dpos, rdsym->s_dpos);
1818 			if (rdsym->s_type->t_proto && !dsym->s_type->t_proto) {
1819 				STRUCT_ASSIGN(dsym->s_dpos, rdsym->s_dpos);
1820 			} else if (rdsym->s_def == DEF && dsym->s_def != DEF) {
1821 				STRUCT_ASSIGN(dsym->s_dpos, rdsym->s_dpos);
1828 			cpuinfo(dsym, rdsym);
1832 				dsym->s_def = DEF;
1836 				dsym->s_inline = 1;
1838 			compltyp(dsym, rdsym);
1845 	if (dsym->s_scl == TYPEDEF) {
1846 		dsym->s_type = duptyp(dsym->s_type);
1847 		dsym->s_type->t_typedef = 1;
1848 		settdsym(dsym->s_type, dsym);
1873 isredec(sym_t *dsym, int *warn)
1879 		error(27, dsym->s_name);
1885 		error(89, dsym->s_name);
1889 	if (dsym->s_scl == TYPEDEF) {
1891 		error(27, dsym->s_name);
1895 	if (rsym->s_def == DEF && dsym->s_def == DEF) {
1897 		error(28, dsym->s_name);
1901 	if (!eqtype(rsym->s_type, dsym->s_type, 0, 0, warn)) {
1903 		error(27, dsym->s_name);
1907 	if (rsym->s_scl == EXTERN && dsym->s_scl == EXTERN)
1909 	if (rsym->s_scl == STATIC && dsym->s_scl == STATIC)
1911 	if (rsym->s_scl == STATIC && dsym->s_def == DECL)
1919 		error(27, dsym->s_name);
1925 		warning(29, dsym->s_name);
1935 		warning(30, dsym->s_name);
1938 	dsym->s_scl = STATIC;
2077 chkosdef(sym_t *rdsym, sym_t *dsym)
2084 	pargs = dsym->s_type->t_args;
2138 compltyp(sym_t *dsym, sym_t *ssym)
2143 	dstp = &dsym->s_type;
2394 decl1loc(sym_t *dsym, int initflg)
2398 	if (dsym->s_type->t_tspec == FUNC) {
2399 		dsym->s_def = DECL;
2401 			dsym->s_scl = EXTERN;
2404 	if (dsym->s_type->t_tspec == FUNC) {
2405 		if (dsym->s_scl == STATIC) {
2407 			warning(93, dsym->s_name);
2408 			dsym->s_scl = EXTERN;
2409 		} else if (dsym->s_scl != EXTERN && dsym->s_scl != TYPEDEF) {
2411 			error(94, dsym->s_name);
2412 			dsym->s_scl = EXTERN;
2424 		if (dsym->s_type->t_tspec == FUNC) {
2425 			dsym->s_inline = 1;
2428 			warning(268, dsym->s_name);
2432 	chkfdef(dsym, 1);
2434 	chktyp(dsym);
2436 	if (dcs->d_rdcsym != NULL && dsym->s_scl == EXTERN)
2437 		ledecl(dsym);
2439 	if (dsym->s_scl == EXTERN) {
2444 		if (dsym->s_xsym == NULL) {
2445 			outsym(dsym, EXTERN, dsym->s_def);
2447 			outsym(dsym, dsym->s_xsym->s_scl, dsym->s_def);
2455 			switch (dsym->s_scl) {
2459 					warning(86, dsym->s_name);
2464 					warning(87, dsym->s_name);
2469 					warning(88, dsym->s_name);
2491 						warning(91, dsym->s_name);
2500 				warning(95, dsym->s_name);
2507 			error(27, dsym->s_name);
2514 	if (initflg && !(initerr = chkinit(dsym))) {
2515 		dsym->s_def = DEF;
2516 		setsflg(dsym);
2519 	if (dsym->s_scl == TYPEDEF) {
2520 		dsym->s_type = duptyp(dsym->s_type);
2521 		dsym->s_type->t_typedef = 1;
2522 		settdsym(dsym->s_type, dsym);
2535 ledecl(sym_t *dsym)
2546 			if (strcmp(dsym->s_name, esym->s_name) == 0)
2555 		warning(27, dsym->s_name);
2561 	eqt = eqtype(esym->s_type, dsym->s_type, 0, 0, &warn);
2566 			warning(90, dsym->s_name);
2570 			warning(92, dsym->s_name);
2580 		dsym->s_xsym = esym;
2682 chksz(sym_t *dsym)
2689 	if (dsym->s_def != DEF)
2691 	if (dsym->s_scl == TYPEDEF)
2693 	if (dsym->s_type->t_tspec == FUNC)
2696 	if (length(dsym->s_type, dsym->s_name) == 0 &&
2697 	    dsym->s_type->t_tspec == ARRAY && dsym->s_type->t_dim == 0) {
2700 			warning(190, dsym->s_name);
2702 			error(190, dsym->s_name);