Some build fixes and some work on making .Compiler a runtime library load

Author: UplinkCoder

.github/vc.bat

@@ -0,0 +1,9 @@
+@echo off
+
+for /f "usebackq tokens=*" %%i in (`vswhere -latest -products * -requires Microsoft.VisualStudio.Component.VC.Tools.x86.x64 -property installationPath`) do (
+  set InstallDir=%%i
+)
+
+if exist "%InstallDir%\Common7\Tools\vsdevcmd.bat" (
+  "%InstallDir%\Common7\Tools\vsdevcmd.bat" %*
+)

codegen/metac_codegen.c

@@ -477,13 +477,6 @@ void MetaCCodegen_Init(metac_bytecode_ctx_t* self, metac_alloc_t* parentAlloc)
     // ARENA_ARRAY_INIT(sema_decl_variable_t, self->Locals, &self->Allocator);
     ARENA_ARRAY_INIT(BCValue, self->Globals, &self->Allocator);
     self->GlobalMemoryOffset = 4;
-
-#if METAC_COMPILER_INTERFACE
-    metac_external_entry_t* extCompP = self->Externals + 0;
-    extCompP->externalAddress = &compiler;
-    extCompP->externalSize = sizeof(compiler);
-    self->ExternalsCount = 1;
-#endif
 }
 
 void MetaCCodegen_Free(metac_bytecode_ctx_t* self)
@@ -533,7 +526,7 @@ static void InitCompilerInterface(metac_bytecode_ctx_t* ctx)
             ctx->Sema->CompilerInterface->TypeIndex.Index;
 
         ctx->CompilerInterfaceValue = gen.GenExternal(c, compilerInterfaceType, ".compiler");
-        gen.MapExternal(c, &ctx->CompilerInterfaceValue, &compiler, sizeof(compiler));
+        // gen.MapExternal(c, &ctx->CompilerInterfaceValue, &compiler, sizeof(compiler));
         ctx->Externals[0].ExtValue = ctx->CompilerInterfaceValue;
         ctx->ExternalsCount += 1;
     }
@@ -695,7 +688,7 @@ metac_bytecode_function_t MetaCCodegen_GenerateFunction(metac_bytecode_ctx_t* ct
             ctx->Sema->CompilerInterface->TypeIndex.Index;
 
         ctx->CompilerInterfaceValue = gen.GenExternal(c, compilerInterfaceType, ".compiler");
-        gen.MapExternal(c, &ctx->CompilerInterfaceValue, &compiler, sizeof(compiler));
+//        gen.MapExternal(c, &ctx->CompilerInterfaceValue, &compiler, sizeof(compiler));
         ctx->Externals[0].ExtValue = ctx->CompilerInterfaceValue;
         frameSize += sizeof(void*);
     }
@@ -920,7 +913,10 @@ static void MetaCCodegen_doCastExpr(metac_bytecode_ctx_t* ctx,
 
     assert(exp->Kind == expr_cast);
 
-    if (TYPE_INDEX_KIND(castToType) == TYPE_INDEX_KIND(castFromType) && )
+    if (castToKind == castFromKind && castToKind == type_index_ptr)
+    {
+        
+    }
 
     if (castToType.v == TYPE_INDEX_V(type_index_basic, type_float))
     {
@@ -1422,7 +1418,7 @@ static void MetaCCodegen_doExpr(metac_bytecode_ctx_t* ctx,
                 }
                 sz = imm32(currentOffset);
 
-                BCValue address = gen.GenTemporary(c, BCType_u64);
+                BCValue address = gen.GenTemporary(c, BCType_u32);
                 gen.Alloc(c, &address, &sz);
                 gen.Set(c, result, &address);
                 for(uint32_t i = 0; i < exp->TupleExprCount; i++)

gen_code.sh

@@ -13,3 +13,9 @@ $CC $CFLAGS utils/gen_metac_keyword_keys.c -o gen_metac_keyword_keys
 
 $CC $CFLAGS utils/gen_metac_match_keyword.c -o gen_metac_match_keyword
 ./gen_metac_match_keyword > generated/metac_match_keyword.inl
+
+$CC $CFLAGS utils/gen_metac_type_kind.c -o gen_metac_type_kind -g3 \
+    -DHEADER_PATH=\"compiler_intrinsics/metac_type_kind.h\" \
+    -DCODE_PATH=\"compiler_intrinsics/metac_type_kind.c\"
+    
+./gen_metac_type_kind

libinterpret/bc_common.c

@@ -957,6 +957,7 @@ BCTypeEnum BCTypeEnum_commonTypeEnum(BCTypeEnum lhs, BCTypeEnum rhs)
 static const BCType BCType_i32 = {BCTypeEnum_i32};
 static const BCType BCType_u32 = {BCTypeEnum_u32};
 
+static const BCType BCType_u64 = {BCTypeEnum_u64};
 
 static inline BCValue BCValue_u32(const BCValue* v)
 {
@@ -965,6 +966,13 @@ static inline BCValue BCValue_u32(const BCValue* v)
     return result;
 }
 
+static inline BCValue BCValue_u64(const BCValue* v)
+{
+    BCValue result = *v;
+    result.type = BCType_u64;
+    return result;
+}
+
 #undef offsetof
 
 #endif

libinterpret/bc_common.h

@@ -426,10 +426,12 @@ static const BCTypeEnum smallIntegerTypes[] = {BCTypeEnum_u16, BCTypeEnum_u8,
 
 static const BCType BCType_i32;
 static const BCType BCType_u32;
+static const BCType BCType_u64;
 
 
 EXTERN_C BCTypeEnum BCTypeEnum_commonTypeEnum(BCTypeEnum lhs, BCTypeEnum rhs);
 static inline BCValue BCValue_u32(const BCValue* v);
+static inline BCValue BCValue_u64(const BCValue* v);
 
 static inline void AllocDefaultHeap(BCHeap* newHeap);
 

repl/linenoise_repl.c

@@ -158,7 +158,7 @@ int main(int argc, const char* argv[])
     linenoiseHistoryLoad(".repl_history");
 
 #ifdef METAC_COMPILER_INTERFACE
-    compiler.Message = doUiMessage;
+//    compiler.Message = doUiMessage;
 #endif
     g_uiContext = &ctx;
 #if !defined(NO_FIBERS)

repl/repl.c

@@ -8,7 +8,7 @@
 
 #include "../parser/metac_parser_obj.c"
 #include "../semantic/metac_semantic_obj.c"
-#include "../compiler_intrinsics/metac_compiler_interface.c"
+#include "../compiler_intrinsics/metac_compiler_interface.h"
 #include "../driver/metac_driver.c"
 #include "../os/bsr.h"
 #include "../hash/crc32c.h"
@@ -34,8 +34,6 @@ uint64_t endTs;
 
 uint64_t get_timestamp_micros() {
     struct timespec ts;
-    // CLOCK_MONOTONIC ist am besten für Intervalle
-    // CLOCK_MONOTONIC_RAW kann noch präziser sein, aber manchmal teurer abzufragen
     clock_gettime(CLOCK_MONOTONIC, &ts); 
     return (uint64_t)ts.tv_sec * 1000000 + ts.tv_nsec / 1000;
 }

utils/gen_metac_type_kind.c

@@ -44,7 +44,9 @@ int main(int argc, const char* argv[])
     typeKindNames = malloc(sizeof(char *) * typeKindCount);
 
     {
+#ifndef HEADER_PATH
 #define HEADER_PATH "../compiler_intrinsics/metac_type_kind.h"
+#endif
         FILE *header = fopen(HEADER_PATH ,"w+");
 
         fprintf(header, "#ifndef %s\n", INCLUDE_GUARD_NAME);
@@ -74,7 +76,10 @@ int main(int argc, const char* argv[])
     }
 
     {
-        FILE *code = fopen("../compiler_intrinsics/metac_type_kind.c","w+");
+#ifndef HEADER_PATH
+#define CODE_PATH "../compiler_intrinsics/metac_type_kind.c"
+#endif
+        FILE *code = fopen(CODE_PATH, "w+");
 
         fprintf(code, "#include \"" HEADER_PATH "\"\n");
         fprintf(code, "const char* MetaCTypeKind_toChars(%s value)\n", enumName);