nub31/nub-lang-archive-2
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Align to 24 bytes

Browse Source
This commit is contained in:
nub31
2025-02-03 16:02:15 +01:00
parent c19fa678c8
commit 9feec7f659
2 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Nub.Lang/Nub.Lang/Nub.Lang.csproj
View File

@@ -8,7 +8,7 @@
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<PackageReference Include="Nub.Core" Version="1.0.2" /> <PackageReference Include="Nub.Core" Version="1.0.1" />
</ItemGroup> </ItemGroup>
</Project> </Project>

24
input/baseline/gc.asm
View File

@@ -16,7 +16,7 @@ gc_init:
ret ret
gc_alloc: gc_alloc:
add rdi, 17 ; add space for metadata add rdi, 24 ; add space for metadata
mov rdx, [total_alloc_b] ; load total allocations in bytes mov rdx, [total_alloc_b] ; load total allocations in bytes
cmp rdx, [gc_threshold_b] ; has total exceeded threshold? cmp rdx, [gc_threshold_b] ; has total exceeded threshold?
jae .collect ; yes? run gc jae .collect ; yes? run gc
@@ -35,11 +35,11 @@ gc_alloc:
call sys_mmap ; allocate size + metadata call sys_mmap ; allocate size + metadata
pop rdi pop rdi
mov byte [rax], 0 ; set mark to 0 mov byte [rax], 0 ; set mark to 0
mov qword [rax + 1], rdi ; set total size of object (including metadata) mov qword [rax + 8], rdi ; set total size of object (including metadata)
mov rsi, [alloc_list] ; load first item in allocation list mov rsi, [alloc_list] ; load first item in allocation list
mov qword [rax + 9], rsi ; make current head of allocation list the next item in this object mov qword [rax + 16], rsi ; make current head of allocation list the next item in this object
mov [alloc_list], rax ; update head of allocation list so it points to this object mov [alloc_list], rax ; update head of allocation list so it points to this object
add rax, 17 ; skip metadata for return value add rax, 24 ; skip metadata for return value
ret ret
gc_collect: gc_collect:
@@ -73,17 +73,17 @@ gc_mark:
.loop: .loop:
test rsi, rsi ; reached end of list? test rsi, rsi ; reached end of list?
jz .done ; yes? return jz .done ; yes? return
lea rdx, [rsi + 17] lea rdx, [rsi + 24]
cmp rdx, rdi ; no? is this the input object? cmp rdx, rdi ; no? is this the input object?
je .mark_object ; yes? mark it je .mark_object ; yes? mark it
mov rsi, [rsi + 9] ; no? next item mov rsi, [rsi + 16] ; no? next item
jmp .loop jmp .loop
.mark_object: .mark_object:
mov al, [rdi] ; load mark mov al, [rdi] ; load mark
test al, al ; already marked? test al, al ; already marked?
jnz .done ; yes? return jnz .done ; yes? return
mov byte [rdi - 17], 1 ; mark object mov byte [rdi - 24], 1 ; mark object
mov rcx, [rdi + 1] ; load object size mov rcx, [rdi + 8] ; load object size
mov rdx, rdi ; start of data mov rdx, rdi ; start of data
add rcx, rdx ; end of data add rcx, rdx ; end of data
.scan_object: .scan_object:
@@ -107,20 +107,20 @@ gc_sweep:
jz .free ; no? free it jz .free ; no? free it
mov byte [rdi], 0 ; yes? clear mark for next marking mov byte [rdi], 0 ; yes? clear mark for next marking
mov rsi, rdi mov rsi, rdi
mov rdi, [rdi + 9] ; load the next object in the list mov rdi, [rdi + 16] ; load the next object in the list
jmp .loop ; repeat jmp .loop ; repeat
.free: .free:
mov rdx, [rdi + 9] ; save address of next object in list mov rdx, [rdi + 16] ; save address of next object in list
test rsi, rsi test rsi, rsi
jz .remove_head jz .remove_head
mov [rsi + 9], rdx ; unlink the current node by setting the previous node's next to the next node's address mov [rsi + 16], rdx ; unlink the current node by setting the previous node's next to the next node's address
jmp .free_memory jmp .free_memory
.remove_head: .remove_head:
mov [alloc_list], rdx ; update head node to be the next node mov [alloc_list], rdx ; update head node to be the next node
.free_memory: .free_memory:
push rsi ; save previous node since it will also be the previous node for the next item push rsi ; save previous node since it will also be the previous node for the next item
push rdx ; save next node push rdx ; save next node
mov rsi, [rdi + 1] ; get length of the object mov rsi, [rdi + 8] ; get length of the object
sub [total_alloc_b], rsi ; remove this allocation from total allocations sub [total_alloc_b], rsi ; remove this allocation from total allocations
call sys_munmap ; free the memory call sys_munmap ; free the memory
pop rdi ; input for next iteration pop rdi ; input for next iteration