diff options
author | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-09-19 13:04:07 +0000 |
---|---|---|
committer | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-09-19 13:04:07 +0000 |
commit | 2f69018418044f2b4c26d459e46029410f286d27 (patch) | |
tree | c3cbf79119513464a8e8a81d1bca8ec915df552e /compiler/objcutil.pas | |
parent | cdccef6a371bb527b8536504cc1cb51c24ce54de (diff) | |
download | fpc-2f69018418044f2b4c26d459e46029410f286d27.tar.gz |
* Implemented constref support, to force constant function-parameters to be
passed by reference
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/xpcom@16008 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/objcutil.pas')
-rw-r--r-- | compiler/objcutil.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/objcutil.pas b/compiler/objcutil.pas index 2c84599aae..ed34cdd55d 100644 --- a/compiler/objcutil.pas +++ b/compiler/objcutil.pas @@ -229,7 +229,7 @@ end; { addencodedtype always assumes a value parameter, so add a pointer indirection for var/out parameters. } if not paramanager.push_addr_param(vs_value,vs.vardef,pocall_cdecl) and - (vs.varspez in [vs_var,vs_out]) then + (vs.varspez in [vs_var,vs_out,vs_constref]) then result:=result+'^'; { Add the parameter type. } if not addencodedtype(vs.vardef,ris_initial,false,result,founderror) then |