| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147 |
- /*
- Start-up code for Free Pascal Compiler, not in a shared library,
- not linking with C library.
- */
- .text
- .align 2
- #APP
- .ident "FreeBSD"
- #NO_APP
- .section .note.ABI-tag,"a",@progbits
- .p2align 2
- .type abitag, @object
- .size abitag, 24
- abitag:
- .long 8
- .long 4
- .long 1
- .string "FreeBSD"
- .long 120000
- .section .rodata
- .LC0:
- .string ""
- .globl __progname
- .data
- .p2align 3
- .type __progname, @object
- .size __progname, 8
- __progname:
- .quad .LC0
- .text
- .p2align 2,,3
- .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 x11,x1,#1
- add x11,x2,x11,lsl #3
- /* Save argc, argv, envp, environ, __progname and initial stack pointer */
- ldr x10,=operatingsystem_parameter_argc
- str x1,[x10]
- ldr x10,=operatingsystem_parameter_argv
- str x2,[x10]
- ldr x10,=operatingsystem_parameter_envp
- str x11,[x10]
- /* save environ */
- adrp x10,environ
- ldr x10,[x10,:lo12:environ]
- cbnz x10,.LBB0_2
- ldr x10,=environ
- str x11,[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 */
- ldr x10,=__stkptr
- mov x6,sp
- str x6,[x10]
- /* Call main */
- bl PASCALMAIN
- ldr x10,=operatingsystem_result
- ldr w0,[x10]
- mov w8,#1 // SYS_exit
- svc #0
- /* 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
|
