diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2012-04-11 18:02:13 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2012-04-11 18:02:13 +0000 |
| commit | 4e17ba21825ad67ba663941732919f60574246f4 (patch) | |
| tree | ebc5a7bed78c3c15b476fa290f3ef87fa073e8e2 /compiler/paramgr.pas | |
| parent | 86637a61177afa91844d9fbd102b8bc5b127289d (diff) | |
| download | fpc-4e17ba21825ad67ba663941732919f60574246f4.tar.gz | |
* parameter passing support for AIX:
o the last bytes of records passed by value whose size is not a multiple
of the register size must be passed in the upper (leftmost) bytes of
a register
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@20804 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/paramgr.pas')
| -rw-r--r-- | compiler/paramgr.pas | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/paramgr.pas b/compiler/paramgr.pas index 13d149b641..d812df6753 100644 --- a/compiler/paramgr.pas +++ b/compiler/paramgr.pas @@ -366,6 +366,7 @@ implementation len:=tcgsize2size[paraloc^.size]; newparaloc:=cgpara.add_location; newparaloc^.size:=paraloc^.size; + newparaloc^.shiftval:=paraloc^.shiftval; { $warning maybe release this optimization for all targets? } { released for all CPUs: i386 isn't affected anyways because it uses the stack to push parameters |