[GR-18215] [GR-37463] JFR StackTrace and JFR Method repositories. Sampling-based profiler and JFR integration.

compiler/src/org.graalvm.compiler.core.common/src/org/graalvm/compiler/core/common/util/AbstractTypeReader.java

@@ -35,7 +35,7 @@ public long getUV() {
         return read();
     }
 
-    public static long decodeSign(long value) {
+    private static long decodeSign(long value) {
         return (value >>> 1) ^ -(value & 1);
     }
 

substratevm/src/com.oracle.svm.core.posix/src/com/oracle/svm/core/posix/PosixLibCSupport.java

@@ -41,6 +41,12 @@ public <T extends PointerBase> T memcpy(T dest, PointerBase src, UnsignedWord n)
         return PosixLibC.memcpy(dest, src, n);
     }
 
+    @Override
+    @Uninterruptible(reason = "Called from uninterruptible code.", mayBeInlined = true)
+    public <T extends PointerBase> int memcmp(T s1, T s2, UnsignedWord n) {
+        return PosixLibC.memcmp(s1, s2, n);
+    }
+
     @Override
     @Uninterruptible(reason = "Called from uninterruptible code.", mayBeInlined = true)
     public <T extends PointerBase> T memmove(T dest, PointerBase src, UnsignedWord n) {

substratevm/src/com.oracle.svm.core.posix/src/com/oracle/svm/core/posix/PosixVMSemaphoreSupport.java

@@ -0,0 +1,55 @@
+/*
+ * Copyright (c) 2015, 2019, Oracle and/or its affiliates. All rights reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.  Oracle designates this
+ * particular file as subject to the "Classpath" exception as provided
+ * by Oracle in the LICENSE file that accompanied this code.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+ * or visit www.oracle.com if you need additional information or have any
+ * questions.
+ */
+
+package com.oracle.svm.core.posix;
+
+import org.graalvm.compiler.api.replacements.Fold;
+import org.graalvm.nativeimage.ImageSingletons;
+
+import com.oracle.svm.core.Uninterruptible;
+import com.oracle.svm.core.locks.VMSemaphore;
+
+public abstract class PosixVMSemaphoreSupport {
+
+    @Fold
+    public static PosixVMSemaphoreSupport singleton() {
+        return ImageSingletons.lookup(PosixVMSemaphoreSupport.class);
+    }
+
+    /**
+     * Must be called once early during startup, before any semaphore is used.
+     */
+    @Uninterruptible(reason = "Called from uninterruptible code. Too early for safepoints.")
+    public abstract boolean initialize();
+
+    /**
+     * Must be called during isolate teardown.
+     */
+    @Uninterruptible(reason = "The isolate teardown is in progress.")
+    public abstract void destroy();
+
+    public abstract VMSemaphore[] getSemaphores();
+
+}

substratevm/src/com.oracle.svm.core.posix/src/com/oracle/svm/core/posix/darwin/DarwinVMSemaphoreFeature.java

@@ -0,0 +1,134 @@
+/*
+ * Copyright (c) 2022, 2022, Oracle and/or its affiliates. All rights reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.  Oracle designates this
+ * particular file as subject to the "Classpath" exception as provided
+ * by Oracle in the LICENSE file that accompanied this code.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+ * or visit www.oracle.com if you need additional information or have any
+ * questions.
+ */
+
+package com.oracle.svm.core.posix.darwin;
+
+import org.graalvm.nativeimage.ImageSingletons;
+import org.graalvm.nativeimage.Platform;
+import org.graalvm.nativeimage.Platforms;
+
+import com.oracle.svm.core.SubstrateOptions;
+import com.oracle.svm.core.Uninterruptible;
+import com.oracle.svm.core.feature.AutomaticallyRegisteredFeature;
+import com.oracle.svm.core.feature.InternalFeature;
+import com.oracle.svm.core.heap.UnknownObjectField;
+import com.oracle.svm.core.locks.ClassInstanceReplacer;
+import com.oracle.svm.core.locks.VMSemaphore;
+import com.oracle.svm.core.posix.PosixVMSemaphoreSupport;
+import com.oracle.svm.core.util.VMError;
+
+/**
+ * Support of {@link VMSemaphore} in multithreaded environments on DARWIN.
+ */
+@AutomaticallyRegisteredFeature
+final class DarwinVMSemaphoreFeature implements InternalFeature {
+
+    private final ClassInstanceReplacer<VMSemaphore, VMSemaphore> semaphoreReplacer = new ClassInstanceReplacer<>(VMSemaphore.class) {
+        @Override
+        protected VMSemaphore createReplacement(VMSemaphore source) {
+            return new DarwinVMSemaphore();
+        }
+    };
+
+    @Override
+    public boolean isInConfiguration(IsInConfigurationAccess access) {
+        return SubstrateOptions.MultiThreaded.getValue();
+    }
+
+    @Override
+    public void duringSetup(DuringSetupAccess access) {
+        ImageSingletons.add(PosixVMSemaphoreSupport.class, new DarwinVMSemaphoreSupport());
+        access.registerObjectReplacer(semaphoreReplacer);
+    }
+
+    @Override
+    public void beforeCompilation(BeforeCompilationAccess access) {
+        DarwinVMSemaphoreSupport semaphoreSupport = (DarwinVMSemaphoreSupport) PosixVMSemaphoreSupport.singleton();
+        semaphoreSupport.semaphores = semaphoreReplacer.getReplacements().toArray(new DarwinVMSemaphore[0]);
+    }
+}
+
+final class DarwinVMSemaphoreSupport extends PosixVMSemaphoreSupport {
+
+    /** All semaphores, so that we can initialize them at run time when the VM starts. */
+    @UnknownObjectField(types = DarwinVMSemaphore[].class)//
+    DarwinVMSemaphore[] semaphores;
+
+    @Override
+    @Uninterruptible(reason = "Called from uninterruptible code. Too early for safepoints.")
+    public boolean initialize() {
+        for (DarwinVMSemaphore semaphore : semaphores) {
+            if (semaphore.init() != 0) {
+                return false;
+            }
+        }
+
+        return true;
+    }
+
+    @Override
+    @Uninterruptible(reason = "The isolate teardown is in progress.")
+    public void destroy() {
+        for (DarwinVMSemaphore semaphore : semaphores) {
+            semaphore.destroy();
+        }
+    }
+
+    @Override
+    public DarwinVMSemaphore[] getSemaphores() {
+        return semaphores;
+    }
+}
+
+final class DarwinVMSemaphore extends VMSemaphore {
+
+    @Platforms(Platform.HOSTED_ONLY.class)
+    DarwinVMSemaphore() {
+    }
+
+    @Override
+    @Uninterruptible(reason = "Called from uninterruptible code.", mayBeInlined = true)
+    protected int init() {
+        /* sem_init method is now deprecated on DARWIN and do nothing. */
+        return 0;
+    }
+
+    @Override
+    @Uninterruptible(reason = "Called from uninterruptible code.", mayBeInlined = true)
+    protected void destroy() {
+        /* sem_destroy method is now deprecated on DARWIN and do nothing. */
+    }
+
+    @Override
+    public void await() {
+        VMError.shouldNotReachHere("Unnamed semaphores are not supported on DARWIN.");
+    }
+
+    @Override
+    @Uninterruptible(reason = "Called from uninterruptible code.", mayBeInlined = true)
+    public void signal() {
+        VMError.shouldNotReachHere("Unnamed semaphores are not supported on DARWIN.");
+    }
+}

substratevm/src/com.oracle.svm.core.posix/src/com/oracle/svm/core/posix/headers/PosixDirectives.java

@@ -41,6 +41,7 @@ public class PosixDirectives implements CContext.Directives {
                     "<limits.h>",
                     "<locale.h>",
                     "<pthread.h>",
+                    "<semaphore.h>",
                     "<pwd.h>",
                     "<signal.h>",
                     "<errno.h>",

substratevm/src/com.oracle.svm.core.posix/src/com/oracle/svm/core/posix/headers/PosixLibC.java

@@ -47,6 +47,9 @@ public class PosixLibC {
     @CFunction(value = "memmove", transition = CFunction.Transition.NO_TRANSITION)
     public static native <T extends PointerBase> T memcpy(T dest, PointerBase src, UnsignedWord n);
 
+    @CFunction(transition = CFunction.Transition.NO_TRANSITION)
+    public static native <T extends PointerBase> int memcmp(T s1, T s2, UnsignedWord n);
+
     @CFunction(transition = CFunction.Transition.NO_TRANSITION)
     public static native <T extends PointerBase> T memmove(T dest, PointerBase src, UnsignedWord n);
 

substratevm/src/com.oracle.svm.core.posix/src/com/oracle/svm/core/posix/headers/Semaphore.java

@@ -0,0 +1,61 @@
+/*
+ * Copyright (c) 2022, 2022, Oracle and/or its affiliates. All rights reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * This code is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License version 2 only, as
+ * published by the Free Software Foundation.  Oracle designates this
+ * particular file as subject to the "Classpath" exception as provided
+ * by Oracle in the LICENSE file that accompanied this code.
+ *
+ * This code is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * version 2 for more details (a copy is included in the LICENSE file that
+ * accompanied this code).
+ *
+ * You should have received a copy of the GNU General Public License version
+ * 2 along with this work; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+ * or visit www.oracle.com if you need additional information or have any
+ * questions.
+ */
+
+package com.oracle.svm.core.posix.headers;
+
+import org.graalvm.nativeimage.c.CContext;
+import org.graalvm.nativeimage.c.function.CFunction;
+import org.graalvm.nativeimage.c.struct.CStruct;
+import org.graalvm.word.PointerBase;
+import org.graalvm.word.SignedWord;
+import org.graalvm.word.UnsignedWord;
+
+// Checkstyle: stop
+
+/**
+ * Manually translated definitions from the C header file semaphore.h.
+ */
+@CContext(PosixDirectives.class)
+public class Semaphore {
+
+    @CStruct
+    public interface sem_t extends PointerBase {
+    }
+
+    @CFunction(transition = CFunction.Transition.TO_NATIVE)
+    public static native int sem_wait(sem_t sem);
+
+    public static class NoTransitions {
+
+        @CFunction(transition = CFunction.Transition.NO_TRANSITION)
+        public static native int sem_init(sem_t sem, SignedWord pshared, UnsignedWord value);
+
+        @CFunction(transition = CFunction.Transition.NO_TRANSITION)
+        public static native int sem_destroy(sem_t sem);
+
+        @CFunction(transition = CFunction.Transition.NO_TRANSITION)
+        public static native int sem_post(sem_t sem);
+    }
+}