Remove code from arm WinCE startup, leaving prt0.as empty

git-svn-id: trunk@37214 -
This commit is contained in:
pierre 2017-09-15 14:36:13 +00:00
parent ab0df78c00
commit 5ee0e728df

View File

@ -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)