diff options
Diffstat (limited to 'list.asm')
| -rw-r--r-- | list.asm | 80 |
1 files changed, 72 insertions, 8 deletions
@@ -95,22 +95,28 @@ list_clear: ;; {{{ ret ;; }}} -list_append: ;; {{{ - - enter 0x18, 0 - - mov [rsp], rdi - mov [rsp + 8], rsi +%macro rethrow_create_element 0 mov rdi, elem_t_size call malloc test rax, rax - jne .malloc_succeed + jne %%malloc_succeed mov rax, -1 jmp .end - .malloc_succeed: + %%malloc_succeed +%endmacro + +list_append: ;; {{{ + + enter 0x18, 0 + + mov [rsp], rdi + mov [rsp + 8], rsi + + rethrow_create_element + ; set the new element mov rsi, QWORD [rsp + 8] mov QWORD [rax + elem_t.next], 0 @@ -141,6 +147,64 @@ list_append: ;; {{{ ret ;; }}} +list_insert: ;; {{{ + + enter 0, 0 + + cmp edx, DWORD [rdi + list_t.size] + jg .error + + inc DWORD [rdi + list_t.size] + + push rdx + push rsi + push rdi + rethrow_create_element + pop rdi + pop rsi + pop rcx + + ; set the element + mov QWORD [rax + elem_t.value], rsi + + test ecx, ecx + jnz .insert + + ; this will be the first element + mov r8, QWORD [rdi + list_t.first] + mov QWORD [rax + elem_t.next], r8 + mov QWORD [rdi + list_t.first], rax + + jmp .success + + ; this is not the first element + .insert: + mov rdi, QWORD [rdi + list_t.first] + + .loop: + dec ecx + test ecx, ecx + jz .loop_ended + mov rdi, QWORD [rdi + elem_t.next] + jmp .loop + + .loop_ended: + mov r8, QWORD [rdi + elem_t.next] + mov QWORD [rax + elem_t.next], r8 + mov QWORD [rdi + elem_t.next], rax + + .success: + xor rax, rax + jmp .end + + .error: + mov rax, -1 + + .end: + leave + ret + +;; }}} list_apply: ;; {{{ enter 0x14, 0 |