insns.pl: fix regex subgroup of /is4= codes

The argument is now $1, not $2...

1 files changed, 1 insertions, 1 deletions

diff --git a/insns.pl b/insns.pl
index fdeeaa5..713a416 100644
--- a/insns.pl
+++ b/insns.pl
@@ -681,7 +681,7 @@ sub byte_code_compile($) {
 	    push(@codes, 0172, ($oppos{'s'} << 3)+$oppos{'i'});
 	    $prefix_ok = 0;
 	} elsif ($op =~ /^\/is4\=([0-9]+)$/) {
-	    my $imm = $2;
+	    my $imm = $1;
 	    if (!defined($oppos{'s'})) {
 		die "$0: $line: $op without 's' operand\n";
 	    }