From 94aa14018d2d7c29de673b174121e78882c653f0 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 26 Oct 2007 08:13:24 +0000
Subject: [PATCH]   * compile fixed

git-svn-id: trunk@8944 -
---
 utils/fppkg/fppkg.pp       | 2 +-
 utils/fppkg/pkgcommands.pp | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/utils/fppkg/fppkg.pp b/utils/fppkg/fppkg.pp
index b264db99f3..08fb43816a 100644
--- a/utils/fppkg/fppkg.pp
+++ b/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
diff --git a/utils/fppkg/pkgcommands.pp b/utils/fppkg/pkgcommands.pp
index 4277edb657..1c449025a2 100644
--- a/utils/fppkg/pkgcommands.pp
+++ b/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;