Browse Source

* Refactor: Rename some variables for clarity

Michael VAN CANNEYT 2 years ago
parent
commit
a52b3522dc
1 changed files with 7 additions and 7 deletions
  1. 7 7
      compiler/utils/fpc.pp

+ 7 - 7
compiler/utils/fpc.pp

@@ -250,10 +250,10 @@ program fpc;
   var
   var
      s              : ansistring;
      s              : ansistring;
      cpusuffix,
      cpusuffix,
-     processorname,
+     SourceCPU,
      ppcbin,
      ppcbin,
      versionStr,
      versionStr,
-     processorstr   : string;
+     TargetCPU   : string;
      ppccommandline : array of ansistring;
      ppccommandline : array of ansistring;
      ppccommandlinelen : longint;
      ppccommandlinelen : longint;
      i : longint;
      i : longint;
@@ -265,7 +265,7 @@ program fpc;
                                 // compiler.
                                 // compiler.
      extrapath     :='';
      extrapath     :='';
      versionstr:='';                      { Default is just the name }
      versionstr:='';                      { Default is just the name }
-     initplatform(ppcbin,processorname);
+     initplatform(ppcbin,SourceCPU);
      if ParamCount = 0 then
      if ParamCount = 0 then
        begin
        begin
          SetLength (PPCCommandLine, 1);
          SetLength (PPCCommandLine, 1);
@@ -282,11 +282,11 @@ program fpc;
             begin
             begin
               if pos('-P',s)=1 then
               if pos('-P',s)=1 then
                  begin
                  begin
-                   processorstr:=copy(s,3,length(s)-2);
-                   CheckSpecialProcessors(processorstr,processorname,ppcbin,cpusuffix,versionstr);
-                   if processorstr <> processorname then
+                   TargetCPU:=copy(s,3,length(s)-2);
+                   CheckSpecialProcessors(TargetCPU,SourceCPU,ppcbin,cpusuffix,versionstr);
+                   if TargetCPU <> SourceCPU then
                      begin
                      begin
-                       cpusuffix:=processortosuffix(processorstr);
+                       cpusuffix:=processortosuffix(TargetCPU);
 
 
 {$ifndef darwin}
 {$ifndef darwin}
                        ppcbin:='ppcross'+cpusuffix;
                        ppcbin:='ppcross'+cpusuffix;