Selaa lähdekoodia

* Fix compiler warnings: switch to TStrings for external command options

Michael VAN CANNEYT 2 vuotta sitten
vanhempi
commit
4b5c7ab0f5
2 muutettua tiedostoa jossa 341 lisäystä ja 157 poistoa
  1. 325 152
      packages/fpmkunit/src/fpmkunit.pp
  2. 16 5
      packages/gdbint/fpmake.pp

Tiedoston diff-näkymää rajattu, sillä se on liian suuri
+ 325 - 152
packages/fpmkunit/src/fpmkunit.pp


+ 16 - 5
packages/gdbint/fpmake.pp

@@ -14,9 +14,11 @@ procedure BeforeCompile_gdbint(Sender: TObject);
 var
   L : TStrings;
   P : TPackage;
-  GdbLibDir, GdbLibFile: string;
+  Cmd,GdbLibDir, GdbLibFile: string;
   GdbLibFound: boolean;
   GdbintTarget, GdbVerTarget: TTarget;
+  Opts : TStrings;
+
 begin
   P := Sender as TPackage;
   // Search for a libgdb file.
@@ -90,10 +92,19 @@ begin
       Installer.BuildEngine.CreateOutputDir(p);
       Installer.BuildEngine.Log(vlCommand,'GDB-lib found, compiling and running gdbver to obtain GDB-version');
       Installer.BuildEngine.Compile(P,GdbVerTarget);
-      Installer.BuildEngine.ExecuteCommand(Installer.BuildEngine.AddPathPrefix(p,p.
-        GetBinOutputDir(Defaults.CPU, Defaults.OS))+PathDelim+
-        AddProgramExtension('gdbver',Defaults.BuildOS),'-o ' +
-        Installer.BuildEngine.AddPathPrefix(p,'src'+PathDelim+'gdbver.inc'));
+      Cmd:=Installer.BuildEngine.AddPathPrefix(p,
+            p.GetBinOutputDir(Defaults.CPU, Defaults.OS))+
+            PathDelim+
+            AddProgramExtension('gdbver',Defaults.BuildOS);
+      Opts:=TStringList.Create;
+      try
+        Opts.Add('-o');
+        Opts.Add(Installer.BuildEngine.AddPathPrefix(p,'src'+PathDelim+'gdbver.inc'));
+        Installer.BuildEngine.ExecuteCommand(Cmd,Opts);
+      finally
+        opts.Free;
+      end;
+
 
       with GdbintTarget.Dependencies do
         AddInclude('gdbver.inc');

Kaikkia tiedostoja ei voida näyttää, sillä liian monta tiedostoa muuttui tässä diffissä