mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-05 16:50:11 +01:00
bc18d6eb8a
+ added Makefile.fpc to palmos in rtl + added faked prt0 to plamos rtl git-svn-id: trunk@2443 -
80 lines
1.1 KiB
ActionScript
80 lines
1.1 KiB
ActionScript
/*
|
|
Startup code for WinCE port of Free Pascal
|
|
Written by Yury Sidorov, 2005.
|
|
*/
|
|
|
|
.section .text
|
|
@ for kernel exception handler, must be directly before ___EH_CODE_START__
|
|
__EH_HANDLER__:
|
|
.word _ARM_ExceptionHandler
|
|
.word 0
|
|
|
|
__EH_CODE_START__:
|
|
|
|
.globl mainCRTStartup
|
|
mainCRTStartup:
|
|
.globl _mainCRTStartup
|
|
_mainCRTStartup:
|
|
mov r0,#1
|
|
b do_start
|
|
|
|
.globl WinMainCRTStartup
|
|
WinMainCRTStartup:
|
|
.globl _WinMainCRTStartup
|
|
_WinMainCRTStartup:
|
|
mov r0,#0
|
|
do_start:
|
|
ldr r1, _PISCONSOLE
|
|
strb r0,[r1]
|
|
bl _FPC_EXE_Entry
|
|
mov r0,#0
|
|
|
|
.globl asm_exit
|
|
asm_exit:
|
|
bl exitthread
|
|
|
|
_PISCONSOLE:
|
|
.long U_SYSTEM_ISCONSOLE
|
|
|
|
.globl exitthread
|
|
exitthread:
|
|
ldr ip,.L100
|
|
ldr pc,[ip]
|
|
.L100:
|
|
.long .L10
|
|
|
|
.section .idata$2
|
|
.rva .L7
|
|
.long 0,0
|
|
.rva .L6
|
|
.rva .L8
|
|
|
|
.section .idata$4
|
|
.L7:
|
|
.rva .L9
|
|
.long 0
|
|
|
|
.section .idata$5
|
|
.L8:
|
|
|
|
.section .idata$5
|
|
.L10:
|
|
.rva .L9
|
|
.long 0
|
|
|
|
.section .idata$6
|
|
.L9:
|
|
.short 0
|
|
.ascii "ExitThread\000"
|
|
.balign 2,0
|
|
|
|
.section .idata$7
|
|
.L6:
|
|
.ascii "coredll.dll\000"
|
|
|
|
@ for kernel exception handler
|
|
.section .pdata
|
|
.word __EH_CODE_START__
|
|
@ max 22 bits for number of instructions
|
|
.word 0xc0000002 | (0xFFFFF << 8)
|