develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33592 - branches/pdd22io_part2/src/io

From:
allison
Date:
December 6, 2008 23:27
Subject:
[svn:parrot] r33592 - branches/pdd22io_part2/src/io
Message ID:
20081207072746.54220CB9AF@x12.develooper.com
Author: allison
Date: Sat Dec  6 23:27:45 2008
New Revision: 33592

Modified:
   branches/pdd22io_part2/src/io/buffer.c

Log:
[pdd22io] Reset the current working values of the next and end pointers
for the buffer after filling the buffer.


Modified: branches/pdd22io_part2/src/io/buffer.c
==============================================================================
--- branches/pdd22io_part2/src/io/buffer.c	(original)
+++ branches/pdd22io_part2/src/io/buffer.c	Sat Dec  6 23:27:45 2008
@@ -351,6 +351,9 @@
     }
 
     /* read from the read_buffer */
+    buffer_start = Parrot_io_get_buffer_start(interp, filehandle);
+    buffer_next  = Parrot_io_get_buffer_next(interp, filehandle);
+    buffer_end   = Parrot_io_get_buffer_end(interp, filehandle);
 
     memcpy(out_buf, buffer_next, len);
     s->strlen    = s->bufused = current + len;
@@ -503,6 +506,9 @@
             s->strlen = s->bufused = l;
             if (Parrot_io_fill_readbuf(interp, filehandle) == 0)
                 return l;
+
+            buffer_next = Parrot_io_get_buffer_next(interp, filehandle);
+            buffer_end  = Parrot_io_get_buffer_end(interp, filehandle);
             buf_start = Parrot_io_get_buffer_start(interp, filehandle);
         }
     }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About