Domů Procházet Nápověda
Přihlásit se
pascal
/
fpc
zrcadlo https://gitlab.com/freepascal.org/fpc/source.git
2
0
Rozštěpit 0
Soubory Úkoly 0 Wiki
Větev: paul/features
Větve Značky
fpc
/
rtl
/
win32
/
wprt0.as

wprt0.as 862 B
Trvalý odkaz Historie Surový

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 
  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.      movl   %esp,__stkptr
    9. 

  9.      call   _FPC_EXE_Entry
    10. 

  10.      .globl _WinMainCRTStartup
    11. 

  11. _WinMainCRTStartup:
    12. 

  12.      movb   $0,U_SYSTEM_ISCONSOLE
    13. 

  13.      movl   %esp,__stkptr
    14. 

  14.      call   _FPC_EXE_Entry
    15. 

  15. 

  16.      .globl asm_exit
    17. 

  17. asm_exit:
    18. 

  18.     pushl   %eax
    19. 

  19. 	call	exitprocess
    20. 

  20. 

  21. .text
    22. 

  22. .globl	exitprocess
    23. 

  23. exitprocess:
    24. 

  24. 	jmp	*.L10
    25. 

  25. 	.balign 4,144
    26. 

  26. 

  27. .text
    28. 

  28. 	.balign 4,144
    29. 

  29. 

  30. .section .idata$2
    31. 

  31. 	.rva	.L7
    32. 

  32. 	.long	0,0
    33. 

  33. 	.rva	.L6
    34. 

  34. 	.rva	.L8
    35. 

  35. 

  36. .section .idata$4
    37. 

  37. .L7:
    38. 

  38. 	.rva	.L9
    39. 

  39. 	.long	0
    40. 

  40. 

  41. .section .idata$5
    42. 

  42. .L8:
    43. 

  43. 

  44. 

  45. .section .idata$5
    46. 

  46. .L10:
    47. 

  47. 	.rva	.L9
    48. 

  48. 	.long	0
    49. 

  49. 

  50. .section .idata$6
    51. 

  51. .L9:
    52. 

  52. 	.short	0
    53. 

  53. 	.ascii	"ExitProcess\000"
    54. 

  54. 	.balign 2,0
    55. 

  55. 

  56. .section .idata$7
    57. 

  57. .L6:
    58. 

  58. 	.ascii	"kernel32.dll\000"
    59. 

  59. 

  60. .bss
    61. 

  61.     .comm   __stkptr,4
    62.