[WASM] Fix interop adapter for long strings

compiler/ir/backend.wasm/src/org/jetbrains/kotlin/backend/wasm/WasmSymbols.kt

@@ -185,6 +185,7 @@ class WasmSymbols(
     val nullableDoubleIeee754Equals = getInternalFunction("nullableDoubleIeee754Equals")
 
     val unsafeGetScratchRawMemory = getInternalFunction("unsafeGetScratchRawMemory")
+    val unsafeGetScratchRawMemorySize = getInternalFunction("unsafeGetScratchRawMemorySize")
     val startCoroutineUninterceptedOrReturnIntrinsics =
         (0..2).map { getInternalFunction("startCoroutineUninterceptedOrReturnIntrinsic$it") }
 

compiler/ir/backend.wasm/src/org/jetbrains/kotlin/backend/wasm/ir2wasm/BodyGenerator.kt

@@ -465,6 +465,10 @@ class BodyGenerator(
                 body.buildConstI32Symbol(context.scratchMemAddr)
             }
 
+            wasmSymbols.unsafeGetScratchRawMemorySize -> {
+                body.buildConstI32Symbol(WasmSymbol(context.scratchMemSizeInBytes))
+            }
+
             else -> {
                 return false
             }

compiler/ir/backend.wasm/src/org/jetbrains/kotlin/backend/wasm/ir2wasm/WasmBaseCodegenContext.kt

@@ -16,6 +16,7 @@ interface WasmBaseCodegenContext {
     val backendContext: WasmBackendContext
 
     val scratchMemAddr: WasmSymbol<Int>
+    val scratchMemSizeInBytes: Int
 
     fun referenceFunction(irFunction: IrFunctionSymbol): WasmSymbol<WasmFunction>
     fun referenceGlobalField(irField: IrFieldSymbol): WasmSymbol<WasmGlobal>

compiler/ir/backend.wasm/src/org/jetbrains/kotlin/backend/wasm/ir2wasm/WasmCompiledModuleFragment.kt

@@ -60,7 +60,7 @@ class WasmCompiledModuleFragment(val irBuiltIns: IrBuiltIns) {
     val initFunctions = mutableListOf<FunWithPriority>()
 
     val scratchMemAddr = WasmSymbol<Int>()
-    private val scratchMemSizeInBytes = 65_536
+    val scratchMemSizeInBytes = 65_536
 
     open class ReferencableElements<Ir, Wasm : Any> {
         val unbound = mutableMapOf<Ir, WasmSymbol<Wasm>>()

compiler/ir/backend.wasm/src/org/jetbrains/kotlin/backend/wasm/ir2wasm/WasmModuleCodegenContextImpl.kt

@@ -25,6 +25,9 @@ class WasmModuleCodegenContextImpl(
     override val scratchMemAddr: WasmSymbol<Int>
         get() = wasmFragment.scratchMemAddr
 
+    override val scratchMemSizeInBytes: Int
+        get() = wasmFragment.scratchMemSizeInBytes
+
     override fun transformType(irType: IrType): WasmType {
         return with(typeTransformer) { irType.toWasmValueType() }
     }