From: <bi...@us...> - 2012-03-15 10:21:46
|
Revision: 7669 http://oorexx.svn.sourceforge.net/oorexx/?rev=7669&view=rev Author: bigrixx Date: 2012-03-15 10:21:35 +0000 (Thu, 15 Mar 2012) Log Message: ----------- Fix failure in lines() Modified Paths: -------------- main/trunk/interpreter/expression/BuiltinFunctions.cpp Modified: main/trunk/interpreter/expression/BuiltinFunctions.cpp =================================================================== --- main/trunk/interpreter/expression/BuiltinFunctions.cpp 2012-03-15 00:21:07 UTC (rev 7668) +++ main/trunk/interpreter/expression/BuiltinFunctions.cpp 2012-03-15 10:21:35 UTC (rev 7669) @@ -2115,7 +2115,12 @@ /* to only return 0 or 1 */ if (toupper(option->getChar(0)) == 'N') { - return (result != IntegerZero) ? IntegerOne : IntegerZero; + wholenumber_t count = 0; + if (result->numberValue(count)) + { + return (count != 0) ? IntegerOne : IntegerZero; + } + return result; // not sure what this, just return directly } else { This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |