libxasm/obj_alloc.asm at master · shawone/libxasm · GitHub

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
;; Copyright (c) 2017, Nicolas Chevalier <nicolas.chevalier@enicom.org>
;;
;; Permission to use, copy, modify, and distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.
;;
;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

extern	_sel_registerName
extern	_objc_msgSend

global _xasm_obj_alloc

section .text

s1:	db "alloc", 0
s2:	db "init", 0

_xasm_obj_alloc:
	enter 0, 0

	;; alloc
	mov rbx, rdi
	mov rdi, s1
	call _sel_registerName
	mov rdi, rbx
	mov rsi, rax
	call _objc_msgSend

	;; init
	mov rbx, rax
	mov rdi, s2
	call _sel_registerName
	mov rdi, rbx
	mov rsi, rax
	call _objc_msgSend

	leave
	ret