paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 16:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Updated comments

Browse Source
This commit is contained in:
daniel 2004-07-03 23:04:34 +00:00
parent 74d50c5f11
commit fde4a792fa
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/linux/i386/prt0.as
View File

@ -15,6 +15,10 @@
# #
# Linux ELF startup code for Free Pascal # Linux ELF startup code for Free Pascal
# #
# The code in this file is the default startup code, it is used unless
# libc is linked in, profiling is enabled or you are compiling a shared
# library.
#
# #
# Stack layout at program start: # Stack layout at program start:
# #
@ -41,7 +45,7 @@ _start:
/* First locate the start of the environment variables */ /* First locate the start of the environment variables */
popl %ecx /* Get argc in ecx */ popl %ecx /* Get argc in ecx */
movl %esp,%ebx /* Esp now points to the arguments */ movl %esp,%ebx /* Esp now points to the arguments */
leal 4(%esp,%ecx,4),%eax /* The start of the environment is: esp+4*eax+8 */ leal 4(%esp,%ecx,4),%eax /* The start of the environment is: esp+4*eax+4 */
andl $0xfffffff8,%esp /* Align stack */ andl $0xfffffff8,%esp /* Align stack */
leal operatingsystem_parameters,%edi leal operatingsystem_parameters,%edi
@ -89,7 +93,10 @@ operatingsystem_parameters:
.set operatingsystem_parameter_argv,operatingsystem_parameters+8 .set operatingsystem_parameter_argv,operatingsystem_parameters+8
# #
# $Log$ # $Log$
# Revision 1.4 2004-07-03 21:50:31 daniel # Revision 1.5 2004-07-03 23:04:34 daniel
# * Updated comments
#
# Revision 1.4 2004/07/03 21:50:31 daniel
# * Modified bootstrap code so separate prt0.as/prt0_10.as files are no # * Modified bootstrap code so separate prt0.as/prt0_10.as files are no
# longer necessary # longer necessary
# #