浏览代码

* Remove unused KnownArchitectures tryout

Michael VAN CANNEYT 2 年之前
父节点
当前提交
34f11a7a14
共有 1 个文件被更改,包括 0 次插入4 次删除
  1. 0 4
      utils/fpcm/fpcmmain.pp

+ 0 - 4
utils/fpcm/fpcmmain.pp

@@ -213,7 +213,6 @@ interface
 
 
       TFPCMake = class
       TFPCMake = class
       private
       private
-        FKnownArchitectures: TStrings;
         FStream         : TStream;
         FStream         : TStream;
         FFileName       : string;
         FFileName       : string;
         FCommentChars   : TSysCharSet;
         FCommentChars   : TSysCharSet;
@@ -273,7 +272,6 @@ interface
         property CommentChars:TSysCharSet read FCommentChars write FCommentChars;
         property CommentChars:TSysCharSet read FCommentChars write FCommentChars;
         property EmptyLines:Boolean read FEmptyLines write FEmptyLines;
         property EmptyLines:Boolean read FEmptyLines write FEmptyLines;
         property IncludeTargets:TTargetSet read FIncludeTargets write FIncludeTargets;
         property IncludeTargets:TTargetSet read FIncludeTargets write FIncludeTargets;
-        Property KnownArchitectures : TStrings Read FKnownArchitectures;
       end;
       end;
 
 
     function posidx(const substr,s : string;idx:integer):integer;
     function posidx(const substr,s : string;idx:integer):integer;
@@ -653,7 +651,6 @@ implementation
         for c:=low(tcpu) to high(tcpu) do
         for c:=low(tcpu) to high(tcpu) do
          for t:=low(tos) to high(tos) do
          for t:=low(tos) to high(tos) do
           FRequireList[c,t]:=TStringList.Create;
           FRequireList[c,t]:=TStringList.Create;
-        FKnownArchitectures:=TStringList.Create;
         FVariables:=TKeyValue.Create;
         FVariables:=TKeyValue.Create;
         FCommentChars:=[';','#'];
         FCommentChars:=[';','#'];
         FEmptyLines:=false;
         FEmptyLines:=false;
@@ -677,7 +674,6 @@ implementation
         for c:=low(tcpu) to high(tcpu) do
         for c:=low(tcpu) to high(tcpu) do
          for t:=low(tos) to high(tos) do
          for t:=low(tos) to high(tos) do
           FRequireList[c,t].Free;
           FRequireList[c,t].Free;
-        FKnownArchitectures.Free;
         FVariables.Free;
         FVariables.Free;
       end;
       end;