| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169 |
- /*
- Start-up code for Free Pascal Compiler when linking with C library.
- */
- .text
- .align 2
- #APP
- .ident "FreePascal 2.6.x/2.7.x series dynlinked to libc"
- #NO_APP
- .section .note.tag,"a",%note
- .p2align 2
- .type abitag, @object
- .size abitag, 24
- abitag:
- .4byte 8
- .4byte 4
- .4byte 1 /* NT_FREEBSD_ABI_TAG */
- .string "FreeBSD"
- .p2align 2
- .4byte 1302001
- .section .note.tag,"a",%note
- .p2align 2
- .4byte .L_2-.L_1
- .4byte .L_4-.L_3
- .4byte 4 /* NT_FREEBSD_FEATURE_CTL */
- .L_1: .asciz "FreeBSD" /* NOTE_FREEBSD_VENDOR */
- .L_2: .p2align 2
- .L_3: .4byte 0
- .L_4:
- .globl __progname
- .section .rodata
- .LC0:
- .string ""
- .data
- .p2align 3
- .type __progname, @object
- .size __progname, 8
- __progname:
- .quad .LC0
- .text
- .p2align 4,,15
- .globl _start
- .type _start,#function
- _start:
- /* Initialise FP to zero */
- mov x29,#0
- /* Get argc, argv, envp */
- ldr x1,[x0]
- add x2,x0,#8
- add x3,x1,#1
- add x3,x2,x3,lsl #3
- /* Save argc, argv, envp, environ, __progname and initial stack pointer */
- adrp x10,:got:operatingsystem_parameter_argc
- ldr x10,[x10,#:got_lo12:operatingsystem_parameter_argc]
- str x1,[x10]
- adrp x10,:got:operatingsystem_parameter_argv
- ldr x10,[x10,#:got_lo12:operatingsystem_parameter_argv]
- str x2,[x10]
- adrp x10,:got:operatingsystem_parameter_envp
- ldr x10,[x10,#:got_lo12:operatingsystem_parameter_envp]
- str x3,[x10]
- /* save environ */
- adrp x10,environ
- ldr x10,[x10,:lo12:environ]
- cbnz x10,.LBB0_2
- ldr x10,=environ
- str x3,[x10]
- .LBB0_2:
- /* save __progname */
- ldr w8,=operatingsystem_parameter_argc
- cmp w8,#0
- cset w8,le
- tbnz w8,#0,.LBB0_9
- // %bb.1:
- adrp x8,operatingsystem_parameter_argv
- ldr x8,[x8,:lo12:operatingsystem_parameter_argv]
- cbz x8,.LBB0_9
- // %bb.2:
- ldr x2,[x2]
- adrp x9,__progname
- adrp x10,__progname
- add x10,x10,:lo12:__progname
- str x2,[x10]
- ldr x8,[x9,:lo12:__progname]
- adrp x9,s
- add x9,x9,:lo12:s
- str x8,[x9]
- .LBB0_3:
- adrp x8,s
- ldr x8,[x8,:lo12:s]
- ldrb w9,[x8]
- cbz w9,.LBB0_8
- // %bb.4:
- adrp x8,s
- ldr x8,[x8, :lo12:s]
- ldrb w9,[x8]
- cmp w9,#47
- b.ne .LBB0_6
- // %bb.5:
- adrp x8,s
- ldr x8,[x8,:lo12:s]
- add x8,x8,#1
- adrp x9,__progname
- add x9,x9,:lo12:__progname
- str x8,[x9]
- .LBB0_6:
- // %bb.7:
- adrp x8,s
- adrp x9,s
- add x9,x9,:lo12:s
- ldr x8,[x8,:lo12:s]
- add x8,x8,#1
- str x8,[x9]
- b .LBB0_3
- .LBB0_8:
- .LBB0_9:
- /* save stack pointer */
- adrp x10,:got:__stkptr
- ldr x10,[x10,#:got_lo12:__stkptr]
- mov x6,sp
- str x6,[x10]
- bl PASCALMAIN
- /* This should never happen */
- b abort
- .globl _haltproc
- .type _haltproc,#function
- _haltproc:
- adrp x0,:got:operatingsystem_result
- ldr x0,[x0,#:got_lo12:operatingsystem_result]
- ldr w0,[x0]
- mov w8,#1 // SYS_exit
- svc #0
- b _haltproc
- /* Define a symbol for the first piece of initialized data. */
- .data
- .align 3
- .globl __data_start
- __data_start:
- .long 0
- .weak data_start
- data_start = __data_start
- .bss
- .align 3
- .comm __stkptr,8
- .comm operatingsystem_parameter_envp,8
- .comm operatingsystem_parameter_argc,8
- .comm operatingsystem_parameter_argv,8
- .comm environ,8,8
- s:
- .xword 0
- .size s, 8
- .section .note.GNU-stack,"",%progbits
|
