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
Strom: 1cf4d20b51
Větve Značky
fpc
/
rtl
/
win32
/
wprt0_10.as

wprt0_10.as 806 B
Historie Surový

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 
  1. //Startup code for WIN32 port of FPK-Pascal 0.9.98
    2. 

  2. //Written by P.Ozerski
    3. 

  3. //1998
    4. 

  4. // modified by Pierre Muller
    5. 

  5.      .text
    6. 

  6.      .globl _mainCRTStartup
    7. 

  7. _mainCRTStartup:
    8. 

  8.      movb   $1,U_SYSWIN32_ISCONSOLE
    9. 

  9.      call   _FPC_EXE_Entry
    10. 

  10.      .globl _WinMainCRTStartup
    11. 

  11. _WinMainCRTStartup:
    12. 

  12.      movb   $0,U_SYSWIN32_ISCONSOLE
    13. 

  13.      call   _FPC_EXE_Entry
    14. 

  14.      
    15. 

  15.      .globl asm_exit
    16. 

  16. asm_exit:     
    17. 

  17.     pushl   %eax
    18. 

  18. 	call	exitprocess
    19. 

  19. 	
    20. 

  20. .text
    21. 

  21. .globl	exitprocess
    22. 

  22. exitprocess:
    23. 

  23. 	jmp	*.L10
    24. 

  24. 	.balign 4,144
    25. 

  25. 	
    26. 

  26. .text
    27. 

  27. 	.balign 4,144
    28. 

  28. 

  29. .section .idata$2
    30. 

  30. 	.rva	.L7
    31. 

  31. 	.long	0,0
    32. 

  32. 	.rva	.L6
    33. 

  33. 	.rva	.L8
    34. 

  34. 

  35. .section .idata$4
    36. 

  36. .L7:
    37. 

  37. 	.rva	.L9
    38. 

  38. 	.long	0
    39. 

  39. 

  40. .section .idata$5
    41. 

  41. .L8:
    42. 

  42. 	
    43. 

  43. 

  44. .section .idata$5
    45. 

  45. .L10:
    46. 

  46. 	.rva	.L9
    47. 

  47. 	.long	0
    48. 

  48. 

  49. .section .idata$6
    50. 

  50. .L9:
    51. 

  51. 	.short	0
    52. 

  52. 	.ascii	"ExitProcess\000"
    53. 

  53. 	.balign 2,0
    54. 

  54. 

  55. .section .idata$7
    56. 

  56. .L6:
    57. 

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