mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 16:10:09 +02:00
Remove code from arm WinCE startup, leaving prt0.as empty
git-svn-id: trunk@37214 -
This commit is contained in:
parent
ab0df78c00
commit
5ee0e728df
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user