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: 30f1eb4705
Branches Tags
freepascal.comp...
/
rtl
/
win32
/
wprt0.as

wprt0.as 995 B
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768 
  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.      call   _FPC_EXE_Entry
    9. 

  9.      .globl _WinMainCRTStartup
    10. 

  10. _WinMainCRTStartup:
    11. 

  11.      movb   $0,U_SYSTEM_ISCONSOLE
    12. 

  12.      call   _FPC_EXE_Entry
    13. 

  13.      
    14. 

  14.      .globl asm_exit
    15. 

  15. asm_exit:     
    16. 

  16.     pushl   %eax
    17. 

  17. 	call	exitprocess
    18. 

  18. 

  19. .text
    20. 

  20. .globl	exitprocess
    21. 

  21. exitprocess:
    22. 

  22. 	jmp	*.L10
    23. 

  23. 	.balign 4,144
    24. 

  24. 	
    25. 

  25. .text
    26. 

  26. 	.balign 4,144
    27. 

  27. 

  28. .section .idata$2
    29. 

  29. 	.rva	.L7
    30. 

  30. 	.long	0,0
    31. 

  31. 	.rva	.L6
    32. 

  32. 	.rva	.L8
    33. 

  33. 

  34. .section .idata$4
    35. 

  35. .L7:
    36. 

  36. 	.rva	.L9
    37. 

  37. 	.long	0
    38. 

  38. 

  39. .section .idata$5
    40. 

  40. .L8:
    41. 

  41. 	
    42. 

  42. 

  43. .section .idata$5
    44. 

  44. .L10:
    45. 

  45. 	.rva	.L9
    46. 

  46. 	.long	0
    47. 

  47. 

  48. .section .idata$6
    49. 

  49. .L9:
    50. 

  50. 	.short	0
    51. 

  51. 	.ascii	"ExitProcess\000"
    52. 

  52. 	.balign 2,0
    53. 

  53. 

  54. .section .idata$7
    55. 

  55. .L6:
    56. 

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

  57. 

  58. 

  59. 	
    60. 

  60. // $Log$
    61. 

  61. // Revision 1.4  2002-11-30 18:17:35  carl
    62. 

  62. //   + profiling support
    63. 

  63. //
    64. 

  64. // Revision 1.3  2002/07/28 20:43:51  florian
    65. 

  65. //   * several fixes for linux/powerpc
    66. 

  66. //   * several fixes to MT
    67. 

  67. //
    68. 

  68. //
    69.