[GR-48942] Sulong va_list aarch64 fixes

PullRequest: graal/16039

Author: eregon

sulong/projects/com.oracle.truffle.llvm.runtime/src/com/oracle/truffle/llvm/runtime/nodes/intrinsics/llvm/aarch64/darwin/LLVMDarwinAarch64VaListStorage.java

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2022, Oracle and/or its affiliates.
+ * Copyright (c) 2022, 2023, Oracle and/or its affiliates.
  *
  * All rights reserved.
  *
@@ -266,7 +266,7 @@ void toNative(@Cached LLVMI64OffsetStoreNode i64RegSaveAreaStore,
 
         /* Reconstruct the native memory according to darwin-aarch64 ABI. */
         final int vaLength = realArguments.length - numberOfExplicitArguments;
-        assert vaLength > 0;
+        assert vaLength >= 0 : vaLength;
 
         long offset = 0;
         for (int i = numberOfExplicitArguments; i < realArguments.length; i++) {

sulong/projects/com.oracle.truffle.llvm.runtime/src/com/oracle/truffle/llvm/runtime/nodes/intrinsics/llvm/aarch64/linux/LLVMLinuxAarch64VaListStorage.java

@@ -166,7 +166,7 @@ public boolean canCopyFrom(Object source, @SuppressWarnings("unused") long lengt
     @ExportMessage
     public void copyFrom(Object source, @SuppressWarnings("unused") long length,
                     @Cached VAListPointerWrapperFactoryDelegate wrapperFactory,
-                    @CachedLibrary(limit = "1") LLVMVaListLibrary vaListLibrary,
+                    @CachedLibrary(limit = "2") LLVMVaListLibrary vaListLibrary,
                     @Cached BranchProfile invalidLengthProfile) {
         if (length != Aarch64BitVarArgs.SIZE_OF_VALIST) {
             invalidLengthProfile.enter();
@@ -729,7 +729,7 @@ static void copyNativeToManaged(LLVMLinuxAarch64VaListStorage source, LLVMLinuxA
         @GenerateAOT.Exclude // recursion cut
         static void copyNative(LLVMLinuxAarch64VaListStorage source, LLVMLinuxAarch64VaListStorage dest, Frame frame,
                         @Cached VAListPointerWrapperFactoryDelegate wrapperFactory,
-                        @CachedLibrary(limit = "1") LLVMVaListLibrary vaListLibrary) {
+                        @CachedLibrary(limit = "2") LLVMVaListLibrary vaListLibrary) {
             // The source valist is just a holder of the native counterpart and thus the destination
             // will not be set up as a managed va_list as it would be too complicated to restore the
             // managed state from the native one.
@@ -739,7 +739,7 @@ static void copyNative(LLVMLinuxAarch64VaListStorage source, LLVMLinuxAarch64VaL
         @Specialization
         @GenerateAOT.Exclude // recursion cut
         static void copyManagedToNative(LLVMLinuxAarch64VaListStorage source, NativeVAListWrapper dest, Frame frame,
-                        @CachedLibrary(limit = "1") LLVMVaListLibrary vaListLibrary) {
+                        @CachedLibrary(limit = "2") LLVMVaListLibrary vaListLibrary) {
             LLVMLinuxAarch64VaListStorage dummyClone = new LLVMLinuxAarch64VaListStorage(dest.nativeVAListPtr, source.vaListType);
             dummyClone.nativized = true;
             vaListLibrary.initialize(dummyClone, source.realArguments, source.numberOfExplicitArguments, frame);