perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r34521 - branches/pdd22io_part3/src/pmc

Subject: [svn:parrot] r34521 - branches/pdd22io_part3/src/pmc
From:
Date: Sun, 28 Dec 2008 14:12:50 -0800 PST
Newsgroups: perl.cvs.parrot

Author: allison
Date: Sun Dec 28 14:12:50 2008
New Revision: 34521

Modified:
   branches/pdd22io_part3/src/pmc/filehandle.pmc

Log:
[pdd22io] Don't calculate the integer value of flags twice.


Modified: branches/pdd22io_part3/src/pmc/filehandle.pmc
==============================================================================
--- branches/pdd22io_part3/src/pmc/filehandle.pmc       (original)
+++ branches/pdd22io_part3/src/pmc/filehandle.pmc       Sun Dec 28 14:12:50 2008
@@ -197,7 +197,7 @@
                 STRING *mode :optional, INTVAL got_mode :opt_flag) {
         PMC *filehandle;
         STRING *open_filename, *open_mode;
-        INTVAL flags = Parrot_io_parse_open_flags(interp, mode);
+        INTVAL flags;
 
         if (!Parrot_io_is_closed_filehandle(INTERP, SELF))
             Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR,

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r34521 - branches/pdd22io_part3/src/pmc, allison <=