paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 11:18:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation with FPC 3.0.4.

Browse Source 
git-svn-id: trunk@64498 -
This commit is contained in:
juha 2021-02-05 20:07:12 +00:00
parent 6079f10973
commit 4733d3b7a1
16 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/finddeclarationtool.pas
View File

@ -1575,7 +1575,7 @@ begin
inherited;
FResults := TStringList.Create;
FResults.CaseSensitive := True; // Why CaseSensitive?
FResults.UseLocale := False;
{$IF FPC_FULLVERSION>=30200}FResults.UseLocale := False;{$ENDIF}
FResults.Duplicates := dupIgnore;
FResults.Sorted := True;
end;

2
components/ideintf/changeparentdlg.pas
View File

@ -231,7 +231,7 @@ var
begin
ControlsCount := 0;
CurParentNameList := TStringList.Create;
CurParentNameList.UseLocale := False;
{$IF FPC_FULLVERSION>=30200}CurParentNameList.UseLocale := False;{$ENDIF}
for i:=0 to ASelection.Count-1 do
if ASelection.Items[i] is TControl then

4
components/ideintf/componentreg.pas
View File

@ -802,12 +802,12 @@ begin
fComponentCache:=TAVLTree.Create(@CompareIDEComponentByClass);
fOrigComponentPageCache:=TStringList.Create;
fOrigComponentPageCache.OwnsObjects:=True;
fOrigComponentPageCache.UseLocale:=False;
{$IF FPC_FULLVERSION>=30200}fOrigComponentPageCache.UseLocale:=False;{$ENDIF}
fOrigComponentPageCache.CaseSensitive:=True;
fOrigComponentPageCache.Sorted:=True;
fUserComponentPageCache:=TStringList.Create;
fUserComponentPageCache.OwnsObjects:=True;
fUserComponentPageCache.UseLocale:=False;
{$IF FPC_FULLVERSION>=30200}fUserComponentPageCache.UseLocale:=False;{$ENDIF}
fUserComponentPageCache.CaseSensitive:=True;
fUserComponentPageCache.Sorted:=True;
fOrigPageHelper:=TStringListUTF8Fast.Create; // Note: CaseSensitive = False

2
components/ideintf/frmselectprops.pas
View File

@ -141,7 +141,7 @@ var
begin
//debugln('TSelectPropertiesForm.SetSelectedProps');
L:=TStringList.Create;
L.UseLocale:=False;
{$IF FPC_FULLVERSION>=30200}L.UseLocale:=False;{$ENDIF}
Try
L.Delimiter:=';';
L.DelimitedText:=AValue;

2
components/ideintf/propedits.pp
View File

@ -2735,7 +2735,7 @@ var
begin
if not AutoFill then Exit;
Values:=TStringList.Create;
Values.UseLocale := False;
{$IF FPC_FULLVERSION>=30200}Values.UseLocale := False;{$ENDIF}
Values.Sorted:=paSortList in GetAttributes;
try
AddValue := @Values.Add;

4
components/jcf2/Parse/AsmKeywords.pas
View File

@ -52,8 +52,8 @@ begin
...
}
mcWords := TStringList.Create();
mcWords.UseLocale := False; // Will compare with CompareText.
mcWords := TStringList.Create(); // Will compare with CompareText.
{$IF FPC_FULLVERSION>=30200}mcWords.UseLocale := False;{$ENDIF}
mcWords.Add('RAX');
mcWords.Add('EAX');

4
components/jcf2/Parse/PreProcessor/PreProcessorParseTree.pas
View File

@ -160,8 +160,8 @@ begin
fiCurrentTokenIndex := 0;
fcDefinedSymbols := TStringList.Create;
fcDefinedSymbols.UseLocale := False; // Will compare with CompareText.
fcDefinedSymbols := TStringList.Create; // Will compare with CompareText.
{$IF FPC_FULLVERSION>=30200}fcDefinedSymbols.UseLocale := False;{$ENDIF}
fcDefinedSymbols.Sorted := True;
fcDefinedSymbols.Duplicates := dupIgnore;

6
components/jcf2/Settings/JcfRegistrySettings.pas
View File

@ -279,10 +279,10 @@ begin
// New registry location
fcReg := TRegIniFile.Create(REG_ROOT_KEY);
fcExclusionsFiles := TStringList.Create;
fcExclusionsFiles.UseLocale := False; // Will compare with CompareText.
fcExclusionsFiles := TStringList.Create; // Will compare with CompareText.
{$IF FPC_FULLVERSION>=30200}fcExclusionsFiles.UseLocale := False;{$ENDIF}
fcExclusionsDirs := TStringList.Create;
fcExclusionsDirs.UseLocale := False;
{$IF FPC_FULLVERSION>=30200}fcExclusionsDirs.UseLocale := False;{$ENDIF}
end;
destructor TJCFRegistrySettings.Destroy;

4
components/jcf2/Settings/SetAnyWordCaps.pas
View File

@ -133,8 +133,8 @@ begin
inherited;
SetSection('SpecificWordCaps');
fcWords := TStringList.Create;
fcWords.UseLocale := False; // Will compare with CompareText.
fcWords := TStringList.Create; // Will compare with CompareText.
{$IF FPC_FULLVERSION>=30200}fcWords.UseLocale := False;{$ENDIF}
fcWords.Duplicates := dupIgnore;
end;

6
components/jcf2/Settings/SetClarify.pas
View File

@ -88,12 +88,12 @@ begin
inherited;
SetSection('Clarify');
fcIgnoreUnusedParams := TStringList.Create;
fcIgnoreUnusedParams.UseLocale := False; // Will compare with CompareText.
fcIgnoreUnusedParams := TStringList.Create; // Will compare with CompareText.
{$IF FPC_FULLVERSION>=30200}fcIgnoreUnusedParams.UseLocale := False;{$ENDIF}
fcIgnoreUnusedParams.Duplicates := dupIgnore;
fcFileExtensions := TStringList.Create;
fcFileExtensions.UseLocale := False;
{$IF FPC_FULLVERSION>=30200}fcFileExtensions.UseLocale := False;{$ENDIF}
fcFileExtensions.Duplicates := dupIgnore;
end;

6
components/jcf2/Settings/SetPreProcessor.pas
View File

@ -77,13 +77,13 @@ begin
inherited;
SetSection('PreProcessor');
fcDefinedSymbols := TStringList.Create;
fcDefinedSymbols.UseLocale := False; // Will compare with CompareText.
fcDefinedSymbols := TStringList.Create; // Will compare with CompareText.
{$IF FPC_FULLVERSION>=30200}fcDefinedSymbols.UseLocale := False;{$ENDIF}
//fcDefinedSymbols.Sorted := True;
fcDefinedSymbols.Duplicates := dupIgnore;
fcDefinedOptions := TStringList.Create;
fcDefinedOptions.UseLocale := False;
{$IF FPC_FULLVERSION>=30200}fcDefinedOptions.UseLocale := False;{$ENDIF}
//fcDefinedOptions.Sorted := True;
fcDefinedOptions.Duplicates := dupIgnore;
end;

6
components/jcf2/Settings/SetReplace.pas
View File

@ -84,10 +84,10 @@ begin
SetSection('Replace');
fcWords := TStringList.Create;
fcLeftWords := TStringList.Create;
fcLeftWords.UseLocale := False; // Will compare with CompareText.
fcLeftWords := TStringList.Create; // Will compare with CompareText.
{$IF FPC_FULLVERSION>=30200}fcLeftWords.UseLocale := False;{$ENDIF}
fcRightWords := TStringList.Create;
fcRightWords.UseLocale := False;
{$IF FPC_FULLVERSION>=30200}fcRightWords.UseLocale := False;{$ENDIF}
end;
destructor TSetReplace.Destroy;

4
components/jcf2/Settings/SetWordList.pas
View File

@ -83,8 +83,8 @@ begin
SetSection(psSectionName);
fcWords := TStringList.Create;
fcWords.UseLocale := False; // Will compare with CompareText.
fcWords := TStringList.Create; // Will compare with CompareText.
{$IF FPC_FULLVERSION>=30200}fcWords.UseLocale := False;{$ENDIF}
fcWords.Sorted := True;
fcWords.Duplicates := dupIgnore;
end;

4
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -8135,12 +8135,12 @@ end;
constructor TGDBMILineInfo.Create(const ADebugger: TDebuggerIntf);
begin
FSourceIndex := TStringList.Create;
FSourceIndex.UseLocale := False;
{$IF FPC_FULLVERSION>=30200}FSourceIndex.UseLocale := False;{$ENDIF}
FSourceIndex.Sorted := True;
FSourceIndex.Duplicates := dupError;
FSourceIndex.CaseSensitive := True;
FRequestedSources := TStringList.Create;
FRequestedSources.UseLocale := False;
{$IF FPC_FULLVERSION>=30200}FRequestedSources.UseLocale := False;{$ENDIF}
FRequestedSources.Sorted := True;
FRequestedSources.Duplicates := dupError;
FRequestedSources.CaseSensitive := True;

2
components/synedit/synhighlighterany.pas
View File

@ -1139,7 +1139,7 @@ begin
else
HL.StringDelim:=sdSingleQuote;
genlist:=TStringList.create;
genlist.UseLocale:=false;
{$IF FPC_FULLVERSION>=30200}genlist.UseLocale:=false;{$ENDIF}
// read keywords
hini.ReadSectionNames('Keywords',genlist);
if genlist.count>0 then

2
components/synedit/synhighlighterpas.pp
View File

@ -4514,7 +4514,7 @@ var
begin
if KeywordsList = nil then begin
KeywordsList := TStringList.Create;
KeywordsList.UseLocale := false;
{$IF FPC_FULLVERSION>=30200}KeywordsList.UseLocale := false;{$ENDIF}
KeywordsList.CaseSensitive := true;
for i := 1 to High(RESERVED_WORDS_TP) do
KeywordsList.AddObject(RESERVED_WORDS_TP[i], TObject(pcmTP));