summaryrefslogtreecommitdiff
path: root/list.asm
diff options
context:
space:
mode:
authorOlivier Gayot <duskcoder@gmail.com>2014-02-06 21:25:58 +0100
committerOlivier Gayot <duskcoder@gmail.com>2014-02-14 01:41:53 +0100
commite049fbc7fe8f8661bc717dad2749e09b269a8737 (patch)
tree133a6d587929cb2b0a7674d007854af18702b736 /list.asm
parent575b1f4a207b0b486c2f80c04abe6f67f2a11cea (diff)
rename list.s in list.asm
the files with '.s' extension are not properly displayed by github.
Diffstat (limited to 'list.asm')
-rw-r--r--list.asm165
1 files changed, 165 insertions, 0 deletions
diff --git a/list.asm b/list.asm
new file mode 100644
index 0000000..91df0a7
--- /dev/null
+++ b/list.asm
@@ -0,0 +1,165 @@
+;; The MIT License (MIT)
+;;
+;; Copyright (c) 2013-2014 Olivier Gayot
+;;
+;; Permission is hereby granted, free of charge, to any person obtaining a copy
+;; of this software and associated documentation files (the "Software"), to deal
+;; in the Software without restriction, including without limitation the rights
+;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+;; copies of the Software, and to permit persons to whom the Software is
+;; furnished to do so, subject to the following conditions:
+;;
+;; The above copyright notice and this permission notice shall be included in
+;; all copies or substantial portions of the Software.
+;;
+;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+;; THE SOFTWARE.
+
+[BITS 64]
+
+extern malloc
+
+;; initializes the list stored at address $rdi with default values
+global list_init
+
+;; dynamically allocate a new list and return its address via $rax. If
+;; the dynamic allocation unlikely fails, $rax will contain a null pointer
+global list_new_raw
+
+;; same as list_new_raw, unless the list is initialized with default values
+global list_new
+
+;; create a new element (using dynamic allocation) at the end of the list
+;; stored at address $rdi. the created element will contain the value of $rsi
+;; if, unlikely, the allocation fails, $rax will contain -1.
+;; otherwise (on success), $rax will be set to 0
+global list_append
+
+;; for every element in the list stored at address $rdi, call the function
+;; pointed to by $rsi with the value of the current element.
+global list_apply
+
+section .text
+
+list_init: ;; {{{
+
+ enter 0, 0
+
+ mov QWORD [rdi], 0 ; first = NULL
+ mov DWORD [rdi + 8], 0 ; size = 0
+
+ leave
+ ret
+
+;; }}}
+list_new: ;; {{{
+
+ call list_new_raw
+
+ test rax, rax
+ je list_new_end
+
+ mov rdi, rax
+ call list_init
+
+ list_new_end:
+ ret
+
+;; }}}
+list_new_raw: ;; {{{
+
+ enter 0, 0
+
+ mov rdi, 0xc
+ call malloc
+
+ leave
+ ret
+
+;; }}}
+list_append: ;; {{{
+
+ enter 0x18, 0
+
+ mov [rsp], rdi
+ mov [rsp + 8], rsi
+
+ mov rdi, 0x10
+ call malloc
+
+ test rax, rax
+ jne list_append_malloc_succeed
+ mov rax, -1
+ jmp list_append_end
+
+ list_append_malloc_succeed:
+ ; set the new element
+ mov rsi, QWORD [rsp + 8]
+ mov QWORD [rax], 0
+ mov QWORD [rax + 8], rsi
+
+ mov rdi, [rsp]
+ mov ecx, [rdi + 8]
+
+ list_append_loop:
+ test ecx, ecx
+ je list_append_set_elem
+ dec ecx
+ mov rdi, QWORD [rdi]
+ jmp list_append_loop
+
+ list_append_set_elem:
+ ; set the next element
+ mov [rdi], rax
+
+ ; increment size
+ mov rdi, QWORD [rsp]
+ inc DWORD [rdi + 8]
+
+ xor rax, rax
+
+ list_append_end:
+ leave
+ ret
+
+;; }}}
+list_apply: ;; {{{
+
+ enter 0x14, 0
+
+ mov QWORD [rsp], rsi
+
+ mov ecx, DWORD [rdi + 8]
+
+ list_apply_loop:
+ test ecx, ecx
+ je list_apply_end
+ dec ecx
+ ; elem = list->first or elem = elem->next
+ mov rdi, QWORD [rdi]
+
+ ; backup our registers
+ mov DWORD [rsp + 8], ecx
+ mov QWORD [rsp + 0xc], rdi
+
+ mov rdi, QWORD [rdi + 8]
+ call QWORD [rsp]
+
+ ; get back the registers
+ mov ecx, DWORD [rsp + 8]
+ mov rdi, QWORD [rsp + 0xc]
+
+ jmp list_apply_loop
+
+ list_apply_end:
+ leave
+ ret
+
+;; }}}
+
+; vim:ft=nasm