git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ffi.c (ffi_closure_inner_pa32): Handle FFI_TYPE_LONGDOUBLE type on HP-UX. 

* src/pa/ffi.c (ffi_closure_inner_pa32): Handle FFI_TYPE_LONGDOUBLE
	type on HP-UX.

From-SVN: r155205
This commit is contained in:
John David Anglin 2009-12-14 02:42:18 +00:00 committed by John David Anglin
parent f610bc0aa1
commit f93a40eaa3
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libffi/ChangeLog
View File

@ -1,3 +1,8 @@
2009-12-13 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
* src/pa/ffi.c (ffi_closure_inner_pa32): Handle FFI_TYPE_LONGDOUBLE
type on HP-UX.
2009-12-11 Eric Botcazou <ebotcazou@adacore.com> 2009-12-11 Eric Botcazou <ebotcazou@adacore.com>
* src/sparc/ffi.c (ffi_closure_sparc_inner_v9): Properly align 'long * src/sparc/ffi.c (ffi_closure_sparc_inner_v9): Properly align 'long

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

@ -492,6 +492,13 @@ ffi_status ffi_closure_inner_pa32(ffi_closure *closure, UINT32 *stack)
avalue[i] = (void *)(stack - slot); avalue[i] = (void *)(stack - slot);
break; break;
#ifdef PA_HPUX
case FFI_TYPE_LONGDOUBLE:
/* Long doubles are treated like a big structure. */
avalue[i] = (void *) *(stack - slot);
break;
#endif
case FFI_TYPE_STRUCT: case FFI_TYPE_STRUCT:
/* Structs smaller or equal than 4 bytes are passed in one /* Structs smaller or equal than 4 bytes are passed in one
register. Structs smaller or equal 8 bytes are passed in two register. Structs smaller or equal 8 bytes are passed in two