Преглед изворни кода

* compile fixed

git-svn-id: trunk@8944 -
peter пре 18 година
родитељ
комит
94aa14018d
2 измењених фајлова са 3 додато и 1 уклоњено
  1. 1 1
      utils/fppkg/fppkg.pp
  2. 2 0
      utils/fppkg/pkgcommands.pp

+ 1 - 1
utils/fppkg/fppkg.pp

@@ -121,7 +121,7 @@ begin
       if Options.CurrentCompilerConfig='default' then
         begin
           Log(vDebug,SLogGeneratingCompilerConfig,[S]);
-          Options.InitCompilerDefaults('');
+          Options.InitCompilerDefaults;
           Options.SaveCompilerToFile(S);
         end
       else

+ 2 - 0
utils/fppkg/pkgcommands.pp

@@ -77,9 +77,11 @@ type
 
 function TCommandAddConfig.Execute(const Args:TActionArgs):boolean;
 begin
+{
   Log(vInfo,SLogGeneratingCompilerConfig,[S]);
   Options.InitCompilerDefaults(Args[2]);
   Options.SaveCompilerToFile(S);
+}
   Result:=true;
 end;