Changeset 21649 for misc

Timestamp:

07/31/08 13:37:46 (5 months ago)

Author:

pmurias

Message:

[smop] subs work when called for the first time

Location:

misc/elfish/elfX

Files:

• EmitSM0P.pm (modified) (1 diff)
• elfX (modified) (1 diff)

misc/elfish/elfX/EmitSM0P.pm

@@ -86 +86 @@
   }
   method cb__Block ($n,$label) {
-      $label ~ ": " ~ "{\n"~ $.e($n.statements).join('') ~ "};\n"
+      $label ~ ": " ~ "{\n;\n"~ $.e($n.statements).join('') ~ "};\n"
   }
   method cb__SubDecl ($n,$label) {

misc/elfish/elfX/elfX

@@ -3590 +3590 @@
 sub cb__Block{my $self=CORE::shift;my($n,$label)=@_;
 (do{(((($label . "\:\ ") . "\{\
+\;\
 ") . $self->e($n->statements())->join("")) . "\}\;\
 ")})};