[R-gregmisc-commits] r2171 - pkg/gtools/R

[noreply at r-forge.r-project.org]

Author: warnes
Date: 2017-08-24 00:59:26 +0200 (Thu, 24 Aug 2017)
New Revision: 2171

Modified:
   pkg/gtools/R/roman2int.R
   pkg/gtools/R/setTCPNoDelay.R
Log:
Use correct 'PACKAGE=' parameter to '.C' calls.

Modified: pkg/gtools/R/roman2int.R
===================================================================
--- pkg/gtools/R/roman2int.R	2017-06-14 19:44:49 UTC (rev 2170)
+++ pkg/gtools/R/roman2int.R	2017-08-23 22:59:26 UTC (rev 2171)
@@ -11,7 +11,8 @@
         retval <- .C(C_convert,
                      roman=as.character(roman),
                      nchar=as.integer(nchar(roman)),
-                     values=integer(nchar(roman))
+                     values=integer(nchar(roman)),
+                     PACKAGE="gtools"
                      )
         retval$values
     }
@@ -22,7 +23,6 @@
                       roman = as.character(roman),
                       nchar = as.integer(nchar(roman)),
                       value = integer(1),
-
                       PACKAGE="gtools")
 
         return(results$value)

Modified: pkg/gtools/R/setTCPNoDelay.R
===================================================================
--- pkg/gtools/R/setTCPNoDelay.R	2017-06-14 19:44:49 UTC (rev 2170)
+++ pkg/gtools/R/setTCPNoDelay.R	2017-08-23 22:59:26 UTC (rev 2171)
@@ -15,7 +15,8 @@
                  flag       = as.integer(value),
                  status     = integer(1),
                  status.str = as.character(buffer),
-                 status.len = as.integer(nchar(buffer))
+                 status.len = as.integer(nchar(buffer)),
+                 PACKAGE    = "gtools"
                  )
 
     if(retval$status != 0)