diff options
| author | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-08-27 19:07:22 +0000 |
|---|---|---|
| committer | joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-08-27 19:07:22 +0000 |
| commit | b55e0f4d790381e2029dcd8e91d9f3124f271e87 (patch) | |
| tree | a3f565adbfe529773d4bb10043ec55c0559ca60d /compiler/paramgr.pas | |
| parent | 6ceee2f18309a37f4823cabcc99c2765b199b35c (diff) | |
| download | fpc-b55e0f4d790381e2029dcd8e91d9f3124f271e87.tar.gz | |
* Safecall on linux/i386 now behaves like cdecl plus hidden exception support.
* Adapted tests because safecall on linux/i386 now does not include high()
support anymore
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15913 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/paramgr.pas')
| -rw-r--r-- | compiler/paramgr.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/paramgr.pas b/compiler/paramgr.pas index e9012016ca..d83718789c 100644 --- a/compiler/paramgr.pas +++ b/compiler/paramgr.pas @@ -163,7 +163,7 @@ implementation function tparamanager.push_high_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean; begin - push_high_param:=not(calloption in [pocall_cdecl,pocall_cppdecl]) and + push_high_param:=not(calloption in cdecl_pocalls) and ( is_open_array(def) or is_open_string(def) or |