	.section	__TEXT,__text,regular,pure_instructions
	.build_version macos, 13, 0	sdk_version 13, 3
	.globl	_ada_value_ptr_subscript        ## -- Begin function ada_value_ptr_subscript
	.p2align	4, 0x90
_ada_value_ptr_subscript:               ## @ada_value_ptr_subscript
	.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	%r13
	pushq	%r12
	pushq	%rbx
	subq	$24, %rsp
	.cfi_offset %rbx, -56
	.cfi_offset %r12, -48
	.cfi_offset %r13, -40
	.cfi_offset %r14, -32
	.cfi_offset %r15, -24
	movq	%rcx, -48(%rbp)                 ## 8-byte Spill
	movq	%rdi, %r12
	testl	%edx, %edx
	jle	LBB0_7
## %bb.1:
	movq	%rsi, %r15
	movl	%edx, %r14d
	xorl	%ebx, %ebx
	jmp	LBB0_2
	.p2align	4, 0x90
LBB0_6:                                 ##   in Loop: Header=BB0_2 Depth=1
	movq	%r12, %rdi
	movq	%r13, %rsi
	callq	_value_add
	movq	%rax, %r12
	movq	%r15, %rdi
	callq	_TYPE_TARGET_TYPE
	movq	%rax, %r15
	incq	%rbx
	cmpq	%rbx, %r14
	je	LBB0_7
LBB0_2:                                 ## =>This Inner Loop Header: Depth=1
	movq	%r15, %rdi
	callq	_TYPE_CODE
	movq	_TYPE_CODE_ARRAY@GOTPCREL(%rip), %rcx
	cmpq	(%rcx), %rax
	je	LBB0_4
## %bb.3:                               ##   in Loop: Header=BB0_2 Depth=1
	leaq	L_.str(%rip), %rdi
	movl	%ebx, %esi
	callq	_error
LBB0_4:                                 ##   in Loop: Header=BB0_2 Depth=1
	movq	%r15, %rdi
	callq	_TYPE_TARGET_TYPE
	movq	%rax, %rdi
	callq	_lookup_pointer_type
	movl	%eax, %r13d
	movq	%r12, %rdi
	callq	_value_copy
	movl	%r13d, %edi
	movl	%eax, %esi
	callq	_value_cast
	movq	%rax, %r12
	movq	%r15, %rdi
	callq	_TYPE_INDEX_TYPE
	movl	%eax, %edi
	leaq	-56(%rbp), %rsi
	leaq	-64(%rbp), %rdx
	callq	_get_discrete_bounds
	movq	-56(%rbp), %rsi
	movq	-48(%rbp), %rax                 ## 8-byte Reload
	movq	(%rax,%rbx,8), %r13
	testq	%rsi, %rsi
	je	LBB0_6
## %bb.5:                               ##   in Loop: Header=BB0_2 Depth=1
	movq	_builtin_type_int@GOTPCREL(%rip), %rax
	movl	(%rax), %edi
	callq	_value_from_longest
	movq	%r13, %rdi
	movl	%eax, %esi
	callq	_value_sub
	movq	%rax, %r13
	jmp	LBB0_6
LBB0_7:
	movq	%r12, %rdi
	callq	_value_ind
	addq	$24, %rsp
	popq	%rbx
	popq	%r12
	popq	%r13
	popq	%r14
	popq	%r15
	popq	%rbp
	retq
	.cfi_endproc
                                        ## -- End function
	.comm	_TYPE_CODE_ARRAY,8,3            ## @TYPE_CODE_ARRAY
	.section	__TEXT,__cstring,cstring_literals
L_.str:                                 ## @.str
	.asciz	"too many subscripts (%d expected)"

	.comm	_builtin_type_int,4,2           ## @builtin_type_int
.subsections_via_symbols

	.section	__TEXT,__text,regular,pure_instructions
	.build_version macos, 13, 0	sdk_version 13, 3
	.globl	_ada_value_ptr_subscript        ; -- Begin function ada_value_ptr_subscript
	.p2align	2
_ada_value_ptr_subscript:               ; @ada_value_ptr_subscript
	.cfi_startproc
; %bb.0:
	sub	sp, sp, #112
	.cfi_def_cfa_offset 112
	stp	x28, x27, [sp, #16]             ; 16-byte Folded Spill
	stp	x26, x25, [sp, #32]             ; 16-byte Folded Spill
	stp	x24, x23, [sp, #48]             ; 16-byte Folded Spill
	stp	x22, x21, [sp, #64]             ; 16-byte Folded Spill
	stp	x20, x19, [sp, #80]             ; 16-byte Folded Spill
	stp	x29, x30, [sp, #96]             ; 16-byte Folded Spill
	add	x29, sp, #96
	.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
	.cfi_offset w23, -56
	.cfi_offset w24, -64
	.cfi_offset w25, -72
	.cfi_offset w26, -80
	.cfi_offset w27, -88
	.cfi_offset w28, -96
	mov	x23, x0
	cmp	w2, #1
	b.lt	LBB0_7
; %bb.1:
	mov	x19, x3
	mov	x20, x1
	mov	x21, #0
	mov	w25, w2
Lloh0:
	adrp	x26, _TYPE_CODE_ARRAY@GOTPAGE
Lloh1:
	ldr	x26, [x26, _TYPE_CODE_ARRAY@GOTPAGEOFF]
Lloh2:
	adrp	x27, _builtin_type_int@GOTPAGE
Lloh3:
	ldr	x27, [x27, _builtin_type_int@GOTPAGEOFF]
Lloh4:
	adrp	x22, l_.str@PAGE
Lloh5:
	add	x22, x22, l_.str@PAGEOFF
	b	LBB0_3
LBB0_2:                                 ;   in Loop: Header=BB0_3 Depth=1
	mov	x0, x23
	mov	x1, x24
	bl	_value_add
	mov	x23, x0
	mov	x0, x20
	bl	_TYPE_TARGET_TYPE
	mov	x20, x0
	add	x21, x21, #1
	cmp	x25, x21
	b.eq	LBB0_7
LBB0_3:                                 ; =>This Inner Loop Header: Depth=1
	mov	x0, x20
	bl	_TYPE_CODE
	ldr	x8, [x26]
	cmp	x0, x8
	b.eq	LBB0_5
; %bb.4:                                ;   in Loop: Header=BB0_3 Depth=1
	mov	x0, x22
	mov	x1, x21
	bl	_error
LBB0_5:                                 ;   in Loop: Header=BB0_3 Depth=1
	mov	x0, x20
	bl	_TYPE_TARGET_TYPE
	bl	_lookup_pointer_type
	mov	x24, x0
	mov	x0, x23
	bl	_value_copy
	mov	x1, x0
	mov	x0, x24
	bl	_value_cast
	mov	x23, x0
	mov	x0, x20
	bl	_TYPE_INDEX_TYPE
	add	x1, sp, #8
	mov	x2, sp
	bl	_get_discrete_bounds
	ldr	x1, [sp, #8]
	ldr	x24, [x19, x21, lsl #3]
	cbz	x1, LBB0_2
; %bb.6:                                ;   in Loop: Header=BB0_3 Depth=1
	ldr	w0, [x27]
	bl	_value_from_longest
	mov	x1, x0
	mov	x0, x24
	bl	_value_sub
	mov	x24, x0
	b	LBB0_2
LBB0_7:
	mov	x0, x23
	bl	_value_ind
	ldp	x29, x30, [sp, #96]             ; 16-byte Folded Reload
	ldp	x20, x19, [sp, #80]             ; 16-byte Folded Reload
	ldp	x22, x21, [sp, #64]             ; 16-byte Folded Reload
	ldp	x24, x23, [sp, #48]             ; 16-byte Folded Reload
	ldp	x26, x25, [sp, #32]             ; 16-byte Folded Reload
	ldp	x28, x27, [sp, #16]             ; 16-byte Folded Reload
	add	sp, sp, #112
	ret
	.loh AdrpAdd	Lloh4, Lloh5
	.loh AdrpLdrGot	Lloh2, Lloh3
	.loh AdrpLdrGot	Lloh0, Lloh1
	.cfi_endproc
                                        ; -- End function
	.comm	_TYPE_CODE_ARRAY,8,3            ; @TYPE_CODE_ARRAY
	.section	__TEXT,__cstring,cstring_literals
l_.str:                                 ; @.str
	.asciz	"too many subscripts (%d expected)"

	.comm	_builtin_type_int,4,2           ; @builtin_type_int
.subsections_via_symbols
