bc reversed the array index and value

Co-authored-by: Michael Mikonos <Michael.Mikonos@tpgtelecom.com.au>
briandfoy · Feb 12, 2023 · 35d0a7c · 35d0a7c
1 parent 38be0ba
commit 35d0a7c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/bin/bc b/bin/bc
@@ -1722,7 +1722,10 @@ $count++;
 
    } elsif($_ eq 'P') {
 
-     push(@ope_stack, $instr->[1].'[]'.(pop(@ope_stack)));
+	 my $value = pop @ope_stack;
+	 my $index = pop @ope_stack;
+	 push @ope_stack, $value;
+     push @ope_stack, $instr->[1] . '[]' . $index;
      next INSTR;
 
    } elsif($_ eq 'v') {