scripts/recordmcount.pl: Make indent spacing consistent
authorSteven Rostedt (VMware) <rostedt@goodmis.org>
Mon, 22 Mar 2021 21:45:22 +0000 (17:45 -0400)
committerSteven Rostedt (VMware) <rostedt@goodmis.org>
Mon, 22 Mar 2021 21:50:42 +0000 (17:50 -0400)
Emacs by default will have perl files have 4 space indents, where 8 spaces
are represented with a single tab. There are some places in
recordmcount.pl that has 8 spaces where a tab should be used. Replace them
to make the file consistent.

No functional changes.

Cc: "John (Warthog9) Hawley" <warthog9@kernel.org>
Signed-off-by: Steven Rostedt (VMware) <rostedt@goodmis.org>
scripts/recordmcount.pl

index 867860e..5652da5 100755 (executable)
@@ -266,9 +266,9 @@ if ($arch eq "x86_64") {
     # force flags for this arch
     $ld .= " -m shlelf_linux";
     if ($endian eq "big") {
-        $objcopy .= " -O elf32-shbig-linux";
+       $objcopy .= " -O elf32-shbig-linux";
     } else {
-        $objcopy .= " -O elf32-sh-linux";
+       $objcopy .= " -O elf32-sh-linux";
     }
 
 } elsif ($arch eq "powerpc") {
@@ -289,12 +289,12 @@ if ($arch eq "x86_64") {
            $ldemulation = "lppc"
     }
     if ($bits == 64) {
-        $type = ".quad";
-        $cc .= " -m64 ";
-        $ld .= " -m elf64".$ldemulation." ";
+       $type = ".quad";
+       $cc .= " -m64 ";
+       $ld .= " -m elf64".$ldemulation." ";
     } else {
-        $cc .= " -m32 ";
-        $ld .= " -m elf32".$ldemulation." ";
+       $cc .= " -m32 ";
+       $ld .= " -m elf32".$ldemulation." ";
     }
 
 } elsif ($arch eq "arm") {
@@ -313,7 +313,7 @@ if ($arch eq "x86_64") {
     $type = "data8";
 
     if ($is_module eq "0") {
-        $cc .= " -mconstant-gp";
+       $cc .= " -mconstant-gp";
     }
 } elsif ($arch eq "sparc64") {
     # In the objdump output there are giblets like:
@@ -530,10 +530,10 @@ while (<IN>) {
        $read_function = defined($text_sections{$1});
        if (!$read_function) {
            foreach my $prefix (keys %text_section_prefixes) {
-               if (substr($1, 0, length $prefix) eq $prefix) {
-                   $read_function = 1;
-                   last;
-               }
+               if (substr($1, 0, length $prefix) eq $prefix) {
+                   $read_function = 1;
+                   last;
+               }
            }
        }
        # print out any recorded offsets