diff options
Diffstat (limited to 'rtl/linux/i386/cprt21.as')
| -rw-r--r-- | rtl/linux/i386/cprt21.as | 122 |
1 files changed, 122 insertions, 0 deletions
diff --git a/rtl/linux/i386/cprt21.as b/rtl/linux/i386/cprt21.as new file mode 100644 index 0000000000..3bad439f34 --- /dev/null +++ b/rtl/linux/i386/cprt21.as @@ -0,0 +1,122 @@ +# +# $Id: cprt21.as,v 1.6 2004/07/03 21:50:31 daniel Exp $ +# This file is part of the Free Pascal run time library. +# Copyright (c) 1999-2000 by Michael Van Canneyt and Peter Vreman +# members 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 ELF startup code for Free Pascal +# +# Stack layout at program start: +# +# nil +# envn +# .... +# .... ENVIRONMENT VARIABLES +# env1 +# env0 +# nil +# argn +# .... +# .... COMMAND LINE OPTIONS +# arg1 +# arg0 +# argc <--- esp +# + + .file "prt1.as" + .text + .globl _start + .type _start,@function +_start: + /* First locate the start of the environment variables */ + + popl %esi + movl %eax,%edi + + movl %esp,%ebx /* Points to the arguments */ + movl %esi,%eax + incl %eax + shll $2,%eax + addl %esp,%eax + andl $0xfffffff8,%esp /* Align stack */ + + movl %eax,operatingsystem_parameter_envp /* Move the environment pointer */ + movl %esi,operatingsystem_parameter_argc /* Move the argument counter */ + movl %ebx,operatingsystem_parameter_argv /* Move the argument pointer */ + + xorl %ebp,%ebp + pushl %edi + pushl %esp + pushl %edx + pushl $_fini_dummy + pushl $_init_dummy + pushl %ebx + pushl %esi + pushl $main + call __libc_start_main + hlt + +/* fake main routine which will be run from libc */ +main: + /* save return address */ + popl %eax + movl %eax,___fpc_ret + movl %ebx,___fpc_ret_ebx + movl %ebp,___fpc_ret_ebp + pushl %eax + + /* start the program */ + xorl %ebp,%ebp + call PASCALMAIN + hlt + + .globl _haltproc + .type _haltproc,@function +_haltproc: + movzwl operatingsystem_result,%eax + + movl ___fpc_ret,%edx /* return to libc */ + movl ___fpc_ret_ebp,%ebp + movl ___fpc_ret_ebx,%ebx + push %edx +_init_dummy: +_fini_dummy: + ret + +.data + .align 4 + +___fpc_ret: /* return address to libc */ + .long 0 +___fpc_ret_ebx: + .long 0 +___fpc_ret_ebp: + .long 0 + +.bss + .type ___fpc_brk_addr,@object + .comm ___fpc_brk_addr,4 /* heap management */ + + .comm operatingsystem_parameter_envp,4 + .comm operatingsystem_parameter_argc,4 + .comm operatingsystem_parameter_argv,4 + + +# +# $Log: cprt21.as,v $ +# Revision 1.6 2004/07/03 21:50:31 daniel +# * Modified bootstrap code so separate prt0.as/prt0_10.as files are no +# longer necessary +# +# Revision 1.5 2002/09/07 16:01:20 peter +# * old logs removed and tabs fixed +# |