Jelajahi Sumber

* Remove unused KnownArchitectures tryout

Michael VAN CANNEYT 2 tahun lalu
induk
melakukan
54dd32805e
1 mengubah file dengan 0 tambahan dan 4 penghapusan
  1. 0 4
      utils/fpcm/fpcmmain.pp

+ 0 - 4
utils/fpcm/fpcmmain.pp

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