[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