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

[svn:parrot] r34410 - trunk/src/io

From:
petdance
Date:
December 26, 2008 23:10
Subject:
[svn:parrot] r34410 - trunk/src/io
Message ID:
20081227071025.ADD16CBA12@x12.develooper.com
Author: petdance
Date: Fri Dec 26 23:10:25 2008
New Revision: 34410

Modified:
   trunk/src/io/buffer.c

Log:
removed unused var, and consted a bunch

Modified: trunk/src/io/buffer.c
==============================================================================
--- trunk/src/io/buffer.c	(original)
+++ trunk/src/io/buffer.c	Fri Dec 26 23:10:25 2008
@@ -398,7 +398,6 @@
     unsigned char *buffer_next;
     STRING * const s            = Parrot_io_make_string(interp, buf, 1);
     UINTVAL        len          = 1;
-    size_t         avail        = 0;
     INTVAL         buffer_flags = Parrot_io_get_buffer_flags(interp, filehandle);
 
     /* write buffer flush */
@@ -556,13 +555,13 @@
 {
     size_t avail;
     void * const buffer = s->strstart;
-    size_t len = s->bufused;
+    const size_t len = s->bufused;
     int need_flush;
 
-    INTVAL         buffer_flags = Parrot_io_get_buffer_flags(interp, filehandle);
-    unsigned char *buffer_start = Parrot_io_get_buffer_start(interp, filehandle);
-    unsigned char *buffer_next  = Parrot_io_get_buffer_next(interp, filehandle);
-    size_t         buffer_size  = Parrot_io_get_buffer_size(interp, filehandle);
+    INTVAL                buffer_flags = Parrot_io_get_buffer_flags(interp, filehandle);
+    unsigned char * const buffer_start = Parrot_io_get_buffer_start(interp, filehandle);
+    unsigned char *       buffer_next  = Parrot_io_get_buffer_next(interp, filehandle);
+    const size_t          buffer_size  = Parrot_io_get_buffer_size(interp, filehandle);
 
     if (len <= 0)
         return 0;



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