develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
chromatic
Date:
January 20, 2009 15:48
Subject:
[svn:parrot] r35845 - trunk/lib/Parrot/OpTrans
Message ID:
20090120234833.6D668CB9AE@x12.develooper.com
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
 }
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About