From 6183e3ca8ef0ce7fa620b29b07033f51e31132c8 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 22 Apr 2013 16:25:42 +0000
Subject: [PATCH] codetools: extractproc: do not add const modifier when
 variable is modified in selection

git-svn-id: trunk@40881 -
---
 components/codetools/extractproctool.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/codetools/extractproctool.pas b/components/codetools/extractproctool.pas
index ffeeeab6b5..7e41cc6395 100644
--- a/components/codetools/extractproctool.pas
+++ b/components/codetools/extractproctool.pas
@@ -605,7 +605,10 @@ var
           DebugLn('TExtractProcTool.CreateProcParamList C ParamName="',ParamName,'" ParamType="',ParamTypeCode,'"');
           {$ENDIF}
           // ToDo: ParamSpecifier 'var ' and none
-          ParamSpecifier:='const ';
+          if ProcVar.WriteInSelection then
+            ParamSpecifier:=''
+          else
+            ParamSpecifier:='const ';
           if ProcVar.ReadAfterSelection then
             ParamSpecifier:='var ';
           CompleteParamListCode:=CompleteParamListCode