Add VTABLE_invoke preprocessing

parrot · May 2, 2011 · 271ece1 · 271ece1
1 parent 287cc0f
commit 271ece1
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/compilers/opsc/src/Ops/Compiler/Preprocessor.pm b/compilers/opsc/src/Ops/Compiler/Preprocessor.pm
@@ -84,6 +84,22 @@ INIT {
         PAST::Var.new(:name<0>, :scope<macro_arg>),
         PAST::Var.new(:name<1>, :scope<macro_arg>),
     );
+
+    %MACROS<VTABLE_invoke> := PAST::Op.new(
+        :pasttype<call>,
+        PAST::Var.new(
+            :scope<keyed_arrow>,
+            PAST::Var.new(
+                :scope<keyed_arrow>,
+                PAST::Var.new(:name<1>, :scope<macro_arg>),
+                "vtable",
+            ),
+            "invoke",
+        ),
+        PAST::Var.new(:name<0>, :scope<macro_arg>),
+        PAST::Var.new(:name<1>, :scope<macro_arg>),
+        PAST::Var.new(:name<2>, :scope<macro_arg>),
+    );
 }
 
 # Local Variables: