[svn:parrot] r39792 - branches/pmc_pct/compilers/pmcc/src

[cotto at svn.parrot.org]

Author: cotto
Date: Fri Jun 26 03:00:41 2009
New Revision: 39792
URL: https://trac.parrot.org/parrot/changeset/39792

Log:
[pmcc] add a file I forgot to add earlier

Added:
   branches/pmc_pct/compilers/pmcc/src/nodes.pm

Added: branches/pmc_pct/compilers/pmcc/src/nodes.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/pmc_pct/compilers/pmcc/src/nodes.pm	Fri Jun 26 03:00:41 2009	(r39792)
@@ -0,0 +1,23 @@
+# Copyright (C) 2009, Parrot Foundation.
+# $Id$
+
+class PMC::Class;
+
+method create_variant_vtable() {
+
+    my %vtdump;
+
+    %vtdump := self.past.vtdump;
+
+    for (self.vtables{'default'}) {
+       if (!%vtdump{$_}{'attributes'}{'write'}) {
+           self.vtables{'ro'}{$_} := self.vtables{'default'}{$_};
+           #copy the function into self.past.vtables{'ro'}
+           #XXX: what needs to be copied?
+           #  - I'll need the vt function name to add to the VTABLE struct
+           #  - if it's a vt function that overrides :write-ness, I'll need to note that and emit code for that function
+           #  -
+       }
+    }
+}
+