qemu/scripts/checkpatch.pl

2477 			my @elements = split(/($ops|;)/, $opline);
2482 			for (my $n = 0; $n < $#elements; $n += 2) {
2483 				$off += length($elements[$n]);
2488 				if (length($opline) >= ($off + length($elements[$n + 1]))) {
2489 					$cc = substr($opline, $off + length($elements[$n + 1]));
2494 				$a = 'V' if ($elements[$n] ne '');
2495 				$a = 'W' if ($elements[$n] =~ /\s$/);
2496 				$a = 'C' if ($elements[$n] =~ /$;$/);
2497 				$a = 'B' if ($elements[$n] =~ /(\[|\()$/);
2498 				$a = 'O' if ($elements[$n] eq '');
2501 				my $op = $elements[$n + 1];
2504 				if (defined $elements[$n + 2]) {
2505 					$c = 'V' if ($elements[$n + 2] ne '');
2506 					$c = 'W' if ($elements[$n + 2] =~ /^\s/);
2507 					$c = 'C' if ($elements[$n + 2] =~ /^$;/);
2508 					$c = 'B' if ($elements[$n + 2] =~ /^(\)|\]|;)/);
2509 					$c = 'O' if ($elements[$n + 2] eq '');
2510 					$c = 'E' if ($elements[$n + 2] =~ /^\s*\\$/);
2561                                             ($elements[$n] . $elements[$n + 2]) !~ " *}\\{") {
2643 				$off += length($elements[$n + 1]);