mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-10 08:08:36 +02:00
49 lines
1.1 KiB
ActionScript
49 lines
1.1 KiB
ActionScript
#
|
|
# $Id$
|
|
# This file is part of the Free Pascal run time library.
|
|
# Copyright (c) 1996-98 by Michael Van Canneyt
|
|
# member of the Free Pascal development team.
|
|
#
|
|
# See the file COPYING.FPC, included in this distribution,
|
|
# for details about the copyright.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY;without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
#
|
|
#**********************************************************************}
|
|
#
|
|
# Linux a.out startup code for Free Pascal
|
|
#
|
|
|
|
.file "prt0.as"
|
|
.text
|
|
.globl __entry
|
|
__entry:
|
|
movl 8(%esp),%eax /* Move the environment pointer */
|
|
movl 4(%esp),%ebx /* Move the argument pointer */
|
|
movl (%esp),%ecx /* Move the argument counter */
|
|
|
|
movl %eax,U_SYSLINUX_ENVP
|
|
movl %ebx,U_SYSLINUX_ARGV
|
|
movl %ecx,U_SYSLINUX_ARGC
|
|
|
|
call PASCALMAIN
|
|
|
|
.globl _haltproc
|
|
.type _haltproc,@function
|
|
_haltproc:
|
|
movl $1,%eax /* exit call */
|
|
xorl %ebx,%ebx
|
|
movw U_SYSLINUX_EXITCODE,%bx
|
|
int $0x80
|
|
jmp _haltproc
|
|
|
|
.data
|
|
.align 4
|
|
.globl ___brk_addr
|
|
.type ___brk_addr,@object
|
|
.size ___brk_addr,4
|
|
___brk_addr:
|
|
.long 0
|