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

codetools: extractproc: do not add const modifier when variable is modified in selection

Browse Source 
git-svn-id: trunk@40881 -
This commit is contained in:
mattias 2013-04-22 16:25:42 +00:00
parent e44460c6b1
commit 6183e3ca8e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/extractproctool.pas
View File

@ -605,7 +605,10 @@ var
DebugLn('TExtractProcTool.CreateProcParamList C ParamName="',ParamName,'" ParamType="',ParamTypeCode,'"'); DebugLn('TExtractProcTool.CreateProcParamList C ParamName="',ParamName,'" ParamType="',ParamTypeCode,'"');
{$ENDIF} {$ENDIF}
// ToDo: ParamSpecifier 'var ' and none // ToDo: ParamSpecifier 'var ' and none
ParamSpecifier:='const '; if ProcVar.WriteInSelection then
ParamSpecifier:=''
else
ParamSpecifier:='const ';
if ProcVar.ReadAfterSelection then if ProcVar.ReadAfterSelection then
ParamSpecifier:='var '; ParamSpecifier:='var ';
CompleteParamListCode:=CompleteParamListCode CompleteParamListCode:=CompleteParamListCode