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

Converter fix: Disabling a function replacement category was not respected.

Browse Source 
git-svn-id: trunk@30020 -
This commit is contained in:
juha 2011-03-26 18:32:04 +00:00
parent ba4cb08aec
commit 8b7d161446
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converter/convcodetool.pas
View File

@ -576,7 +576,11 @@ var
then begin
FuncDefInfo:=ReplaceFuncs.FuncAtInd(i);
if ReplaceFuncs.Categories.Find(FuncDefInfo.Category, x)
// Categories.Objects[x] is used as a boolean flag.
and Assigned(ReplaceFuncs.Categories.Objects[x])
// UTF8 funcs are in LCL which console apps don't have -> don't change.
and not (aIsConsoleApp and (FuncDefInfo.Category='UTF8Names'))
// Keep Windows funcs in a Windows application.
and (fCTLink.Settings.MultiPlatform or (FuncDefInfo.Category<>'WindowsAPI'))
then begin
// Create a new replacement object for params, position and other info.