From adf66eed8b329c1d81d8f328853f1ab5395b08f0 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 24 Jun 2012 15:02:03 +0000
Subject: [PATCH]   * don't turn constref shortstring parameters into
 openstrings (they can't     be changed just like const parameters, so there's
 no use for the hidden     high parameter)

git-svn-id: trunk@21695 -
---
 compiler/pdecsub.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index ad954a1b05..73ad84b958 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -387,7 +387,7 @@ implementation
                 if is_shortstring(hdef) then
                   begin
                     case varspez of
-                      vs_var,vs_out,vs_constref:
+                      vs_var,vs_out:
                         begin
                           { not 100% Delphi-compatible: type xstr=string[255] cannot
                             become an openstring there, while here it can }