.file "testaarch64.pas"
// Begin asmlist al_procedures
.section .text.n_main
.balign 8
.globl PASCALMAIN
.type PASCALMAIN,@function
PASCALMAIN:
.globl main
.type main,@function
main:
stp x29,x30,[sp, #-16]!
mov x29,sp
bl fpc_initializeunits
movz x0,#0
bl free@GLIBC_2.17
bl fpc_do_exit
ldp x29,x30,[sp], #16
ret
.Le0:
.size main, .Le0 - main
.section .text
// End asmlist al_procedures
// Begin asmlist al_globals
.section .data.n_INITFINAL
.balign 8
.globl INITFINAL
.type INITFINAL,@object
INITFINAL:
.quad 1,0
.quad INIT$_$SYSTEM
.quad 0
.Le1:
.size INITFINAL, .Le1 - INITFINAL
.section .data.n_FPC_THREADVARTABLES
.balign 8
.globl FPC_THREADVARTABLES
.type FPC_THREADVARTABLES,@object
FPC_THREADVARTABLES:
.long 1
.quad THREADVARLIST_$SYSTEM$indirect
.Le2:
.size FPC_THREADVARTABLES, .Le2 - FPC_THREADVARTABLES
.section .data.n_FPC_RESOURCESTRINGTABLES
.balign 8
.globl FPC_RESOURCESTRINGTABLES
.type FPC_RESOURCESTRINGTABLES,@object
FPC_RESOURCESTRINGTABLES:
.quad 0
.Le3:
.size FPC_RESOURCESTRINGTABLES, .Le3 - FPC_RESOURCESTRINGTABLES
.section .data.n_FPC_WIDEINITTABLES
.balign 8
.globl FPC_WIDEINITTABLES
.type FPC_WIDEINITTABLES,@object
FPC_WIDEINITTABLES:
.quad 0
.Le4:
.size FPC_WIDEINITTABLES, .Le4 - FPC_WIDEINITTABLES
.section .data.n_FPC_RESSTRINITTABLES
.balign 8
.globl FPC_RESSTRINITTABLES
.type FPC_RESSTRINITTABLES,@object
FPC_RESSTRINITTABLES:
.quad 0
.Le5:
.size FPC_RESSTRINITTABLES, .Le5 - FPC_RESSTRINITTABLES
.section .fpc.n_version
.balign 16
.type __fpc_ident,@object
__fpc_ident:
.ascii "FPC 3.2.4-rc1 [2024/09/23] for aarch64 - Linux"
.Le6:
.size __fpc_ident, .Le6 - __fpc_ident
.section .data.n___stklen
.balign 8
.globl __stklen
.type __stklen,@object
__stklen:
.quad 8388608
.Le7:
.size __stklen, .Le7 - __stklen
.section .data.n___heapsize
.balign 8
.globl __heapsize
.type __heapsize,@object
__heapsize:
.quad 0
.Le8:
.size __heapsize, .Le8 - __heapsize
.section .data.n___fpc_valgrind
.balign 8
.globl __fpc_valgrind
.type __fpc_valgrind,@object
__fpc_valgrind:
.byte 0
.Le9:
.size __fpc_valgrind, .Le9 - __fpc_valgrind
.section .data.n_FPC_RESLOCATION
.balign 8
.globl FPC_RESLOCATION
.type FPC_RESLOCATION,@object
FPC_RESLOCATION:
.quad 0
.Le10:
.size FPC_RESLOCATION, .Le10 - FPC_RESLOCATION
// End asmlist al_globals
.section .note.GNU-stack,"",%progbits