| // Copyright (c) 2019, the Dart project authors. Please see the AUTHORS file |
| // for details. All rights reserved. Use of this source code is governed by a |
| // BSD-style license that can be found in the LICENSE file. |
| // |
| // VMOptions=--deterministic --optimization-counter-threshold=500 --verbose-gc |
| // VMOptions=--deterministic --optimization-counter-threshold=-1 --verbose-gc |
| // |
| // Dart test program for stress-testing boxing and GC in return paths from FFI |
| // trampolines. |
| // |
| // NOTE: This test does not produce useful stderr when it fails because the |
| // stderr is redirected to a file for reflection. |
| // |
| // SharedObjects=ffi_test_functions |
| |
| import 'dart:ffi' as ffi; |
| import 'dylib_utils.dart'; |
| import "package:expect/expect.dart"; |
| import 'gc_helper.dart'; |
| |
| test(GCWatcher watcher, Function testee, |
| {bool mustTriggerGC: true, bool batched: false}) async { |
| // Warmup. |
| for (int i = 0; i < 1000; ++i) { |
| batched ? testee(1) : testee(); |
| } |
| int size = await watcher.size(); |
| for (int i = 0; i < 1000000;) { |
| if (batched) { |
| testee(1000); |
| i += 1000; |
| } else { |
| testee(); |
| i++; |
| } |
| } |
| int new_size = await watcher.size(); |
| if (mustTriggerGC) { |
| print("Expect $new_size > $size."); |
| Expect.isTrue(new_size > size); |
| } |
| } |
| |
| main() async { |
| final watcher = GCWatcher.ifAvailable(); |
| try { |
| await test(watcher, testBoxInt64); |
| // On 64-bit platforms this won't trigger GC because the result fits into a |
| // Smi. |
| await test(watcher, testBoxInt32, mustTriggerGC: false); |
| await test(watcher, testBoxDouble); |
| await test(watcher, testBoxPointer); |
| await test(watcher, testAllocateMints, batched: true); |
| await test(watcher, testAllocationsInDart, batched: true); |
| } finally { |
| watcher.dispose(); |
| } |
| } |
| |
| ffi.DynamicLibrary ffiTestFunctions = |
| dlopenPlatformSpecific("ffi_test_functions"); |
| |
| typedef NativeNullaryOp64 = ffi.Int64 Function(); |
| typedef NativeNullaryOp32 = ffi.Int32 Function(); |
| typedef NativeNullaryOpDouble = ffi.Double Function(); |
| typedef NativeNullaryOpPtr = ffi.Pointer<ffi.Void> Function(); |
| typedef NativeUnaryOp = ffi.Void Function(ffi.Uint64); |
| typedef NullaryOp = int Function(); |
| typedef NullaryOpDbl = double Function(); |
| typedef NullaryOpPtr = ffi.Pointer<ffi.Void> Function(); |
| typedef UnaryOp = void Function(int); |
| |
| //// These functions return values that require boxing into different types. |
| |
| final minInt64 = |
| ffiTestFunctions.lookupFunction<NativeNullaryOp64, NullaryOp>("MinInt64"); |
| |
| // Forces boxing into Mint on all platforms. |
| void testBoxInt64() { |
| Expect.equals(0x8000000000000000, minInt64()); |
| } |
| |
| NullaryOp minInt32 = |
| ffiTestFunctions.lookupFunction<NativeNullaryOp32, NullaryOp>("MinInt32"); |
| |
| // Forces boxing into Mint on 32-bit platforms only. |
| void testBoxInt32() { |
| Expect.equals(-0x80000000, minInt32()); |
| } |
| |
| final smallDouble = ffiTestFunctions |
| .lookupFunction<NativeNullaryOpDouble, NullaryOpDbl>("SmallDouble"); |
| |
| // Forces boxing into Double. |
| void testBoxDouble() { |
| Expect.equals(0x80000000 * -1.0, smallDouble()); |
| } |
| |
| final largePointer = ffiTestFunctions |
| .lookupFunction<NativeNullaryOpPtr, NullaryOpPtr>("LargePointer"); |
| |
| // Forces boxing into ffi.Pointer and ffi.Mint. |
| void testBoxPointer() { |
| ffi.Pointer pointer = largePointer(); |
| if (pointer != null) { |
| if (ffi.sizeOf<ffi.Pointer>() == 4) { |
| Expect.equals(0x82000000, pointer.address); |
| } else { |
| Expect.equals(0x8100000082000000, pointer.address); |
| } |
| } |
| } |
| |
| final allocateMint = |
| ffiTestFunctions.lookupFunction<NativeUnaryOp, UnaryOp>("AllocateMints"); |
| |
| // Test GC in the FFI call path by calling a C function which allocates through |
| // the Dart API. |
| void testAllocateMints(int batchSize) { |
| allocateMint(batchSize); |
| } |
| |
| class C { |
| final int i; |
| C(this.i); |
| } |
| |
| C c = null; |
| @pragma("vm:entry-point", "call") |
| void testAllocationsInDartHelper(int count) { |
| for (int i = 0; i < count; ++i) { |
| c = C(i); |
| } |
| } |
| |
| final allocateThroughDart = ffiTestFunctions |
| .lookupFunction<NativeUnaryOp, UnaryOp>("AllocateThroughDart"); |
| |
| // Test GC in the FFI call path by calling a C function which allocates by |
| // calling back into Dart ('testAllocationsInDartHelper'). |
| void testAllocationsInDart(int batchSize) { |
| allocateThroughDart(batchSize * 10); |
| } |