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/bootinfo/multiboot.sats | 2 +- kernel/main.dats | 11 +++++++---- 2 files changed, 8 insertions(+), 5 deletions(-) (limited to 'kernel') diff --git a/kernel/bootinfo/multiboot.sats b/kernel/bootinfo/multiboot.sats index 0a0dce8..684286b 100644 --- a/kernel/bootinfo/multiboot.sats +++ b/kernel/bootinfo/multiboot.sats @@ -52,7 +52,7 @@ fun boot_info_init(p : Ptr1) : bootptr fn get_memory_mappings_n {l : agz} (pf : !boot_info_t@l | p : ptr l) : [n:nat] size_t n fn get_memory_mapping {l:agz} (pf : !boot_info_t @ l | p : ptr l, n : size_t) : memory_area_t -fn print_memory_mappings (p : !bootptr) : void +fn print_memory_mappings (p : !bootptr) : void // Print all available memory area's fn get_elf_headers_n (p : !bootptr) : [n:nat] size_t n fn get_elf_header (p : !bootptr, n : size_t) : elf64_shdr_t 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