From e049fbc7fe8f8661bc717dad2749e09b269a8737 Mon Sep 17 00:00:00 2001
From: Olivier Gayot <duskcoder@gmail.com>
Date: Thu, 6 Feb 2014 21:25:58 +0100
Subject: rename list.s in list.asm

the files with '.s' extension are not properly displayed by github.
---
 list.s | 163 -----------------------------------------------------------------
 1 file changed, 163 deletions(-)
 delete mode 100644 list.s

(limited to 'list.s')

diff --git a/list.s b/list.s
deleted file mode 100644
index 0b5a1fc..0000000
--- a/list.s
+++ /dev/null
@@ -1,163 +0,0 @@
-;; 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
-
-;; }}}
-- 
cgit v1.2.3