[Lme4-commits] r1394 - pkg/lme4Eigen/src

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

Author: dmbates
Date: 2011-09-21 23:07:38 +0200 (Wed, 21 Sep 2011)
New Revision: 1394

Modified:
   pkg/lme4Eigen/src/external.cpp
Log:
Added a function to check on the SIMD instruction sets in use by Eigen.


Modified: pkg/lme4Eigen/src/external.cpp
===================================================================
--- pkg/lme4Eigen/src/external.cpp	2011-09-21 16:32:56 UTC (rev 1393)
+++ pkg/lme4Eigen/src/external.cpp	2011-09-21 21:07:38 UTC (rev 1394)
@@ -27,6 +27,12 @@
 
     using std::runtime_error;
 
+    SEXP Eigen_SSE() {
+	BEGIN_RCPP;
+	return wrap(Eigen::SimdInstructionSetsInUse());
+	END_RCPP;
+    }
+
     // generalized linear model (and generalized linear mixed model) response
 
     SEXP glm_Create(SEXP fams, SEXP ys) {
@@ -615,6 +621,8 @@
 
     CALLDEF(lmerDeviance, 3),
 
+    CALLDEF(Eigen_SSE, 0),
+
     CALLDEF(glm_Create, 2),	  // generate external pointer
 
     CALLDEF(glm_setN, 2),	  // setters