diff options
author | Xander <xander@biltopia.org> | 2023-07-24 21:22:40 +0200 |
---|---|---|
committer | Xander <xander@biltopia.org> | 2023-07-24 21:22:40 +0200 |
commit | 6cacc45cdf11ca0e605bb7c6356c569c8aed760b (patch) | |
tree | ab1f695570982d85baabf7b554b75154d48502af /kernel/main.dats | |
parent | 58096a11ea200d4caf656bac712cde24daa8a697 (diff) | |
download | ats-os-6cacc45cdf11ca0e605bb7c6356c569c8aed760b.tar.xz ats-os-6cacc45cdf11ca0e605bb7c6356c569c8aed760b.zip |
Prepare big dynload refactor
Diffstat (limited to 'kernel/main.dats')
-rw-r--r-- | kernel/main.dats | 11 |
1 files changed, 7 insertions, 4 deletions
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 + |