[runtime] Guard unused code with macros; NFCI

Author: Kush Bhagat

runtime/flang/allo.c

@@ -102,6 +102,7 @@ static long num_hdrs = NUM_HDRS;
 
 #define ALLHDR()
 
+#ifdef FLANG_ALLO_UNUSED
 /** \brief
  * Allocate ALLO_HDR list */
 static void
@@ -138,6 +139,7 @@ allhdr()
 
   MP_V(sem);
 }
+#endif
 
 /** \brief
  * Return nonzero if addresses p1 and p2 are aligned with respect to a

runtime/flang/encodefmt.c

@@ -705,6 +705,7 @@ int *len;
 
 /* ---------------------------------------------------------------- */
 
+#ifdef FLANG_ENCODEFMT_UNUSED
 static int ef_nextdtchar(p, len)
     /* call after encounter DT */
     char *p;
@@ -723,6 +724,7 @@ int *len;
     c = c + ('A' - 'a');
   return c;
 }
+#endif
 
 /* -------------------------------------------------------------------- */
 

runtime/flang/fmtconv.c

@@ -37,8 +37,10 @@ static void conv_e(int, int, int, bool);
 static void conv_en(int, int, bool);
 static void conv_es(int, int, bool);
 static void conv_f(int, int);
+#ifdef FLANG_FMTCONV_UNUSED
 static void fp_canon(__BIGREAL_T, int, int);
 static void cvtp_round(int);
+#endif
 static void cvtp_cp(int);
 static void cvtp_set(int, int);
 static void alloc_fpbuf(int);
@@ -1063,6 +1065,7 @@ __fortio_fmt_z(unsigned int c)
   return buff_pos;
 }
 
+#ifdef FLANG_FMTCONV_UNUSED
 static void
 fp_canon(__BIGREAL_T val, int type, int round)
 {
@@ -1119,6 +1122,7 @@ cvtp_round(int d)
   }
 
 }
+#endif
 
 static void
 cvtp_cp(int n)

runtime/flang/fpcvt.c

@@ -56,6 +56,7 @@ static void fperror(int x);
 #define FP_UNDERFLOW_ERROR      -3
 #define FP_UNDEFINED_ERROR      -4
 
+#ifdef FLANG_FPCVT_UNUSED
 static void
 ui64toa(INT m[2], char *s, int n, int decpl)
 {
@@ -89,6 +90,7 @@ ui64toa(INT m[2], char *s, int n, int decpl)
     s[j] = buff[i];
   s[j] = '\0';
 }
+#endif
 
 static void
 manshftr(INT *m, /* m[4] */
@@ -299,6 +301,7 @@ ufpxten(UFP *u, int exp)
   u->fexp += ftab1[i][2] + ftab2[j][2];
 }
 
+#ifdef FLANG_FPCVT_UNUSED
 static void
 ufptosci(UFP *u, char *s, int dp, int *decpt, int *sign)
 {
@@ -340,7 +343,9 @@ ufptosci(UFP *u, char *s, int dp, int *decpt, int *sign)
   }
   *decpt = exp10;
 }
+#endif
 
+#ifdef FLANG_FPCVT_UNUSED
 static void
 ufptodec(UFP *u, char *s, int dp, int *decpt, int *sign)
 {
@@ -363,7 +368,9 @@ ufptodec(UFP *u, char *s, int dp, int *decpt, int *sign)
   manrnd(u->fman, 64);
   ui64toa(u->fman, s, 0, dp);
 }
+#endif
 
+#ifdef FLANG_FPCVT_UNUSED
 static void
 dtoufp(IEEE64 d, UFP *u)
 {
@@ -396,6 +403,7 @@ dtoufp(IEEE64 d, UFP *u)
   } else
     u->fman[0] |= 0x00100000L;
 }
+#endif
 
 static void
 ufptod(UFP *u, IEEE64 *r)

runtime/flang/query.c

@@ -32,6 +32,7 @@ static int I8(fetch_int)(void *b, F90_Desc *s)
   }
 }
 
+#ifdef FLANG_QUERY_UNUSED
 static int I8(fetch_log)(void *b, F90_Desc *s)
 {
   dtype kind = TYPEKIND(s);
@@ -49,6 +50,7 @@ static int I8(fetch_log)(void *b, F90_Desc *s)
     return 0;
   }
 }
+#endif
 
 static void I8(fetch_vector)(void *ab, F90_Desc *as, __INT_T *vector,
                              int veclen)

runtime/flang/rdst.c

@@ -261,6 +261,7 @@ I8(is_nonsequential_section)(F90_Desc *a, __INT_T dim)
 #define EXPAND 0x080
 #define RECOPY 0x100
 
+#ifdef FLANG_RDST_UNUSED
 static void
 invalid_flags(int flags)
 {
@@ -270,6 +271,7 @@ invalid_flags(int flags)
 #endif
   __fort_abort("COPY_IN: internal error, invalid flags");
 }
+#endif
 
 static void
 copy_in_abort(char *msg)
@@ -2827,7 +2829,10 @@ ENTF90(EXECCMDLINE, execcmdline)(DCHAR(command), __LOG_T *wait,
                                  __INT_T *cmdstat_int_kind 
                                  DCLEN64(command) DCLEN64(cmdmsg)) {
   char *cmd, *cmdmes;
-  int cmdmes_len, stat;
+  int cmdmes_len;
+#if (defined(TARGET_LINUX_X8664) || defined(TARGET_OSX_X8664) || defined(TARGET_LINUX_POWER) || defined(TARGET_LINUX_ARM32) || defined(TARGET_LINUX_ARM64)) && !defined(TARGET_WIN)
+  int stat;
+#endif
   int cmdflag = 0;
   enum CMD_ERR{NO_SUPPORT_ERR=-1, FORK_ERR=1, EXECL_ERR=2, SIGNAL_ERR=3};