	.section	__TEXT,__text,regular,pure_instructions
	.build_version macos, 13, 0	sdk_version 13, 3
	.globl	_ada_get_base_type              ## -- Begin function ada_get_base_type
	.p2align	4, 0x90
_ada_get_base_type:                     ## @ada_get_base_type
	.cfi_startproc
## %bb.0:
	pushq	%rbp
	.cfi_def_cfa_offset 16
	.cfi_offset %rbp, -16
	movq	%rsp, %rbp
	.cfi_def_cfa_register %rbp
	pushq	%r15
	pushq	%r14
	pushq	%rbx
	pushq	%rax
	.cfi_offset %rbx, -40
	.cfi_offset %r14, -32
	.cfi_offset %r15, -24
	testq	%rdi, %rdi
	je	LBB0_1
## %bb.2:
	movq	%rdi, %rbx
	callq	_TYPE_CODE
	movq	_TYPE_CODE_STRUCT@GOTPCREL(%rip), %r15
	cmpq	(%r15), %rax
	jne	LBB0_7
## %bb.3:
	leaq	L_.str(%rip), %rsi
	movq	%rbx, %rdi
	callq	_ada_find_parallel_type
	testq	%rax, %rax
	je	LBB0_7
## %bb.4:
	movq	%rax, %r14
	movq	%rax, %rdi
	callq	_TYPE_CODE
	cmpq	(%r15), %rax
	jne	LBB0_7
## %bb.5:
	movq	%r14, %rdi
	callq	_TYPE_NFIELDS
	cmpl	$1, %eax
	jne	LBB0_7
## %bb.6:
	movq	%r14, %rdi
	xorl	%esi, %esi
	callq	_TYPE_FIELD_NAME
	movl	%eax, %edi
	callq	_ada_find_any_type
	testq	%rax, %rax
	cmovneq	%rax, %rbx
	jmp	LBB0_7
LBB0_1:
	xorl	%ebx, %ebx
LBB0_7:
	movq	%rbx, %rax
	addq	$8, %rsp
	popq	%rbx
	popq	%r14
	popq	%r15
	popq	%rbp
	retq
	.cfi_endproc
                                        ## -- End function
	.comm	_TYPE_CODE_STRUCT,8,3           ## @TYPE_CODE_STRUCT
	.section	__TEXT,__cstring,cstring_literals
L_.str:                                 ## @.str
	.asciz	"___XVS"

.subsections_via_symbols

	.section	__TEXT,__text,regular,pure_instructions
	.build_version macos, 13, 0	sdk_version 13, 3
	.globl	_ada_get_base_type              ; -- Begin function ada_get_base_type
	.p2align	2
_ada_get_base_type:                     ; @ada_get_base_type
	.cfi_startproc
; %bb.0:
	stp	x22, x21, [sp, #-48]!           ; 16-byte Folded Spill
	.cfi_def_cfa_offset 48
	stp	x20, x19, [sp, #16]             ; 16-byte Folded Spill
	stp	x29, x30, [sp, #32]             ; 16-byte Folded Spill
	add	x29, sp, #32
	.cfi_def_cfa w29, 16
	.cfi_offset w30, -8
	.cfi_offset w29, -16
	.cfi_offset w19, -24
	.cfi_offset w20, -32
	.cfi_offset w21, -40
	.cfi_offset w22, -48
	mov	x19, x0
	cbz	x0, LBB0_6
; %bb.1:
	mov	x0, x19
	bl	_TYPE_CODE
Lloh0:
	adrp	x21, _TYPE_CODE_STRUCT@GOTPAGE
Lloh1:
	ldr	x21, [x21, _TYPE_CODE_STRUCT@GOTPAGEOFF]
	ldr	x8, [x21]
	cmp	x0, x8
	b.ne	LBB0_6
; %bb.2:
Lloh2:
	adrp	x1, l_.str@PAGE
Lloh3:
	add	x1, x1, l_.str@PAGEOFF
	mov	x0, x19
	bl	_ada_find_parallel_type
	cbz	x0, LBB0_6
; %bb.3:
	mov	x20, x0
	bl	_TYPE_CODE
	ldr	x8, [x21]
	cmp	x0, x8
	b.ne	LBB0_6
; %bb.4:
	mov	x0, x20
	bl	_TYPE_NFIELDS
	cmp	w0, #1
	b.ne	LBB0_6
; %bb.5:
	mov	x0, x20
	mov	w1, #0
	bl	_TYPE_FIELD_NAME
	bl	_ada_find_any_type
	cmp	x0, #0
	csel	x19, x19, x0, eq
LBB0_6:
	mov	x0, x19
	ldp	x29, x30, [sp, #32]             ; 16-byte Folded Reload
	ldp	x20, x19, [sp, #16]             ; 16-byte Folded Reload
	ldp	x22, x21, [sp], #48             ; 16-byte Folded Reload
	ret
	.loh AdrpLdrGot	Lloh0, Lloh1
	.loh AdrpAdd	Lloh2, Lloh3
	.cfi_endproc
                                        ; -- End function
	.comm	_TYPE_CODE_STRUCT,8,3           ; @TYPE_CODE_STRUCT
	.section	__TEXT,__cstring,cstring_literals
l_.str:                                 ; @.str
	.asciz	"___XVS"

.subsections_via_symbols
