[rkward-cvs] SF.net SVN: rkward: [2011] trunk/rkward/rkward/rbackend/rkstructuregetter. cpp

[tfry at users.sourceforge.net]

Revision: 2011
          http://rkward.svn.sourceforge.net/rkward/?rev=2011&view=rev
Author:   tfry
Date:     2007-10-01 12:06:04 -0700 (Mon, 01 Oct 2007)

Log Message:
-----------
Experimental: Is this the fix to the 64 bit problems?

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rkstructuregetter.cpp

Modified: trunk/rkward/rkward/rbackend/rkstructuregetter.cpp
===================================================================
--- trunk/rkward/rkward/rbackend/rkstructuregetter.cpp	2007-09-30 17:00:24 UTC (rev 2010)
+++ trunk/rkward/rkward/rbackend/rkstructuregetter.cpp	2007-10-01 19:06:04 UTC (rev 2011)
@@ -98,7 +98,7 @@
 bool RKStructureGetter::callSimpleBool (SEXP fun, SEXP arg, SEXP env) {
 	SEXP res = callSimpleFun (fun, arg, env);
 	RK_ASSERT (TYPEOF (res) == LGLSXP);
-	return ((bool) VECTOR_ELT (res, 0));
+	return ((bool) LOGICAL (res)[0]);
 }
 
 RData *RKStructureGetter::getStructure (SEXP toplevel, SEXP name, SEXP envlevel, SEXP namespacename) {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.