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