Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: 0b1b0047f4
Branches Tags
freepascal.comp...
/
rtl
/
palmos
/
arm
/
prt0.as

prt0.as 1.1 KB
History Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879 
  1. /*
    2. 

  2. Startup code for WinCE port of Free Pascal
    3. 

  3. Written by Yury Sidorov, 2005.
    4. 

  4. */
    5. 

  5. 

  6. .section .text
    7. 

  7. @ for kernel exception handler, must be directly before ___EH_CODE_START__
    8. 

  8. __EH_HANDLER__:
    9. 

  9. 	.word _ARM_ExceptionHandler
    10. 

  10. 	.word 0
    11. 

  11. 

  12. __EH_CODE_START__:
    13. 

  13. 

  14. .globl mainCRTStartup
    15. 

  15. mainCRTStartup:
    16. 

  16. .globl _mainCRTStartup
    17. 

  17. _mainCRTStartup:
    18. 

  18.   mov r0,#1
    19. 

  19.   b do_start
    20. 

  20. 

  21. .globl WinMainCRTStartup
    22. 

  22. WinMainCRTStartup:
    23. 

  23. .globl _WinMainCRTStartup
    24. 

  24. _WinMainCRTStartup:
    25. 

  25.   mov r0,#0
    26. 

  26. do_start:
    27. 

  27.   ldr r1, _PISCONSOLE
    28. 

  28.   strb r0,[r1]
    29. 

  29.   bl _FPC_EXE_Entry
    30. 

  30.   mov r0,#0
    31. 

  31. 

  32. .globl asm_exit
    33. 

  33. asm_exit:
    34. 

  34.   bl exitthread
    35. 

  35.   
    36. 

  36. _PISCONSOLE:
    37. 

  37.   .long U_SYSTEM_ISCONSOLE
    38. 

  38. 

  39. .globl exitthread
    40. 

  40. exitthread:
    41. 

  41. 	ldr	ip,.L100
    42. 

  42. 	ldr pc,[ip]
    43. 

  43. .L100:
    44. 

  44.   .long .L10
    45. 

  45. 

  46. .section .idata$2
    47. 

  47. 	.rva	.L7
    48. 

  48. 	.long	0,0
    49. 

  49. 	.rva	.L6
    50. 

  50. 	.rva	.L8
    51. 

  51. 

  52. .section .idata$4
    53. 

  53. .L7:
    54. 

  54. 	.rva	.L9
    55. 

  55. 	.long	0
    56. 

  56. 

  57. .section .idata$5
    58. 

  58. .L8:
    59. 

  59. 

  60. .section .idata$5
    61. 

  61. .L10:
    62. 

  62. 	.rva	.L9
    63. 

  63. 	.long	0
    64. 

  64. 

  65. .section .idata$6
    66. 

  66. .L9:
    67. 

  67. 	.short	0
    68. 

  68. 	.ascii	"ExitThread\000"
    69. 

  69. 	.balign 2,0
    70. 

  70. 

  71. .section .idata$7
    72. 

  72. .L6:
    73. 

  73. 	.ascii	"coredll.dll\000"
    74. 

  74. 

  75. @ for kernel exception handler
    76. 

  76. 	.section .pdata
    77. 

  77. 	.word __EH_CODE_START__
    78. 

  78. @ max 22 bits for number of instructions
    79. 

  79. 	.word 0xc0000002 | (0xFFFFF << 8)
    80.