[svn:parrot] r38538 - trunk/lib/Parrot/Pmc2c

[Infinoid at svn.parrot.org]

Author: Infinoid
Date: Thu May  7 16:11:06 2009
New Revision: 38538
URL: https://trac.parrot.org/parrot/changeset/38538

Log:
[pmc2c] Fix more warnings caused by tt631_part2 branch merge.
Similar to r38537, emit a class_init prototype for dynpmcs.  This fixes warnings like:
digest_group.c:75: warning: implicit declaration of function 'Parrot_MD2_class_init'

Modified:
   trunk/lib/Parrot/Pmc2c/PMCEmitter.pm

Modified: trunk/lib/Parrot/Pmc2c/PMCEmitter.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu May  7 15:36:21 2009	(r38537)
+++ trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu May  7 16:11:06 2009	(r38538)
@@ -123,7 +123,11 @@
     $h->emit("#define PARROT_IN_EXTENSION\n") if ( $self->is_dynamic );
 
     # Emit available functions for work with vtables.
-    my $export = $self->is_dynamic ? 'PARROT_DYNEXT_EXPORT ' : 'PARROT_EXPORT ';
+    my $export = 'PARROT_EXPORT ';
+    if ($self->is_dynamic) {
+        $export = 'PARROT_DYNEXT_EXPORT ';
+        $h->emit("${export}void    Parrot_${name}_class_init(PARROT_INTERP, int, int);\n");
+    }
 
     $h->emit("${export}VTABLE* Parrot_${name}_update_vtable(VTABLE*);\n");
     $h->emit("${export}VTABLE* Parrot_${name}_ro_update_vtable(VTABLE*);\n");