From 6cacc45cdf11ca0e605bb7c6356c569c8aed760b Mon Sep 17 00:00:00 2001 From: Xander Date: Mon, 24 Jul 2023 21:22:40 +0200 Subject: Prepare big dynload refactor --- kernel/main.dats | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'kernel/main.dats') diff --git a/kernel/main.dats b/kernel/main.dats index ecbbb40..48bff24 100644 --- a/kernel/main.dats +++ b/kernel/main.dats @@ -1,7 +1,5 @@ #include "./prelude/kernel_prelude.hats" -#define ATS_DYNLOADFLAG 0 - staload "kernel/interrupts/idt.sats" staload "kernel/bootinfo/multiboot.sats" staload "kernel/memory/frame.sats" @@ -36,8 +34,9 @@ end extern fun breakpoint() :void = "mac#" -extern fun main(p : Ptr1) : void = "ext#" -implement main(p) = let + +extern fun entry(p : Ptr1) : void = "ext#" +implement entry(p) = let val () = clear_screen() // Initialize boot info struct @@ -74,3 +73,7 @@ in end + +// Satisfy ats compiler. Should be called once to dynload files +implement main(argv,argc) = 0 + -- cgit v1.2.3