Latest gcc svn sources
This commit is contained in:
@@ -28,25 +28,25 @@ int main (void)
|
||||
void *values[MAX_ARGS];
|
||||
float f;
|
||||
value_type result[2];
|
||||
int i;
|
||||
unsigned int i;
|
||||
|
||||
args[0] = &ffi_type_float;
|
||||
values[0] = &f;
|
||||
|
||||
|
||||
/* Initialize the cif */
|
||||
CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1,
|
||||
CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1,
|
||||
&ffi_type_double, args) == FFI_OK);
|
||||
|
||||
|
||||
f = 3.14159;
|
||||
|
||||
|
||||
/* Put a canary in the return array. This is a regression test for
|
||||
a buffer overrun. */
|
||||
memset(result[1].c, CANARY, sizeof (double));
|
||||
|
||||
ffi_call(&cif, FFI_FN(dblit), &result[0].d, values);
|
||||
|
||||
|
||||
/* These are not always the same!! Check for a reasonable delta */
|
||||
|
||||
|
||||
CHECK(result[0].d - dblit(f) < DBL_EPSILON);
|
||||
|
||||
/* Check the canary. */
|
||||
|
||||
Reference in New Issue
Block a user