[svn:parrot] r39208 - in branches/io_rewiring/src: io pmc

whiteknight at svn.parrot.org whiteknight at svn.parrot.org
Thu May 28 00:35:58 UTC 2009


Author: whiteknight
Date: Thu May 28 00:35:57 2009
New Revision: 39208
URL: https://trac.parrot.org/parrot/changeset/39208

Log:
[io_rewiring] convert Parrot_io_close to not use PCCINVOKE

Modified:
   branches/io_rewiring/src/io/api.c
   branches/io_rewiring/src/pmc/filehandle.pmc

Modified: branches/io_rewiring/src/io/api.c
==============================================================================
--- branches/io_rewiring/src/io/api.c	Thu May 28 00:30:45 2009	(r39207)
+++ branches/io_rewiring/src/io/api.c	Thu May 28 00:35:57 2009	(r39208)
@@ -207,7 +207,8 @@
     if (PMC_IS_NULL(pmc))
         return -1;
 
-    Parrot_PCCINVOKE(interp, pmc, CONST_STRING(interp, "close"), "->I", &result);
+    result = Parrot_io_close_filehandle(interp, pmc);
+    SETATTR_FileHandle_flags(interp, pmc, 0);
 
     return result;
 }

Modified: branches/io_rewiring/src/pmc/filehandle.pmc
==============================================================================
--- branches/io_rewiring/src/pmc/filehandle.pmc	Thu May 28 00:30:45 2009	(r39207)
+++ branches/io_rewiring/src/pmc/filehandle.pmc	Thu May 28 00:35:57 2009	(r39208)
@@ -330,8 +330,7 @@
 
     METHOD close() {
         INTVAL status;
-        status = Parrot_io_close_filehandle(interp, SELF);
-        PARROT_FILEHANDLE(SELF)->flags = 0;
+        status = Parrot_io_close(INTERP, SELF);
         RETURN(INTVAL status);
     }
 


More information about the parrot-commits mailing list