paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: Add cthreads only if not added already.

Browse Source 
git-svn-id: trunk@29162 -
This commit is contained in:
juha 2011-01-22 16:01:10 +00:00
parent 5c4d059729
commit ea6083c980
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
converter/usedunits.pas
View File

@ -634,9 +634,12 @@ function TUsedUnitsTool.AddThreadSupport: TModalResult;
// AddUnitToSpecificUsesSection would insert cthreads in the beginning automatically // AddUnitToSpecificUsesSection would insert cthreads in the beginning automatically
// It doesn't work with {$IFDEF UNIX} directive -> use UsesInsertPolicy. // It doesn't work with {$IFDEF UNIX} directive -> use UsesInsertPolicy.
var var
i: Integer;
OldPolicy: TUsesInsertPolicy; OldPolicy: TUsesInsertPolicy;
begin begin
Result:=mrCancel; Result:=mrCancel;
if not ( fMainUsedUnits.fExistingUnits.Find('cthreads', i) or
fImplUsedUnits.fExistingUnits.Find('cthreads', i) ) then
with fCTLink do with fCTLink do
try try
OldPolicy:=SrcCache.BeautifyCodeOptions.UsesInsertPolicy; OldPolicy:=SrcCache.BeautifyCodeOptions.UsesInsertPolicy;