diff --git a/converter/missingpropertiesdlg.pas b/converter/missingpropertiesdlg.pas
index dc35fc6e54..e761304b68 100644
--- a/converter/missingpropertiesdlg.pas
+++ b/converter/missingpropertiesdlg.pas
@@ -189,7 +189,6 @@ end;
 function TDFMConverter.ConvertDfmToLfm(const aFilename: string): TModalResult;
 var
   DFMStream, LFMStream: TMemoryStream;
-  LFMBuffer: TCodeBuffer;
 begin
   Result:=mrOk;
   DFMStream:=TMemoryStream.Create;
diff --git a/ide/editdefinetree.pas b/ide/editdefinetree.pas
index d492d60e65..3c9e656de0 100644
--- a/ide/editdefinetree.pas
+++ b/ide/editdefinetree.pas
@@ -52,10 +52,6 @@ procedure DisableDefaultsInDirectories(DefTempl: TDefineTemplate; Recurse: boole
 // FPC sources
 function CreateFPCSourceTemplate(Config: TFPCUnitSetCache;
                                  Owner: TObject): TDefineTemplate; overload;
-function CreateFPCSourceTemplate(const FPCSrcDir, UnitSearchPath, PPUExt,
-                      DefaultTargetOS, DefaultProcessorName: string;
-                      UnitLinkListValid: boolean; var UnitLinkList: string;
-                      Owner: TObject): TDefineTemplate; overload;
 function CreateLazarusSourceTemplate(
                       const LazarusSrcDir, WidgetType, ExtraOptions: string;
                       Owner: TObject): TDefineTemplate;
@@ -132,17 +128,6 @@ begin
   DisableDefaultsInDirectories(Result,true);
 end;
 
-function CreateFPCSourceTemplate(const FPCSrcDir, UnitSearchPath, PPUExt,
-  DefaultTargetOS, DefaultProcessorName: string; UnitLinkListValid: boolean;
-  var UnitLinkList: string; Owner: TObject): TDefineTemplate;
-begin
-  Result:=CodeToolBoss.DefinePool.CreateFPCSrcTemplate(FPCSrcDir,
-                                        UnitSearchPath, PPUExt,
-                                        DefaultTargetOS, DefaultProcessorName,
-                                        UnitLinkListValid, UnitLinkList, Owner);
-  DisableDefaultsInDirectories(Result,true);
-end;
-
 function CreateLazarusSourceTemplate(const LazarusSrcDir, WidgetType,
   ExtraOptions: string; Owner: TObject): TDefineTemplate;
 begin