Home Esplora Aiuto
Accedi
pascal
/
fpc
mirror da https://gitlab.com/freepascal.org/fpc/source.git
2
0
Forka 0
File Problemi 0 Wiki
Ramo (Branch): paul/features
Rami (Branch) Tag
fpc
/
rtl
/
win32
/
wdllprt0.as

wdllprt0.as 1.2 KB
Permalink Cronologia Originale

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576 
  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.      movl     %esp,__stkptr
    24. 

  24.      call     _FPC_DLL_Entry
    25. 

  25.      popl     %edi
    26. 

  26.      popl     %esi
    27. 

  27.      popl     %ebx
    28. 

  28.      popl     %ebp
    29. 

  29.      ret      $12
    30. 

  30. 

  31.      .globl asm_exit
    32. 

  32. asm_exit:
    33. 

  33.     pushl  %eax
    34. 

  34. 	call   exitprocess
    35. 

  35. 

  36. .text
    37. 

  37. .globl	exitprocess
    38. 

  38. exitprocess:
    39. 

  39. 	jmp	*.L10
    40. 

  40. 	.balign 4,144
    41. 

  41. 

  42. .text
    43. 

  43. 	.balign 4,144
    44. 

  44. 

  45. .section .idata$2
    46. 

  46. 	.rva	.L7
    47. 

  47. 	.long	0,0
    48. 

  48. 	.rva	.L6
    49. 

  49. 	.rva	.L8
    50. 

  50. 

  51. .section .idata$4
    52. 

  52. .L7:
    53. 

  53. 	.rva	.L9
    54. 

  54. 	.long	0
    55. 

  55. 

  56. .section .idata$5
    57. 

  57. .L8:
    58. 

  58. 

  59. 

  60. .section .idata$5
    61. 

  61. .L10:
    62. 

  62. 	.rva	.L9
    63. 

  63. 	.long	0
    64. 

  64. 

  65. .section .idata$6
    66. 

  66. .L9:
    67. 

  67. 	.short	0
    68. 

  68. 	.ascii	"ExitProcess\000"
    69. 

  69. 	.balign 2,0
    70. 

  70. 

  71. .section .idata$7
    72. 

  72. .L6:
    73. 

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

  74. 

  75. .bss
    76. 

  76.     .comm   __stkptr,4
    77.