|
@@ -1,79 +1,19 @@
|
|
|
/*
|
|
|
-Startup code for WinCE port of Free Pascal
|
|
|
-Written by Yury Sidorov, 2005.
|
|
|
+#
|
|
|
+# This file is part of the Free Pascal run time library.
|
|
|
+# Copyright (c) 2017 by Karoly Balogh
|
|
|
+# member of the Free Pascal development team.
|
|
|
+#
|
|
|
+# See the file COPYING.FPC, included in this distribution,
|
|
|
+# for details about the copyright.
|
|
|
+#
|
|
|
+# This program is distributed in the hope that it will be useful,
|
|
|
+# but WITHOUT ANY WARRANTY;without even the implied warranty of
|
|
|
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
+#
|
|
|
+#**********************************************************************}
|
|
|
+#
|
|
|
+
|
|
|
+# FIX ME: dummy file, required for the build to pass, implement! (KB)
|
|
|
*/
|
|
|
|
|
|
-.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 operatingsystem_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)
|