Working on frame allocation

1 files changed, 25 insertions, 0 deletions

diff --git a/kernel/memory/frame.sats b/kernel/memory/frame.sats
new file mode 100644
index 0000000..441b85a
--- /dev/null
+++ b/kernel/memory/frame.sats
@@ -0,0 +1,25 @@
+#define PAGE_SIZE 4096
+
+staload "kernel/bootinfo/multiboot.sats"
+
+typedef frame_t = @{
+  num = size_t
+}
+
+typedef frame_allocator_t = @{
+  next_free_frame = frame_t,
+  current_area = memory_area_t,
+  num_areas = size_t,
+  kernel_start = frame_t,
+  kernel_end = frame_t,
+  multiboot_start = frame_t,
+  multiboot_end = frame_t
+}
+
+vtypedef allocptr  = [l : agz] (frame_allocator_t@l , frame_allocator_t@l -<lin,prf> void | ptr l)
+
+fn containing_address {l : addr} (address : ptr l) : frame_t
+
+fn allocate_frame {l : agz}{k : agz} (pf : !frame_allocator_t @ l >> frame_allocator_t @ l, bf : !boot_info_t @ k | p : ptr l, b : ptr k) : frame_t
+ 
+fn deallocate_frame (p : !allocptr) : void