Report error when writing a long string fails on Windows due to allocation

problem (PR#18878).


git-svn-id: https://svn.r-project.org/R/trunk@88349 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: kalibera

src/extra/trio/trio.c

@@ -4108,9 +4108,12 @@ TRIO_ARGS2((self, output),
 
   if (self->error == 0)
     {
-      trio_xstring_append_char((trio_string_t *)self->location,
-			       (char)output);
-      self->committed++;
+      if (trio_xstring_append_char((trio_string_t *)self->location,
+	  		           (char)output)) {
+          self->committed++;
+      } else {
+          self->error = TRIO_ERROR_RETURN(TRIO_ENOMEM, 0);
+      }
     }
   /* The processed variable must always be increased */
   self->processed++;