未使用変数の警告に対応

* [-Wunused-but-set-variable]による警告の個所に対してマクロ"COB_UNUSED"を適用

Author: n-isaka

cobc/codegen.c

@@ -998,6 +998,7 @@ output_param (cb_tree x, int id)
 	int			extrefs;
 	int			sav_stack_id;
 	char			fname[12];
+	COB_UNUSED(extrefs);
 
 	param_id = id;
 

cobc/pplex.l

@@ -743,6 +743,7 @@ check_dollar_directive (char *buff, int *line_size)
 	char			sbuff[5][256];
 	int			isDEFINED, isNOT;
 	int			i;
+	COB_UNUSED(n);
 
 	if (cb_source_format == CB_FORMAT_FIXED) {
 		if (*line_size < 8) {

cobc/pplex.l.m4

@@ -758,6 +758,7 @@ check_dollar_directive (char *buff, int *line_size)
 	char			sbuff[5][256];
 	int			isDEFINED, isNOT;
 	int			i;
+	COB_UNUSED(n);
 
 	if (cb_source_format == CB_FORMAT_FIXED) {
 		if (*line_size < 8) {

cobc/tree.c

@@ -1275,6 +1275,7 @@ cb_build_picture (const char *str)
 	unsigned char		lastonechar = 0;
 	unsigned char		lasttwochar = 0;
 	unsigned char		buff[COB_SMALL_BUFF];
+	COB_UNUSED(flg);
 
 	pic = make_tree (CB_TAG_PICTURE, CB_CATEGORY_UNKNOWN, sizeof (struct cb_picture));
 	if (strlen (str) > 50) {

cobc/typeck.c

@@ -832,6 +832,7 @@ cb_reference_type_check (cb_tree ref, cb_tree x, const char *name, int size, int
 	char			strbuf[256];
 	int			offset = 0 ;
 	int			ret = 0;
+	COB_UNUSED(r);
 
 	r = CB_REFERENCE (ref);
 	switch (CB_TREE_TAG (x)) {

libcob/call.c

@@ -714,6 +714,7 @@ void *
 cobsavenv2 (struct cobjmp_buf *jbuf, const int jsize)
 {
 	int	jtemp;
+	COB_UNUSED(jtemp);
 
 	/* Shut up compiler */
 	jtemp = jsize;

libcob/common.c

@@ -2095,6 +2095,9 @@ cobcommandline (int flags, int *pargc, char ***pargv, char ***penvp, char **pnam
 	char		**spenvp;
 	char		*spname;
 	int		sflags;
+	COB_UNUSED(spenvp);
+	COB_UNUSED(spname);
+	COB_UNUSED(sflags);
 
 	if (!cob_initialized) {
 		cob_runtime_error ("'cobcommandline' - Runtime has not been initialized");

libcob/move.c

@@ -554,6 +554,7 @@ cob_move_fp_to_display (cob_field *f1, cob_field *f2)
 	char		*x, *y;
 	char		buff[64];
 	char		buff2[64];
+	COB_UNUSED(frac);
 
 	memset ((ucharptr)buff, 0, sizeof (buff));
 	memset ((ucharptr)buff2, 0, sizeof (buff2));

libcob/screenio.c

@@ -1611,6 +1611,8 @@ CBL_OC_KEISEN (unsigned char * cmd, unsigned char * line, unsigned char * col, u
 	int	k_lng2;
 	int	k_color;
 	int	k_prn;
+	COB_UNUSED(k_color);
+	COB_UNUSED(k_prn);
 
 	COB_CHK_PARMS (CBL_OC_ATTRIBUTE, 5);
 

libcob/strings.c

@@ -268,6 +268,7 @@ cob_inspect_before (const cob_field *str)
 	unsigned char	*p2;
 	unsigned int	n;
 	int		fig;
+	COB_UNUSED(sign);
 
 	switch (COB_FIELD_TYPE (str)) {
 	case COB_TYPE_NUMERIC_DISPLAY: