mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-13 22:25:59 +02:00
15 lines
341 B
ActionScript
15 lines
341 B
ActionScript
//Startup code for WIN32 port of FPK-Pascal 0.9.98
|
|
//Written by P.Ozerski
|
|
//1998
|
|
// modified by Pierre Muller
|
|
.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
|
|
|