MSVC does not support VLAs

The MSVC compiler only supports C90, it does not support C99
and variable length arrays are a feature of C99.

Author: rkanavath

imagery/i.landsat.acca/algorithm.c

@@ -71,22 +71,21 @@ double th_6 = 2.16248;		/* Band 4/2 Ratio */
 double th_7 = 1.0; /* Band 4/5 Ratio */ ;
 double th_8 = 210.;		/* Band 5/6 Composite */
 
-extern int hist_n;
-
 void acca_algorithm(Gfile * out, Gfile band[],
-		    int single_pass, int with_shadow, int cloud_signature)
+		    int single_pass, int with_shadow, int cloud_signature, int hist_n)
 {
-    int i, count[5], hist_cold[hist_n], hist_warm[hist_n];
-    double max, value[5], signa[5], idesert, review_warm, shift;
+	int i, count[5];
+    double max, value[5], signa[5], idesert,  shift;
+	int review_warm;
+	int* hist_cold, *hist_warm;
+	hist_cold = (int*)G_calloc(hist_n, sizeof(int));
+	hist_warm = (int*)G_calloc(hist_n, sizeof(int));
 
     /* Reset variables ... */
     for (i = 0; i < 5; i++) {
 	count[i] = 0;
 	value[i] = 0.;
     }
-    for (i = 0; i < hist_n; i++) {
-	hist_cold[i] = hist_warm[i] = 0;
-    }
 
     /* FIRST FILTER ... */
     acca_first(out, band, with_shadow,
@@ -207,7 +206,7 @@ void acca_algorithm(Gfile * out, Gfile band[],
     /* SECOND FILTER ... */
     /* By-pass two processing but it retains warm and cold clouds */
     if (single_pass == TRUE) {
-	review_warm = -1.;
+	review_warm = -1;
 	value[KUPPER] = 0.;
 	value[KLOWER] = 0.;
     }

imagery/i.landsat.acca/local_proto.h

@@ -28,7 +28,7 @@ typedef struct
 } Gfile;
 
 
-void acca_algorithm(Gfile *, Gfile[], int, int, int);
+void acca_algorithm(Gfile *, Gfile[], int, int, int, int);
 void acca_first(Gfile *, Gfile[], int, int[], int[], int[], double[]);
 void acca_second(Gfile *, Gfile, int, double, double);
 

imagery/i.landsat.acca/main.c

@@ -191,7 +191,7 @@ int main(int argc, char *argv[])
     th_4 = atof(b56c->answer);
     th_7 = atof(b45r->answer);
     acca_algorithm(&out, band, pass2->answer, shadow->answer,
-		   csig->answer);
+		   csig->answer, hist_n);
 
     if (filter->answer)
 	filter_holes(&out);

lib/imagery/iscatt_core.c

@@ -700,19 +700,23 @@ int I_compute_scatts(struct Cell_head *region, struct scCats *scatt_conds,
     const char *mapset;
     char header[1024];
 
-    int fd_cats_rasts[scatt_conds->n_a_cats];
-    FILE *f_cats_rasts_conds[scatt_conds->n_a_cats];
-
-    struct rast_row bands_rows[n_bands];
+	int *fd_cats_rasts;
+	FILE **f_cats_rasts_conds;
+	struct rast_row *bands_rows;
+	int *fd_bands;
+	int *bands_ids;
+	int *b_needed_bands;
 
     RASTER_MAP_TYPE data_type;
-
     int nrows, i_band, n_a_bands, band_id;
     int i_row, head_nchars, i_cat, id_cat;
 
-    int fd_bands[n_bands];
-    int bands_ids[n_bands];
-    int b_needed_bands[n_bands];
+	fd_cats_rasts = calloc(scatt_conds->n_a_cats, sizeof(*fd_cats_rasts));
+	f_cats_rasts_conds = calloc(scatt_conds->n_a_cats, sizeof(*f_cats_rasts_conds));
+	bands_rows = calloc(n_bands, sizeof(*bands_rows));
+	fd_bands = calloc(n_bands, sizeof(*fd_bands));
+	bands_ids = calloc(n_bands, sizeof(*bands_ids));
+	b_needed_bands = calloc(n_bands, sizeof(*b_needed_bands));
 
     Rast_set_window(region);
 

raster/r.mapcalc/map.c

@@ -742,7 +742,8 @@ void create_history(const char *dst, expression * e)
     Rast_short_history(dst, "raster", &hist);
 
     for (i = 0; ; i++) {
-	char buf[RECORD_LEN];
+	char *buf;
+	buf = (char*)G_calloc(RECORD_LEN, sizeof(char));
 	int n;
 
 	if (!len)
@@ -768,7 +769,8 @@ void create_history(const char *dst, expression * e)
     }
 
     if (seeded) {
-	char buf[RECORD_LEN];
+	char* buf;
+	buf = (char*)G_calloc(RECORD_LEN, sizeof(char));
 	sprintf(buf, "random seed = %ld", seed_value);
 	Rast_append_history(&hist, buf);
     }