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: 1cf4d20b51
Branches Tags
freepascal.comp...
/
rtl
/
win32
/
wcygprt0.as

wcygprt0.as 1.3 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384 
  1. //Startup code for WIN32 port of Free Pascal
    2. 

  2. //Written by P.Ozerski 1998
    3. 

  3. // modified by Pierre Muller
    4. 

  4.      .text
    5. 

  5.      .globl _mainCRTStartup
    6. 

  6. _mainCRTStartup:
    7. 

  7.      movb   $1,U_SYSTEM_ISCONSOLE
    8. 

  8.      jmp    _start
    9. 

  9. 

  10.      .globl _WinMainCRTStartup
    11. 

  11. _WinMainCRTStartup:
    12. 

  12.      movb   $0,U_SYSTEM_ISCONSOLE
    13. 

  13. _start:
    14. 

  14.      subl   $0x8,%esp
    15. 

  15.      andl   $0xfffffff0,%esp
    16. 

  16.      push   $_cmain
    17. 

  17.      call   _cygwin_crt0
    18. 

  18. 

  19.      .globl _cmain
    20. 

  20. _cmain:
    21. 

  21.      subl   $0x8,%esp
    22. 

  22.      andl   $0xfffffff0,%esp
    23. 

  23.      call   ___main
    24. 

  24.      call   _FPC_EXE_Entry
    25. 

  25.      ret
    26. 

  26. 

  27.      .globl asm_exit
    28. 

  28. asm_exit:
    29. 

  29.     pushl   %eax
    30. 

  30.     call    exitprocess
    31. 

  31. 

  32. .text
    33. 

  33. .globl	exitprocess
    34. 

  34. exitprocess:
    35. 

  35. 	jmp	*.L10
    36. 

  36. 	.balign 4,144
    37. 

  37. 

  38. .text
    39. 

  39. 	.balign 4,144
    40. 

  40. 

  41. .section .idata$2
    42. 

  42. 	.rva	.L7
    43. 

  43. 	.long	0,0
    44. 

  44. 	.rva	.L6
    45. 

  45. 	.rva	.L8
    46. 

  46. 

  47. .section .idata$4
    48. 

  48. .L7:
    49. 

  49. 	.rva	.L9
    50. 

  50. 	.long	0
    51. 

  51. 

  52. .section .idata$5
    53. 

  53. .L8:
    54. 

  54. 

  55. 

  56. .section .idata$5
    57. 

  57. .L10:
    58. 

  58. 	.rva	.L9
    59. 

  59. 	.long	0
    60. 

  60. 

  61. .section .idata$6
    62. 

  62. .L9:
    63. 

  63. 	.short	0
    64. 

  64. 	.ascii	"ExitProcess\000"
    65. 

  65. 	.balign 2,0
    66. 

  66. 

  67. .section .idata$7
    68. 

  68. .L6:
    69. 

  69. 	.ascii	"kernel32.dll\000"
    70. 

  70. 

  71. 

  72. 

  73. // $Log$
    74. 

  74. // Revision 1.1  2004-11-04 17:15:01  peter
    75. 

  75. //  * wcygprt is now used for cygwin (libc) linking, initc contains only cerrno
    76. 

  76. //
    77. 

  77. // Revision 1.4  2002/11/30 18:17:35  carl
    78. 

  78. //   + profiling support
    79. 

  79. //
    80. 

  80. // Revision 1.3  2002/07/28 20:43:51  florian
    81. 

  81. //   * several fixes for linux/powerpc
    82. 

  82. //   * several fixes to MT
    83. 

  83. //
    84. 

  84. //
    85.