krzosa/corelang
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Stage arena is not a sub

Browse Source
This commit is contained in:
Krzosa Karol
2022-06-18 09:53:40 +02:00
parent 28f89def4b
commit 3ba8bd08fb
3 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
compiler.h
View File

@@ -242,8 +242,8 @@ parse_init(Parse_Ctx *ctx, Allocator *perm_allocator, Allocator *heap_allocator)
ctx->ordered_decls = {ctx->heap}; ctx->ordered_decls = {ctx->heap};
ctx->type_map = {ctx->heap}; ctx->type_map = {ctx->heap};
ctx->modules = {ctx->heap}; ctx->modules = {ctx->heap};
ctx->stage_arena = arena_sub(perm_allocator, mib(4), "Compiler stage arena"_s);
bigint_allocator = ctx->perm; bigint_allocator = ctx->perm;
arena_init(&ctx->stage_arena, "Compiler stage arena"_s);
lex_init(ctx->perm, ctx->heap, ctx); lex_init(ctx->perm, ctx->heap, ctx);
ctx->builtins = ast_module(ctx->intern("builtins"_s)); ctx->builtins = ast_module(ctx->intern("builtins"_s));

4
main.cpp
View File

@@ -176,10 +176,14 @@ int main(int argument_count, char **arguments){
F64 total_time = os_time(); F64 total_time = os_time();
begin_compilation(); begin_compilation();
Ast_Module *module = add_module(pctx->intern(program_name)); Ast_Module *module = add_module(pctx->intern(program_name));
parse_all_modules(); parse_all_modules();
assert(module); assert(module);
resolve_everything_in_module(module); resolve_everything_in_module(module);
arena_clear(&pctx->stage_arena);
String result = get_compilation_result(); String result = get_compilation_result();
assert(os_write_file("program.c"_s, result)); assert(os_write_file("program.c"_s, result));
{ {

3
programs/main.kl
View File

@@ -69,9 +69,6 @@ WinMain :: (hInstance: HINSTANCE, hPrevInstance: HINSTANCE, lpCmdLine: LPSTR, nS
} }
assert(RegisterClassW(&w) != 0) assert(RegisterClassW(&w) != 0)
buff: *char = allocate(100)
thing: int = buff
screen_size: Vec2I = {1280, 720} screen_size: Vec2I = {1280, 720}
window := CreateWindowExW( window := CreateWindowExW(
dwExStyle = 0, hWndParent = 0, hMenu = 0, lpParam = 0, dwExStyle = 0, hWndParent = 0, hMenu = 0, lpParam = 0,