sub getR()

in maxas/MaxAs/MaxAsGrammar.pm [80:92]

• 13 lines of code
• 4 McCabe index (conditional complexity)

sub getR
{
    my ($val, $pos) = @_;
    if ($val =~ m'^R(\d+|Z)$' && $1 < 255)
    {
        $val = $1 eq 'Z' ? 0xff : $1;
    }
    else
    {
        die "Bad register name found: $val\n";
    }
    return $val << $pos;
}