cvsuser 04/06/01 05:44:02
Modified: ops pmc.ops
Log:
Add in a morph op
Revision Changes Path
1.22 +12 -0 parrot/ops/pmc.ops
Index: pmc.ops
===================================================================
RCS file: /cvs/public/parrot/ops/pmc.ops,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -w -r1.21 -r1.22
--- pmc.ops 29 Apr 2004 17:50:32 -0000 1.21
+++ pmc.ops 1 Jun 2004 12:44:02 -0000 1.22
@@ -82,6 +82,18 @@
$1->vtable->init_pmc_props(interpreter, $1, $3, $4);
goto NEXT();
}
+
+########################################
+
+=item B<morph>(in PMC, in INT)
+
+Have $1 turn itself into a PMC of type $2.
+
+=cut
+
+inline op morph(in PMC, in INT) {
+ VTABLE_morph(interpreter, $1, $2);
+ goto NEXT();
}
########################################
