fix emitter perl script

diff --git a/ir/be/scripts/generate_emitter.pl b/ir/be/scripts/generate_emitter.pl
index 445cb3d..0e32977 100755 (executable)
--- a/ir/be/scripts/generate_emitter.pl
+++ b/ir/be/scripts/generate_emitter.pl
@@ -9,8 +9,8 @@
 use strict;
 use Data::Dumper;
 
-my $specfile   = $ARGV[0];
-my $target_dir = $ARGV[1];
+our $specfile   = $ARGV[0];
+our $target_dir = $ARGV[1];
 
 our $arch;
 our $comment_string = "/*";

diff --git a/ir/be/scripts/generate_emitter_new.pl b/ir/be/scripts/generate_emitter_new.pl
index 0e210aa..e4c4516 100755 (executable)
--- a/ir/be/scripts/generate_emitter_new.pl
+++ b/ir/be/scripts/generate_emitter_new.pl
@@ -9,8 +9,8 @@
 use strict;
 use Data::Dumper;
 
-my $specfile   = $ARGV[0];
-my $target_dir = $ARGV[1];
+our $specfile;
+our $target_dir;
 
 our $arch;
 our $comment_string;