avoid compiler warningsrc/modules/internet/libcurl.c

git-svn-id: https://svn.r-project.org/R/trunk@87104 00db46b3-68df-0310-9c12-caf00c1e9a41

src/include/Defn.h

@@ -897,6 +897,7 @@ extern void R_WaitEvent(void);
 # define FILESEP "/"
 #endif /* Win32 */
 
+/* A minimal version of F77_SUB from RS.h */
 #ifdef HAVE_F77_UNDERSCORE
 # define F77_SYMBOL(x) x ## _
 # define F77_QSYMBOL(x) #x "_"

src/include/R_ext/RS.h

@@ -88,7 +88,8 @@ extern void R_chk_free(void *);
  external names containing an underscore.
 
  but that is not used here (and none of gfortran, flang-new nor
- x86_64 ifx do so: earlier Intel x86 compilere might have).
+ x86_64 ifx do so: earlier Intel x86 compilere might have). It is
+ used in Rdynload.c to support .Fortran.
  */
 
 #ifdef HAVE_F77_UNDERSCORE

src/main/Rdynload.c

@@ -1107,6 +1107,8 @@ R_dlsym(DllInfo *info, char const *name,
  snprintf(buf, len, "_%s", name);
 #endif
 
+/* HAVE_F77_EXTRA_UNDERSCORE is only use here and not in F77_NAME etc.
+ It seems of only historical interest */
 #ifdef HAVE_F77_UNDERSCORE
  if(symbol && symbol->type == R_FORTRAN_SYM) {
  strcat(buf, "_");

src/modules/internet/libcurl.c

@@ -753,7 +753,7 @@ static void download_close_finished(download_cleanup_info *c)
  /* compute URL index */
  int *url_errs = NULL;
  curl_easy_getinfo(msg->easy_handle, CURLINFO_PRIVATE, &url_errs);
- int i = url_errs - c->errs;
+ int i = (int)(url_errs - c->errs);
 
  if (msg->data.result != CURLE_OK)
  download_report_url_error(msg);