mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-14 04:20:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

ffi.c (ffi_prep_args_pa32): Load floating point arguments from stack slot.

Browse Source 
* pa/ffi.c (ffi_prep_args_pa32): Load floating point arguments from
	stack slot.

From-SVN: r113901
This commit is contained in:
John David Anglin 2006-05-19 01:20:22 +00:00 committed by John David Anglin
parent cc80bbd05f
commit 84e2e37098
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libffi/ChangeLog
View File

@ -1,3 +1,8 @@
2006-05-18 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
* pa/ffi.c (ffi_prep_args_pa32): Load floating point arguments from
stack slot.
2006-04-22 Andreas Tobler <a.tobler@schweiz.ch>
* README: Remove notice about 'Crazy Comments'.

12
libffi/src/pa/ffi.c
View File

@ -194,10 +194,10 @@ void ffi_prep_args_pa32(UINT32 *stack, extended_cif *ecif, unsigned bytes)
switch (slot - FIRST_ARG_SLOT)
{
/* First 4 args go in fr4L - fr7L. */
case 0: fldw(*p_argv, fr4); break;
case 1: fldw(*p_argv, fr5); break;
case 2: fldw(*p_argv, fr6); break;
case 3: fldw(*p_argv, fr7); break;
case 0: fldw(stack - slot, fr4); break;
case 1: fldw(stack - slot, fr5); break;
case 2: fldw(stack - slot, fr6); break;
case 3: fldw(stack - slot, fr7); break;
}
break;
@ -209,8 +209,8 @@ void ffi_prep_args_pa32(UINT32 *stack, extended_cif *ecif, unsigned bytes)
switch (slot - FIRST_ARG_SLOT)
{
/* First 2 args go in fr5, fr7. */
case 1: fldd(*p_argv, fr5); break;
case 3: fldd(*p_argv, fr7); break;
case 1: fldd(stack - slot, fr5); break;
case 3: fldd(stack - slot, fr7); break;
}
break;