[Oorexx-svn] SF.net SVN: oorexx:[4373] main/branches/4.0beta/trunk/interpreter/ streamLibrary/StreamNative.cpp

[<bi...@us...>]

Revision: 4373
          http://oorexx.svn.sourceforge.net/oorexx/?rev=4373&view=rev
Author:   bigrixx
Date:     2009-04-14 09:44:19 +0000 (Tue, 14 Apr 2009)

Log Message:
-----------
[ oorexx-Bugs-2761373 ] charout of empty string gives bad result

Modified Paths:
--------------
    main/branches/4.0beta/trunk/interpreter/streamLibrary/StreamNative.cpp

Modified: main/branches/4.0beta/trunk/interpreter/streamLibrary/StreamNative.cpp
===================================================================
--- main/branches/4.0beta/trunk/interpreter/streamLibrary/StreamNative.cpp	2009-04-14 09:43:43 UTC (rev 4372)
+++ main/branches/4.0beta/trunk/interpreter/streamLibrary/StreamNative.cpp	2009-04-14 09:44:19 UTC (rev 4373)
@@ -1465,14 +1465,18 @@
     {
         setCharWritePosition(position);
     }
-    // now write everything out
-    size_t bytesWritten;
-    writeBuffer(stringData, length, bytesWritten);
-    // unable to write for some reason?
-    if (bytesWritten != length)
+    // only write if this is not a null string
+    if (length > 0)
     {
-        defaultResult = context->WholeNumberToObject(length - bytesWritten);
-        notreadyError();
+        // now write everything out
+        size_t bytesWritten;
+        writeBuffer(stringData, length, bytesWritten);
+        // unable to write for some reason?
+        if (bytesWritten != length)
+        {
+            defaultResult = context->WholeNumberToObject(length - bytesWritten);
+            notreadyError();
+        }
     }
     // reset any line positioning information.
     resetLinePositions();


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