Lines Matching refs:pattern
59 ($pattern, $sign, $attrs) = $rest =~ m@(.*) ([US]) (.*)\*/@;
60 $pattern =~ s/ //g;
61 push(@pattern, $pattern);
65 printf "%4d $rel p=`$pattern' s=`$sign' a=`$attrs'\n", $#pattern;
128 $mask = $pattern[$i];
151 if (length($pattern[$i]) == 8) {
153 } elsif ($pattern[$i] =~ /-/ || length($pattern[$i]) == 16) {
158 print NEW " case R_MEP_$relocs[$i]: /* $pattern[$i] */\n";
178 for ($b=0; $b<length($pattern[$i]); $b += 8) {
179 $mask = substr($pattern[$i], $b, 8);
217 $pattern = shift @control;
233 if ($pattern =~ /^\&/) {
234 eval $pattern;
235 die("$pattern: $@") if $@;
238 printf (NEW "$pattern", $relocs[$i]) || die("$file.new write: $!");
239 $pattern =~ s/^ENUM\n/ENUMX\n/;