2009-05-22 Dave Korn <dave.korn.cygwin@gmail.com>
* src/x86/win32.S (_ffi_closure_STDCALL): New function.
(.eh_frame): Add FDE for it.
2009-05-22 Dave Korn <dave.korn.cygwin@gmail.com>
* configure.ac: Also check if assembler supports pc-relative
relocs on X86_WIN32 targets.
* configure: Regenerate.
* src/x86/win32.S (ffi_prep_args): Declare extern, not global.
(_ffi_call_SYSV): Add missing function type symbol .def and
add EH markup labels.
(_ffi_call_STDCALL): Likewise.
(_ffi_closure_SYSV): Likewise.
(_ffi_closure_raw_SYSV): Likewise.
(.eh_frame): Add hand-crafted EH data.
2008-11-21 Eric Botcazou <ebotcazou@adacore.com>
* src/sparc/ffi.c (ffi_prep_cif_machdep): Add support for
signed/unsigned int8/16 return values.
* src/sparc/v8.S (ffi_call_v8): Likewise.
(ffi_closure_v8): Likewise.
2008-03-26 Kaz Kojima <kkojima@gcc.gnu.org>
* src/sh/sysv.S: Add .note.GNU-stack on Linux.
* src/sh64/sysv.S: Likewise.
2008-03-26 Daniel Jacobowitz <dan@debian.org>
* src/arm/sysv.S: Fix ARM comment marker.
This commit is contained in:
@@ -1,3 +1,21 @@
|
|||||||
|
2009-05-22 Dave Korn <dave.korn.cygwin@gmail.com>
|
||||||
|
|
||||||
|
* src/x86/win32.S (_ffi_closure_STDCALL): New function.
|
||||||
|
(.eh_frame): Add FDE for it.
|
||||||
|
|
||||||
|
2009-05-22 Dave Korn <dave.korn.cygwin@gmail.com>
|
||||||
|
|
||||||
|
* configure.ac: Also check if assembler supports pc-relative
|
||||||
|
relocs on X86_WIN32 targets.
|
||||||
|
* configure: Regenerate.
|
||||||
|
* src/x86/win32.S (ffi_prep_args): Declare extern, not global.
|
||||||
|
(_ffi_call_SYSV): Add missing function type symbol .def and
|
||||||
|
add EH markup labels.
|
||||||
|
(_ffi_call_STDCALL): Likewise.
|
||||||
|
(_ffi_closure_SYSV): Likewise.
|
||||||
|
(_ffi_closure_raw_SYSV): Likewise.
|
||||||
|
(.eh_frame): Add hand-crafted EH data.
|
||||||
|
|
||||||
2008-12-18 Rainer Orth <ro@TechFak.Uni-Bielefeld.DE>
|
2008-12-18 Rainer Orth <ro@TechFak.Uni-Bielefeld.DE>
|
||||||
|
|
||||||
PR libffi/26048
|
PR libffi/26048
|
||||||
@@ -12,6 +30,68 @@
|
|||||||
(.Lload_table): Likewise.
|
(.Lload_table): Likewise.
|
||||||
(.eh_frame): Only use SYMBOL-. iff HAVE_AS_X86_PCREL.
|
(.eh_frame): Only use SYMBOL-. iff HAVE_AS_X86_PCREL.
|
||||||
|
|
||||||
|
2008-11-21 Eric Botcazou <ebotcazou@adacore.com>
|
||||||
|
|
||||||
|
* src/sparc/ffi.c (ffi_prep_cif_machdep): Add support for
|
||||||
|
signed/unsigned int8/16 return values.
|
||||||
|
* src/sparc/v8.S (ffi_call_v8): Likewise.
|
||||||
|
(ffi_closure_v8): Likewise.
|
||||||
|
|
||||||
|
2008-08-25 Andreas Tobler <a.tobler@schweiz.org>
|
||||||
|
|
||||||
|
* src/powerpc/ffitarget.h (ffi_abi): Add FFI_LINUX and
|
||||||
|
FFI_LINUX_SOFT_FLOAT to the POWERPC_FREEBSD enum.
|
||||||
|
Add note about flag bits used for FFI_SYSV_TYPE_SMALL_STRUCT.
|
||||||
|
Adjust copyright notice.
|
||||||
|
* src/powerpc/ffi.c: Add two new flags to indicate if we have one
|
||||||
|
register or two register to use for FFI_SYSV structs.
|
||||||
|
(ffi_prep_cif_machdep): Pass the right register flag introduced above.
|
||||||
|
(ffi_closure_helper_SYSV): Fix the return type for
|
||||||
|
FFI_SYSV_TYPE_SMALL_STRUCT. Comment.
|
||||||
|
Adjust copyright notice.
|
||||||
|
|
||||||
|
2008-07-16 Kaz Kojima <kkojima@gcc.gnu.org>
|
||||||
|
|
||||||
|
* src/sh/ffi.c (ffi_prep_closure_loc): Turn INSN into an unsigned
|
||||||
|
int.
|
||||||
|
|
||||||
|
2008-03-26 Kaz Kojima <kkojima@gcc.gnu.org>
|
||||||
|
|
||||||
|
* src/sh/sysv.S: Add .note.GNU-stack on Linux.
|
||||||
|
* src/sh64/sysv.S: Likewise.
|
||||||
|
|
||||||
|
2008-03-26 Daniel Jacobowitz <dan@debian.org>
|
||||||
|
|
||||||
|
* src/arm/sysv.S: Fix ARM comment marker.
|
||||||
|
|
||||||
|
2008-03-26 Jakub Jelinek <jakub@redhat.com>
|
||||||
|
|
||||||
|
* src/alpha/osf.S: Add .note.GNU-stack on Linux.
|
||||||
|
* src/s390/sysv.S: Likewise.
|
||||||
|
* src/powerpc/ppc_closure.S: Likewise.
|
||||||
|
* src/powerpc/sysv.S: Likewise.
|
||||||
|
* src/x86/unix64.S: Likewise.
|
||||||
|
* src/x86/sysv.S: Likewise.
|
||||||
|
* src/sparc/v8.S: Likewise.
|
||||||
|
* src/sparc/v9.S: Likewise.
|
||||||
|
* src/m68k/sysv.S: Likewise.
|
||||||
|
* src/arm/sysv.S: Likewise.
|
||||||
|
|
||||||
|
2008-02-12 Bjoern Koenig <bkoenig@alpha-tierchen.de>
|
||||||
|
Andreas Tobler <a.tobler@schweiz.org>
|
||||||
|
|
||||||
|
* configure.ac: Add amd64-*-freebsd* target.
|
||||||
|
* configure: Regenerate.
|
||||||
|
|
||||||
|
2008-01-30 H.J. Lu <hongjiu.lu@intel.com>
|
||||||
|
|
||||||
|
PR libffi/34612
|
||||||
|
* src/x86/sysv.S (ffi_closure_SYSV): Pop 4 byte from stack when
|
||||||
|
returning struct.
|
||||||
|
|
||||||
|
* testsuite/libffi.call/call.exp: Add "-O2 -fomit-frame-pointer"
|
||||||
|
tests.
|
||||||
|
|
||||||
2008-01-24 David Edelsohn <edelsohn@gnu.org>
|
2008-01-24 David Edelsohn <edelsohn@gnu.org>
|
||||||
|
|
||||||
* configure: Regenerate.
|
* configure: Regenerate.
|
||||||
|
|||||||
@@ -53,6 +53,10 @@ case "$host" in
|
|||||||
TARGET=X86_64; TARGETDIR=x86
|
TARGET=X86_64; TARGETDIR=x86
|
||||||
;;
|
;;
|
||||||
|
|
||||||
|
amd64-*-freebsd*)
|
||||||
|
TARGET=X86_64; TARGETDIR=x86
|
||||||
|
;;
|
||||||
|
|
||||||
cris-*-*)
|
cris-*-*)
|
||||||
TARGET=LIBFFI_CRIS; TARGETDIR=cris
|
TARGET=LIBFFI_CRIS; TARGETDIR=cris
|
||||||
;;
|
;;
|
||||||
@@ -245,7 +249,7 @@ if test x$TARGET = xSPARC; then
|
|||||||
fi
|
fi
|
||||||
fi
|
fi
|
||||||
|
|
||||||
if test x$TARGET = xX86 || test x$TARGET = xX86_64; then
|
if test x$TARGET = xX86 || test x$TARGET = xX86_WIN32 || test x$TARGET = xX86_64; then
|
||||||
AC_CACHE_CHECK([assembler supports pc related relocs],
|
AC_CACHE_CHECK([assembler supports pc related relocs],
|
||||||
libffi_cv_as_x86_pcrel, [
|
libffi_cv_as_x86_pcrel, [
|
||||||
libffi_cv_as_x86_pcrel=yes
|
libffi_cv_as_x86_pcrel=yes
|
||||||
|
|||||||
@@ -1,5 +1,5 @@
|
|||||||
/* -----------------------------------------------------------------------
|
/* -----------------------------------------------------------------------
|
||||||
ffi.c - Copyright (c) 2003, 2004 Kaz Kojima
|
ffi.c - Copyright (c) 2003, 2004, 2006 Kaz Kojima
|
||||||
Copyright (c) 2008 Anthony Green
|
Copyright (c) 2008 Anthony Green
|
||||||
|
|
||||||
SuperH SHmedia Foreign Function Interface
|
SuperH SHmedia Foreign Function Interface
|
||||||
@@ -162,6 +162,7 @@ ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
|
|||||||
int n, m;
|
int n, m;
|
||||||
int greg;
|
int greg;
|
||||||
int freg;
|
int freg;
|
||||||
|
int fpair = -1;
|
||||||
|
|
||||||
greg = (return_type (cif->rtype) == FFI_TYPE_STRUCT ? 1 : 0);
|
greg = (return_type (cif->rtype) == FFI_TYPE_STRUCT ? 1 : 0);
|
||||||
freg = 0;
|
freg = 0;
|
||||||
@@ -177,7 +178,13 @@ ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
|
|||||||
cif->bytes += sizeof (UINT64) - sizeof (float);
|
cif->bytes += sizeof (UINT64) - sizeof (float);
|
||||||
if (freg >= NFREGARG - 1)
|
if (freg >= NFREGARG - 1)
|
||||||
continue;
|
continue;
|
||||||
freg++;
|
if (fpair < 0)
|
||||||
|
{
|
||||||
|
fpair = freg;
|
||||||
|
freg += 2;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
fpair = -1;
|
||||||
cif->flags2 += ((cif->arg_types)[i]->type) << (2 * j++);
|
cif->flags2 += ((cif->arg_types)[i]->type) << (2 * j++);
|
||||||
break;
|
break;
|
||||||
|
|
||||||
@@ -186,7 +193,6 @@ ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
|
|||||||
continue;
|
continue;
|
||||||
if ((freg + 1) < NFREGARG)
|
if ((freg + 1) < NFREGARG)
|
||||||
{
|
{
|
||||||
freg = (freg + 1) & ~1;
|
|
||||||
freg += 2;
|
freg += 2;
|
||||||
cif->flags2 += ((cif->arg_types)[i]->type) << (2 * j++);
|
cif->flags2 += ((cif->arg_types)[i]->type) << (2 * j++);
|
||||||
}
|
}
|
||||||
@@ -352,6 +358,7 @@ ffi_closure_helper_SYSV (ffi_closure *closure, UINT64 *rvalue,
|
|||||||
int i, avn;
|
int i, avn;
|
||||||
int greg, freg;
|
int greg, freg;
|
||||||
ffi_cif *cif;
|
ffi_cif *cif;
|
||||||
|
int fpair = -1;
|
||||||
|
|
||||||
cif = closure->cif;
|
cif = closure->cif;
|
||||||
avalue = alloca (cif->nargs * sizeof (void *));
|
avalue = alloca (cif->nargs * sizeof (void *));
|
||||||
@@ -360,7 +367,7 @@ ffi_closure_helper_SYSV (ffi_closure *closure, UINT64 *rvalue,
|
|||||||
returns the data directly to the caller. */
|
returns the data directly to the caller. */
|
||||||
if (return_type (cif->rtype) == FFI_TYPE_STRUCT)
|
if (return_type (cif->rtype) == FFI_TYPE_STRUCT)
|
||||||
{
|
{
|
||||||
rvalue = *pgr;
|
rvalue = (UINT64 *) *pgr;
|
||||||
greg = 1;
|
greg = 1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
@@ -404,11 +411,24 @@ ffi_closure_helper_SYSV (ffi_closure *closure, UINT64 *rvalue,
|
|||||||
if ((*p_arg)->type == FFI_TYPE_FLOAT)
|
if ((*p_arg)->type == FFI_TYPE_FLOAT)
|
||||||
{
|
{
|
||||||
if (freg < NFREGARG - 1)
|
if (freg < NFREGARG - 1)
|
||||||
|
{
|
||||||
|
if (fpair >= 0)
|
||||||
|
{
|
||||||
|
avalue[i] = (UINT32 *) pfr + fpair;
|
||||||
|
fpair = -1;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
#ifdef __LITTLE_ENDIAN__
|
#ifdef __LITTLE_ENDIAN__
|
||||||
avalue[i] = (UINT32 *) pfr + (1 ^ freg++);
|
fpair = freg;
|
||||||
|
avalue[i] = (UINT32 *) pfr + (1 ^ freg);
|
||||||
#else
|
#else
|
||||||
avalue[i] = (UINT32 *) pfr + freg++;
|
fpair = 1 ^ freg;
|
||||||
|
avalue[i] = (UINT32 *) pfr + freg;
|
||||||
#endif
|
#endif
|
||||||
|
freg += 2;
|
||||||
|
}
|
||||||
|
}
|
||||||
else
|
else
|
||||||
#ifdef __LITTLE_ENDIAN__
|
#ifdef __LITTLE_ENDIAN__
|
||||||
avalue[i] = pgr + greg;
|
avalue[i] = pgr + greg;
|
||||||
@@ -430,7 +450,6 @@ ffi_closure_helper_SYSV (ffi_closure *closure, UINT64 *rvalue,
|
|||||||
avalue[i] = pgr + greg;
|
avalue[i] = pgr + greg;
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
freg = (freg + 1) & ~1;
|
|
||||||
avalue[i] = pfr + (freg >> 1);
|
avalue[i] = pfr + (freg >> 1);
|
||||||
freg += 2;
|
freg += 2;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -1,5 +1,5 @@
|
|||||||
/* -----------------------------------------------------------------------
|
/* -----------------------------------------------------------------------
|
||||||
sysv.S - Copyright (c) 2003, 2004, 2008 Kaz Kojima
|
sysv.S - Copyright (c) 2003, 2004, 2006, 2008 Kaz Kojima
|
||||||
|
|
||||||
SuperH SHmedia Foreign Function Interface
|
SuperH SHmedia Foreign Function Interface
|
||||||
|
|
||||||
@@ -85,6 +85,7 @@ ENTRY(ffi_call_SYSV)
|
|||||||
addi r15, 64, r22
|
addi r15, 64, r22
|
||||||
movi 0, r0
|
movi 0, r0
|
||||||
movi 0, r1
|
movi 0, r1
|
||||||
|
movi -1, r23
|
||||||
|
|
||||||
pt/l 1f, tr1
|
pt/l 1f, tr1
|
||||||
bnei/l r29, FFI_TYPE_STRUCT, tr1
|
bnei/l r29, FFI_TYPE_STRUCT, tr1
|
||||||
@@ -107,9 +108,6 @@ ENTRY(ffi_call_SYSV)
|
|||||||
|
|
||||||
.L_pass_d:
|
.L_pass_d:
|
||||||
addi r0, 1, r0
|
addi r0, 1, r0
|
||||||
addi r1, 1, r1
|
|
||||||
andi r1, ~1, r1
|
|
||||||
|
|
||||||
pt/l 3f, tr0
|
pt/l 3f, tr0
|
||||||
movi 12, r20
|
movi 12, r20
|
||||||
bge/l r1, r20, tr0
|
bge/l r1, r20, tr0
|
||||||
@@ -159,13 +157,23 @@ ENTRY(ffi_call_SYSV)
|
|||||||
addi.l r15, 8, r15
|
addi.l r15, 8, r15
|
||||||
3:
|
3:
|
||||||
pt/l .L_pass, tr0
|
pt/l .L_pass, tr0
|
||||||
addi r1, 1, r1
|
|
||||||
blink tr0, r63
|
blink tr0, r63
|
||||||
|
|
||||||
.L_pop_f:
|
.L_pop_f:
|
||||||
pt/l .L_pop_f_tbl, tr1
|
pt/l .L_pop_f_tbl, tr1
|
||||||
|
pt/l 5f, tr2
|
||||||
gettr tr1, r20
|
gettr tr1, r20
|
||||||
|
bge/l r23, r63, tr2
|
||||||
|
add r1, r63, r23
|
||||||
shlli r1, 3, r21
|
shlli r1, 3, r21
|
||||||
|
addi r1, 2, r1
|
||||||
|
add r20, r21, r20
|
||||||
|
ptabs/l r20, tr1
|
||||||
|
blink tr1, r63
|
||||||
|
5:
|
||||||
|
addi r23, 1, r21
|
||||||
|
movi -1, r23
|
||||||
|
shlli r21, 3, r21
|
||||||
add r20, r21, r20
|
add r20, r21, r20
|
||||||
ptabs/l r20, tr1
|
ptabs/l r20, tr1
|
||||||
blink tr1, r63
|
blink tr1, r63
|
||||||
|
|||||||
@@ -308,14 +308,24 @@ ffi_status ffi_prep_cif_machdep(ffi_cif *cif)
|
|||||||
cif->flags = FFI_TYPE_STRUCT;
|
cif->flags = FFI_TYPE_STRUCT;
|
||||||
break;
|
break;
|
||||||
|
|
||||||
|
case FFI_TYPE_SINT8:
|
||||||
|
case FFI_TYPE_UINT8:
|
||||||
|
case FFI_TYPE_SINT16:
|
||||||
|
case FFI_TYPE_UINT16:
|
||||||
|
if (cif->abi == FFI_V9)
|
||||||
|
cif->flags = FFI_TYPE_INT;
|
||||||
|
else
|
||||||
|
cif->flags = cif->rtype->type;
|
||||||
|
break;
|
||||||
|
|
||||||
case FFI_TYPE_SINT64:
|
case FFI_TYPE_SINT64:
|
||||||
case FFI_TYPE_UINT64:
|
case FFI_TYPE_UINT64:
|
||||||
if (cif->abi != FFI_V9)
|
if (cif->abi == FFI_V9)
|
||||||
{
|
cif->flags = FFI_TYPE_INT;
|
||||||
|
else
|
||||||
cif->flags = FFI_TYPE_SINT64;
|
cif->flags = FFI_TYPE_SINT64;
|
||||||
break;
|
break;
|
||||||
}
|
|
||||||
/* FALLTHROUGH */
|
|
||||||
default:
|
default:
|
||||||
cif->flags = FFI_TYPE_INT;
|
cif->flags = FFI_TYPE_INT;
|
||||||
break;
|
break;
|
||||||
|
|||||||
@@ -73,21 +73,63 @@ _ffi_call_v8:
|
|||||||
be,a done
|
be,a done
|
||||||
st %f0, [%i4+0] ! (delay)
|
st %f0, [%i4+0] ! (delay)
|
||||||
|
|
||||||
cmp %i3, FFI_TYPE_SINT64
|
|
||||||
be longlong
|
|
||||||
|
|
||||||
cmp %i3, FFI_TYPE_DOUBLE
|
cmp %i3, FFI_TYPE_DOUBLE
|
||||||
bne done
|
be,a double
|
||||||
nop
|
st %f0, [%i4+0] ! (delay)
|
||||||
st %f0, [%i4+0]
|
|
||||||
st %f1, [%i4+4]
|
|
||||||
|
|
||||||
|
cmp %i3, FFI_TYPE_SINT8
|
||||||
|
be,a sint8
|
||||||
|
sll %o0, 24, %o0 ! (delay)
|
||||||
|
|
||||||
|
cmp %i3, FFI_TYPE_UINT8
|
||||||
|
be,a uint8
|
||||||
|
sll %o0, 24, %o0 ! (delay)
|
||||||
|
|
||||||
|
cmp %i3, FFI_TYPE_SINT16
|
||||||
|
be,a sint16
|
||||||
|
sll %o0, 16, %o0 ! (delay)
|
||||||
|
|
||||||
|
cmp %i3, FFI_TYPE_UINT16
|
||||||
|
be,a uint16
|
||||||
|
sll %o0, 16, %o0 ! (delay)
|
||||||
|
|
||||||
|
cmp %i3, FFI_TYPE_SINT64
|
||||||
|
be,a longlong
|
||||||
|
st %o0, [%i4+0] ! (delay)
|
||||||
done:
|
done:
|
||||||
ret
|
ret
|
||||||
restore
|
restore
|
||||||
|
|
||||||
longlong:
|
double:
|
||||||
|
st %f1, [%i4+4]
|
||||||
|
ret
|
||||||
|
restore
|
||||||
|
|
||||||
|
sint8:
|
||||||
|
sra %o0, 24, %o0
|
||||||
st %o0, [%i4+0]
|
st %o0, [%i4+0]
|
||||||
|
ret
|
||||||
|
restore
|
||||||
|
|
||||||
|
uint8:
|
||||||
|
srl %o0, 24, %o0
|
||||||
|
st %o0, [%i4+0]
|
||||||
|
ret
|
||||||
|
restore
|
||||||
|
|
||||||
|
sint16:
|
||||||
|
sra %o0, 16, %o0
|
||||||
|
st %o0, [%i4+0]
|
||||||
|
ret
|
||||||
|
restore
|
||||||
|
|
||||||
|
uint16:
|
||||||
|
srl %o0, 16, %o0
|
||||||
|
st %o0, [%i4+0]
|
||||||
|
ret
|
||||||
|
restore
|
||||||
|
|
||||||
|
longlong:
|
||||||
st %o1, [%i4+4]
|
st %o1, [%i4+4]
|
||||||
ret
|
ret
|
||||||
restore
|
restore
|
||||||
@@ -148,7 +190,8 @@ ffi_closure_v8:
|
|||||||
be done1
|
be done1
|
||||||
|
|
||||||
cmp %o0, FFI_TYPE_INT
|
cmp %o0, FFI_TYPE_INT
|
||||||
be integer
|
be done1
|
||||||
|
ld [%fp-8], %i0
|
||||||
|
|
||||||
cmp %o0, FFI_TYPE_FLOAT
|
cmp %o0, FFI_TYPE_FLOAT
|
||||||
be,a done1
|
be,a done1
|
||||||
@@ -166,13 +209,11 @@ ffi_closure_v8:
|
|||||||
cmp %o0, FFI_TYPE_STRUCT
|
cmp %o0, FFI_TYPE_STRUCT
|
||||||
be done2
|
be done2
|
||||||
|
|
||||||
! FFI_TYPE_SINT64
|
cmp %o0, FFI_TYPE_SINT64
|
||||||
! FFI_TYPE_UINT64
|
be,a done1
|
||||||
ld [%fp-4], %i1
|
ldd [%fp-8], %i0
|
||||||
|
|
||||||
integer:
|
|
||||||
ld [%fp-8], %i0
|
ld [%fp-8], %i0
|
||||||
|
|
||||||
done1:
|
done1:
|
||||||
jmp %i7+8
|
jmp %i7+8
|
||||||
restore
|
restore
|
||||||
|
|||||||
@@ -1,5 +1,5 @@
|
|||||||
/* -----------------------------------------------------------------------
|
/* -----------------------------------------------------------------------
|
||||||
win32.S - Copyright (c) 1996, 1998, 2001, 2002 Red Hat, Inc.
|
win32.S - Copyright (c) 1996, 1998, 2001, 2002, 2009 Red Hat, Inc.
|
||||||
Copyright (c) 2001 John Beniton
|
Copyright (c) 2001 John Beniton
|
||||||
Copyright (c) 2002 Ranjit Mathew
|
Copyright (c) 2002 Ranjit Mathew
|
||||||
|
|
||||||
@@ -33,16 +33,18 @@
|
|||||||
|
|
||||||
.text
|
.text
|
||||||
|
|
||||||
.globl ffi_prep_args
|
.extern ffi_prep_args
|
||||||
|
|
||||||
# This assumes we are using gas.
|
# This assumes we are using gas.
|
||||||
.balign 16
|
.balign 16
|
||||||
.globl _ffi_call_SYSV
|
.globl _ffi_call_SYSV
|
||||||
|
.def _ffi_call_SYSV; .scl 2; .type 32; .endef
|
||||||
_ffi_call_SYSV:
|
_ffi_call_SYSV:
|
||||||
|
.LFB1:
|
||||||
pushl %ebp
|
pushl %ebp
|
||||||
|
.LCFI0:
|
||||||
movl %esp,%ebp
|
movl %esp,%ebp
|
||||||
|
.LCFI1:
|
||||||
# Make room for all of the new args.
|
# Make room for all of the new args.
|
||||||
movl 16(%ebp),%ecx
|
movl 16(%ebp),%ecx
|
||||||
subl %ecx,%esp
|
subl %ecx,%esp
|
||||||
@@ -145,17 +147,19 @@ epilogue:
|
|||||||
movl %ebp,%esp
|
movl %ebp,%esp
|
||||||
popl %ebp
|
popl %ebp
|
||||||
ret
|
ret
|
||||||
|
|
||||||
.ffi_call_SYSV_end:
|
.ffi_call_SYSV_end:
|
||||||
|
.LFE1:
|
||||||
|
|
||||||
# This assumes we are using gas.
|
# This assumes we are using gas.
|
||||||
.balign 16
|
.balign 16
|
||||||
.globl _ffi_call_STDCALL
|
.globl _ffi_call_STDCALL
|
||||||
|
.def _ffi_call_STDCALL; .scl 2; .type 32; .endef
|
||||||
_ffi_call_STDCALL:
|
_ffi_call_STDCALL:
|
||||||
|
.LFB2:
|
||||||
pushl %ebp
|
pushl %ebp
|
||||||
|
.LCFI2:
|
||||||
movl %esp,%ebp
|
movl %esp,%ebp
|
||||||
|
.LCFI3:
|
||||||
# Make room for all of the new args.
|
# Make room for all of the new args.
|
||||||
movl 16(%ebp),%ecx
|
movl 16(%ebp),%ecx
|
||||||
subl %ecx,%esp
|
subl %ecx,%esp
|
||||||
@@ -256,8 +260,8 @@ sc_epilogue:
|
|||||||
movl %ebp,%esp
|
movl %ebp,%esp
|
||||||
popl %ebp
|
popl %ebp
|
||||||
ret
|
ret
|
||||||
|
|
||||||
.ffi_call_STDCALL_end:
|
.ffi_call_STDCALL_end:
|
||||||
|
.LFE2:
|
||||||
|
|
||||||
.globl _ffi_closure_STDCALL
|
.globl _ffi_closure_STDCALL
|
||||||
_ffi_closure_STDCALL:
|
_ffi_closure_STDCALL:
|
||||||
@@ -275,10 +279,16 @@ _ffi_closure_STDCALL:
|
|||||||
jmp .Lcls_return_result
|
jmp .Lcls_return_result
|
||||||
.ffi_closure_STDCALL_end:
|
.ffi_closure_STDCALL_end:
|
||||||
|
|
||||||
|
# This assumes we are using gas.
|
||||||
|
.balign 16
|
||||||
.globl _ffi_closure_SYSV
|
.globl _ffi_closure_SYSV
|
||||||
|
.def _ffi_closure_SYSV; .scl 2; .type 32; .endef
|
||||||
_ffi_closure_SYSV:
|
_ffi_closure_SYSV:
|
||||||
|
.LFB3:
|
||||||
pushl %ebp
|
pushl %ebp
|
||||||
|
.LCFI4:
|
||||||
movl %esp, %ebp
|
movl %esp, %ebp
|
||||||
|
.LCFI5:
|
||||||
subl $40, %esp
|
subl $40, %esp
|
||||||
leal -24(%ebp), %edx
|
leal -24(%ebp), %edx
|
||||||
movl %edx, -12(%ebp) /* resp */
|
movl %edx, -12(%ebp) /* resp */
|
||||||
@@ -330,6 +340,7 @@ _ffi_closure_SYSV:
|
|||||||
movswl (%ecx), %eax
|
movswl (%ecx), %eax
|
||||||
jmp .Lcls_epilogue
|
jmp .Lcls_epilogue
|
||||||
.ffi_closure_SYSV_end:
|
.ffi_closure_SYSV_end:
|
||||||
|
.LFE3:
|
||||||
|
|
||||||
#if !FFI_NO_RAW_API
|
#if !FFI_NO_RAW_API
|
||||||
|
|
||||||
@@ -338,12 +349,18 @@ _ffi_closure_SYSV:
|
|||||||
#define RAW_CLOSURE_USER_DATA_OFFSET (RAW_CLOSURE_FUN_OFFSET + 4)
|
#define RAW_CLOSURE_USER_DATA_OFFSET (RAW_CLOSURE_FUN_OFFSET + 4)
|
||||||
#define CIF_FLAGS_OFFSET 20
|
#define CIF_FLAGS_OFFSET 20
|
||||||
|
|
||||||
|
# This assumes we are using gas.
|
||||||
.balign 16
|
.balign 16
|
||||||
.globl _ffi_closure_raw_SYSV
|
.globl _ffi_closure_raw_SYSV
|
||||||
|
.def _ffi_closure_raw_SYSV; .scl 2; .type 32; .endef
|
||||||
_ffi_closure_raw_SYSV:
|
_ffi_closure_raw_SYSV:
|
||||||
|
.LFB4:
|
||||||
pushl %ebp
|
pushl %ebp
|
||||||
|
.LCFI6:
|
||||||
movl %esp, %ebp
|
movl %esp, %ebp
|
||||||
|
.LCFI7:
|
||||||
pushl %esi
|
pushl %esi
|
||||||
|
.LCFI8:
|
||||||
subl $36, %esp
|
subl $36, %esp
|
||||||
movl RAW_CLOSURE_CIF_OFFSET(%eax), %esi /* closure->cif */
|
movl RAW_CLOSURE_CIF_OFFSET(%eax), %esi /* closure->cif */
|
||||||
movl RAW_CLOSURE_USER_DATA_OFFSET(%eax), %edx /* closure->user_data */
|
movl RAW_CLOSURE_USER_DATA_OFFSET(%eax), %edx /* closure->user_data */
|
||||||
@@ -387,5 +404,169 @@ _ffi_closure_raw_SYSV:
|
|||||||
movl -20(%ebp), %edx
|
movl -20(%ebp), %edx
|
||||||
jmp .Lrcls_epilogue
|
jmp .Lrcls_epilogue
|
||||||
.ffi_closure_raw_SYSV_end:
|
.ffi_closure_raw_SYSV_end:
|
||||||
|
.LFE4:
|
||||||
|
|
||||||
|
#endif /* !FFI_NO_RAW_API */
|
||||||
|
|
||||||
|
|
||||||
|
.section .eh_frame,"w"
|
||||||
|
.Lframe1:
|
||||||
|
.LSCIE1:
|
||||||
|
.long .LECIE1-.LASCIE1 /* Length of Common Information Entry */
|
||||||
|
.LASCIE1:
|
||||||
|
.long 0x0 /* CIE Identifier Tag */
|
||||||
|
.byte 0x1 /* CIE Version */
|
||||||
|
#ifdef __PIC__
|
||||||
|
.ascii "zR\0" /* CIE Augmentation */
|
||||||
|
#else
|
||||||
|
.ascii "\0" /* CIE Augmentation */
|
||||||
#endif
|
#endif
|
||||||
|
.byte 0x1 /* .uleb128 0x1; CIE Code Alignment Factor */
|
||||||
|
.byte 0x7c /* .sleb128 -4; CIE Data Alignment Factor */
|
||||||
|
.byte 0x8 /* CIE RA Column */
|
||||||
|
#ifdef __PIC__
|
||||||
|
.byte 0x1 /* .uleb128 0x1; Augmentation size */
|
||||||
|
.byte 0x1b /* FDE Encoding (pcrel sdata4) */
|
||||||
|
#endif
|
||||||
|
.byte 0xc /* DW_CFA_def_cfa CFA = r4 + 4 = 4(%esp) */
|
||||||
|
.byte 0x4 /* .uleb128 0x4 */
|
||||||
|
.byte 0x4 /* .uleb128 0x4 */
|
||||||
|
.byte 0x88 /* DW_CFA_offset, column 0x8 %eip at CFA + 1 * -4 */
|
||||||
|
.byte 0x1 /* .uleb128 0x1 */
|
||||||
|
.align 4
|
||||||
|
.LECIE1:
|
||||||
|
|
||||||
|
.LSFDE1:
|
||||||
|
.long .LEFDE1-.LASFDE1 /* FDE Length */
|
||||||
|
.LASFDE1:
|
||||||
|
.long .LASFDE1-.Lframe1 /* FDE CIE offset */
|
||||||
|
#if defined __PIC__ && defined HAVE_AS_X86_PCREL
|
||||||
|
.long .LFB1-. /* FDE initial location */
|
||||||
|
#else
|
||||||
|
.long .LFB1
|
||||||
|
#endif
|
||||||
|
.long .LFE1-.LFB1 /* FDE address range */
|
||||||
|
#ifdef __PIC__
|
||||||
|
.byte 0x0 /* .uleb128 0x0; Augmentation size */
|
||||||
|
#endif
|
||||||
|
/* DW_CFA_xxx CFI instructions go here. */
|
||||||
|
|
||||||
|
.byte 0x4 /* DW_CFA_advance_loc4 */
|
||||||
|
.long .LCFI0-.LFB1
|
||||||
|
.byte 0xe /* DW_CFA_def_cfa_offset CFA = r4 + 8 = 8(%esp) */
|
||||||
|
.byte 0x8 /* .uleb128 0x8 */
|
||||||
|
.byte 0x85 /* DW_CFA_offset, column 0x5 %ebp at CFA + 2 * -4 */
|
||||||
|
.byte 0x2 /* .uleb128 0x2 */
|
||||||
|
|
||||||
|
.byte 0x4 /* DW_CFA_advance_loc4 */
|
||||||
|
.long .LCFI1-.LCFI0
|
||||||
|
.byte 0xd /* DW_CFA_def_cfa_register CFA = r5 = %ebp */
|
||||||
|
.byte 0x5 /* .uleb128 0x5 */
|
||||||
|
|
||||||
|
/* End of DW_CFA_xxx CFI instructions. */
|
||||||
|
.align 4
|
||||||
|
.LEFDE1:
|
||||||
|
|
||||||
|
|
||||||
|
.LSFDE2:
|
||||||
|
.long .LEFDE2-.LASFDE2 /* FDE Length */
|
||||||
|
.LASFDE2:
|
||||||
|
.long .LASFDE2-.Lframe1 /* FDE CIE offset */
|
||||||
|
#if defined __PIC__ && defined HAVE_AS_X86_PCREL
|
||||||
|
.long .LFB2-. /* FDE initial location */
|
||||||
|
#else
|
||||||
|
.long .LFB2
|
||||||
|
#endif
|
||||||
|
.long .LFE2-.LFB2 /* FDE address range */
|
||||||
|
#ifdef __PIC__
|
||||||
|
.byte 0x0 /* .uleb128 0x0; Augmentation size */
|
||||||
|
#endif
|
||||||
|
/* DW_CFA_xxx CFI instructions go here. */
|
||||||
|
|
||||||
|
.byte 0x4 /* DW_CFA_advance_loc4 */
|
||||||
|
.long .LCFI2-.LFB2
|
||||||
|
.byte 0xe /* DW_CFA_def_cfa_offset CFA = r4 + 8 = 8(%esp) */
|
||||||
|
.byte 0x8 /* .uleb128 0x8 */
|
||||||
|
.byte 0x85 /* DW_CFA_offset, column 0x5 %ebp at CFA + 2 * -4 */
|
||||||
|
.byte 0x2 /* .uleb128 0x2 */
|
||||||
|
|
||||||
|
.byte 0x4 /* DW_CFA_advance_loc4 */
|
||||||
|
.long .LCFI3-.LCFI2
|
||||||
|
.byte 0xd /* DW_CFA_def_cfa_register CFA = r5 = %ebp */
|
||||||
|
.byte 0x5 /* .uleb128 0x5 */
|
||||||
|
|
||||||
|
/* End of DW_CFA_xxx CFI instructions. */
|
||||||
|
.align 4
|
||||||
|
.LEFDE2:
|
||||||
|
|
||||||
|
|
||||||
|
.LSFDE3:
|
||||||
|
.long .LEFDE3-.LASFDE3 /* FDE Length */
|
||||||
|
.LASFDE3:
|
||||||
|
.long .LASFDE3-.Lframe1 /* FDE CIE offset */
|
||||||
|
#if defined __PIC__ && defined HAVE_AS_X86_PCREL
|
||||||
|
.long .LFB3-. /* FDE initial location */
|
||||||
|
#else
|
||||||
|
.long .LFB3
|
||||||
|
#endif
|
||||||
|
.long .LFE3-.LFB3 /* FDE address range */
|
||||||
|
#ifdef __PIC__
|
||||||
|
.byte 0x0 /* .uleb128 0x0; Augmentation size */
|
||||||
|
#endif
|
||||||
|
/* DW_CFA_xxx CFI instructions go here. */
|
||||||
|
|
||||||
|
.byte 0x4 /* DW_CFA_advance_loc4 */
|
||||||
|
.long .LCFI4-.LFB3
|
||||||
|
.byte 0xe /* DW_CFA_def_cfa_offset CFA = r4 + 8 = 8(%esp) */
|
||||||
|
.byte 0x8 /* .uleb128 0x8 */
|
||||||
|
.byte 0x85 /* DW_CFA_offset, column 0x5 %ebp at CFA + 2 * -4 */
|
||||||
|
.byte 0x2 /* .uleb128 0x2 */
|
||||||
|
|
||||||
|
.byte 0x4 /* DW_CFA_advance_loc4 */
|
||||||
|
.long .LCFI5-.LCFI4
|
||||||
|
.byte 0xd /* DW_CFA_def_cfa_register CFA = r5 = %ebp */
|
||||||
|
.byte 0x5 /* .uleb128 0x5 */
|
||||||
|
|
||||||
|
/* End of DW_CFA_xxx CFI instructions. */
|
||||||
|
.align 4
|
||||||
|
.LEFDE3:
|
||||||
|
|
||||||
|
#if !FFI_NO_RAW_API
|
||||||
|
|
||||||
|
.LSFDE4:
|
||||||
|
.long .LEFDE4-.LASFDE4 /* FDE Length */
|
||||||
|
.LASFDE4:
|
||||||
|
.long .LASFDE4-.Lframe1 /* FDE CIE offset */
|
||||||
|
#if defined __PIC__ && defined HAVE_AS_X86_PCREL
|
||||||
|
.long .LFB4-. /* FDE initial location */
|
||||||
|
#else
|
||||||
|
.long .LFB4
|
||||||
|
#endif
|
||||||
|
.long .LFE4-.LFB4 /* FDE address range */
|
||||||
|
#ifdef __PIC__
|
||||||
|
.byte 0x0 /* .uleb128 0x0; Augmentation size */
|
||||||
|
#endif
|
||||||
|
/* DW_CFA_xxx CFI instructions go here. */
|
||||||
|
|
||||||
|
.byte 0x4 /* DW_CFA_advance_loc4 */
|
||||||
|
.long .LCFI6-.LFB4
|
||||||
|
.byte 0xe /* DW_CFA_def_cfa_offset CFA = r4 + 8 = 8(%esp) */
|
||||||
|
.byte 0x8 /* .uleb128 0x8 */
|
||||||
|
.byte 0x85 /* DW_CFA_offset, column 0x5 %ebp at CFA + 2 * -4 */
|
||||||
|
.byte 0x2 /* .uleb128 0x2 */
|
||||||
|
|
||||||
|
.byte 0x4 /* DW_CFA_advance_loc4 */
|
||||||
|
.long .LCFI7-.LCFI6
|
||||||
|
.byte 0xd /* DW_CFA_def_cfa_register CFA = r5 = %ebp */
|
||||||
|
.byte 0x5 /* .uleb128 0x5 */
|
||||||
|
|
||||||
|
.byte 0x4 /* DW_CFA_advance_loc4 */
|
||||||
|
.long .LCFI8-.LCFI7
|
||||||
|
.byte 0x86 /* DW_CFA_offset, column 0x6 %esi at CFA + 3 * -4 */
|
||||||
|
.byte 0x3 /* .uleb128 0x3 */
|
||||||
|
|
||||||
|
/* End of DW_CFA_xxx CFI instructions. */
|
||||||
|
.align 4
|
||||||
|
.LEFDE4:
|
||||||
|
|
||||||
|
#endif /* !FFI_NO_RAW_API */
|
||||||
|
|||||||
Reference in New Issue
Block a user