forked from oracle/graal
-
Notifications
You must be signed in to change notification settings - Fork 1
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
[GR-33931] Send toNative when memcpy-ing from managed to native.
PullRequest: graal/9865
- Loading branch information
Showing
3 changed files
with
307 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
60 changes: 60 additions & 0 deletions
60
sulong/tests/com.oracle.truffle.llvm.tests.interop.native/interop/polyglotArrayToNative.c
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,60 @@ | ||
| /* | ||
| * Copyright (c) 2021, Oracle and/or its affiliates. | ||
| * | ||
| * All rights reserved. | ||
| * | ||
| * Redistribution and use in source and binary forms, with or without modification, are | ||
| * permitted provided that the following conditions are met: | ||
| * | ||
| * 1. Redistributions of source code must retain the above copyright notice, this list of | ||
| * conditions and the following disclaimer. | ||
| * | ||
| * 2. Redistributions in binary form must reproduce the above copyright notice, this list of | ||
| * conditions and the following disclaimer in the documentation and/or other materials provided | ||
| * with the distribution. | ||
| * | ||
| * 3. Neither the name of the copyright holder nor the names of its contributors may be used to | ||
| * endorse or promote products derived from this software without specific prior written | ||
| * permission. | ||
| * | ||
| * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS | ||
| * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF | ||
| * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE | ||
| * COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, | ||
| * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE | ||
| * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED | ||
| * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING | ||
| * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
| * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
| */ | ||
| #include <stdlib.h> | ||
|
|
||
| #include <graalvm/llvm/polyglot.h> | ||
|
|
||
| typedef void *VoidPtr; | ||
|
|
||
| typedef struct { | ||
| void *payload; | ||
| } Simple; | ||
|
|
||
| POLYGLOT_DECLARE_TYPE(Simple); | ||
| POLYGLOT_DECLARE_TYPE(VoidPtr); | ||
|
|
||
| void get_Simple_typeid(void (*ret)(polyglot_typeid typeid)) { | ||
| ret(polyglot_Simple_typeid()); | ||
| } | ||
|
|
||
| void get_Simple_array_typeid(uint64_t len, void (*ret)(polyglot_typeid typeid)) { | ||
| ret(polyglot_array_typeid(polyglot_VoidPtr_typeid(), len)); | ||
| } | ||
|
|
||
| #define WRAP(x) ((Simple){ (x) }) | ||
|
|
||
| void *simple_array_to_native(VoidPtr *polyglot_array, uint64_t size) { | ||
| Simple *native = (Simple *) malloc(size * sizeof(Simple)); | ||
| uint64_t i; | ||
| for (i = 0; i < size; i++) { | ||
| native[i] = WRAP(polyglot_array[i]); | ||
| } | ||
| return polyglot_from_Simple_array(native, size); | ||
| } |
208 changes: 208 additions & 0 deletions
208
...uffle.llvm.tests/src/com/oracle/truffle/llvm/tests/interop/PolyglotArrayToNativeTest.java
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,208 @@ | ||
| /* | ||
| * Copyright (c) 2021, Oracle and/or its affiliates. | ||
| * | ||
| * All rights reserved. | ||
| * | ||
| * Redistribution and use in source and binary forms, with or without modification, are | ||
| * permitted provided that the following conditions are met: | ||
| * | ||
| * 1. Redistributions of source code must retain the above copyright notice, this list of | ||
| * conditions and the following disclaimer. | ||
| * | ||
| * 2. Redistributions in binary form must reproduce the above copyright notice, this list of | ||
| * conditions and the following disclaimer in the documentation and/or other materials provided | ||
| * with the distribution. | ||
| * | ||
| * 3. Neither the name of the copyright holder nor the names of its contributors may be used to | ||
| * endorse or promote products derived from this software without specific prior written | ||
| * permission. | ||
| * | ||
| * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS | ||
| * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF | ||
| * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE | ||
| * COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, | ||
| * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE | ||
| * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED | ||
| * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING | ||
| * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
| * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
| */ | ||
| package com.oracle.truffle.llvm.tests.interop; | ||
|
|
||
| import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary; | ||
| import org.graalvm.polyglot.Value; | ||
| import org.junit.Assert; | ||
| import org.junit.BeforeClass; | ||
| import org.junit.Test; | ||
|
|
||
| import com.oracle.truffle.api.CompilerDirectives; | ||
| import com.oracle.truffle.api.exception.AbstractTruffleException; | ||
| import com.oracle.truffle.api.interop.InteropLibrary; | ||
| import com.oracle.truffle.api.interop.TruffleObject; | ||
| import com.oracle.truffle.api.interop.UnknownIdentifierException; | ||
| import com.oracle.truffle.api.library.ExportLibrary; | ||
| import com.oracle.truffle.api.library.ExportMessage; | ||
| import com.oracle.truffle.llvm.spi.NativeTypeLibrary; | ||
| import com.oracle.truffle.llvm.tests.interop.values.TestCallback; | ||
|
|
||
| public class PolyglotArrayToNativeTest extends PolyglotArrayTestBase { | ||
| public static final String PAYLOAD = "payload"; | ||
| public static final int ARRAY_SIZE = 10; | ||
| private static Value polyglotReadPointerLibrary; | ||
| private static Object pointerTypeId; | ||
| private static Value getArrayType; | ||
|
|
||
| /** | ||
| * Load bitcode library. Method name needs to be different than in the base class, otherwise it | ||
| * is not executed. | ||
| */ | ||
| @BeforeClass | ||
| public static void loadPolygloArrayToNativeLibrary() { | ||
| polyglotReadPointerLibrary = loadTestBitcodeValue("polyglotArrayToNative.c"); | ||
| Value lib = runWithPolyglot.getPolyglotContext().asValue(polyglotReadPointerLibrary); | ||
| Value getTypes = lib.getMember("get_Simple_typeid"); | ||
|
|
||
| getTypes.execute(new TestCallback(1, args -> { | ||
| pointerTypeId = args[0]; | ||
| return null; | ||
| })); | ||
|
|
||
| getArrayType = lib.getMember("get_Simple_array_typeid"); | ||
|
|
||
| } | ||
|
|
||
| @ExportLibrary(InteropLibrary.class) | ||
| @ExportLibrary(value = NativeTypeLibrary.class, useForAOT = false) | ||
| @SuppressWarnings("static-method") | ||
| static final class SimpleWrapper implements TruffleObject { | ||
| private final long delegate; | ||
|
|
||
| private SimpleWrapper(long l) { | ||
| this.delegate = l; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| boolean hasMembers() { | ||
| return true; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| Object getMembers(@SuppressWarnings("unused") boolean b) { | ||
| throw CompilerDirectives.shouldNotReachHere(); | ||
| } | ||
|
|
||
| @ExportMessage | ||
| boolean isMemberReadable(String key) { | ||
| return PAYLOAD.equals(key); | ||
| } | ||
|
|
||
| @ExportMessage | ||
| Object readMember(String key) throws UnknownIdentifierException { | ||
| if (PAYLOAD.equals(key)) { | ||
| return delegate; | ||
| } | ||
| CompilerDirectives.transferToInterpreterAndInvalidate(); | ||
| throw UnknownIdentifierException.create(key); | ||
| } | ||
|
|
||
| @ExportMessage | ||
| boolean isPointer() { | ||
| return true; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| void toNative() { | ||
| // nop | ||
| } | ||
|
|
||
| @ExportMessage | ||
| long asPointer() { | ||
| return delegate; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| boolean hasNativeType() { | ||
| return true; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| Object getNativeType() { | ||
| return pointerTypeId; | ||
| } | ||
| } | ||
|
|
||
| @ExportLibrary(value = NativeTypeLibrary.class, useForAOT = false) | ||
| @ExportLibrary(InteropLibrary.class) | ||
| @SuppressWarnings("static-method") | ||
| static final class SimpleArrayWrapper implements TruffleObject { | ||
| private final SimpleWrapper[] objects; | ||
|
|
||
| private SimpleArrayWrapper(SimpleWrapper[] objects) { | ||
| this.objects = objects; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| boolean hasArrayElements() { | ||
| return true; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| boolean isArrayElementReadable(long idx) { | ||
| return 0 <= idx && idx < objects.length; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| long getArraySize() { | ||
| return objects.length; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| Object readArrayElement(long idx) { | ||
| return objects[(int) idx]; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| boolean hasNativeType() { | ||
| return true; | ||
| } | ||
|
|
||
| @ExportMessage | ||
| @TruffleBoundary | ||
| Object getNativeType() { | ||
| try { | ||
| Object[] result = new Object[1]; | ||
| getArrayType.execute((long) objects.length, new TestCallback(1, args -> { | ||
| result[0] = args[0]; | ||
| return null; | ||
| })); | ||
| return result[0]; | ||
| } catch (AbstractTruffleException e) { | ||
| throw CompilerDirectives.shouldNotReachHere(e); | ||
| } | ||
| } | ||
| } | ||
|
|
||
| @Test | ||
| public void test() { | ||
| Value read = polyglotReadPointerLibrary.getMember("simple_array_to_native"); | ||
| Assert.assertNotNull("Function not found: simple_array_to_native", read); | ||
| SimpleWrapper[] objects = new SimpleWrapper[ARRAY_SIZE]; | ||
| for (int i = 0; i < ARRAY_SIZE; i++) { | ||
| objects[i] = new SimpleWrapper(i); | ||
| } | ||
| Value ret = read.execute(new SimpleArrayWrapper(objects), (long) ARRAY_SIZE); | ||
| Assert.assertTrue(ret.hasArrayElements()); | ||
| Assert.assertEquals(ARRAY_SIZE, ret.getArraySize()); | ||
| /* | ||
| * 'ret' is of type 'Simple[]'; and 'Simple' is a struct with one field 'void *payload'. We | ||
| * want to have the int value of the pointer. | ||
| */ | ||
| for (int i = 0; i < ARRAY_SIZE; i++) { | ||
| Value arrayElement = ret.getArrayElement(i); | ||
| Assert.assertTrue(arrayElement.hasMember(PAYLOAD)); | ||
| Value payload = arrayElement.getMember(PAYLOAD); | ||
| Assert.assertTrue(payload.isNativePointer()); | ||
| Assert.assertEquals(i, payload.asNativePointer()); | ||
| } | ||
| } | ||
| } |