[svn:parrot] r38531 - branches/tt631_part2/lib/Parrot/Pmc2c

[bacek at svn.parrot.org]

Author: bacek
Date: Thu May  7 11:00:18 2009
New Revision: 38531
URL: https://trac.parrot.org/parrot/changeset/38531

Log:
Properly emit function signatures.

Modified:
   branches/tt631_part2/lib/Parrot/Pmc2c/PMCEmitter.pm

Modified: branches/tt631_part2/lib/Parrot/Pmc2c/PMCEmitter.pm
==============================================================================
--- branches/tt631_part2/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu May  7 11:00:03 2009	(r38530)
+++ branches/tt631_part2/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu May  7 11:00:18 2009	(r38531)
@@ -109,13 +109,14 @@
 sub generate_h_file {
     my ($self)  = @_;
     my $h       = $self->{emitter};
-    my $name    = uc $self->name;
+    my $uc_name = uc $self->name;
+    my $name    = $self->name;
 
     $h->emit( dont_edit( $self->filename ) );
     $h->emit(<<"EOH");
 
-#ifndef PARROT_PMC_${name}_H_GUARD
-#define PARROT_PMC_${name}_H_GUARD
+#ifndef PARROT_PMC_${uc_name}_H_GUARD
+#define PARROT_PMC_${uc_name}_H_GUARD
 
 EOH
 
@@ -136,7 +137,7 @@
     $self->gen_attributes;
     $h->emit(<<"EOH");
 
-#endif /* PARROT_PMC_${name}_H_GUARD */
+#endif /* PARROT_PMC_${uc_name}_H_GUARD */
 
 EOH
     $h->emit( c_code_coda() );