5435965f90
* include/ffi_private.h: Subsume contents of ffi_common.h.
* include/Makefile.am (noinst_HEADERS): Remove ffi_common.h.
* include/Makefile.in: Rebuilt.
* arm/ffi.c, m68k/ffi.c, mips/ffi.c, powerpc/ffi.c, s390/ffi.c,
ia64/ffi.c: Include ffi_private.h, not ffi_common.h.
* alpha/ffi.c, sparc/ffi.c, x86/ffi.c: Don't include ffi_common.h.
* types.c, raw_api.c, java_raw_api.c, prep_cif.c: Don't include
ffi_common.h.
* debug.c: Include ffi_private.h instead of ffi_common.h.
* mips/ffi.c (calc_n32_struct_flags): Make static.
(FIX_ARGP): Remove call to debugging routine ffi_stop_here.
* mips/n32.S: Include ffi_private.h.
* mips/o32.S: Include ffi_private.h.
45 lines
1.1 KiB
Plaintext
45 lines
1.1 KiB
Plaintext
# Copyright (C) 2001 Red Hat, Inc.
|
|
|
|
load_lib "libgloss.exp"
|
|
|
|
global tmpdir
|
|
|
|
if ![info exists tmpdir] {
|
|
set tmpdir "/tmp"
|
|
}
|
|
|
|
proc test_libffi {src} {
|
|
|
|
global tmpdir srcdir
|
|
|
|
set executable $tmpdir/[file tail [file rootname $src].x]
|
|
|
|
regsub "^$srcdir/?" $src "" testcase
|
|
# If we couldn't rip $srcdir out of `src' then just do the best we can.
|
|
# The point is to reduce the unnecessary noise in the logs. Don't strip
|
|
# out too much because different testcases with the same name can confuse
|
|
# `test-tool'.
|
|
if [string match "/*" $testcase] {
|
|
set testcase "[file tail [file dirname $src]]/[file tail $src]"
|
|
}
|
|
|
|
remote_file build delete $executable;
|
|
verbose "Testing $testcase" 1
|
|
|
|
set comp_output [target_compile $src $executable executable "additional_flags=-g additional_flags=-I$srcdir/../include libs=../.libs/libffi.a"]
|
|
|
|
set result [libffi_load "$executable" "" ""]
|
|
set status [lindex $result 0];
|
|
set output [lindex $result 1];
|
|
|
|
$status "$testcase"
|
|
|
|
# if { $status == "pass" } {
|
|
# remote_file build delete $executable;
|
|
# }
|
|
}
|
|
|
|
# Local Variables:
|
|
# tcl-indent-level:4
|
|
# End:
|