paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove unused KnownArchitectures tryout

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2022-12-15 12:16:47 +01:00 committed by Michaël Van Canneyt
parent b9aeeaa6e3
commit 54dd32805e
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/fpcm/fpcmmain.pp
View File

@ -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;