* 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

@@ -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 }