Etusivu Tutki Apua
Kirjaudu sisään
pascal
/
fpc
peilaus alkaen https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Tiedostot Ongelmat 0 Wiki
Puu: 1102cc2b95
Haarat Tagit
fpc
/
rtl
/
win32
/
wdllprt0.as

wdllprt0.as 1.4 KB
Historia Raaka

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

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

  3.      .text
    4. 

  4.      .globl _mainCRTStartup
    5. 

  5. _mainCRTStartup:
    6. 

  6.      movb $1,U_SYSTEM_ISCONSOLE
    7. 

  7.      jmp .LDLL_Entry
    8. 

  8.      .globl _WinMainCRTStartup
    9. 

  9. _WinMainCRTStartup:
    10. 

  10.      movb $0,U_SYSTEM_ISCONSOLE
    11. 

  11. .LDLL_Entry:
    12. 

  12.      pushl    %ebp
    13. 

  13.      movl     %esp,%ebp
    14. 

  14.      pushl    %ebx
    15. 

  15.      pushl    %esi
    16. 

  16.      pushl    %edi
    17. 

  17.      movl     8(%ebp),%edi
    18. 

  18.      movl     %edi,SysInstance
    19. 

  19.      movl     12(%ebp),%edi
    20. 

  20.      movl     %edi,U_SYSTEM_DLLREASON
    21. 

  21.      movl     16(%ebp),%edi
    22. 

  22.      movl     %edi,U_SYSTEM_DLLPARAM
    23. 

  23.      call     _FPC_DLL_Entry
    24. 

  24.      popl     %edi
    25. 

  25.      popl     %esi
    26. 

  26.      popl     %ebx
    27. 

  27.      popl     %ebp
    28. 

  28.      ret      $12
    29. 

  29. 

  30.      .globl asm_exit
    31. 

  31. asm_exit:
    32. 

  32.     pushl  %eax
    33. 

  33. 	call   exitprocess
    34. 

  34. 	
    35. 

  35. .text
    36. 

  36. .globl	exitprocess
    37. 

  37. exitprocess:
    38. 

  38. 	jmp	*.L10
    39. 

  39. 	.balign 4,144
    40. 

  40. 	
    41. 

  41. .text
    42. 

  42. 	.balign 4,144
    43. 

  43. 

  44. .section .idata$2
    45. 

  45. 	.rva	.L7
    46. 

  46. 	.long	0,0
    47. 

  47. 	.rva	.L6
    48. 

  48. 	.rva	.L8
    49. 

  49. 

  50. .section .idata$4
    51. 

  51. .L7:
    52. 

  52. 	.rva	.L9
    53. 

  53. 	.long	0
    54. 

  54. 

  55. .section .idata$5
    56. 

  56. .L8:
    57. 

  57. 	
    58. 

  58. 

  59. .section .idata$5
    60. 

  60. .L10:
    61. 

  61. 	.rva	.L9
    62. 

  62. 	.long	0
    63. 

  63. 

  64. .section .idata$6
    65. 

  65. .L9:
    66. 

  66. 	.short	0
    67. 

  67. 	.ascii	"ExitProcess\000"
    68. 

  68. 	.balign 2,0
    69. 

  69. 

  70. .section .idata$7
    71. 

  71. .L6:
    72. 

  72. 	.ascii	"kernel32.dll\000"
    73. 

  73. 

  74. 

  75. //
    76. 

  76. 

  77. // Revision 1.4  2002/12/04 21:36:44  carl
    78. 

  78. //   * libraries would no longer compile because of my profiling fix
    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.