Browse Source

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

git-svn-id: trunk@37214 -
pierre 8 years ago
parent
commit
5ee0e728df
1 changed files with 16 additions and 76 deletions
  1. 16 76
      rtl/palmos/arm/prt0.as

+ 16 - 76
rtl/palmos/arm/prt0.as

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