paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 09:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't turn constref shortstring parameters into openstrings (they can't

Browse Source 
be changed just like const parameters, so there's no use for the hidden
    high parameter)

git-svn-id: trunk@21695 -
This commit is contained in:
Jonas Maebe 2012-06-24 15:02:03 +00:00
parent 325c60866f
commit adf66eed8b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecsub.pas
View File

@ -387,7 +387,7 @@ implementation
if is_shortstring(hdef) then if is_shortstring(hdef) then
begin begin
case varspez of case varspez of
vs_var,vs_out,vs_constref: vs_var,vs_out:
begin begin
{ not 100% Delphi-compatible: type xstr=string[255] cannot { not 100% Delphi-compatible: type xstr=string[255] cannot
become an openstring there, while here it can } become an openstring there, while here it can }