| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667 |
- // Startup code for WIN32 port of Free Pascal
- // with profiling enabled.
- .text
- .globl _mainCRTStartup
- _mainCRTStartup:
- movb $1,U_SYSTEM_ISCONSOLE
- call _FPC_EXE_Entry
- .globl _WinMainCRTStartup
- _WinMainCRTStartup:
- movb $0,U_SYSTEM_ISCONSOLE
- call _FPC_EXE_Entry
-
- .globl asm_exit
- asm_exit:
- pushl %eax
- call __mcleanup
- popl %eax
- 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"
-
- //
- // $Log$
- // Revision 1.1 2002-11-30 18:17:35 carl
- // + profiling support
- //
- //
- //
|
