Fix wasm target

backend.native/compiler/ir/backend.native/src/org/jetbrains/kotlin/backend/konan/Context.kt

@@ -45,6 +45,7 @@ import org.jetbrains.kotlin.ir.visitors.IrElementVisitorVoid
 import org.jetbrains.kotlin.ir.visitors.acceptChildrenVoid
 import org.jetbrains.kotlin.ir.visitors.acceptVoid
 import org.jetbrains.kotlin.konan.target.CompilerOutputKind
+import org.jetbrains.kotlin.konan.target.KonanTarget
 import org.jetbrains.kotlin.name.FqName
 import org.jetbrains.kotlin.psi2ir.generators.GeneratorContext
 import org.jetbrains.kotlin.resolve.DescriptorUtils
@@ -384,5 +385,9 @@ internal class Context(config: KonanConfig) : KonanBackendContext(config) {
     val isDynamicLibrary: Boolean by lazy {
         config.configuration.get(KonanConfigKeys.PRODUCE) == CompilerOutputKind.DYNAMIC
     }
+
+    val isWasmTarget: Boolean by lazy {
+        config.targetManager.target == KonanTarget.WASM32
+    }
 }
 

backend.native/compiler/ir/backend.native/src/org/jetbrains/kotlin/backend/konan/LinkStage.kt

@@ -86,10 +86,11 @@ internal class LinkStage(val context: Context) {
 
     private fun bitcodeToWasm(bitcodeFiles: List<BitcodeFile>): String {
         val combinedBc = temporary("combined", ".bc")
-        hostLlvmTool("llvm-link", bitcodeFiles + listOf("-o", combinedBc))
-
+        hostLlvmTool("llvm-link", bitcodeFiles + listOf("-o", combinedBc, "-internalize"))
+        val optimizedBc = temporary("opted", ".bc")
+        hostLlvmTool("opt", listOf(combinedBc, "-o", optimizedBc, "-O2"))
         val combinedS = temporary("combined", ".s")
-        targetTool("llc", combinedBc, "-o", combinedS)
+        targetTool("llc", optimizedBc, "-o", combinedS)
 
         val s2wasmFlags = (platform.configurables as WasmConfigurables).s2wasmFlags.toTypedArray()
         val combinedWast = temporary( "combined", ".wast")

backend.native/compiler/ir/backend.native/src/org/jetbrains/kotlin/backend/konan/llvm/BinaryInterface.kt

@@ -270,3 +270,6 @@ internal val ClassDescriptor.objectInstanceFieldSymbolName: String
 
 internal val ClassDescriptor.typeInfoHasVtableAttached: Boolean
     get() = !this.isAbstract() && !this.isExternalObjCClass()
+
+internal fun FunctionDescriptor.isExportedForCppRuntime() =
+        annotations.hasAnnotation(exportForCppRuntimeAnnotation)

backend.native/compiler/ir/backend.native/src/org/jetbrains/kotlin/backend/konan/llvm/IrToBitcode.kt

@@ -629,6 +629,10 @@ internal class CodeGeneratorVisitor(val context: Context, val lifetimes: Map<IrE
         }.toMap()
     }
 
+    private fun shouldExportFunction(descriptor: FunctionDescriptor) =
+            descriptor.usedAnnotation
+            || (context.isWasmTarget && descriptor.isExportedForCppRuntime())
+
     override fun visitFunction(declaration: IrFunction) {
         context.log{"visitFunction                  : ${ir2string(declaration)}"}
         val body = declaration.body
@@ -656,7 +660,7 @@ internal class CodeGeneratorVisitor(val context: Context, val lifetimes: Map<IrE
         }
 
 
-        if (declaration.descriptor.usedAnnotation) {
+        if (shouldExportFunction(declaration.descriptor)) {
             context.llvm.usedFunctions.add(codegen.llvmFunction(declaration.descriptor))
         }
 

backend.native/compiler/ir/backend.native/src/org/jetbrains/kotlin/backend/konan/llvm/RTTIGenerator.kt

@@ -89,6 +89,11 @@ internal class RTTIGenerator(override val context: Context) : ContextUtils {
             val nameValue = annot.allValueArguments.values.single() as StringValue
             // TODO: use LLVMAddAlias?
             val global = addGlobal(nameValue.value, pointerType(runtime.typeInfoType), isExported = true)
+
+            if (context.isWasmTarget) {
+                context.llvm.usedGlobals += global
+            }
+
             LLVMSetInitializer(global, typeInfoGlobal)
         }
     }

runtime/src/main/cpp/Porting.h

@@ -20,6 +20,8 @@
 #include <stdint.h>
 #include <stddef.h>
 
+#include "Common.h"
+
 namespace konan {
 
 // Console operations.
@@ -43,6 +45,32 @@ void* memmem(const void *big, size_t bigLen, const void *little, size_t littleLe
 int snprintf(char* buffer, size_t size, const char* format, ...);
 size_t strnlen(const char* buffer, size_t maxSize);
 
+
+
+extern "C" {
+#ifdef KONAN_WASM
+
+RUNTIME_USED
+double pow(double x, double y);
+
+RUNTIME_USED
+void *memcpy(void *dst, const void *src, size_t n);
+
+RUNTIME_USED
+void *memmove(void *dst, const void *src, size_t len);
+
+RUNTIME_USED
+int memcmp(const void *s1, const void *s2, size_t n);
+
+RUNTIME_USED
+void *memset(void *b, int c, size_t len);
+
+RUNTIME_USED
+size_t strlen(const char *s);
+
+#endif
+}
+
 // Memory operations.
 void* calloc(size_t count, size_t size);
 void free(void* ptr);