1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
; **************************************************************************** ;
; ;
; ::: :::::::: ;
; ft_list_remove_if.s :+: :+: :+: ;
; +:+ +:+ +:+ ;
; By: cacharle <marvin@42.fr> +#+ +:+ +#+ ;
; +#+#+#+#+#+ +#+ ;
; Created: 2019/11/25 04:23:22 by cacharle #+# #+# ;
; Updated: 2019/11/25 04:23:22 by cacharle ### ########.fr ;
; ;
; **************************************************************************** ;
%include "libasm.s"
%ifdef __LINUX__
%define M_FT_LIST_REMOVE_IF ft_list_remove_if
%define M_FREE free
%else
%define M_FT_LIST_REMOVE_IF _ft_list_remove_if
%define M_FREE _free
%endif
global M_FT_LIST_REMOVE_IF
extern M_FREE
%define NULL 0x0
%macro EXTERN_FUNCTION_SAVE 0
push rdi
push rsi
push rdx
push rcx
%endmacro
%macro EXTERN_FUNCTION_SAVE_END 0
pop rcx
pop rdx
pop rsi
pop rdi
%endmacro
; ft_list_remove_if(t_list **begin_list, void *data_ref,
; int (*cmp)(void *data, void *data_ref),
; void (*free_fct)(void *))
M_FT_LIST_REMOVE_IF:
; t_list *saved_next
; === prolog ===
push rbp
mov rbp, rsp
sub rsp, 8
; === base condition ===
cmp rdi, NULL
je FT_LIST_REMOVE_IF_END
cmp qword [rdi], NULL
je FT_LIST_REMOVE_IF_END
; === compare (*begin_list)->data and data_ref
EXTERN_FUNCTION_SAVE
mov rdi, [rdi]
mov rdi, [rdi + 0]
call rdx ; cmp((*begin_list)->data, data_ref)
EXTERN_FUNCTION_SAVE_END
cmp rax, 0
je FT_LIST_REMOVE_IF_REMOVE
; === next element ===
push rdi
mov rdi, [rdi]
lea rdi, [rdi + 8]
call M_FT_LIST_REMOVE_IF
pop rdi
jmp FT_LIST_REMOVE_IF_END
; === remove head and go next ===
FT_LIST_REMOVE_IF_REMOVE:
mov rax, [rdi] ; rax = *begin_list
mov rax, [rax + 8] ; rax = rax->next
mov [rbp - 8], rax ; saved_next = (*begin_list)->next
push rdi ; strange behavior
EXTERN_FUNCTION_SAVE
mov rdi, [rdi]
mov rdi, [rdi + 0]
call rcx ; free_fct((*begin_list)->data)
EXTERN_FUNCTION_SAVE_END
pop rdi
EXTERN_FUNCTION_SAVE
mov rdi, [rdi]
call M_FREE M_EXTERN_CALL_SUFFIX ; free(*begin_list)
EXTERN_FUNCTION_SAVE_END
mov rax, [rbp - 8]
mov [rdi], rax
call M_FT_LIST_REMOVE_IF
FT_LIST_REMOVE_IF_END:
; === epilog ===
mov rsp, rbp
pop rbp
ret
|
