mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 06:48:15 +01:00
f0aa48b083
symbols in assembler sources. Added to corresponding system variables or typed constants a public name 'operatingsystem_XXX' alias and used that alias in assembler source. git-svn-id: trunk@18943 -
77 lines
1.2 KiB
ActionScript
77 lines
1.2 KiB
ActionScript
// DLL Startup code for WIN32 port of Free Pascal
|
|
// Written by P.Ozerski 16.10.1998
|
|
.text
|
|
.globl _mainCRTStartup
|
|
_mainCRTStartup:
|
|
movb $1,operatingsystem_isconsole
|
|
jmp .LDLL_Entry
|
|
.globl _WinMainCRTStartup
|
|
_WinMainCRTStartup:
|
|
movb $0,operatingsystem_isconsole
|
|
.LDLL_Entry:
|
|
pushl %ebp
|
|
movl %esp,%ebp
|
|
pushl %ebx
|
|
pushl %esi
|
|
pushl %edi
|
|
movl 8(%ebp),%edi
|
|
movl %edi,SysInstance
|
|
movl 12(%ebp),%edi
|
|
movl %edi,operatingsystem_parameter_dllreason
|
|
movl 16(%ebp),%edi
|
|
movl %edi,operatingsystem_parameter_dllparam
|
|
movl %esp,__stkptr
|
|
call _FPC_DLL_Entry
|
|
popl %edi
|
|
popl %esi
|
|
popl %ebx
|
|
popl %ebp
|
|
ret $12
|
|
|
|
.globl asm_exit
|
|
asm_exit:
|
|
pushl %eax
|
|
call exitprocess
|
|
|
|
.text
|
|
.globl exitprocess
|
|
exitprocess:
|
|
jmp *.L10
|
|
.balign 4,144
|
|
|
|
.text
|
|
.balign 4,144
|
|
|
|
.section .idata$2
|
|
.rva .L7
|
|
.long 0,0
|
|
.rva .L6
|
|
.rva .L8
|
|
|
|
.section .idata$4
|
|
.L7:
|
|
.rva .L9
|
|
.long 0
|
|
|
|
.section .idata$5
|
|
.L8:
|
|
|
|
|
|
.section .idata$5
|
|
.L10:
|
|
.rva .L9
|
|
.long 0
|
|
|
|
.section .idata$6
|
|
.L9:
|
|
.short 0
|
|
.ascii "ExitProcess\000"
|
|
.balign 2,0
|
|
|
|
.section .idata$7
|
|
.L6:
|
|
.ascii "kernel32.dll\000"
|
|
|
|
.bss
|
|
.comm __stkptr,4
|