	.file "testfp.dpr"
# Begin asmlist al_begin
# End asmlist al_begin
# Begin asmlist al_stabs
# End asmlist al_stabs
# Begin asmlist al_procedures

.section .text.n_p$testfp_$$_g0
	.balign 4
.globl	P$TESTFP_$$_G0
	.type	P$TESTFP_$$_G0,#function
P$TESTFP_$$_G0:
# Temps allocated between r11-44 and r11-40
# [testfp.dpr]
# [7] procedure g0; begin
	mov	r12,r13
	stmfd	r13!,{r4,r11,r12,r14,r15}
	sub	r11,r12,#4
	sub	r13,r13,#108
	mov	r12,#108
	sub	r12,r11,r12
	fstmiad	r12,{d8,d9,d10,d11,d12,d13,d14,d15}
# [8] d := zssssssssssssssdd(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
	ldr	r0,.Lj10
	fldd	d0,[r0]
	fcpyd	d2,d0
	ldr	r0,.Lj14
	flds	s0,[r0]
	fcpys	s12,s0
	ldr	r0,.Lj18
	flds	s0,[r0]
	fcpys	s2,s0
	fsts	s2,[r11, #-44]
	ldr	r0,.Lj22
	flds	s0,[r0]
	fcpys	s10,s0
	ldr	r0,.Lj26
	flds	s0,[r0]
	fcpys	s20,s0
	ldr	r0,.Lj30
	flds	s0,[r0]
	fcpys	s8,s0
	ldr	r0,.Lj34
	flds	s0,[r0]
	fcpys	s28,s0
	ldr	r0,.Lj38
	flds	s0,[r0]
	fcpys	s6,s0
	ldr	r0,.Lj42
	flds	s0,[r0]
	fcpys	s26,s0
	ldr	r0,.Lj46
	flds	s0,[r0]
	fcpys	s24,s0
	ldr	r0,.Lj50
	flds	s0,[r0]
	fcpys	s22,s0
	ldr	r0,.Lj54
	flds	s0,[r0]
	fcpys	s2,s0
	ldr	r0,.Lj58
	flds	s0,[r0]
	fcpys	s20,s0
	ldr	r0,.Lj62
	flds	s0,[r0]
	fcpys	s16,s0
	ldr	r0,.Lj66
	flds	s0,[r0]
	fcpys	s18,s0
	fcpyd	d7,d2
	fcpys	s13,s12
	flds	s0,[r11, #-44]
	fcpys	s12,s0
	fcpys	s11,s10
	fcpys	s10,s20
	fcpys	s9,s8
	fcpys	s8,s28
	fcpys	s7,s6
	fcpys	s6,s26
	fcpys	s5,s24
	fcpys	s4,s22
	fcpys	s3,s2
	fcpys	s2,s20
	fcpys	s1,s16
	fcpys	s0,s18
	blx	zssssssssssssssdd
	ldr	r0,.Lj67
	fstd	d0,[r0]
# [9] if d=120 then writeln('zssssssssssssssdd pass') else begin writeln('zssssssssssssssdd fail d=',d) ; {halt} end;
	ldr	r0,.Lj67
	fldd	d0,[r0]
	ldr	r0,.Lj72
	fldd	d1,[r0]
	fcmpd	d0,d1
	fmstat
	beq	.Lj68
	b	.Lj69
.Lj68:
	blx	fpc_get_output
	mov	r4,r0
	mov	r1,r4
	ldr	r2,.Lj79
	mov	r0,#0
	blx	fpc_write_text_shortstr
	blx	FPC_IOCHECK
	mov	r0,r4
	blx	fpc_writeln_end
	blx	FPC_IOCHECK
	b	.Lj84
.Lj69:
	blx	fpc_get_output
	mov	r4,r0
	mov	r1,r4
	ldr	r2,.Lj91
	mov	r0,#0
	blx	fpc_write_text_shortstr
	blx	FPC_IOCHECK
	ldr	r2,.Lj96
	mvn	r1,#0
	ldr	r0,.Lj67
	fldd	d0,[r0]
	mov	r3,r4
	mov	r0,#1
	blx	fpc_write_text_float
	blx	FPC_IOCHECK
	mov	r0,r4
	blx	fpc_writeln_end
	blx	FPC_IOCHECK
.Lj84:
# [10] flush(output);
	ldr	r0,.Lj112
	ldr	r1,[r0]
	cmp	r1,#0
	beq	.Lj110
	ldr	r2,.Lj113
	ldr	r0,[r2]
	blx	r1
	b	.Lj111
.Lj110:
	ldr	r1,.Lj114
	mov	r0,r1
.Lj111:
	blx	SYSTEM_$$_FLUSH$TEXT
	blx	FPC_IOCHECK
# [11] end;
	mov	r12,#108
	sub	r12,r11,r12
	fldmiad	r12,{d8,d9,d10,d11,d12,d13,d14,d15}
	ldmea	r11,{r4,r11,r13,r15}
.Lj10:
	.long	.Lj9
.Lj9:
# value: 0d+1.50000000000000E+001
	.byte	0,0,0,0,0,0,46,64
.Lj14:
	.long	.Lj13
.Lj13:
# value: 0d+1.400000000E+01
	.byte	0,0,96,65
.Lj18:
	.long	.Lj17
.Lj17:
# value: 0d+1.300000000E+01
	.byte	0,0,80,65
.Lj22:
	.long	.Lj21
.Lj21:
# value: 0d+1.200000000E+01
	.byte	0,0,64,65
.Lj26:
	.long	.Lj25
.Lj25:
# value: 0d+1.100000000E+01
	.byte	0,0,48,65
.Lj30:
	.long	.Lj29
.Lj29:
# value: 0d+1.000000000E+01
	.byte	0,0,32,65
.Lj34:
	.long	.Lj33
.Lj33:
# value: 0d+9.000000000E+00
	.byte	0,0,16,65
.Lj38:
	.long	.Lj37
.Lj37:
# value: 0d+8.000000000E+00
	.byte	0,0,0,65
.Lj42:
	.long	.Lj41
.Lj41:
# value: 0d+7.000000000E+00
	.byte	0,0,224,64
.Lj46:
	.long	.Lj45
.Lj45:
# value: 0d+6.000000000E+00
	.byte	0,0,192,64
.Lj50:
	.long	.Lj49
.Lj49:
# value: 0d+5.000000000E+00
	.byte	0,0,160,64
.Lj54:
	.long	.Lj53
.Lj53:
# value: 0d+4.000000000E+00
	.byte	0,0,128,64
.Lj58:
	.long	.Lj57
.Lj57:
# value: 0d+3.000000000E+00
	.byte	0,0,64,64
.Lj62:
	.long	.Lj61
.Lj61:
# value: 0d+2.000000000E+00
	.byte	0,0,0,64
.Lj66:
	.long	.Lj65
.Lj65:
# value: 0d+1.000000000E+00
	.byte	0,0,128,63
.Lj67:
	.long	U_$P$TESTFP_$$_D
.Lj72:
	.long	.Lj70
.Lj70:
# value: 0d+1.20000000000000E+002
	.byte	0,0,0,0,0,0,94,64
.Lj79:
	.long	_$TESTFP$_Ld1
.Lj91:
	.long	_$TESTFP$_Ld2
.Lj96:
	.long	-32767
.Lj112:
	.long	FPC_THREADVAR_RELOCATE
.Lj113:
	.long	U_$SYSTEM_$$_OUTPUT
.Lj114:
	.long	U_$SYSTEM_$$_OUTPUT+4
.Le0:
	.size	P$TESTFP_$$_G0, .Le0 - P$TESTFP_$$_G0

.section .text.n_main
	.balign 4
.globl	PASCALMAIN
	.type	PASCALMAIN,#function
PASCALMAIN:
.globl	main
	.type	main,#function
main:
# Temps allocated between r11-40 and r11-40
# [12] begin
	mov	r12,r13
	stmfd	r13!,{r11,r12,r14,r15}
	sub	r11,r12,#4
	sub	r13,r13,#40
	blx	FPC_INITIALIZEUNITS
# [13] g0;
	blx	P$TESTFP_$$_G0
# [14] end.
	blx	FPC_DO_EXIT
	ldmea	r11,{r11,r13,r15}
.Le1:
	.size	main, .Le1 - main

.section .text
# End asmlist al_procedures
# Begin asmlist al_globals

.section .bss
	.balign 8
# [6] var d: double;
	.globl U_$P$TESTFP_$$_D
	.type U_$P$TESTFP_$$_D,%object
	.size U_$P$TESTFP_$$_D,8
U_$P$TESTFP_$$_D:
	.zero 8

.section .data.n_THREADVARLIST_$P$TESTFP
	.balign 4
.globl	THREADVARLIST_$P$TESTFP
	.type	THREADVARLIST_$P$TESTFP,#object
THREADVARLIST_$P$TESTFP:
	.long	0
# [15] 
.Le2:
	.size	THREADVARLIST_$P$TESTFP, .Le2 - THREADVARLIST_$P$TESTFP

.section .data.n_INITFINAL
	.balign 4
.globl	INITFINAL
	.type	INITFINAL,#object
INITFINAL:
	.long	2,0
	.long	INIT$_$SYSTEM
	.long	0,0
	.long	FINALIZE$_$OBJPAS
.Le3:
	.size	INITFINAL, .Le3 - INITFINAL

.section .data.n_FPC_THREADVARTABLES
	.balign 4
.globl	FPC_THREADVARTABLES
	.type	FPC_THREADVARTABLES,#object
FPC_THREADVARTABLES:
	.long	3
	.long	THREADVARLIST_$SYSTEM
	.long	THREADVARLIST_$OBJPAS
	.long	THREADVARLIST_$P$TESTFP
.Le4:
	.size	FPC_THREADVARTABLES, .Le4 - FPC_THREADVARTABLES

.section .data.n_FPC_RESOURCESTRINGTABLES
	.balign 4
.globl	FPC_RESOURCESTRINGTABLES
	.type	FPC_RESOURCESTRINGTABLES,#object
FPC_RESOURCESTRINGTABLES:
	.long	0
.Le5:
	.size	FPC_RESOURCESTRINGTABLES, .Le5 - FPC_RESOURCESTRINGTABLES

.section .data.n_FPC_WIDEINITTABLES
	.balign 4
.globl	FPC_WIDEINITTABLES
	.type	FPC_WIDEINITTABLES,#object
FPC_WIDEINITTABLES:
	.long	0
.Le6:
	.size	FPC_WIDEINITTABLES, .Le6 - FPC_WIDEINITTABLES

.section .data.n_FPC_RESSTRINITTABLES
	.balign 4
.globl	FPC_RESSTRINITTABLES
	.type	FPC_RESSTRINITTABLES,#object
FPC_RESSTRINITTABLES:
	.long	0
.Le7:
	.size	FPC_RESSTRINITTABLES, .Le7 - FPC_RESSTRINITTABLES

.section .fpc.n_version
	.balign 8
	.ascii	"FPC 2.7.1 [2012/03/17] for arm - Linux"

.section .data.n___stklen
	.balign 4
.globl	__stklen
	.type	__stklen,#object
__stklen:
	.long	8388608

.section .data.n___heapsize
	.balign 4
.globl	__heapsize
	.type	__heapsize,#object
__heapsize:
	.long	0

.section .data.n___fpc_valgrind
.globl	__fpc_valgrind
	.type	__fpc_valgrind,#object
__fpc_valgrind:
	.byte	0

.section .data.n_FPC_RESLOCATION
	.balign 4
.globl	FPC_RESLOCATION
	.type	FPC_RESLOCATION,#object
FPC_RESLOCATION:
	.long	0
# End asmlist al_globals
# Begin asmlist al_const
# End asmlist al_const
# Begin asmlist al_typedconsts

.section .rodata.n__$TESTFP$_Ld1
	.balign 4
.globl	_$TESTFP$_Ld1
_$TESTFP$_Ld1:
	.ascii	"\026zssssssssssssssdd pass\000"

.section .rodata.n__$TESTFP$_Ld2
	.balign 4
.globl	_$TESTFP$_Ld2
_$TESTFP$_Ld2:
	.ascii	"\031zssssssssssssssdd fail d=\000"
# End asmlist al_typedconsts
# Begin asmlist al_rotypedconsts
# End asmlist al_rotypedconsts
# Begin asmlist al_threadvars
# End asmlist al_threadvars
# Begin asmlist al_imports
# End asmlist al_imports
# Begin asmlist al_exports
# End asmlist al_exports
# Begin asmlist al_resources
# End asmlist al_resources
# Begin asmlist al_rtti
# End asmlist al_rtti
# Begin asmlist al_dwarf_frame
# End asmlist al_dwarf_frame
# Begin asmlist al_dwarf_info
# End asmlist al_dwarf_info
# Begin asmlist al_dwarf_abbrev
# End asmlist al_dwarf_abbrev
# Begin asmlist al_dwarf_line
# End asmlist al_dwarf_line
# Begin asmlist al_picdata
# End asmlist al_picdata
# Begin asmlist al_resourcestrings
# End asmlist al_resourcestrings
# Begin asmlist al_objc_data
# End asmlist al_objc_data
# Begin asmlist al_objc_pools
# End asmlist al_objc_pools
# Begin asmlist al_end
# End asmlist al_end
.section .note.GNU-stack,"",%progbits

