paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 00:36:13 +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

21
converter/usedunits.pas
View File

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