Kaynağa Gözat

Move hash of labels to global scope

Bee Hudson 4 ay önce
ebeveyn
işleme
44bfc312ca
1 değiştirilmiş dosya ile 2 ekleme ve 2 silme
  1. 2 2
      yaict.pl

+ 2 - 2
yaict.pl

@@ -8,6 +8,8 @@ my $VERSION = 0.01;
 
 # The array of intcodes making up the program
 my @program;
+# A hash of labels and their corresponding starting line number
+my %labels;
 # Opcodes that may be encounted and their corresponding ints
 my %opcodes = (
     "add"   => "01",
@@ -41,8 +43,6 @@ sub parseAssembly
 {
 
     my @assembly = @_;
-    # A hash of labels and their corresponding starting line number
-    my %labels;
     # The current instruction number
     my $instructionNumber = 0;