Author: leo
Date: Tue Apr 19 05:28:59 2005
New Revision: 7881
Modified:
trunk/lib/Parrot/Pmc2c.pm
trunk/src/pmc.c
trunk/t/pmc/eval.t
trunk/t/pmc/io.t
Log:
disable constant SArrays
Modified: trunk/lib/Parrot/Pmc2c.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c.pm (original)
+++ trunk/lib/Parrot/Pmc2c.pm Tue Apr 19 05:28:59 2005
@@ -1143,7 +1143,7 @@
EOC
if ($meth eq 'morph') {
$cout .= <<EOC;
- if (Parrot_is_const_pmc(interpreter, pmc))
+ if (1 || Parrot_is_const_pmc(interpreter, pmc))
internal_exception(WRITE_TO_CONSTCLASS,
"$meth() in $classname");
else
Modified: trunk/src/pmc.c
==============================================================================
--- trunk/src/pmc.c (original)
+++ trunk/src/pmc.c Tue Apr 19 05:28:59 2005
@@ -193,7 +193,15 @@
* This assumes that a constant PMC enum is one bigger then
* the normal one.
*/
+
+ /*
+ * XXX not yet we can't assure that all contents in the
+ * const PMC is const too
+ * see e.g. t/pmc/sarray_13.imc
+ */
+#if 0
flags = PObj_constant_FLAG;
+#endif
--base_type;
vtable = Parrot_base_vtables[base_type];
}
Modified: trunk/t/pmc/eval.t
==============================================================================
--- trunk/t/pmc/eval.t (original)
+++ trunk/t/pmc/eval.t Tue Apr 19 05:28:59 2005
@@ -40,7 +40,7 @@
concat S5, "print \"foo\\n\"\n"
concat S5, "returncc\n"
compreg P1, "PASM"
- compile P0, P1, S5
+ compile P20, P1, S5 # keep it anchored
find_global P0, "_foo"
invokecc
print "back\n"
Modified: trunk/t/pmc/io.t
==============================================================================
--- trunk/t/pmc/io.t (original)
+++ trunk/t/pmc/io.t Tue Apr 19 05:28:59 2005
@@ -46,7 +46,7 @@
.sub test
.param pmc io
.param string name
-
+
print name
read $S0, io, 1
length $I0, $S0
@@ -103,14 +103,9 @@
open P0, "temp.file", "<"
read S0, P0, 20
print S0
- interpinfo I1, 2 # DOD runs
- sub I1, I0
- print I1
- print "\n"
end
CODE
a line
-1
OUTPUT
output_is(<<'CODE', <<'OUTPUT', "getfd/fdopen");
