Página inicial Explorar Ajuda
Entrar
pascal
/
fpc
mirror de https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Arquivos Issues 0 Wiki
Branch: svn/fixes_2_2_0_dos
Branches Tags
fpc
/
rtl
/
win32
/
gprt0.as

gprt0.as 1.6 KB
Link permanente Histórico Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798 
  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. 

  24.      call    __gmon_start__
    25. 

  25.      call   ___main
    26. 

  26. 

  27.      movl   %esp,__stkptr
    28. 

  28.      call   _FPC_EXE_Entry
    29. 

  29.      ret
    30. 

  30. 

  31.         .globl  __gmon_start__
    32. 

  32. __gmon_start__:
    33. 

  33.         pushl   %ebp
    34. 

  34.         movl    __monstarted,%eax
    35. 

  35.         leal    0x1(%eax),%edx
    36. 

  36.         movl    %esp,%ebp
    37. 

  37.         movl    %edx,__monstarted
    38. 

  38.         testl   %eax,%eax
    39. 

  39.         jnz     .Lnomonstart
    40. 

  40.         pushl   $etext                  /* Initialize gmon */
    41. 

  41.         pushl   $_cmain
    42. 

  42.         call    _monstartup
    43. 

  43.         addl    $8,%esp
    44. 

  44. .Lnomonstart:
    45. 

  45.         movl   %ebp,%esp
    46. 

  46.         popl   %ebp
    47. 

  47.         ret
    48. 

  48. 

  49.      .globl asm_exit
    50. 

  50. asm_exit:
    51. 

  51.     pushl   %eax
    52. 

  52.     call    __mcleanup
    53. 

  53.     popl    %eax
    54. 

  54.     pushl   %eax
    55. 

  55.     call    exitprocess
    56. 

  56. 

  57. .text
    58. 

  58. .globl	exitprocess
    59. 

  59. exitprocess:
    60. 

  60. 	jmp	*.L10
    61. 

  61. 	.balign 4,144
    62. 

  62. 

  63. .text
    64. 

  64. 	.balign 4,144
    65. 

  65. 

  66. .section .idata$2
    67. 

  67. 	.rva	.L7
    68. 

  68. 	.long	0,0
    69. 

  69. 	.rva	.L6
    70. 

  70. 	.rva	.L8
    71. 

  71. 

  72. .section .idata$4
    73. 

  73. .L7:
    74. 

  74. 	.rva	.L9
    75. 

  75. 	.long	0
    76. 

  76. 

  77. .section .idata$5
    78. 

  78. .L8:
    79. 

  79. 

  80. 

  81. .section .idata$5
    82. 

  82. .L10:
    83. 

  83. 	.rva	.L9
    84. 

  84. 	.long	0
    85. 

  85. 

  86. .section .idata$6
    87. 

  87. .L9:
    88. 

  88. 	.short	0
    89. 

  89. 	.ascii	"ExitProcess\000"
    90. 

  90. 	.balign 2,0
    91. 

  91. 

  92. .section .idata$7
    93. 

  93. .L6:
    94. 

  94. 	.ascii	"kernel32.dll\000"
    95. 

  95. 

  96. .bss
    97. 

  97.     .lcomm __monstarted,4
    98. 

  98.     .comm   __stkptr,4
    99.