[svn:parrot] r35845 - trunk/lib/Parrot/OpTrans

[email protected] Tue, 20 Jan 2009 15:48:33 -0800 (PST)

Newsgroups	perl.cvs.parrot
Message-ID	<[email protected]>

Author: chromatic
Date: Tue Jan 20 15:48:32 2009
New Revision: 35845

Modified:
   trunk/lib/Parrot/OpTrans/CSwitch.pm

Log:
[ops] Fixed switch core for dynoplibs too; don't hardcode an inappropriate
function name.  Quick hack--.

Modified: trunk/lib/Parrot/OpTrans/CSwitch.pm
==============================================================================
--- trunk/lib/Parrot/OpTrans/CSwitch.pm	(original)
+++ trunk/lib/Parrot/OpTrans/CSwitch.pm	Tue Jan 20 15:48:32 2009
@@ -144,7 +144,7 @@
 
     return <<END_C;
         if (!${bs}op_lib.op_func_table)
-            ${bs}op_lib.op_func_table = (op_func_t *)&core_switch_op_lib;
+            ${bs}op_lib.op_func_table = (op_func_t *)&${bs}op_lib;
 END_C
 }