	.file	"11075095.c"
	.intel_syntax noprefix
	.text
	.globl	rcs_id
	.data
	.type	rcs_id, @object
	.size	rcs_id, 5
rcs_id:
	.string	"$Id$"
	.text
	.globl	kwad
	.type	kwad, @function
kwad:
.LFB0:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	mov	DWORD PTR -4[rbp], edi
	mov	eax, DWORD PTR -4[rbp]
	imul	eax, eax
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE0:
	.size	kwad, .-kwad
	.section	.rodata
	.align 8
.LC0:
	.string	"Calling pascal from C doesn't work"
	.text
	.globl	cmain
	.type	cmain, @function
cmain:
.LFB1:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 16
	mov	edi, 7
	mov	eax, 0
	call	twice@PLT
	cmp	eax, 14
	jne	.L4
	mov	edi, -9
	mov	eax, 0
	call	twice@PLT
	cmp	eax, -18
	je	.L5
.L4:
	lea	rdi, .LC0[rip]
	call	puts@PLT
	mov	rax, QWORD PTR stdout[rip]
	mov	rdi, rax
	call	fflush@PLT
	jmp	.L6
.L5:
	mov	eax, 0
	call	incs@PLT
.L6:
	mov	QWORD PTR -8[rbp], 0
	lea	rax, kwad[rip]
	mov	QWORD PTR -16[rbp], rax
	mov	rdx, QWORD PTR -16[rbp]
	mov	rax, QWORD PTR -8[rbp]
	mov	rdi, rdx
	mov	rsi, rax
	mov	eax, 0
	call	cptr@PLT
	nop
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE1:
	.size	cmain, .-cmain
	.section	.rodata
	.align 8
.LC1:
	.string	"Pascal outer procedure static link unequal to zero"
	.align 8
.LC2:
	.string	"Passing pascal functions to C doesn't work"
	.text
	.globl	pptr
	.type	pptr, @function
pptr:
.LFB2:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 16
	mov	rax, rdi
	mov	rcx, rsi
	mov	rdx, rcx
	mov	QWORD PTR -16[rbp], rax
	mov	QWORD PTR -8[rbp], rdx
	mov	rax, QWORD PTR -8[rbp]
	test	rax, rax
	je	.L8
	lea	rdi, .LC1[rip]
	call	puts@PLT
	mov	rax, QWORD PTR stdout[rip]
	mov	rdi, rax
	call	fflush@PLT
.L8:
	mov	rdx, QWORD PTR -16[rbp]
	mov	edi, -7
	mov	eax, 0
	call	rdx
	cmp	eax, -14
	jne	.L9
	mov	rdx, QWORD PTR -16[rbp]
	mov	edi, 9
	mov	eax, 0
	call	rdx
	cmp	eax, 18
	je	.L10
.L9:
	lea	rdi, .LC2[rip]
	call	puts@PLT
	mov	rax, QWORD PTR stdout[rip]
	mov	rdi, rax
	call	fflush@PLT
	jmp	.L11
.L10:
	mov	eax, 0
	call	incs@PLT
.L11:
	nop
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE2:
	.size	pptr, .-pptr
	.globl	callpas
	.type	callpas, @function
callpas:
.LFB3:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	push	rbx
	sub	rsp, 40
	.cfi_offset 3, -24
	mov	rcx, rdi
	mov	rax, rsi
	mov	rbx, rax
	mov	QWORD PTR -32[rbp], rcx
	mov	QWORD PTR -24[rbp], rbx
	mov	DWORD PTR -36[rbp], edx
	mov	rax, QWORD PTR -24[rbp]
	test	rax, rax
	je	.L13
	mov	rcx, QWORD PTR -32[rbp]
	mov	rax, QWORD PTR -24[rbp]
	mov	edx, DWORD PTR -36[rbp]
	mov	esi, edx
	mov	rdi, rax
	mov	eax, 0
	call	rcx
	movq	rax, xmm0
	jmp	.L14
.L13:
	mov	rdx, QWORD PTR -32[rbp]
	mov	eax, DWORD PTR -36[rbp]
	mov	edi, eax
	mov	eax, 0
	call	rdx
	movq	rax, xmm0
.L14:
	movq	xmm0, rax
	mov	rbx, QWORD PTR -8[rbp]
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE3:
	.size	callpas, .-callpas
	.globl	ceval
	.type	ceval, @function
ceval:
.LFB4:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 32
	mov	rax, rdi
	mov	rcx, rsi
	mov	rdx, rcx
	mov	QWORD PTR -32[rbp], rax
	mov	QWORD PTR -24[rbp], rdx
	mov	rcx, QWORD PTR -32[rbp]
	mov	rax, QWORD PTR -24[rbp]
	mov	edx, 2
	mov	rdi, rcx
	mov	rsi, rax
	mov	eax, 0
	call	callpas
	movq	rax, xmm0
	mov	QWORD PTR -8[rbp], rax
	movsd	xmm0, QWORD PTR -8[rbp]
	comisd	xmm0, QWORD PTR .LC3[rip]
	jbe	.L16
	movsd	xmm0, QWORD PTR .LC4[rip]
	comisd	xmm0, QWORD PTR -8[rbp]
	jbe	.L16
	mov	eax, 1
	jmp	.L20
.L16:
	mov	eax, 0
.L20:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE4:
	.size	ceval, .-ceval
	.section	.rodata
	.align 8
.LC3:
	.long	687194767
	.long	1073123164
	.align 8
.LC4:
	.long	-343597384
	.long	1073133649
	.ident	"GCC: (Ubuntu 10.5.0-1ubuntu1~20.04) 10.5.0"
	.section	.note.GNU-stack,"",@progbits
	.section	.note.gnu.property,"a"
	.align 8
	.long	 1f - 0f
	.long	 4f - 1f
	.long	 5
0:
	.string	 "GNU"
1:
	.align 8
	.long	 0xc0000002
	.long	 3f - 2f
2:
	.long	 0x3
3:
	.align 8
4:

	.arch armv5t
	.eabi_attribute 20, 1
	.eabi_attribute 21, 1
	.eabi_attribute 23, 3
	.eabi_attribute 24, 1
	.eabi_attribute 25, 1
	.eabi_attribute 26, 2
	.eabi_attribute 30, 6
	.eabi_attribute 34, 0
	.eabi_attribute 18, 4
	.file	"11075095.c"
	.text
	.global	rcs_id
	.data
	.align	2
	.type	rcs_id, %object
	.size	rcs_id, 5
rcs_id:
	.ascii	"$Id$\000"
	.text
	.align	2
	.global	kwad
	.syntax unified
	.arm
	.fpu softvfp
	.type	kwad, %function
kwad:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	@ link register save eliminated.
	str	fp, [sp, #-4]!
	add	fp, sp, #0
	sub	sp, sp, #12
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
	mov	r2, r3
	mul	r2, r3, r2
	mov	r3, r2
	mov	r0, r3
	add	sp, fp, #0
	@ sp needed
	ldr	fp, [sp], #4
	bx	lr
	.size	kwad, .-kwad
	.section	.rodata
	.align	2
.LC0:
	.ascii	"Calling pascal from C doesn't work\000"
	.text
	.align	2
	.global	cmain
	.syntax unified
	.arm
	.fpu softvfp
	.type	cmain, %function
cmain:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #8
	mov	r0, #7
	bl	twice
	mov	r3, r0
	cmp	r3, #14
	bne	.L4
	mvn	r0, #8
	bl	twice
	mov	r3, r0
	cmn	r3, #18
	beq	.L5
.L4:
	ldr	r0, .L7
	bl	puts
	ldr	r3, .L7+4
	ldr	r3, [r3]
	mov	r0, r3
	bl	fflush
	b	.L6
.L5:
	bl	incs
.L6:
	mov	r3, #0
	str	r3, [fp, #-8]
	ldr	r3, .L7+8
	str	r3, [fp, #-12]
	sub	r3, fp, #12
	ldm	r3, {r0, r1}
	bl	cptr
	nop
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L8:
	.align	2
.L7:
	.word	.LC0
	.word	stdout
	.word	kwad
	.size	cmain, .-cmain
	.section	.rodata
	.align	2
.LC1:
	.ascii	"Pascal outer procedure static link unequal to zero\000"
	.align	2
.LC2:
	.ascii	"Passing pascal functions to C doesn't work\000"
	.text
	.align	2
	.global	pptr
	.syntax unified
	.arm
	.fpu softvfp
	.type	pptr, %function
pptr:
	@ args = 0, pretend = 0, frame = 8
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #8
	sub	r3, fp, #12
	stm	r3, {r0, r1}
	ldr	r3, [fp, #-8]
	cmp	r3, #0
	beq	.L10
	ldr	r0, .L14
	bl	puts
	ldr	r3, .L14+4
	ldr	r3, [r3]
	mov	r0, r3
	bl	fflush
.L10:
	ldr	r3, [fp, #-12]
	mvn	r0, #6
	blx	r3
	mov	r3, r0
	cmn	r3, #14
	bne	.L11
	ldr	r3, [fp, #-12]
	mov	r0, #9
	blx	r3
	mov	r3, r0
	cmp	r3, #18
	beq	.L12
.L11:
	ldr	r0, .L14+8
	bl	puts
	ldr	r3, .L14+4
	ldr	r3, [r3]
	mov	r0, r3
	bl	fflush
	b	.L13
.L12:
	bl	incs
.L13:
	nop
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L15:
	.align	2
.L14:
	.word	.LC1
	.word	stdout
	.word	.LC2
	.size	pptr, .-pptr
	.align	2
	.global	callpas
	.syntax unified
	.arm
	.fpu softvfp
	.type	callpas, %function
callpas:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	sub	r3, fp, #12
	stm	r3, {r0, r1}
	str	r2, [fp, #-16]
	ldr	r3, [fp, #-8]
	cmp	r3, #0
	beq	.L17
	ldr	r3, [fp, #-12]
	ldr	r2, [fp, #-8]
	ldr	r1, [fp, #-16]
	mov	r0, r2
	blx	r3
	mov	r2, r0
	mov	r3, r1
	b	.L18
.L17:
	ldr	r3, [fp, #-12]
	ldr	r0, [fp, #-16]
	blx	r3
	mov	r2, r0
	mov	r3, r1
.L18:
	mov	r0, r2
	mov	r1, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	callpas, .-callpas
	.global	__aeabi_dcmpgt
	.global	__aeabi_dcmplt
	.align	2
	.global	ceval
	.syntax unified
	.arm
	.fpu softvfp
	.type	ceval, %function
ceval:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #16
	sub	r3, fp, #20
	stm	r3, {r0, r1}
	mov	r2, #2
	sub	r3, fp, #20
	ldm	r3, {r0, r1}
	bl	callpas
	str	r0, [fp, #-12]
	str	r1, [fp, #-8]
	ldr	r2, .L27
	ldr	r3, .L27+4
	sub	r1, fp, #12
	ldmia	r1, {r0-r1}
	bl	__aeabi_dcmpgt
	mov	r3, r0
	cmp	r3, #0
	beq	.L20
	ldr	r2, .L27+8
	ldr	r3, .L27+12
	sub	r1, fp, #12
	ldmia	r1, {r0-r1}
	bl	__aeabi_dcmplt
	mov	r3, r0
	cmp	r3, #0
	beq	.L20
	mov	r3, #1
	b	.L24
.L20:
	mov	r3, #0
.L24:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
.L28:
	.align	2
.L27:
	.word	687194767
	.word	1073123164
	.word	-343597384
	.word	1073133649
	.size	ceval, .-ceval
	.ident	"GCC: (Ubuntu 9.4.0-1ubuntu1~20.04.2) 9.4.0"
	.section	.note.GNU-stack,"",%progbits
